diff options
author | kris <kris@FreeBSD.org> | 2003-01-24 13:05:38 +0800 |
---|---|---|
committer | kris <kris@FreeBSD.org> | 2003-01-24 13:05:38 +0800 |
commit | dee66766163309956aa64036e870bd632a921b08 (patch) | |
tree | 62d887436c10b25a2a83992f1162a66b1d43021f /Tools | |
parent | ee11cbafd07adf622b3def40c8b86dc550fa9370 (diff) | |
download | freebsd-ports-gnome-dee66766163309956aa64036e870bd632a921b08.tar.gz freebsd-ports-gnome-dee66766163309956aa64036e870bd632a921b08.tar.zst freebsd-ports-gnome-dee66766163309956aa64036e870bd632a921b08.zip |
These scripts have been replaced by .c versions that do not require perl.
Diffstat (limited to 'Tools')
-rwxr-xr-x | Tools/portbuild/scripts/pnohang | 70 | ||||
-rwxr-xr-x | Tools/portbuild/scripts/ptimeout | 41 |
2 files changed, 0 insertions, 111 deletions
diff --git a/Tools/portbuild/scripts/pnohang b/Tools/portbuild/scripts/pnohang deleted file mode 100755 index acfeab8a22b1..000000000000 --- a/Tools/portbuild/scripts/pnohang +++ /dev/null @@ -1,70 +0,0 @@ -#!/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"; -} diff --git a/Tools/portbuild/scripts/ptimeout b/Tools/portbuild/scripts/ptimeout deleted file mode 100755 index d4f3a19f24b2..000000000000 --- a/Tools/portbuild/scripts/ptimeout +++ /dev/null @@ -1,41 +0,0 @@ -#!/usr/bin/perl -w -# ptimeout: executes command but kills it after a specified timeout -# usage: ptimeout timeout command args ... - -require "ctime.pl"; - -$timeout=$ARGV[0]; -splice(@ARGV, 0, 1); -#print "timeout is ", $timeout, "\n"; -#print "arguments are ", "@ARGV", "\n"; -if ($pid1 = fork) { - if ($pid2 = fork) { - # 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\n"; - kill 'TERM', $pid2; - } - else { - #print "killing process $pid1\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 - sleep $timeout; - print "ptimeout: killing @ARGV (pid $pid1) since timeout of $timeout expired at ", &ctime(time); - kill 'TERM', $pid1; - exit 1; - } -} -else { - # first child - #print "executing @ARGV\n"; - exec @ARGV; -} |