diff options
Diffstat (limited to 'iurt')
-rwxr-xr-x | iurt | 6 |
1 files changed, 4 insertions, 2 deletions
@@ -40,7 +40,7 @@ use URPM; use Iurt::Urpmi; use Iurt::Chroot qw(add_local_user create_temp_chroot remove_chroot create_build_chroot clean_chroot); -use Iurt::Process qw(perform_command kill_for_good sudo); +use Iurt::Process qw(perform_command kill_for_good set_alarm_message sudo); use Iurt::Mail qw(sendmail); use Iurt::Util qw(plog_init plog); use File::NCopy qw(copy); @@ -1082,9 +1082,11 @@ sub check_pid { my $state = `ps h -o state $pid`; chomp $state; if ($time < time()-36000 || $state eq 'Z') { - plog("an other iurt pid $pid is running for a very long time or is zombie, killing it"); + my $msg = "an other iurt pid $pid is running for a very long time or is zombie, killing it"; + plog($msg); my $i; while ($i < 5 && getpgrp $pid != -1) { + set_alarm_message($msg); kill_for_good($pid); $i++; sleep 1; |