lib/PXElator/wireshark.pm

package wireshark;

use warnings;
use strict;

use ip;

sub fork_actions { ip::devices_up }

our $AUTOLOAD;

sub AUTOLOAD {
        my $name = $AUTOLOAD;
        $name =~ s/.*://;   # strip fully-qualified portion

        warn "# $name";

        exec "wireshark -k -i $name";
}

1;
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;