example click to call using new ESL lib in perl

git-svn-id: http://svn.freeswitch.org/svn/freeswitch/trunk@12079 d0543943-73ff-0310-b7d9-9358b9ac24b2

diff --git a/scripts/call.cgi b/scripts/call.cgi
new file mode 100755 (executable)
index 0000000..d433e1d
--- /dev/null
+++ b/scripts/call.cgi
@@ -0,0 +1,25 @@
+#!/usr/bin/perl
+use CGI qw(:standard);
+use ESL;
+
+my $gateway = "sofia/gateway/my_gateway/";
+my $aleg_cid_num = "0987654321";
+my $bleg_cid_num = "1234567890";
+
+my $q = new CGI; 
+my $c = new ESL::eslConnection("localhost", "8021", "ClueCon");
+print $q->header;
+
+if($q->param()) {
+  my $numbera = $q->param('numbera');
+  my $numberb = $q->param('numberb');
+  my $e = $c->sendRecv("api originate {ignore_early_media=true,origination_caller_id_number=$aleg_cid_num,effective_caller_id_number=$bleg_cid_num}$gateway$numbera &bridge($gateway$numberb)");
+  print "API Sent:" . $e->getBody();
+  exit;
+}
+
+print $q->start_form, $q->h1("Click to Call Example"), br,
+  "First Party:", $q->textfield('numbera'), br,
+  "Second Party:", $q->textfield('numberb'),br,
+  $q->submit, $q->end_form;
+