#!/bin/csh

###############################################################################
#																			  #
#   KillPVM 1.0 - Gianluca Faieta, Marcello Formica                           #
#																			  #
###############################################################################

#### Who am I? ####

set whoami = `whoami`
set myid = `id | awk '{x = substr($1, 5); y = substr (x,1,index(x, "(") - 1); print y}'`

#### Where am I? ####

switch (`uname`)
	case HP-UX:
		set ps = "ps -u $whoami"
		set kill = 'index($0, "pvmd3") > 0 {print "kill -9 " $1}'
		breaksw
	case SunOS:
		set ps = "ps -x"
		set kill = 'index($0, "pvmd3") > 0 {print "kill -9 " $1}'
		breaksw
	case AIX:
		set ps = "ps -u $whoami"
		set kill = 'index($0, "pvmd3") > 0 {print "kill -9 " $2}'
		breaksw
	case OSF1:
		set ps = "ps -u $whoami"
		set kill = 'index($0, "pvmd3") > 0 {print "kill -9 " $1}'
		breaksw
	default:
		exit
endsw

#### Kill ALL running pvmd... ####

$ps > /tmp/pvmkill.list.$myid
awk < /tmp/pvmkill.list.$myid > /tmp/pvmkill.kill.$myid "$kill"
chmod +x /tmp/pvmkill.kill.$myid
/tmp/pvmkill.kill.$myid
/bin/rm -f /tmp/pvmkill.list.$myid
/bin/rm -f /tmp/pvmkill.kill.$myid

#### Remove /tmp/pvmd, etc. ####

/bin/rm >&/dev/null /tmp/pvm?.$myid*
