<div>Hi,</div><div><br></div><div>I just installed opensips1.7.  When loading a simple perl script, the proxy does not pass the INVITE message. The open sips works fine when not loading the perl script.</div><div><br></div>
<div>Here is the simple perl:</div><div><br></div><div><font class="Apple-style-span" face="&#39;courier new&#39;, monospace">use OpenSIPS qw ( log );</font></div><div><font class="Apple-style-span" face="&#39;courier new&#39;, monospace">use OpenSIPS::Constants;</font></div>
<div><font class="Apple-style-span" face="&#39;courier new&#39;, monospace"><br></font></div><div><font class="Apple-style-span" face="&#39;courier new&#39;, monospace">sub test</font></div><div><font class="Apple-style-span" face="&#39;courier new&#39;, monospace">{</font></div>
<div><font class="Apple-style-span" face="&#39;courier new&#39;, monospace">   $m = shift;</font></div><div><font class="Apple-style-span" face="&#39;courier new&#39;, monospace">   log(L_INFO, &quot;testn&quot;);</font></div>
<div><font class="Apple-style-span" face="&#39;courier new&#39;, monospace">   return 0;</font></div><div><font class="Apple-style-span" face="&#39;courier new&#39;, monospace">} </font></div><div><br></div><div><br></div>
And here is part of the config file to call the perl:<div><br></div><div><font class="Apple-style-span" face="&#39;courier new&#39;, monospace">....</font></div><div><font class="Apple-style-span" face="&#39;courier new&#39;, monospace">loadmodule &quot;perl.so&quot;</font></div>
<div><div><font class="Apple-style-span" face="&#39;courier new&#39;, monospace">modparam(&quot;perl&quot;, &quot;modpath&quot;, &quot;/usr/lib/opensips/perl/&quot;)</font></div><div><font class="Apple-style-span" face="&#39;courier new&#39;, monospace">modparam(&quot;perl&quot;, &quot;filename&quot;, &quot;/etc/opensips/<a href="http://function.pl">function.pl</a>&quot;)</font></div>
</div><div><font class="Apple-style-span" face="&#39;courier new&#39;, monospace">....</font></div><div><font class="Apple-style-span" face="&#39;courier new&#39;, monospace"><br></font></div><div><font class="Apple-style-span" face="&#39;courier new&#39;, monospace">   if (is_method(&quot;INVITE&quot;))</font></div>
<div><font class="Apple-style-span" face="&#39;courier new&#39;, monospace">   {</font></div><div><font class="Apple-style-span" face="&#39;courier new&#39;, monospace">      setflag(1); # do accounting</font></div><div><font class="Apple-style-span" face="&#39;courier new&#39;, monospace">      if ( perl_exec(&quot;test&quot;) )</font></div>
<div><font class="Apple-style-span" face="&#39;courier new&#39;, monospace">      {</font></div><div><font class="Apple-style-span" face="&#39;courier new&#39;, monospace">         xlog(&quot;perl passed\n&quot;);</font></div>
<div><font class="Apple-style-span" face="&#39;courier new&#39;, monospace">      }</font></div><div><font class="Apple-style-span" face="&#39;courier new&#39;, monospace">   } </font><br><div><br></div><div><br></div></div>
<div>I appreciate your help.</div><div><br></div><div>Thanks,</div><div>R,</div>