lix-project/hydra
4
0
Fork 6
Code Issues 3 Pull requests 2 Packages Projects Releases Wiki Activity

Remove Twitter notification support

Browse source 
Turns out Twitter is not an ideal medium for sending build
notifications :-)
This commit is contained in:
Eelco Dolstra 2013-05-03 18:33:11 +02:00
parent f762d111f1
commit 9947415ef0
2 changed files with 0 additions and 39 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
deps.nix
View file

@ -24,7 +24,6 @@ with pkgs;
perlPackages.IOCompress perlPackages.IOCompress
perlPackages.IPCRun perlPackages.IPCRun
perlPackages.JSONXS perlPackages.JSONXS
perlPackages.NetTwitterLite
perlPackages.PadWalker perlPackages.PadWalker
perlPackages.CatalystDevel perlPackages.CatalystDevel
perlPackages.Readonly perlPackages.Readonly

38
src/script/hydra-build
View file

@ -17,7 +17,6 @@ use Sys::Hostname::Long;
use Config::General; use Config::General;
use Text::Table; use Text::Table;
use POSIX qw(strftime); use POSIX qw(strftime);
use Net::Twitter::Lite;
use Data::Dump qw(dump); use Data::Dump qw(dump);
use feature qw/switch/; use feature qw/switch/;
@ -28,38 +27,6 @@ my $db = Hydra::Model::DB->new();
my $config = getHydraConfig(); my $config = getHydraConfig();
sub sendTwitterNotification {
my ($build) = @_;
return unless (defined $ENV{'TWITTER_USER'} && defined $ENV{'TWITTER_PASS'});
my $addURL = defined $config->{'base_uri'};
my $jobName = $build->project->name . ":" . $build->jobset->name . ":" . $build->job->name;
my $status = $build->buildstatus == 0 ? "SUCCEEDED" : "FAILED";
my $system = $build->system;
my $duration = ($build->stoptime - $build->starttime) . " seconds";
my $url = $config->{'base_uri'}."/build/".$build->id ;
my $nt = Net::Twitter::Lite->new(
username => $ENV{'TWITTER_USER'},
password => $ENV{'TWITTER_PASS'},
clientname => "Hydra Build Daemon"
);
my $tag = $build->project->name;
my $msg = "$jobName ($system): $status in $duration #$tag";
if (length($msg) + 1 + length($url) <= 140) {
$msg = "$msg $url" ;
}
eval {
my $result = eval { $nt->update($msg) };
};
warn "$@\n" if $@;
}
sub statusDescription { sub statusDescription {
my ($buildstatus) = @_; my ($buildstatus) = @_;
@ -478,7 +445,6 @@ sub doBuild {
}); });
sendEmailNotification $build; sendEmailNotification $build;
sendTwitterNotification $build;
} }
@ -489,10 +455,6 @@ if ($ENV{'HYDRA_MAIL_TEST'}) {
sendEmailNotification $db->resultset('Builds')->find($buildId); sendEmailNotification $db->resultset('Builds')->find($buildId);
exit 0; exit 0;
} }
if ($ENV{'HYDRA_TWITTER_TEST'}) {
sendTwitterNotification $db->resultset('Builds')->find($buildId);
exit 0;
}
# Lock the build. If necessary, steal the lock from the parent # Lock the build. If necessary, steal the lock from the parent
# process (runner.pl). This is so that if the runner dies, the # process (runner.pl). This is so that if the runner dies, the