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

[Geoffroy Rabouin]

Hi,
I've just used the pseudovariables and a dirty/quick trick to solve my
problem.
Here is the interested part of my perl script, nothing in the openser.cfg :
#!/usr/bin/perl
use OpenSIPS qw ( log );
use OpenSIPS::Message;
use OpenSIPS::Constants;
        my $Emetteur = "\$fu";
        my $Destination = "\$tu";
        my $Doussa = $m->pseudoVar($Emetteur);
        my $Ouktuva = $m->pseudoVar($Destination);

Thanks a lot to give me the way :]

2008/11/18 Geoffroy Rabouin <geoffroy.rabouin at gmail.com>

> # 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
>



-- 
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/20081119/016f9db0/attachment.htm