ahuston-0/hydra
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

RunCommand: Test

Browse Source
This commit is contained in:
Graham Christensen
2021-02-23 16:10:34 -05:00
parent b2520267a9
commit 3fda37f65a
4 changed files with 180 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
src/script/hydra-notify
View File

@ -6,11 +6,18 @@ use Hydra::Plugin;
use Hydra::Helper::Nix;
use Hydra::Helper::AddBuilds;
use IO::Select;
use Getopt::Long;
STDERR->autoflush(1);
STDOUT->autoflush(1);
binmode STDERR, ":encoding(utf8)";
my $queued_only;
GetOptions(
"queued-only" => \$queued_only
) or exit 1;
my $config = getHydraConfig();
my $db = Hydra::Model::DB->new();
@ -103,11 +110,12 @@ for my $build ($db->resultset('Builds')->search(
buildFinished($build);
}
# Process incoming notifications.
my $fd = $dbh->func("getfd");
my $sel = IO::Select->new($fd);
while (1) {
while (!$queued_only) {
$sel->can_read;
while (my $notify = $dbh->func("pg_notifies")) {