xswitch/scripts/perl/call.cgi

#!/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;