diff options
Diffstat (limited to 'lib/Iurt/Queue.pm')
-rw-r--r-- | lib/Iurt/Queue.pm | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/lib/Iurt/Queue.pm b/lib/Iurt/Queue.pm index 2f1e968..585294e 100644 --- a/lib/Iurt/Queue.pm +++ b/lib/Iurt/Queue.pm @@ -15,6 +15,7 @@ our @EXPORT = qw( check_if_all_archs_processed check_if_mandatory_arch_failed load_lock_file_data + record_bot_complete remove_bot_from_package ); @@ -183,6 +184,15 @@ sub remove_bot_from_package { @{$ent->{media}{$media}{bot}} = grep { $_->{host} ne $host || $_->{pid} != $pid} @{$ent->{media}{$media}{bot}}; } +sub record_bot_complete { + my ($run, $bot, $arch, $lock_file, $prefix, $ent, $media, $host, $pid) = @_; + plog('INFO', "delete lock file for $prefix on $host/$arch"); + unlink $lock_file; + $run->{bot}{$host}{$bot} = 0; + remove_bot_from_package($ent, $media, $host, $pid); + $ent->{media}{$media}{arch}{$arch} = 0; +} + sub get_upload_tree_state { our ($config) = @_; |