snaakey/hydra
0
0
Fork 0
forked from lix-project/hydra
Code Pull requests Activity

* Monitor for dead builds all the time.

Browse source
This commit is contained in:
Eelco Dolstra 2008-11-28 11:00:55 +00:00
parent ba5e4be15e
commit 2156e406b4
1 changed files with 16 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/Hydra/programs/Runner.pl
View file

@ -11,6 +11,7 @@ my $db = Hydra::Schema->connect("dbi:SQLite:dbname=hydra.sqlite", "", "", {});
$db->storage->dbh->do("PRAGMA synchronous = OFF;"); $db->storage->dbh->do("PRAGMA synchronous = OFF;");
sub unlockDeadJobs {
# Unlock jobs whose building process has died. # Unlock jobs whose building process has died.
$db->txn_do(sub { $db->txn_do(sub {
my @jobs = $db->resultset('Builds')->search( my @jobs = $db->resultset('Builds')->search(
@ -25,6 +26,7 @@ $db->txn_do(sub {
} }
} }
}); });
}
sub checkJobs { sub checkJobs {
@ -112,6 +114,7 @@ sub checkJobs {
while (1) { while (1) {
eval { eval {
unlockDeadJobs;
checkJobs; checkJobs;
}; };
warn $@ if $@; warn $@ if $@;