18 lines
238 B
Perl
18 lines
238 B
Perl
|
require ESL;
|
||
|
|
|
||
|
|
my $con = new ESL::eslConnection("localhost", "8021", "ClueCon");
|
||
|
|
|
||
|
|
$con->events("plain", "all");
|
||
|
|
|
||
|
|
for(;;) {
|
||
|
|
#my $e = $con->recvEventTimed(100);
|
||
|
|
my $e = $con->recvEvent();
|
||
|
|
|
||
|
|
if ($e) {
|
||
|
|
print $e->serialize();
|
||
|
|
}
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
|