Help for this page

Select Code to Download

Select or download this

sub checkMAC {
    my $mac = shift;
...
    lock %macs;
    $macs{ $mac } = $httpResult && $authResult ? 1 : 0;
}

Select or download this

while( <LOG> ) {
    next unless m[ ACK \s+ ( (?: [0-9a-f]{2} : ){5} : [0-9a-f]{2} )]xi
+;
    async( \&checkMAB, $1 )->detach; ## detach cos there's no result w
+e're interested in
}