On 27 January 2013 13:16, johnthan123 <
johnthan123@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
>
>
>