Parent Directory | Revision Log
added ip::devices_up and use it for wireshark to offer sniffing targets
1 | dpavlin | 225 | package wireshark; |
2 | |||
3 | use warnings; | ||
4 | use strict; | ||
5 | |||
6 | dpavlin | 265 | use ip; |
7 | dpavlin | 225 | |
8 | dpavlin | 265 | sub fork_actions { ip::devices_up } |
9 | |||
10 | dpavlin | 225 | our $AUTOLOAD; |
11 | |||
12 | sub AUTOLOAD { | ||
13 | my $name = $AUTOLOAD; | ||
14 | $name =~ s/.*://; # strip fully-qualified portion | ||
15 | |||
16 | warn "# $name"; | ||
17 | |||
18 | exec "wireshark -k -i $name"; | ||
19 | } | ||
20 | |||
21 | 1; |
ViewVC Help | |
Powered by ViewVC 1.1.26 |