24 lines
401 B
Perl
24 lines
401 B
Perl
require ESL;
|
|
|
|
my $con = new ESL::ESLconnection("localhost", "8021", "ClueCon");
|
|
|
|
$con->events("plain", "all");
|
|
|
|
while($con->connected()) {
|
|
#my $e = $con->recvEventTimed(100);
|
|
my $e = $con->recvEvent();
|
|
|
|
if ($e) {
|
|
#print $e->serialize();
|
|
my $h = $e->firstHeader();
|
|
while ($h) {
|
|
printf "Header: [%s] = [%s]\n", $h, $e->getHeader($h);
|
|
$h = $e->nextHeader();
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|