eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' && eval 'exec perl -S $0 $argv:q' if 0;
#;-*- Perl -*-
###################################################################################################
# This script gets a jobid and kills the job. The return value is not essentially important.
###################################################################################################
@ARGV > 0 or die "No iob id provided to kill.pl\n";
$jobid=$ARGV[0];
chomp($line=`qdel $jobid | tail -1;`);
$line=~s/^\s+//;
@line=split(/\s+/,$line);
if($line[2] eq "deleted" && $line[4] eq $jobid){
  print "killed\n";
}else{
  print "notkilledyet\n";
}