3 # $Id: nu.in,v 1.1 2002-01-17 05:59:25 srittau Exp $
5 # nu - by Anders Brownworth anders@thehamptons.com
6 # modified by Ambrose Li <acli@mail.mingpaoxpress.com>
8 # shows netatalk users logged on
12 open(USERS, "-|") || exec("/bin/ps", "anucx");
15 push(@users, $1) if /^\s*(\d+)\s.*\bafpd\b/;
20 print "Netatalk users:\n---------------\n";
22 foreach $user (@users)
24 if ($user) { # not root
25 ($name,$_,$_,$_,$_,$_,$gcos) = getpwuid($user);
26 print(defined $gcos && $gcos =~ /^([^,]+)/? $1: $name, "\n");