[Freeswitch-users] Need Help On mod_xml_curl

[Jagadish Thoutam]

hi john,


#!/usr/bin/perl
#!/usr/bin/perl
use warnings;
use strict;
use XML::Writer;
use XML::Writer::String;

my $s = XML::Writer::String->new();
my $writer = new XML::Writer( OUTPUT => $s,DATA_MODE => 1, DATA_INDENT => 4);
$writer->xmlDecl('UTF-8', 'no');
$writer->startTag('document', type=>'freeswitch/xml');
$writer->startTag('section',name=>'dialplan',description=>'RE Dial
Plan For FreeSwitch');
$writer->startTag('context',name=>'public');
$writer->startTag('condition',field=>'destination_number',expression=>'^(80\d{2})$');
$writer->startTag('action',application=>'set',data=>'dialed_extension=$1');
$writer->startTag('action',application=>'bridge',data=>'sofia/gateway/peer_asterisk/$1');
$writer->endTag('action');
$writer->endTag('action');
$writer->endTag('condition');
$writer->endTag('context');
$writer->endTag('section');
$writer->endTag('document');
$writer->end();
print $s->value();



i Think This can help you



Thanks
Jagadish

On 28 January 2013 22:40, Cal Leeming [Simplicity Media Ltd]
<cal.leeming at simplicitymedialtd.co.uk> wrote:
> Hi Jonathan,
>
> On a separate side note, that code is particularly unclean.
>
> You may want to consider either building the XML response using an XML
> library, or use a template parsing language so you are not placing raw XML
> in your source.
>
> In regards to your original email, the link Steven has provided is a good
> starting point.
>
> Hope this helps.
>
> Cal
>
> On Sun, Jan 27, 2013 at 1:16 PM, johnthan123 <johnthan123 at gmail.com> wrote:
>>
>> HI All,
>>
>>
>>   Can You Please any one help me To Write Directory and Dialplan and In
>> XML_CURL Like Below
>>
>> #################CODE########################
>> #!/usr/bin/perl
>> use strict;
>> use warnings;
>> use Data::Dump qw(dump);
>> use CGI;
>> my $q = CGI->new;
>> my $section = $q->param('section');
>>
>> if ($section eq 'directory'){
>>
>> $XML_STRING2 = '
>> <?xml version="1.0" encoding="UTF-8" standalone="no"?>
>> <document type="freeswitch/xml">
>>   <section name="directory">
>>     <domain name="192.168.4.32">
>>       <user id="1001">
>>     <params>
>>         <param name="password" value="1001"/>
>>        </params>
>>          <variables>
>>            <variable name="accountcode" value="1001"/>
>>           <variable name="user_context" value="default"/>
>>          <variable name="effective_caller_id_name" value="1001"/>
>>             <variable name="nibble_rate" value="0.05"/>
>>             <variable name="nibble_account" value="1"/>
>>         <variable name="effective_caller_id_number" value="1001"/>
>>        </variables>
>>       </user>
>>     </domain>
>>       </section>
>> ';
>> }
>> elsif ( $section eq 'dialplan' ) {
>> $XML_STRING = '
>>   <section name="dialplan" description="example_curl_dialplan">
>>     <context name="public">
>>       <extension name="curl_test">
>>         <condition field="destination_number" expression="^(80\d{2})$">
>>         <action application="set" data="dialed_extension=$1"/>
>>         <action application="set" data="nibble_account=${accountcode}"/>
>>         <action application="bridge"
>> data="sofia/gateway/peer_asterisk/$1"/>
>>         </condition>
>>       </extension>
>>     </context>
>>   </section>
>> </document>
>> ';
>> }
>>
>> ###########################END#############################
>>
>> This is Working for Me But i cant able to take the Database values into
>> XML file
>>
>>
>> Thanks In Advance
>>
>>
>> Thanks
>>
>> J :: T
>>
>>
>>
>> _________________________________________________________________________
>> Professional FreeSWITCH Consulting Services:
>> consulting at freeswitch.org
>> http://www.freeswitchsolutions.com
>>
>> 
>> 
>>
>> Official FreeSWITCH Sites
>> http://www.freeswitch.org
>> http://wiki.freeswitch.org
>> http://www.cluecon.com
>>
>> FreeSWITCH-users mailing list
>> FreeSWITCH-users at lists.freeswitch.org
>> http://lists.freeswitch.org/mailman/listinfo/freeswitch-users
>> UNSUBSCRIBE:http://lists.freeswitch.org/mailman/options/freeswitch-users
>> http://www.freeswitch.org
>>
>
>
> _________________________________________________________________________
> Professional FreeSWITCH Consulting Services:
> consulting at freeswitch.org
> http://www.freeswitchsolutions.com
>
> 
> 
>
> Official FreeSWITCH Sites
> http://www.freeswitch.org
> http://wiki.freeswitch.org
> http://www.cluecon.com
>
> FreeSWITCH-users mailing list
> FreeSWITCH-users at lists.freeswitch.org
> http://lists.freeswitch.org/mailman/listinfo/freeswitch-users
> UNSUBSCRIBE:http://lists.freeswitch.org/mailman/options/freeswitch-users
> http://www.freeswitch.org
>