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