summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorterry%mozilla.org <>1999-05-28 03:18:29 +0200
committerterry%mozilla.org <>1999-05-28 03:18:29 +0200
commit31e136cfff339849933b8a686600704b5b4083ba (patch)
tree57609a4e4041c9078e618a1ec49b13389a547710
parentf47c0339e2c258c878e6284970d917dcd3960cba (diff)
downloadbugzilla-31e136cfff339849933b8a686600704b5b4083ba.tar.gz
bugzilla-31e136cfff339849933b8a686600704b5b4083ba.tar.xz
Notify by mail whenever a related bug changes status.
-rwxr-xr-xprocess_bug.cgi10
-rwxr-xr-xprocessmail11
2 files changed, 14 insertions, 7 deletions
diff --git a/process_bug.cgi b/process_bug.cgi
index f947869bf..314caee9b 100755
--- a/process_bug.cgi
+++ b/process_bug.cgi
@@ -431,6 +431,8 @@ The changes made were:
push(@oldlist, FetchOneColumn());
}
my @newlist = sort {$a <=> $b} @{$deps{$target}};
+ @dependencychanged{@oldlist} = 1;
+ @dependencychanged{@newlist} = 1;
while (0 < @oldlist || 0 < @newlist) {
if (@oldlist == 0 || (@newlist > 0 &&
@@ -459,11 +461,7 @@ The changes made were:
SendSQL("insert into dependencies ($me, $target) values ($id, $i)");
}
foreach my $k (@keys) {
- if (LogDependencyActivity($k, $snapshot{$k}, $me,
- $target)) {
- $dependencychanged{$k} = 1;
- }
-
+ LogDependencyActivity($k, $snapshot{$k}, $me, $target);
}
LogDependencyActivity($id, $oldsnap, $target, $me);
}
@@ -505,7 +503,7 @@ The changes made were:
print "<TD><A HREF=\"show_bug.cgi?id=$id\">Back To BUG# $id</A></TABLE>\n";
foreach my $k (keys(%dependencychanged)) {
- print "<TABLE BORDER=1><TD><H2>Dependency changed for bug $k</H2>\n";
+ print "<TABLE BORDER=1><TD><H2>Checking for dependency changes on bug $k</H2>\n";
system("./processmail $k $::FORM{'who'}");
print "<TD><A HREF=\"show_bug.cgi?id=$k\">Go To BUG# $k</A></TABLE>\n";
}
diff --git a/processmail b/processmail
index ccc8da271..26fd4a2d0 100755
--- a/processmail
+++ b/processmail
@@ -121,7 +121,16 @@ sub DescDependencies {
push(@list, FetchOneColumn());
}
if (@list) {
- $result .= "$title: " . join(',', @list) . "\n";
+ my @verbose;
+ foreach my $i (@list) {
+ SendSQL("select bug_status, resolution from bugs where bug_id = $i");
+ my ($bug_status, $resolution) = (FetchSQLData());
+ if ($resolution ne "") {
+ $resolution = "/$resolution";
+ }
+ push(@verbose, $i . "[$bug_status$resolution]");
+ }
+ $result .= "$title: " . join(', ', @verbose) . "\n";
}
my $tmp = $me;
$me = $target;