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; +