Commit | Line | Data |
378cc40b |
1 | #!/usr/bin/perl -P |
2 | |
fe14fcc3 |
3 | # $Header: scan_ps,v 4.0 91/03/20 01:13:29 lwall Locked $ |
378cc40b |
4 | |
5 | # This looks for looping processes. |
6 | |
7 | #if defined(mc300) || defined(mc500) || defined(mc700) |
8 | open(Ps, '/bin/ps -el|') || die "scan_ps: can't run ps"; |
9 | |
10 | while (<Ps>) { |
11 | next if /rwhod/; |
12 | print if index(' T', substr($_,62,1)) < 0; |
13 | } |
14 | #else |
15 | open(Ps, '/bin/ps auxww|') || die "scan_ps: can't run ps"; |
16 | |
17 | while (<Ps>) { |
18 | next if /dataserver/; |
19 | next if /nfsd/; |
20 | next if /update/; |
21 | next if /ypserv/; |
22 | next if /rwhod/; |
23 | next if /routed/; |
24 | next if /pagedaemon/; |
25 | #ifdef vax |
26 | ($user,$pid,$cpu,$mem,$sz,$rss,$tt,$stat,$start,$time) = split; |
27 | #else |
28 | ($user,$pid,$cpu,$mem,$sz,$rss,$tt,$stat,$time) = split; |
29 | #endif |
30 | print if length($time) > 4; |
31 | } |
32 | #endif |