2009-02-17 00:27:28 +00:00
|
|
|
require ESL;
|
|
|
|
|
|
2009-02-20 16:54:08 +00:00
|
|
|
my $command = shift;
|
|
|
|
|
my $args = join(" ", @ARGV);
|
|
|
|
|
|
2009-02-17 20:13:45 +00:00
|
|
|
my $con = new ESL::ESLconnection("localhost", "8021", "ClueCon");
|
2009-03-05 15:18:54 +00:00
|
|
|
my $e = $con->api($command, $args);
|
2009-02-17 00:27:28 +00:00
|
|
|
print $e->getBody();
|
