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