added port option to snif

typester · Dec 5, 2008 · 5193796 · 5193796
1 parent 4f6bcd2
commit 5193796
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/script/rtmp_dump.pl b/script/rtmp_dump.pl
@@ -12,7 +12,7 @@
 
 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 @@ =head1 COPYRIGHT
 =cut
 
 1;
-