Bug 192513: importxml.pl and move.pl now use the new mail routines introduced in...

r= jaypee, a= justdave

diff --git a/checksetup.pl b/checksetup.pl
index ee61522cb08a00c1f0f76cf1263f5e9c0f906694..e6e5c398f1ca13d02d6a8c814a60e26e5f669a74 100755 (executable)
--- a/checksetup.pl
+++ b/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
-<FilesMatch ^(.*\.pl|.*localconfig.*|processmail|runtests.sh)$>
+<FilesMatch ^(.*\.pl|.*localconfig.*|runtests.sh)$>
   deny from all
 </FilesMatch>
 <FilesMatch ^(localconfig.js|localconfig.rdf)$>
@@ -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/importxml.pl b/importxml.pl
index 6575e2f62ad047b2b754c46184167a248cf2377a..50139ba40bcf13469ba99afb10ed7d68f8bbe445 100755 (executable)
--- a/importxml.pl
+++ b/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/move.pl b/move.pl
index 7d3d845530c86706bd43a4f6fbffb5d9396b14b9..f1777c8fef1965fa3ecb4fc41aaa0807f24d3654 100755 (executable)
--- a/move.pl
+++ b/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 "<P>Bug $id moved to " . Param("move-to-url") . ".<BR>\n";
-    system("./processmail", $id, $exporter);
+    Bugzilla::BugMail::Send($id, { 'changer' => $exporter });
   }
 }
 print "<P>\n";

diff --git a/post_bug.cgi b/post_bug.cgi
index 2a2bcb5fa00e2217301ad7935af1860252f3ae62..c319e80243196bab30675988f3a4fb543dc46cf2 100755 (executable)
--- a/post_bug.cgi
+++ b/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/process_bug.cgi b/process_bug.cgi
index cce3792eec11610fbe1fba44d1d099f75bc05789..8567673817b7ef244514251648b6ca216e7869b6 100755 (executable)
--- a/process_bug.cgi
+++ b/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) : "";