![]() |
![]()
| ![]() |
![]()
NAMENet::Analysis::TCPSession - represent a TCP session (with two endpoints) SYNOPSISuse Net::Analysis::TCPSession qw(:const); my $sesh = Net::Analysis::TCPSession->new (); foreach my $pkt (@packets) { my $ret = $sesh->process_packet ($pkt); ($ret) || die "broken session: ".$sesh->errstr(); print " >> $sesh <<\n"; if ($ret == PKT_ESTABLISHED_SESSION) { print "new session established\n"; } elsif ($ret == PKT_TERMINATED_SESSION) { print "session torn down\n"; } elsif ($ret == PKT_FLIPPED_DIR) { print "monologue generated\n----\n".$sesh->previous_monologue(); } } if ($sesh->has_current_monologue()) { print "final monologue\n----\n".$sesh->current_monologue(); } DESCRIPTIONProcesses a packet in the context of an existing TCP session. This is the module that does the bulk of the stream management; SYNs, ACKs, dropping duplicates and storing out-of-sequence packets. A packet, once placed in order, is considered to do just one of four things:
EXPORTNone by default. SEE ALSOAUTHORAdam B. Worrall, <worrall@cpan.org> COPYRIGHT AND LICENSECopyright (C) 2004 by Adam B. Worrall This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.5 or, at your option, any later version of Perl 5 you may have available.
|