From: Anthony Minessale <anthony.minessale@gmail.com>
Date: Fri, 20 Feb 2009 16:54:08 +0000 (+0000)
Subject: change example
X-Git-Tag: v1.0.4~1919
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=ba5322f6c0ede4d570fb4baebe35e6d66dcde0ac;p=thirdparty%2Ffreeswitch.git

change example

git-svn-id: http://svn.freeswitch.org/svn/freeswitch/trunk@12181 d0543943-73ff-0310-b7d9-9358b9ac24b2
---

diff --git a/libs/esl/perl/single_command.pl b/libs/esl/perl/single_command.pl
index 795351d0f4..ab75888309 100644
--- a/libs/esl/perl/single_command.pl
+++ b/libs/esl/perl/single_command.pl
@@ -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();