#!/bin/csh -f

# I just noticed a large number (78) of *old* ping processes were
# making pleiades quite sluggish.  This should find them and,
# eventually, clean them up.

# daw; 6/24/08

switch (`uname -s``uname -r`)
case SunOS5*:
	breaksw
default:
	exec echo ${0}: does not run on `uname -s` `uname -r`
endsw

while($#argv)
	switch ("$1")
	case -d:
		set DEBUG
#		shift
#		breaksw
# fall through to verbose
	case -v:
		set VERBOSE
		shift
		breaksw
	default:
		set DQ = '"'
		exec echo ${0}: "What do I do with $DQ$1$DQ?"
	endsw
end

set TMP = /tmp/`basename $0`.$$

/usr/ucb/ps auxwww | grep -w ping | egrep " Jan | Feb | Mar | Apr | May | Jun | Jul | Aug | Sep | Oct | Nov | Dec " | grep -v grep > $TMP

if (! -z $TMP) then
    cat $TMP
    echo ""
    set PIDS = `awk '{print $2}' $TMP`
    echo executing /usr/local/bin/slide kill $PIDS
		   /usr/local/bin/slide kill $PIDS
endif

/bin/rm $TMP