[OpenSIPS-Users] How to pass an opensips variable to perl

[Geoffroy Rabouin]

# opensips.cfg
$var(passation) = $ct;

# UrgenceScript.pl
my $pass = "\$var(passation)";
my $v = $m->pseudoVar($pass);
open POUET, ">/tmp/pouet";
print POUET $v . "\n";
close POUET;

I don't have the same value in the 2 variables ...
any idea ?


2008/11/18 Alex Balashov <abalashov at evaristesys.com>

> These arguments haven't ever worked for me.  I just set pseudovariables
> (e.g. $var(name)) and then get them out in Perl.
>
> Brett Nemeroff wrote:
>
>  Of course, the other way to do this is actually getting the AVP bits to
>> work properly, which you'll probably need anyway.
>>
>> I remember, I had to move some files around to make this work right..
>> -Brett
>>
>>
>> On Tue, Nov 18, 2008 at 11:35 AM, Geoffroy Rabouin <
>> geoffroy.rabouin at gmail.com <mailto:geoffroy.rabouin at gmail.com>> wrote:
>>
>>    I haven't got the value, but :
>>    $avp(s:password)
>>
>>    it seems that it must not use the quotes ...
>>
>>
>>    2008/11/18 Brett Nemeroff <brett at nemeroff.com
>>    <mailto:brett at nemeroff.com>>
>>
>>        Ok, since brute force is my style.. try:
>>        perl_exec("Urgence", "$avp(s:password)")
>>
>>        On Tue, Nov 18, 2008 at 11:26 AM, Geoffroy Rabouin
>>        <geoffroy.rabouin at gmail.com <mailto:geoffroy.rabouin at gmail.com>>
>>        wrote:
>>
>>            I've tried :
>>
>>            perl_exec("Urgence", $avp(s:password))
>>            perl_exec("Urgence", avp(s:password))
>>
>>            They don't work, it seems that it must have the quotes ...
>>            and with the quotes it itsn't the value which is transmitted.
>>
>>            2008/11/18 Brett Nemeroff <brett at nemeroff.com
>>            <mailto:brett at nemeroff.com>>
>>
>>                It's been a while since I used the perl stuff, but have
>>                you tried:
>>                perl_exec("Urgence", $avp(s:password))
>>
>>                ?
>>
>>                On Tue, Nov 18, 2008 at 11:03 AM, Geoffroy Rabouin
>>                <geoffroy.rabouin at gmail.com
>>                <mailto:geoffroy.rabouin at gmail.com>> wrote:
>>
>>                    Let me be more explicative
>>                    first test :
>>                    # openser.cfg
>>                    perl_exec("Urgence");
>>
>>                    # UrgenceScript.pl
>>                    my $hdr = OpenSIPS::AVP::get("password");
>>
>>                    the $hdr variable is NULL
>>
>>                    second test :
>>
>>                    # opensips.cfg
>>                    perl_exec("Urgence", "avp(s:password)");
>>                    # UrgenceScript.pl
>>                    my $hdr = shift;
>>                    the hdr variable is ==> avp(s:password) and not the
>>                    value of the avp.
>>                    and if I perl_exec("Urgence", avp(s:password));
>>                    whitout quotes, opensips simply crash.
>>
>>                    thanks
>>
>>
>>                    ---------- Forwarded message ----------
>>                    From: *Geoffroy Rabouin* <geoffroy.rabouin at gmail.com
>>                    <mailto:geoffroy.rabouin at gmail.com>>
>>                    Date: 2008/11/18
>>                    Subject: How to pass an opensips variable to perl
>>                    To: users at lists.opensips.org
>>                    <mailto:users at lists.opensips.org>
>>
>>
>>                    Hi,
>>                    I want to pass a variable from opener to a perl program
>>                    anyone has complete these ?
>>
>>                    I try with :
>>                    # opensips.cfg
>>                    perl_exec("Urgence", "avp(s:password)");
>>
>>                    # UrgenceScript.pl
>>                    my $hdr = OpenSIPS::AVP::get("password");
>>
>>                    But the $hdr variable still be null
>>                    I've only use OpenSIPS qw ( log ); and use
>>                    OpenSIPS::Message; for the USE section.
>>                    OpenSIPS::AVP cause opensips to crash for lack of
>>                    AVP.pm (which seems doesn't exist).
>>
>>                    thanks
>>
>>
>>                    --                    Geoffroy Rabouin
>>                    HighColoc
>>                    13710 La Barque
>>                    téléphone : 06-27-19-13-07
>>
>>
>>
>>                    --                    Geoffroy Rabouin
>>                    HighColoc
>>                    13710 La Barque
>>                    téléphone : 06-27-19-13-07
>>
>>                    _______________________________________________
>>                    Users mailing list
>>                    Users at lists.opensips.org
>>                    <mailto:Users at lists.opensips.org>
>>
>> http://lists.opensips.org/cgi-bin/mailman/listinfo/users
>>
>>
>>
>>
>>
>>            --            Geoffroy Rabouin
>>            HighColoc
>>            13710 La Barque
>>            téléphone : 06-27-19-13-07
>>
>>
>>
>>
>>
>>    --    Geoffroy Rabouin
>>    HighColoc
>>    13710 La Barque
>>    téléphone : 06-27-19-13-07
>>
>>
>>
>> ------------------------------------------------------------------------
>>
>> _______________________________________________
>> Users mailing list
>> Users at lists.opensips.org
>> http://lists.opensips.org/cgi-bin/mailman/listinfo/users
>>
>
>
> --
> Alex Balashov
> Evariste Systems
> Web    : http://www.evaristesys.com/
> Tel    : (+1) (678) 954-0670
> Direct : (+1) (678) 954-0671
> Mobile : (+1) (706) 338-8599
>



-- 
Geoffroy Rabouin
HighColoc
13710 La Barque
téléphone : 06-27-19-13-07
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.opensips.org/pipermail/users/attachments/20081118/ccb650ff/attachment.htm