Hi Mik,
thanks for your hint!!!
We're now trying to save the variables from $sht in AVPs and accessing
only the AVPs from perl to avoid the memory leak. Currently we're
running our stress test. We'll inform you about the result.
Christian
Mik Cheez schrieb:
Christian,
Not sure if this will help you, but it's a good starting point if you want
to use Perl. I grab a good deal of information using the headers and AVP's
in order to write data to a MSSQL database and do LCR. Here's essentially
how I grab the values:
#Begin
use strict;
use OpenSER qw ( log );
use OpenSER::Constants;
use OpenSER::Message;
Sub your_function {
# get headers
my $m = shift;
my ($lrn, $inrpid);
# Headers
my $ruri = $m->getHeader("To");
# Pseudo Variables
my $source_ip = $m->pseudoVar("\$si");
my $in_ANI = $m->pseudoVar("\$fU");
my $insrc = $m->pseudoVar("\$fd");
my $daytim = $m->pseudoVar("\$Tf");
my $callid = $m->pseudoVar("\$ci");
# Check if PV's are set
if( $m->pseudoVar("\$re") != undef ){
$inrpid = $m->pseudoVar("\$re");
}
# AVP's
if( OpenSER::AVP::get(60) != undef ){
$lrn = OpenSER::AVP::get(60);
}
# Write some data to the log
log(L_INFO, sprintf("callid: %s\n", $callid));
# DO WHATEVER ELSE
}
# END
You can set AVP's in your script before calling the function:
$avp(my_AVP) = $sht(a=>$tu-translate);
Mik
-----Original Message-----
From: users-boun...@lists.kamailio.org
[mailto:users-boun...@lists.kamailio.org] On Behalf Of Christian Koch
Sent: Tuesday, June 09, 2009 6:56 AM
To: Daniel-Constantin Mierla
Cc: users@lists.kamailio.org
Subject: Re: [Kamailio-Users] freeing innername from htable Re: perl module,
"pv_sprintf: Memory exhausted!"
Hello Daniel,
Daniel-Constantin Mierla schrieb:
unfortunately you cannot use $sht in this way from perl module. The
same limitation that prevent calling any function from modules apply
here -- the fixup system used at startup, when string parameters are
pre-compiled in different forms to speed up runtime execution.
So there is no way to access $sht from other moduls (like perl or xlog)?
It seems to work, but obviously the memory isn't freed :-)
What we are trying to do is the following:
During processing of "INVITE" we need to save some call details (source
IP, URI, ...) and want to write them to file when the call is finished
(including duration, ...), while processing BYE or CANCEL, to have CDRs.
As there are multiple childs of kamailio we tried to save the calls
details from the INVITE in shared memory using htable (e.g.
"$sht(a=>$ci::srcip) = $si"), so we can use them while processing the
BYE (possibly in another child). There we wanted to use perl to be able
to write the saved details to a file.
We used the shared memory module as we don´t want to save the infos to
DB because of performance issues we suspect when using DBs.
But as you mentioned $sht is not supposed to be used in such a way. Do
you have any idea what else we can do to generate CDRs as mentioned?
By using other modules for example or a complete other way you may know?
It can be added as a feature request for future. For module functions
I added the core support for free fixup functions, but nobody
committed to continue the work in perl module.
If you want to work on it, I can assist and guide you.
Well, honestly we are looking for a fast way to implement it.
How long will it take to implement it with your guidance?
Thanks and regards,
Christian
_______________________________________________
Kamailio (OpenSER) - Users mailing list
Users@lists.kamailio.org
http://lists.kamailio.org/cgi-bin/mailman/listinfo/users
http://lists.openser-project.org/cgi-bin/mailman/listinfo/users
_______________________________________________
Kamailio (OpenSER) - Users mailing list
Users@lists.kamailio.org
http://lists.kamailio.org/cgi-bin/mailman/listinfo/users
http://lists.openser-project.org/cgi-bin/mailman/listinfo/users
