Hi Bastian!
I've attached the script for you. I was planning on submitting this
with revision 2386, but 2425 came out just before I did so I gave it a
shot. In both cases, as well as the current release, the error is the same.
I love this module...
Bastian Friedrich wrote:
Hi,
On Wednesday 11 July 2007, Mik Cheez wrote:
My openser starts reporting "out of memory" and soforth on a fairly
regular basis. The server is being used to communicate with PSTN's
only. I use the Perl module on all invites to set different headers,
including the URI.
Do I get that right: the problem occured with the transition from SVN revision
2386 to revision 2425?
Can you give me an excerpt of your Perl script to reproduce the problem? You
are probably adding AVPs in your Perl function?
Thx,
Bastian
use strict;
use DBI;
use OpenSER qw ( log );
use OpenSER::Constants;
use OpenSER::Message;
sub ser_geturi {
my $m = shift; # headers
my $param = shift; # doroute
$param =~ s/l/L/g;
my $sth;
my $dbh;
my $rpid;
my ($inani, $insrc);
my ($ruri, $clid, $srcip);
my ($outuri, $route, $outnumber, $outani);
my ($daytim, $callid);
$ruri = $m->getHeader("To");
$clid = $m->getHeader("Call-ID");
$srcip = $m->pseudoVar("\$si");
$inani = $m->pseudoVar("\$fU");
$insrc = $m->pseudoVar("\$fd");
$daytim = $m->pseudoVar("\$Tf");
$callid = $m->pseudoVar("\$ci");
$dbh = DBI->connect(
"dbi:Sybase:database",
'xxxxxx',
'yyyyyy',
{
RaiseError => 1,
AutoCommit => 0
}
) || die "Database connection not made: $DBI::errstr";
$dbh->do("use Routing");
if( $inani =~ /^(\d+)$/ ){
$sth = $dbh->prepare("exec proxy_getoutgoingroute [EMAIL
PROTECTED], [EMAIL PROTECTED], [EMAIL PROTECTED], [EMAIL PROTECTED]");
$sth->execute($ruri, $param, $inani, $srcip);
} else {
$sth = $dbh->prepare("exec proxy_getoutgoingroute [EMAIL
PROTECTED], [EMAIL PROTECTED], [EMAIL PROTECTED]");
$sth->execute($ruri, $param, $srcip);
}
$sth->bind_columns(undef,\($outuri, $route, $outnumber, $outani));
if( $sth->fetch ) {
OpenSER::AVP::add(39, "$outuri");
log(L_INFO, "droute: $param\r\n");
log(L_INFO, "inani : $inani\r\n");
log(L_INFO, "insrc : $insrc\r\n");
log(L_INFO, "route : $route\r\n");
log(L_INFO, "outuri: $outuri\r\n");
log(L_INFO, "outnum: $outnumber\r\n");
log(L_INFO, "outani: $outani\r\n");
log(L_INFO, "callid: $callid\r\n");
log(L_INFO, "time : $daytim\r\n");
if( $outani != undef ){
my %group = ('5', '6', '7', '8');
if (exists($group{$route})){
$outani = "NOTHING";
}
$rpid = "Remote-Party-ID: <sip:[EMAIL
PROTECTED]>;screen=no;id-type=subscriber;party=calling;privacy=off\r\n";
OpenSER::AVP::add(38, "$rpid");
log(L_INFO, "rpid : $rpid");
}
} else {
log(L_INFO, "nothing returned\r\n");
}
$sth->finish;
$dbh->disconnect();
return 1;
}_______________________________________________
Devel mailing list
Devel@openser.org
http://openser.org/cgi-bin/mailman/listinfo/devel
