freeswitch/libs/esl/perl/single_command.pl

require ESL;

my $command = shift;
my $args = join(" ", @ARGV);

my $con = new ESL::ESLconnection("localhost", "8021", "ClueCon");
my $e = $con->api($command, $args);
print $e->getBody();
add c++ wrapper for esl and a perl module using swig (might need more work) git-svn-id: http://svn.freeswitch.org/svn/freeswitch/trunk@12074 d0543943-73ff-0310-b7d9-9358b9ac24b2 2009-02-17 00:27:28 +00:00			`require ESL;`

change example git-svn-id: http://svn.freeswitch.org/svn/freeswitch/trunk@12181 d0543943-73ff-0310-b7d9-9358b9ac24b2 2009-02-20 16:54:08 +00:00			`my $command = shift;`
			`my $args = join(" ", @ARGV);`

update esl git-svn-id: http://svn.freeswitch.org/svn/freeswitch/trunk@12111 d0543943-73ff-0310-b7d9-9358b9ac24b2 2009-02-17 20:13:45 +00:00			`my $con = new ESL::ESLconnection("localhost", "8021", "ClueCon");`
change example git-svn-id: http://svn.freeswitch.org/svn/freeswitch/trunk@12181 d0543943-73ff-0310-b7d9-9358b9ac24b2 2009-02-20 16:54:08 +00:00			`my $e = $con->api($command, $args);`
add c++ wrapper for esl and a perl module using swig (might need more work) git-svn-id: http://svn.freeswitch.org/svn/freeswitch/trunk@12074 d0543943-73ff-0310-b7d9-9358b9ac24b2 2009-02-17 00:27:28 +00:00			`print $e->getBody();`