Notify by mail whenever a related bug changes status.

git-svn-id: svn://10.0.0.236/trunk@32940 18797224-902f-48f8-a5cc-f745e15eee43
This commit is contained in:
terry%mozilla.org
1999-05-27 18:18:29 +00:00
parent e3d8b1723a
commit eca43aebd8
2 changed files with 14 additions and 7 deletions

View File

@@ -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";
}