3 # $Header: scan_ps,v 4.0 91/03/20 01:13:29 lwall Locked $
5 # This looks for looping processes.
7 #if defined(mc300) || defined(mc500) || defined(mc700)
8 open(Ps, '/bin/ps -el|') || die "scan_ps: can't run ps";
12 print if index(' T', substr($_,62,1)) < 0;
15 open(Ps, '/bin/ps auxww|') || die "scan_ps: can't run ps";
26 ($user,$pid,$cpu,$mem,$sz,$rss,$tt,$stat,$start,$time) = split;
28 ($user,$pid,$cpu,$mem,$sz,$rss,$tt,$stat,$time) = split;
30 print if length($time) > 4;