#! /usr/athena/bin/perl
#
# This is not the most novel program you've ever seen.
#	Jed  Reynolds  october 1995
# Usage: nuke processname
#
#
$job=$ARGV[0];
if ( $job eq "" ) { die "must name a process to kill.\n"; }
print "Trying to kill $job...";
foreach $_ (`ps -x`) {
  if ( ($_ =~ /$job/) && !($_ =~ /nuke/ )) {
	($pid) = /(\S+)/;
	print "Killing: $_\n";
	system("kill $pid");
    }
  }
exit;
#eof