Those come handy if you're migrating from Asterisk 1.4:
sub CallWeaver::Manager::DB_Read($$$) {
($self, $family, $key) = @_;
my %h = $self->sendcommand( Action => 'commnad', Command =>
"database get \"$family\" \"$key\"" );
return '' if (not defined($h{'Response'}));
return '' if ($h{'Response'} ne 'Success');
my @h2 = $self->read_response;
foreach my $h3 ( @h2 ) {
if ($h3 =~ /^Value: /) {
$h3 =~ s/^Value: //;
return $h3;
}
if ($h3 =~ /^Val: /) {
$h3 =~ s/^Val: //;
return $h3;
}
}
return '';
}
sub CallWeaver::Manager::DB_Write($$$$) {
($self, $family, $key, $val) = @_;
my %h = $self->sendcommand( Action => 'command', Command =>
"database put \"$family\" \"$key\" \"$val\"" );
return '' if (not defined($h{'Response'}));
return ($h{'Response'} ne 'Success');
}
sub CallWeaver::Manager::DB_Del($$$) {
($self, $family, $key) = @_;
my %h = $self->sendcommand( Action => 'command', Command =>
"database del \"$family\" \"$key\"" );
return false if (not defined($h{'Response'}));
return ($h{'Response'} eq 'Success');
}
_______________________________________________
Callweaver-dev mailing list
[email protected]
http://lists.callweaver.org/mailman/listinfo/callweaver-dev
