1
0
mirror of https://git.FreeBSD.org/ports.git synced 2024-10-29 21:39:24 +00:00
freebsd-ports/Tools/portbuild/scripts/pnohang
Satoshi Asami b57b6e5cd4 A little script to kill makes that haven't printed out any message in
a while (presumably because they are hanging or are in an infinite loop).
2000-09-27 00:05:22 +00:00

71 lines
1.9 KiB
Perl
Executable File

#!/usr/bin/perl
# pnohang: executes command ($4-) with output in file ($3)
# kills command if no output within $1 seconds with message in $2
# usage: pnohang timeout file command args ...
require "ctime.pl";
if ($#ARGV < 3) {
print "usage: pnohang timeout outfile message command [args...]\n";
exit 1;
}
$timeout=$ARGV[0];
$outfile=$ARGV[1];
$message=$ARGV[2];
splice(@ARGV, 0, 3);
$pid=$$;
#print "timeout is ", $timeout, "\n";
#print "outfile is ", $outfile, "\n";
#print "message is ", $message, "\n";
#print "arguments are ", "@ARGV", "\n";
if ($pid1 = fork) {
if ($pid2 = fork) {
local $SIG{TERM} = 'IGNORE';
# parent
#print 'child pids are ', $pid1, ' ', $pid2, "\n";
$child=wait;
$status=$?;
#print "exited child is $child, status is $status\n";
if ($pid1 = $child) {
#print "killing process $pid2 (second child)\n";
kill 'TERM', $pid2;
}
else {
#print "killing process $pid1 (first child)\n";
kill 'TERM', $pid1;
}
# exit status in upper 8 bits, killed signal (if any) in lower 8 bits
exit (($status >> 8) | ($status & 0xff)) ;
}
else {
# second child
for (;;) {
#local $^W = 0;
$now = time;
sleep $timeout;
($dev, $ino, $mode, $nlink, $uid, $gid, $rdev, $size, $atime, $mtime, $ctime, $blksize, $blocks)
= stat($outfile);
if ($now > $mtime) {
# system "logger -t pnohang killing @ARGV $message, pid $pid since no output in $timeout seconds";
print "pnohang: killing @ARGV ($message, pid $pid1 and $pid) since no output in $timeout seconds since ", &ctime($now);
print "ps jgx before the signal\n";
system "ps jgxww";
sleep 1; # give it a chance to output message
kill 'TERM' => -$pid1;
sleep 1;
kill 'TERM' => -$pid;
sleep 1;
print "ps jgx after the signal\n";
system "ps jgxww";
exit 1;
}
}
}
}
else {
# first child
#print "executing @ARGV\n";
exec "@ARGV >$outfile 2>&1";
}