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-bounces@lists.kamailio.org [mailto:users-bounces@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