[Freeswitch-svn] [commit] r12079 - freeswitch/trunk/scripts

[FreeSWITCH SVN]

Author: brian
Date: Mon Feb 16 20:23:03 2009
New Revision: 12079

Log:
 example click to call using new ESL lib in perl

Added:
   freeswitch/trunk/scripts/call.cgi   (contents, props changed)

Added: freeswitch/trunk/scripts/call.cgi
==============================================================================
--- (empty file)
+++ freeswitch/trunk/scripts/call.cgi	Mon Feb 16 20:23:03 2009
@@ -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;
+