aboutsummaryrefslogtreecommitdiffstats
path: root/lib
diff options
context:
space:
mode:
authorPascal Terjan <pterjan@mageia.org>2012-12-02 15:26:36 +0000
committerPascal Terjan <pterjan@mageia.org>2012-12-02 15:26:36 +0000
commit6926d1304a5890e58745b040d04ed040c0ba02df (patch)
tree5d178458bc23f22a5e10a7e05a31b4985f5cc00f /lib
parentb1fe660bfb4d4dc80ec2cef89a718f1e4bfec48e (diff)
downloadiurt-6926d1304a5890e58745b040d04ed040c0ba02df.tar
iurt-6926d1304a5890e58745b040d04ed040c0ba02df.tar.gz
iurt-6926d1304a5890e58745b040d04ed040c0ba02df.tar.bz2
iurt-6926d1304a5890e58745b040d04ed040c0ba02df.tar.xz
iurt-6926d1304a5890e58745b040d04ed040c0ba02df.zip
Kill build if nothing is printed for 5 minutes and system is idle
Diffstat (limited to 'lib')
-rw-r--r--lib/Iurt/Process.pm14
1 files changed, 12 insertions, 2 deletions
diff --git a/lib/Iurt/Process.pm b/lib/Iurt/Process.pm
index 3ad858d..d6fadc2 100644
--- a/lib/Iurt/Process.pm
+++ b/lib/Iurt/Process.pm
@@ -8,6 +8,7 @@ use Iurt::Mail qw(sendmail);
use Iurt::Config qw(dump_cache_par);
use Iurt::Util qw(plog);
use POSIX ":sys_wait_h";
+use Sys::Load qw(getload);
our @EXPORT = qw(
kill_for_good
@@ -102,14 +103,23 @@ sub fork_to_monitor {
my (@stat) = stat $logfile;
if ($stat[7] > $size_limit) {
# FIXME: we left runaway processes (eg: urpmi)
- plog('NONE', "ERROR: killing current command because of log size exceeding limit ($stat[7] > $config->{log_size_limit})");
+ plog('ERROR', "Killing current command because of log size exceeding limit ($stat[7] > $config->{log_size_limit})");
kill 14, "-$parent_pid";
exit();
}
+ if ($stat[9] + $opt{stalled_timeout} < time()){
+ # If nothing was written to the logfile for more than stalled_timeout, check if the system seems busy
+ if ((getload())[1] < 0.5) {
+ plog('ERROR', "Killing current command because it seems blocked");
+ kill 14, "-$parent_pid";
+ exit();
+ }
+ }
+
my $df = df $opt{log};
if ($df->{per} >= 99) {
# FIXME: we left runaway processes (eg: urpmi)
- plog('NONE', "ERROR: killing current command because running out of disk space at $opt{log} (only $df->{bavail}KB left)");
+ plog('ERROR', "Killing current command because running out of disk space at $opt{log} (only $df->{bavail}KB left)");
kill 14, "-$parent_pid";
exit();
}