5
use vars qw($MAC_PROCESS $PS_STR $MATCH_STR $ASIP_PORT_NO $ASIP_PORT $LSOF);
7
# Written for linux; may have to be modified for your brand of Unix.
9
# Support for FreeBSD added by Joe Clarke <marcus@marcuscom.com>.
10
# Support could probably be extended for *BSD, but I do not have Net or
11
# OpenBSD machines to test with. Code has also been cleaned up and made
12
# to compile under strict.
14
# The new lsof call should also be quicker as it does not involve a
17
# Support has also been added for 16 character usernames.
19
$MAC_PROCESS = "afpd";
20
if ($^O eq "freebsd" || $^O eq "openbsd") {
21
$PS_STR = "-awwxouser,pid,ppid,start,command";
22
$MATCH_STR = '(\w+)\s+(\d+)\s+(\d+)\s+([\d\w:]+)';
25
$MATCH_STR = '\s*(\w+)\s+(\d+)\s+(\d+)\s+\d+\s+([\d\w:]+)';
27
$ASIP_PORT = "afpovertcp";
30
# Change to 0 if you don't have lsof
34
if ($^O eq "freebsd") {
35
open(SOCKSTAT, "sockstat -4 | grep $MAC_PROCESS | grep -v grep |");
38
next if ($_ !~ /$MAC_PROCESS/);
40
/\S+\s+\S+\s+(\d+)\s+\d+\s+[\w\d]+\s+[\d\.:]+\s+([\d\.]+)/;
41
my ($pid, $addr, $host);
44
$host = gethostbyaddr(pack('C4', split (/\./, $addr)), AF_INET);
45
($host) = ( $host =~ /(^(\d+\.){3}\d+|[\w\d\-]+)/ );
49
"PID UID Username Name Logintime Mac\n";
51
} elsif ($LSOF == 1) {
52
open(LSOF, "lsof -i :$ASIP_PORT |");
55
next if ($_ !~ /$ASIP_PORT/);
56
$_ =~ /\w+\s+(\d+).*->([\w\.-]+).*/;
60
($host) = ( $host =~ /(^(\d+\.){3}\d+|[\w\d\-]+)/ );
64
"PID UID Username Name Logintime Mac\n";
68
"PID UID Username Name Logintime\n";
71
open(PS, "ps $PS_STR |") || die "Unable to open a pipe to ``ps''";
74
next if ($_ !~ /$MAC_PROCESS/);
75
my ($user, $pid, $ppid, $time, $name, $uid, $t);
83
($t, $t, $uid, $t, $t, $t, $name, $t, $t) = getpwnam($user);
84
($name) = ( $name =~ /(^[^,]+)/ );
85
printf "%-8d %-8d %-16s %-20s %-9s %s\n", $pid, $uid, $user,
86
$name, $time, $mac{$pid};