diff options
author | terry%mozilla.org <> | 1999-05-28 03:18:29 +0200 |
---|---|---|
committer | terry%mozilla.org <> | 1999-05-28 03:18:29 +0200 |
commit | 31e136cfff339849933b8a686600704b5b4083ba (patch) | |
tree | 57609a4e4041c9078e618a1ec49b13389a547710 | |
parent | f47c0339e2c258c878e6284970d917dcd3960cba (diff) | |
download | bugzilla-31e136cfff339849933b8a686600704b5b4083ba.tar.gz bugzilla-31e136cfff339849933b8a686600704b5b4083ba.tar.xz |
Notify by mail whenever a related bug changes status.
-rwxr-xr-x | process_bug.cgi | 10 | ||||
-rwxr-xr-x | processmail | 11 |
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; |