ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/wvsniff/wvsniff
(Generate patch)

Comparing wvsniff/wvsniff (file contents):
Revision 1.10 by root, Sun Apr 28 03:12:58 2002 UTC vs.
Revision 1.11 by root, Sun Apr 28 04:58:36 2002 UTC

281 my $cap = open_pcap_socket; 281 my $cap = open_pcap_socket;
282 my $pkt; 282 my $pkt;
283 open LOG, ">/tmp/log";#d# 283 open LOG, ">/tmp/log";#d#
284 284
285 Event->io(fd => $cap, poll => 'r', cb => sub { 285 Event->io(fd => $cap, poll => 'r', cb => sub {
286 sysread $$cap, $pkt, 120; 286 sysread $cap, $pkt, 120;
287 287
288 printf LOG "%s\n", unpack "H*", $pkt; 288 printf LOG "%s\n", unpack "H*", $pkt;
289 289
290 my ($fc1, $fc2, $sid, $a1, $a2, $a3, $sc, $pkt) 290 my ($fc1, $fc2, $sid, $a1, $a2, $a3, $sc, $pkt)
291 = unpack "C C n a6 a6 a6 S a*", $pkt; 291 = unpack "C C n a6 a6 a6 S a*", $pkt;

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines