VoIP Mailing List Archives

[regs at kinetix.gr]

Hi,

Is there a way to declare more than one script with its binding in
perl.conf.xml?
Because from what I understood by reading the documentation, is that
there are
no different sections to define different perl scripts with bindings
like for example in the
xml_curl.conf.xml :

<configuration name="xml_curl.conf" description="cURL XML Gateway">
<bindings>
<binding name="binding1">
...
</binding>
<binding name="binding2">
...
</binding>

...

</bindings>
</configuration>





_______________________________________________
Freeswitch-users mailing list
Freeswitch-users@lists.freeswitch.org
http://lists.freeswitch.org/mailman/listinfo/freeswitch-users
UNSUBSCRIBE:http://lists.freeswitch.org/mailman/options/freeswitch-users
http://www.freeswitch.org

[anthony.minessale at g...]

no the languages only have one binding.
Do you really need more than one binding?

On Thu, Nov 20, 2008 at 6:20 AM, regs@kinetix.gr (regs@kinetix.gr) <regs@kinetix.gr (regs@kinetix.gr)> wrote:

[regs at kinetix.gr]

What if I want to use one binding for "directory", one for "configuration" and one for "dialplan"?

While we are at it, how can I pass parameters so that I can "fill up" my %XML_REQUEST when
the perl script is called from the xml dialplan? e.g. :

<context name="route">
<extension name=default>
<condition field="destination_number" expression="^.*$">
<action application="perl" data="/root/test_perl2.pl" />
</condition>
</extension>
</context>



Anthony Minessale wrote:

[anthony.minessale at g...]

currently it would entail binding everything to 1 script and detecting which kind of section it
was in the script. Making it support many would require some coding which would need to be done in every language module to keep them uniform and we don't have the time for it right now. you can provide a patch or post a bounty and maybe someone can work on it.

there is a magic env obj created in your script that has all the params

print $env->serialize();
print $env->serialize("xml");

$info = $env->getHeader("info");



On Thu, Nov 20, 2008 at 8:34 AM, regs@kinetix.gr (regs@kinetix.gr) <regs@kinetix.gr (regs@kinetix.gr)> wrote:

[regs at kinetix.gr]

That's great. And how do I pass the parameters when calling the script from my dialplan?

e.g.

<action application="perl" data="/root/test_perl.pl" />

Anthony Minessale wrote:

[brian at freeswitch.org]

<action application="perl" data="/root/test_perl.pl arg1 arg2 arg3" />

/b

On Nov 21, 2008, at 1:41 AM, regs@kinetix.gr wrote:

[anthony.minessale at g...]

also any variables you may set before you call the script will be available too if you want to use named params.


On Fri, Nov 21, 2008 at 7:41 AM, Brian West <brian@freeswitch.org (brian@freeswitch.org)> wrote:

[regs at kinetix.gr]

I tried using the $env object but it fails with :

2008-11-24 09:12:46 [ERR] mod_perl.c:69 Perl_safe_eval() [require '/root/test_perl2.pl';]
Can't call method "serialize" on an undefined value at /root/test_perl2.pl line 19.
Compilation failed in require at (eval 3) line 1.

The script I am using :

#!/usr/bin/perl

freeswitch::console_log("info", $env->serialize());

### MAIN START

$XML_STRING = '
<?xml version="1.0" encoding="UTF-8" standalone="no"?>
<document type="freeswitch/xml">
<section name="dialplan" description="Perl RE Dial Plan For FreeSwitch">
<context name="kinetix">
<extension name="test">
<condition field="destination_number" expression="^.*$">
<action application="playback" data="tone_stream://path=${base_dir}/conf/tetris.ttml;loops=5"/>
</condition>
</extension>
</context>
</section>
</document>
';

### MAIN END

1;

Anthony Minessale wrote: