This commit is contained in:
Eelco Dolstra 2009-08-12 13:50:59 +00:00
parent 5e72c17540
commit cbeccda5eb

View file

@ -63,7 +63,7 @@ sub sendEmailNotification {
sub showTime { my ($x) = @_; return strftime('%Y-%m-%d %H:%M:%S', localtime($x)); } sub showTime { my ($x) = @_; return strftime('%Y-%m-%d %H:%M:%S', localtime($x)); }
my $infoTable = Text::Table->new({ align => "left" }, \" | ", { align => "left" }); my $infoTable = Text::Table->new({ align => "left" }, \ " | ", { align => "left" });
my @lines = ( my @lines = (
[ "Build ID:", $build->id ], [ "Build ID:", $build->id ],
[ "Nix name:", $build->nixname ], [ "Nix name:", $build->nixname ],
@ -82,8 +82,8 @@ sub sendEmailNotification {
$infoTable->load(@lines); $infoTable->load(@lines);
my $inputsTable = Text::Table->new( my $inputsTable = Text::Table->new(
{ title => "Name", align => "left" }, \" | ", { title => "Name", align => "left" }, \ " | ",
{ title => "Type", align => "left" }, \" | ", { title => "Type", align => "left" }, \ " | ",
{ title => "Value", align => "left" }); { title => "Value", align => "left" });
@lines = (); @lines = ();
foreach my $input ($build->inputs) { foreach my $input ($build->inputs) {
@ -104,7 +104,7 @@ sub sendEmailNotification {
. "This is to let you know that Hydra build " . $build->id . "This is to let you know that Hydra build " . $build->id
. " of job " . $jobName . " has $status.\n" . " of job " . $jobName . " has $status.\n"
. "\n" . "\n"
. "Complete build information page can be found here: " . "Complete build information can be found on this page: "
. "$selfURI/build/" . $build->id . "\n" . "$selfURI/build/" . $build->id . "\n"
. "\n" . "\n"
. "A summary of the build information follows:\n" . "A summary of the build information follows:\n"