@@ -12,7 +12,7 @@ use JSON::Syck;
GetOptions(
\my %option,
- qw/help/
+ qw/help port=i/
);
pod2usage(0) if $option{help};
@@ -46,6 +46,7 @@ sub log_other {
};
Sniffer::RTMP->new(
+ $option{port} ? (filter => "tcp port $option{port}") : (),
device => $dev,
callbacks => {
notify => \&log_method,
@@ -90,4 +91,3 @@ LICENSE file included with this module.
=cut
1;
-
script/rtmp_dump.pl
4f6bcd224587a95329cad6ce5ed0198cbeda22af
typester
typester@cpan.org
http://github.com/typester/sniffer-rtmp-perl/commit/5193796982fd04bfd14cb05a2ba7e2bdee9c1a44
5193796982fd04bfd14cb05a2ba7e2bdee9c1a44
2008-12-04T21:53:14-08:00
2008-12-04T21:53:14-08:00
added port option to snif
174e88d62d600e03a6f0ed4e80e7e019879c8def
typester
typester@cpan.org