Notify by mail whenever a related bug changes status.

diff --git a/process_bug.cgi b/process_bug.cgi
index f947869bfa51b327e5f2733ae0f5d4fbf081a040..314caee9b157d8df044d2b84f70244b848caefff 100755 (executable)
--- 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 ccc8da271a8c8022597d73be9b2f94f8acffa824..26fd4a2d0f19fec2bd9253b41e73155afaeda92e 100755 (executable)
--- 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;