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