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

[FreeSWITCH SVN]

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();