#!/usr/bin/perl -P

# $Header: /home/cvs/386BSD/ports/lang/perl/eg/scan/scan_ps,v 1.1.1.1 1993/08/23 21:29:45 nate Exp $

# This looks for looping processes.

#if defined(mc300) || defined(mc500) || defined(mc700)
open(Ps, '/bin/ps -el|') || die "scan_ps: can't run ps";

while (<Ps>) {
    next if /rwhod/;
    print if index(' T', substr($_,62,1)) < 0;
}
#else
open(Ps, '/bin/ps auxww|') || die "scan_ps: can't run ps";

while (<Ps>) {
    next if /dataserver/;
    next if /nfsd/;
    next if /update/;
    next if /ypserv/;
    next if /rwhod/;
    next if /routed/;
    next if /pagedaemon/;
#ifdef vax
    ($user,$pid,$cpu,$mem,$sz,$rss,$tt,$stat,$start,$time) = split;
#else
    ($user,$pid,$cpu,$mem,$sz,$rss,$tt,$stat,$time) = split;
#endif
    print if length($time) > 4;
}
#endif