Bommels05/Mozilla
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Oops; back out last change; was checked in by mistake (and with the wrong log comment, too).

Browse Source 
git-svn-id: svn://10.0.0.236/trunk@31031 18797224-902f-48f8-a5cc-f745e15eee43
This commit is contained in:
terry%mozilla.org
1999-05-10 23:15:09 +00:00
parent 7a52add86d
commit d249e087b0
4 changed files with 59 additions and 64 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
mozilla/webtools/bugzilla/backdoor.cgi
View File

@@ -160,4 +160,4 @@ foreach my $cc (split(/,/, $::FORM{'cc'})) {
}
print "Created bugzilla bug $zillaid\n";
system("./processmail $zillaid");
system("./processmail $zillaid < /dev/null > /dev/null 2> /dev/null &");

13
mozilla/webtools/bugzilla/createattachment.cgi
View File

@@ -97,11 +97,16 @@ What kind of file is this?
my $attachid = FetchOneColumn();
AppendComment($id, $::COOKIE{"Bugzilla_login"},
"Created an attachment (id=$attachid)\n$desc\n");
print "Your attachment has been created.";
system("./processmail $id < /dev/null > /dev/null 2> /dev/null &");
print "<TABLE BORDER=1><TD><H2>Attachment to bug $id created</H2>\n";
system("./processmail $id $::COOKIE{'Bugzilla_login'}");
print "<TD><A HREF=\"show_bug.cgi?id=$id\">Go Back to BUG# $id</A></TABLE>\n";
}
navigation_header();
print qq{
<P>
<a href="show_bug.cgi?id=$id">Go back to bug $id</a><br>
<a href="query.cgi">Go back to the query page</a><br>
};

19
mozilla/webtools/bugzilla/process_bug.cgi
View File

@@ -226,17 +226,13 @@ SWITCH: for ($::FORM{'knob'}) {
exit;
}
if ($::FORM{'dup_id'} == $::FORM{'id'}) {
print "Nice try, $::FORM{'who'}. But it doesn't really make sense to mark a\n";
print "Nice try. But it doesn't really make sense to mark a\n";
print "bug as a duplicate of itself, does it?\n";
exit;
}
AppendComment($::FORM{'dup_id'}, $::FORM{'who'}, "*** Bug $::FORM{'id'} has been marked as a duplicate of this bug. ***");
$::FORM{'comment'} .= "\n\n*** This bug has been marked as a duplicate of $::FORM{'dup_id'} ***";
print "<TABLE BORDER=1><TD><H2>Notation added to bug $::FORM{'dup_id'}</H2>\n";
system("./processmail $::FORM{'dup_id'} $::FORM{'who'}");
print "<TD><A HREF=\"show_bug.cgi?id=$::FORM{'dup_id'}\">Go To BUG# $::FORM{'dup_id'}</A></TABLE>\n";
system("./processmail $::FORM{'dup_id'} < /dev/null > /dev/null 2> /dev/null &");
last SWITCH;
};
# default
@@ -331,19 +327,20 @@ foreach my $id (@idlist) {
}
}
print "<TABLE BORDER=1><TD><H2>Changes to bug $id submitted</H2>\n";
SendSQL("unlock tables");
system("./processmail $id $::FORM{'who'}");
print "<TABLE BORDER=1><TD><H1>Changes Submitted</H1>\n";
print "<TD><A HREF=\"show_bug.cgi?id=$id\">Back To BUG# $id</A></TABLE>\n";
SendSQL("unlock tables");
system("./processmail $id < /dev/null > /dev/null 2> /dev/null &");
}
if (defined $::next_bug) {
print("<P>The next bug in your list is:\n");
$::FORM{'id'} = $::next_bug;
print "<HR>\n";
navigation_header();
do "bug_form.pl";
} else {
navigation_header();
print "<BR><A HREF=\"query.cgi\">Back To Query Page</A>\n";
}

89
mozilla/webtools/bugzilla/processmail
View File

@@ -19,6 +19,9 @@
#
# Contributor(s): Terry Weissman <terry@mozilla.org>
# To recreate the shadow database, run "processmail regenerate" .
use diagnostics;
use strict;
@@ -29,8 +32,6 @@ $| = 1;
umask(0);
$::lockcount = 0;
my $regenerate = 0;
my $nametoexclude = "";
sub Lock {
if ($::lockcount <= 0) {
@@ -181,7 +182,7 @@ sub fixaddresses {
my @result;
my %seen;
foreach my $i (@$list) {
if ($i ne $nametoexclude && $i ne "" && !defined $::nomail{$i} && !defined $seen{$i}) {
if ($i ne "" && !defined $::nomail{$i} && !defined $seen{$i}) {
push @result, $i;
$seen{$i} = 1;
}
@@ -199,8 +200,40 @@ sub Log {
Unlock();
}
sub ProcessOneBug {
my $i = $_[0];
ConnectToDatabase();
Lock();
# foreach i [split [read_file -nonewline "okmail"] "\n"] {
# set okmail($i) 1
# }
if (open(FID, "<data/nomail")) {
while (<FID>) {
$::nomail{trim($_)} = 1;
}
close FID;
}
my $regenerate = 0;
if ($ARGV[0] eq "regenerate") {
$regenerate = 1;
shift @ARGV;
SendSQL("select bug_id from bugs order by bug_id");
my @row;
while (@row = FetchSQLData()) {
push @ARGV, $row[0];
}
print "$#ARGV bugs to be regenerated.\n";
}
foreach my $i (@ARGV) {
my $old = "shadow/$i";
my $new = "shadow/$i.tmp.$$";
my $diffs = "shadow/$i.diffs.$$";
@@ -224,7 +257,7 @@ sub ProcessOneBug {
my $tolist = fixaddresses([$::bug{'assigned_to'}, $::bug{'reporter'},
$::bug{'qa_contact'}]);
my $cclist = fixaddresses($::bug{'cclist'});
my $logstr = "Bug $i $verb";
my $logstr = "Bug $i changed";
if ($tolist ne "" || $cclist ne "") {
my %substs;
@@ -242,12 +275,11 @@ sub ProcessOneBug {
my $msg = PerformSubsts(Param("changedmail"), \%substs);
if (!$regenerate) {
open(SENDMAIL, "|/usr/sbin/sendmail -t") ||
open(SENDMAIL, "|/usr/lib/sendmail -t") ||
die "Can't open sendmail";
print SENDMAIL $msg;
close SENDMAIL;
$logstr = "$logstr; mail sent to $tolist, $cclist";
print "<B>Email sent to:</B> $tolist $cclist <B>Excluding:</B> $nametoexclude\n";
$logstr = "$logstr; mail sent to $tolist $cclist";
}
}
unlink($diffs);
@@ -260,43 +292,4 @@ sub ProcessOneBug {
}
}
# Code starts here
ConnectToDatabase();
Lock();
if (open(FID, "<data/nomail")) {
while (<FID>) {
$::nomail{trim($_)} = 1;
}
close FID;
}
if (($#ARGV < 0) || ($#ARGV > 1)) {
print "Usage error: processmail {bugid} {nametoexclude}\nOr: processmail regenerate\n";
exit;
}
# To recreate the shadow database, run "processmail regenerate" .
if ($ARGV[0] eq "regenerate") {
$regenerate = 1;
shift @ARGV;
SendSQL("select bug_id from bugs order by bug_id");
my @regenerate_list;
while (my @row = FetchSQLData()) {
push @regenerate_list, $row[0];
}
foreach my $i (@regenerate_list) {
ProcessOneBug($i);
}
print("\n");
exit;
}
if ($#ARGV == 1) {
$nametoexclude = $ARGV[1];
}
ProcessOneBug($ARGV[0]);
exit;