2009-02-16 21:23:03 -05:00
|
|
|
#!/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;
|
2009-02-17 15:17:12 -05:00
|
|
|
my $c = new ESL::ESLconnection("localhost", "8021", "ClueCon");
|
2009-02-16 21:23:03 -05:00
|
|
|
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;
|
|
|
|
|
|
