[Freeswitch-svn] [commit] r12181 - freeswitch/trunk/libs/esl/perl

Author: anthm Date: Fri Feb 20 10:54:08 2009 New Revision: 12181 Log: change example Modified: freeswitch/trunk/libs/esl/perl/single_command.pl Modified: freeswitch/trunk/libs/esl/perl/single_command.pl ============================================================================== --- freeswitch/trunk/libs/esl/perl/single_command.pl (original) +++ freeswitch/trunk/libs/esl/perl/single_command.pl Fri Feb 20 10:54:08 2009 @@ -1,6 +1,8 @@ require ESL; -my $command = join(" ", @ARGV); +my $command = shift; +my $args = join(" ", @ARGV); + my $con = new ESL::ESLconnection("localhost", "8021", "ClueCon"); -my $e = $con->sendRecv("api $command"); +my $e = $con->api($command, $args); print $e->getBody();