rename move.cgi to move.pl

1 files changed, 123 insertions, 0 deletions

diff --git a/move.pl b/move.pl
new file mode 100755
index 000000000..eca3dd631
--- /dev/null
+++ b/move.pl
@@ -0,0 +1,123 @@
+#!/usr/bonsaitools/bin/perl -w
+# -*- Mode: perl; indent-tabs-mode: nil -*-
+#
+# The contents of this file are subject to the Mozilla Public
+# License Version 1.1 (the "License"); you may not use this file
+# except in compliance with the License. You may obtain a copy of
+# the License at http://www.mozilla.org/MPL/
+#
+# Software distributed under the License is distributed on an "AS
+# IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
+# implied. See the License for the specific language governing
+# rights and limitations under the License.
+#
+# The Original Code is the Bugzilla Bug Tracking System.
+#
+# The Initial Developer of the Original Code is Netscape Communications
+# Corporation. Portions created by Netscape are
+# Copyright (C) 1998 Netscape Communications Corporation. All
+# Rights Reserved.
+#
+# Contributor(s): Dawn Endico    <endico@mozilla.org>
+#                 Terry Weissman <terry@mozilla.org>
+
+use diagnostics;
+use strict;
+use Bug;
+require "CGI.pl";
+$::lockcount = 0;
+
+ConnectToDatabase();
+
+sub Log {
+    my ($str) = (@_);
+    Lock();
+    open(FID, ">>data/maillog") || die "Can't write to data/maillog";
+    print FID time2str("%D %H:%M", time()) . ": $str\n";
+    close FID;
+    Unlock();
+}
+
+sub Lock {
+    if ($::lockcount <= 0) {
+        $::lockcount = 0;
+        if (!open(LOCKFID, ">>data/maillock")) {
+            mkdir "data", 0777;
+            chmod 0777, "data";
+            open(LOCKFID, ">>data/maillock") || die "Can't open lockfile.";
+        }
+        my $val = flock(LOCKFID,2);
+        if (!$val) { # '2' is magic 'exclusive lock' const.
+            print "Content-type: text/html\n\n";
+            print "Lock failed: $val\n";
+        }
+        chmod 0666, "data/maillock";
+    }
+    $::lockcount++;
+}
+
+sub Unlock {
+    $::lockcount--;
+    if ($::lockcount <= 0) {
+        flock(LOCKFID,8);       # '8' is magic 'unlock' const.
+        close LOCKFID;
+    }
+}
+
+if ( !defined $::FORM{'buglist'} ) {
+  print "To move bugs, perform a ";
+  print "<A HREF=\"query.cgi\">query</A> and change several bugs at once.\n";
+  exit;
+}
+
+confirm_login();
+my $exporter = $::COOKIE{"Bugzilla_login"};
+unless ($exporter =~ /(lchaing\@netscape.com|leger\@netscape.com|endico\@mozilla.org|dmose\@mozilla.org)/) {
+  print "Content-type: text/html\n\n";
+  PutHeader("Move Bugs");
+  print "<P>You do not have permission to move bugs<P>\n";
+  PutFooter();
+  exit;
+}
+
+my $xml = "";
+$xml .= Bug::XML_Header( Param("urlbase"), $::param{'version'}, 
+                         Param("maintainer"), $exporter );
+print "<P>\n";
+foreach my $id (split(/:/, $::FORM{'buglist'})) {
+  my $bug = new Bug($id, $::userid);
+  $xml .= $bug->emitXML;
+  if (!$bug->error) {
+    SendSQL("UPDATE bugs SET bug_status =\"MOVED\" where bug_id=\"$id\"");
+    SendSQL("UPDATE bugs SET resolution =\"\" where bug_id=\"$id\"");
+    my $exp = $exporter;
+    $exp =~ s/@/\@/;
+    my $comment = "Bug moved to http://bugscape.netscape.com/ by $exp.\n";
+    SendSQL("INSERT INTO longdescs (bug_id, who, bug_when, thetext) VALUES " .
+        "($id, " . DBNameToIdAndCheck($exporter) 
+                 . ", now(), " . SqlQuote($comment) . ")");
+    print "Bug $id moved to http://bugscape.netscape.com/.<BR>\n";
+  }
+}
+print "<P>\n";
+$xml .= Bug::XML_Footer;
+
+my $buglist = $::FORM{'buglist'};
+$buglist =~ s/:/,/g;
+my $host = Param("urlbase");
+$host =~ s#http://([^/]+)/.*#$1#;
+my $to = "endico\@localhost";
+my $msg = "To: $to\n";
+$msg .= "From: Bugzilla <bugzilla\@$host>\n";
+$msg .= "Subject: Moving bugs $buglist\n\n";
+$msg .= $xml . "\n";
+
+open(SENDMAIL,
+  "|/usr/lib/sendmail -ODeliveryMode=background -t") ||
+    die "Can't open sendmail";
+print SENDMAIL $msg;
+close SENDMAIL;
+
+my $logstr = "XML: bugs $buglist sent to $to";
+Log($logstr);
+