2009-02-17 00:27:28 +00:00
|
|
|
require ESL;
|
|
|
|
|
|
|
|
|
|
my $command = join(" ", @ARGV);
|
2009-02-17 20:13:45 +00:00
|
|
|
my $con = new ESL::ESLconnection("localhost", "8021", "ClueCon");
|
2009-02-17 00:27:28 +00:00
|
|
|
my $e = $con->sendRecv("api $command");
|
|
|
|
|
print $e->getBody();
|
