Preston_PLB
/
freeswitch
forked from Mirrors/freeswitch
1
0
Fork 0
Code Pull Requests Activity

FS-7726 puppet xml curl handler

This commit is contained in:
Brian West 2015-06-30 18:27:19 -05:00
parent f097384d44
commit 3db3d35986
1 changed files with 49 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

49
scripts/perl/puppet.cgi Executable file
View File

@ -0,0 +1,49 @@
#!/usr/bin/perl
#
# Used for testing, This will allow you to configure a
# dialplan on a remote system for testing via X headers
# in a SIP invite. DO NOT RUN IN PRODUCTION LIKE THIS.
#
# YOU'VE BEEN WARNED!
#
use CGI;
use XML::Writer;
use IO::File;
use Data::Dumper;
my $q = CGI->new;
my $output = IO::File->new(*STDOUT);
my $writer = XML::Writer->new(OUTPUT => $output, DATA_MODE => 1, DATA_INDENT => 2);
my $params = $q->Vars;
print $q->header('text/xml');
$writer->xmlDecl("UTF-8");
$writer->startTag("document", "type" => "freeswitch/xml");
if($params->{'Hunt-Destination-Number'} eq 'puppet') {
$writer->startTag("section", "name" => "dialplan");
$writer->startTag("context", "name" => "$params->{'Hunt-Context'}");
$writer->startTag("extension", "name" => "puppet");
$writer->startTag("condition");
my $count = 1;
while (exists $params->{"variable_sip_h_X-DP-$count"}) {
my ($app, $arg) = split(/:/, $params->{"variable_sip_h_X-DP-$count"});
if($arg) {
$writer->emptyTag("action", "application" => "$app", "data" => "$arg");
} else {
$writer->emptyTag("action", "application" => "$app");
}
$count++;
}
$writer->endTag("condition");
$writer->endTag("extension");
$writer->endTag("context");
} else {
$writer->startTag("section", "name" => "result");
$writer->emptyTag("result", "status" => "not found");
}
$writer->endTag("section");
$writer->endTag("document");
$writer->end();