From 31e136cfff339849933b8a686600704b5b4083ba Mon Sep 17 00:00:00 2001
From: "terry%mozilla.org" <>
Date: Fri, 28 May 1999 01:18:29 +0000
Subject: Notify by mail whenever a related bug changes status.
---
process_bug.cgi | 10 ++++------
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 "
Back To BUG# $id\n";
foreach my $k (keys(%dependencychanged)) {
- print "Dependency changed for bug $k\n";
+ print "Checking for dependency changes on bug $k\n";
system("./processmail $k $::FORM{'who'}");
print " | Go To BUG# $k | \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;
--
cgit v1.2.1
|
|