Since our notification plugins are written in Perl, sending notification from C++ requires a small Perl helper named ‘hydra-notify’.
IE2PRAQUCQVFPJ4CAIJRPXXEFC5VBAE3EO5I5FG4XWEDRNONNHKQC 3YHNO5H2IBHEAHVVYKTD4TYWR5AU2MUWYYMMCRSEIL5MDGRXMTIAC HUUZFPPKGHTXFZMZCO2UGWYNGEED3E2CFHQRFQVVBJGPQVGVY4UAC K5G5GZY7D7KWVR5RAGZFHH3ZPG5OCLZT4HZ6XIJJ7YYVUMC2CTZQC GS4BE6TB6GH2JUZJHDPHL6YG7J7YYESF3YOZJZ2CFABXUTO4VYPQC 5AIYUMTBY6TFQTBRP3MJ2PYWUMRF57I77NIVWYE74UMEVQMBWZVQC 24BMQDZAWDQ7VNIA7TIROXSOYLOJBNZ2E4264WHWNJAEN6ZB3UOAC ENXUSMSVOU3AZFMH2ZXR4ZVPV2LRRQYQJ6IFX33YN6IH2ORSNSAAC LJILHOJ7QYXNTMKDQS6OU4PVCXPQ27C5KMQWHDBELCYP7FG3ZFYAC NJJ7H64SZOX5EGACDCQAUQ7R6UEWD5IIC35A2MWFOOJV55DJYPHAC XV4AEKJCFTNCOR52IRFYHORCNNFKIHOADIUARTC2U5Z6ZQBEEFYQC C6HOMHZWMSC7ORGFUF5YG2ACKV2SCP26HL3UH6VXH6RNDYRXH5DAC T2EIYJNGPIANHKJ4HBJIPTINWKG7RDLHR3PVHFYAPPLHZAJQBVWAC XHOZT4WTBN3Y7Q2MBANFS65X4HYL6SGPA7JNB7T7OD726SU2ACWAC Y6H7Y3OTXVLF6PJ5BR6WXS7KVS4VMTUKRYVM6FALKMY3DCBYEJSQC FV2M6MOTAP4BJMEKU5XUDVEACWEJGEIRCCE2MRY3F6SF2SFOE3MQC N22GPKYTOLZLBGTGDATQDVZ4R5APZEAOIA7L32X4UXBH4XNI7MWAC D5QIOJGPKQJIYBUCSC3MFJ3TXLPNZ2XMI37GXMFRVRFWWR2VMTFAC /* Notification sender work queue. FIXME: if hydra-queue-runner iskilled before it has finished sending notifications about abuild, then the notifications may be lost. It would be betterto mark builds with pending notification in the database. */typedef std::pair<BuildID, std::vector<BuildID>> NotificationItem;Sync<std::queue<NotificationItem>> notificationSenderQueue;std::condition_variable_any notificationSenderWakeup;
NotificationItem item;{auto notificationSenderQueue_(notificationSenderQueue.lock());while (notificationSenderQueue_->empty())notificationSenderQueue_.wait(notificationSenderWakeup);item = notificationSenderQueue_->front();notificationSenderQueue_->pop();}printMsg(lvlChatty, format("sending notification about build %1%") % item.first);Pid pid = startProcess([&]() {Strings argv({"hydra-notify", "build", int2String(item.first)});for (auto id : item.second)argv.push_back(int2String(id));execvp("hydra-notify", (char * *) stringsToCharPtrs(argv).data()); // FIXME: remove castthrow SysError("cannot start hydra-notify");});int res = pid.wait(true);if (res != 0)throw Error(format("hydra-build returned exit code %1% notifying about build %2%")% res % item.first);} catch (std::exception & e) {printMsg(lvlError, format("notification sender: %1%") % e.what());sleep(5);}}}
#! /run/current-system/sw/bin/perluse strict;use utf8;use Hydra::Plugin;use Hydra::Helper::Nix;use Hydra::Helper::PluginHooks;STDERR->autoflush(1);binmode STDERR, ":encoding(utf8)";my $config = getHydraConfig();my $db = Hydra::Model::DB->new();my @plugins = Hydra::Plugin->instantiate(db => $db, config => $config);my $cmd = shift @ARGV or die "Syntax: hydra-notify build BUILD-ID [BUILD-IDs...]\n";if ($cmd eq "build") {my $buildId = shift @ARGV or die;my $build = $db->resultset('Builds')->find($buildId)or die "build $buildId does not exist\n";my @dependents;foreach my $id (@ARGV) {my $dep = $db->resultset('Builds')->find($id)or die "build $id does not exist\n";push @dependents, $dep;}notifyBuildFinished(\@plugins, $build, [@dependents]);}else {die "unknown action ‘$cmd’";}