diff options
author | Marcelo Leitner <mrl@mandriva.com> | 2007-08-10 22:57:18 +0000 |
---|---|---|
committer | Marcelo Leitner <mrl@mandriva.com> | 2007-08-10 22:57:18 +0000 |
commit | e2ef85ecabc2a39e1721ba3315bc7f96f56a5df1 (patch) | |
tree | e5600cb5a65f7c09a9729c6c17cd334f52880fa4 | |
parent | 9434f0169aeeaa67f49c8a5c2f1e3d3f5e4f9da1 (diff) | |
download | iurt-e2ef85ecabc2a39e1721ba3315bc7f96f56a5df1.tar iurt-e2ef85ecabc2a39e1721ba3315bc7f96f56a5df1.tar.gz iurt-e2ef85ecabc2a39e1721ba3315bc7f96f56a5df1.tar.bz2 iurt-e2ef85ecabc2a39e1721ba3315bc7f96f56a5df1.tar.xz iurt-e2ef85ecabc2a39e1721ba3315bc7f96f56a5df1.zip |
- Enhanced failure email: explains why and gives direct links to the logs.
-rwxr-xr-x | ulri | 28 |
1 files changed, 27 insertions, 1 deletions
@@ -489,7 +489,33 @@ foreach my $prefix (keys %pkg_tree) { $fpath =~ tr!/!!s; # Squash double slashes ... $fpath =~ s!/!//!; # ... except for http:// - $text .= "\nFailure details available in $fpath\n"; + $text .= "\nFailure details available in $fpath/log\n"; + $text .= "Reason:\n"; + open my $FP, "$fail_dir/$prefix/log/status.log"; + while (<$FP>) { + $text .= $_; + } + close $FP; + + $text .= "\nLog files generated:\n"; + + opendir my $DP1, "$fail_dir/$prefix/log/"; + foreach my $f1 (readdir $DP1) { + if (not -d "$fail_dir/$prefix/log/$f1" or $f1 =~ m/^\./) { + next; + } + + opendir my $DP2, "$fail_dir/$prefix/log/$f1"; + foreach my $f2 (readdir $DP2) { + if ($f2 =~ m/^\./) { + next; + } + $text .= "$fpath/log/$f1/$f2\n"; + } + closedir DP2; + } + closedir $DP1; + sendmail($to, $cc, "Rebuild failed on $arch for $srpms", $text, "Ulri the scheduler bot <$config->{admin}>", 0); |