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>
';
}