1#! /usr/local/bin/perl 2# 3# KillPlanD 4# 5# Perl Script to kill off a running 'pland' 6# To be run from $HOME/.logout 7# 8# by cliff@shadow.phys.ucalgary.ca (Cliff Marcellus) 9# 10$myUID = $<; 11$Template = "/tmp/.pland"; 12 13 $TargetFile = sprintf("%s%s", $Template, $myUID); 14 15 if (! -e $TargetFile) { 16 exit(1); # no /tmp/.planXXX file 17 }; 18 19 open(PIDFILE, "< $TargetFile") || die "Cannot open $TargetFile ($!)\n"; 20 chop($InputLine = <PIDFILE>); 21 close(PIDFILE); 22 23 $InputLine =~ s/^\s+//; 24 ($PID, $rest) = split(/ /, $InputLine, 2); 25 kill 'QUIT', $PID; 26 27exit(1); 28