From 3235eb35bb0f95ea53758e7293feb08345e585ec Mon Sep 17 00:00:00 2001 From: "justdave%syndicomm.com" Date: Mon, 10 Feb 2003 06:26:39 +0000 Subject: [PATCH] Bug 192513: importxml.pl and move.pl now use the new mail routines introduced in bug 124174 (they got broken when processmail was removed). Also fixes several comments referring to processmail (which no longer exists) in other files, and removes references to processmail from the .htaccess files and the executable file list in checksetup.pl. r= jaypee, a= justdave git-svn-id: svn://10.0.0.236/trunk@137622 18797224-902f-48f8-a5cc-f745e15eee43 --- mozilla/webtools/bugzilla/checksetup.pl | 4 ++-- mozilla/webtools/bugzilla/importxml.pl | 3 ++- mozilla/webtools/bugzilla/move.pl | 3 ++- mozilla/webtools/bugzilla/post_bug.cgi | 2 +- mozilla/webtools/bugzilla/process_bug.cgi | 8 ++++---- 5 files changed, 11 insertions(+), 9 deletions(-) diff --git a/mozilla/webtools/bugzilla/checksetup.pl b/mozilla/webtools/bugzilla/checksetup.pl index ee61522cb08..e6e5c398f1c 100755 --- a/mozilla/webtools/bugzilla/checksetup.pl +++ b/mozilla/webtools/bugzilla/checksetup.pl @@ -821,7 +821,7 @@ if ($my_create_htaccess) { open HTACCESS, ">.htaccess"; print HTACCESS <<'END'; # don't allow people to retrieve non-cgi executable files or our private data - + deny from all @@ -1107,7 +1107,7 @@ WriteParams(); # # These are the files which need to be marked executable -my @executable_files = ('processmail', 'whineatnews.pl', 'collectstats.pl', +my @executable_files = ('whineatnews.pl', 'collectstats.pl', 'checksetup.pl', 'importxml.pl', 'runtests.sh'); # tell me if a file is executable. All CGI files and those in @executable_files diff --git a/mozilla/webtools/bugzilla/importxml.pl b/mozilla/webtools/bugzilla/importxml.pl index 6575e2f62ad..50139ba40bc 100755 --- a/mozilla/webtools/bugzilla/importxml.pl +++ b/mozilla/webtools/bugzilla/importxml.pl @@ -62,6 +62,7 @@ use lib ($::path); use XML::Parser; use Data::Dumper; $Data::Dumper::Useqq = 1; +use Bugzilla::BugMail; require "CGI.pl"; require "globals.pl"; @@ -648,7 +649,7 @@ for (my $k=1 ; $k <= $bugqty ; $k++) { $log .= "\n\n\n"; } - system("./processmail", $id, $exporter); + Bugzilla::BugMail::Send($id, { 'changer' => $exporter }); } my $subject = "$bugqty bug(s) successfully moved from $urlbase to " diff --git a/mozilla/webtools/bugzilla/move.pl b/mozilla/webtools/bugzilla/move.pl index 7d3d845530c..f1777c8fef1 100755 --- a/mozilla/webtools/bugzilla/move.pl +++ b/mozilla/webtools/bugzilla/move.pl @@ -30,6 +30,7 @@ require "CGI.pl"; use vars qw($template $userid %COOKIE); use Bug; +use Bugzilla::BugMail; $::lockcount = 0; @@ -132,7 +133,7 @@ foreach my $id (split(/:/, $::FORM{'buglist'})) { "($id, $exporterid, now(), " . SqlQuote($comment) . ")"); print "

Bug $id moved to " . Param("move-to-url") . ".
\n"; - system("./processmail", $id, $exporter); + Bugzilla::BugMail::Send($id, { 'changer' => $exporter }); } } print "

\n"; diff --git a/mozilla/webtools/bugzilla/post_bug.cgi b/mozilla/webtools/bugzilla/post_bug.cgi index 2a2bcb5fa00..c319e802431 100755 --- a/mozilla/webtools/bugzilla/post_bug.cgi +++ b/mozilla/webtools/bugzilla/post_bug.cgi @@ -205,7 +205,7 @@ my %ccids; my @cc; # Create the ccid hash for inserting into the db -# and the list for passing to processmail +# and the list for passing to Bugzilla::BugMail::Send # use a hash rather than a list to avoid adding users twice if (defined $::FORM{'cc'}) { foreach my $person (split(/[ ,]/, $::FORM{'cc'})) { diff --git a/mozilla/webtools/bugzilla/process_bug.cgi b/mozilla/webtools/bugzilla/process_bug.cgi index cce3792eec1..8567673817b 100755 --- a/mozilla/webtools/bugzilla/process_bug.cgi +++ b/mozilla/webtools/bugzilla/process_bug.cgi @@ -1398,7 +1398,7 @@ foreach my $id (@idlist) { @ccRemoved = @removed; } - # We need to run processmail for dependson/blocked bugs if the dependencies + # We need to send mail for dependson/blocked bugs if the dependencies # change or the status or resolution change. This var keeps track of that. my $check_dep_bugs = 0; @@ -1586,7 +1586,7 @@ foreach my $id (@idlist) { $newhash{$col} = $newvalues[$i]; $i++; } - # for passing to processmail to ensure that when someone is removed + # for passing to Bugzilla::BugMail to ensure that when someone is removed # from one of these fields, they get notified of that fact (if desired) # my $origOwner = ""; @@ -1612,8 +1612,8 @@ foreach my $id (@idlist) { $col = 'component'; } - # save off the old value for passing to processmail so the old - # owner can be notified + # save off the old value for passing to Bugzilla::BugMail so + # the old owner can be notified # if ($col eq 'assigned_to') { $old = ($old) ? DBID_to_name($old) : "";