Fix for bug 87983: backdoor.cgi is Netscape-specific, and not part of the…

backdoor.cgi

-#!/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): Terry Weissman <terry@mozilla.org>
-
-# Provides a silly 'back-door' mechanism to let me automatically insert
-# bugs from the netscape bugsystem.  Other installations of Bugzilla probably
-# don't need to worry about this file any.
-
-use diagnostics;
-use strict;
-
-require "CGI.pl";
-
-# Shut up misguided -w warnings about "used only once":
-
-use vars %::versions;
-
-
-ConnectToDatabase();
-
-print "Content-type: text/plain\n\n";
-
-# while (my ($key,$value) = each %ENV) {
-#     print "$key=$value\n";
-# }
-
-my $host = $ENV{'REMOTE_ADDR'};
-
-#  if (open(CODE, ">data/backdoorcode")) {
-#      print CODE GenerateCode("%::FORM");
-#      close(CODE);
-#  }
-#
-# do "/tmp/backdoorcode";
-
-SendSQL("select passwd from backdoor where host = '$host'");
-my $passwd = FetchOneColumn();
-if (!defined $passwd || !defined $::FORM{'passwd'} ||
-    $passwd ne crypt($::FORM{'passwd'}, substr($passwd, 0, 2))) {
-    print "Who are you?\n";
-    print "Env:\n";
-    while (my ($key,$value) = each %ENV) {
-        print "$key=$value\n";
-    }
-    print "\nForm:\n";
-    while (my ($key,$value) = each %::FORM) {
-        print "$key=$value\n";
-    }
-    exit;
-}
-
-
-
-my $prod = $::FORM{'product'};
-my $comp = $::FORM{'component'};
-my $version = $::FORM{'version'};
-
-GetVersionTable();
-
-
-sub Punt {
-    my ($label, $value) = (@_);
-    my $maintainer = Param("maintainer");
-    print "I don't know how to move into Bugzilla a bug with a $label of $value.
-If you really do need to do this, speak to $maintainer and maybe he
-can teach me.";
-    exit;
-}
-
-
-# Do remapping of things from BugSplat world to Bugzilla.
-
-if ($prod eq "Communicator") {
-    $prod = "Browser";
-    $version = "other";
-}
-
-if ($prod eq "NSS") {
-  $version = "unspecified";
-}
-
-# Validate fields, and whine about things that we apparently couldn't remap
-# into something legal.
-
-    
-if (!defined $::components{$prod}) {
-    Punt("product", $prod);
-}
-if (lsearch($::components{$prod}, $comp) < 0) {
-    Punt("component", $comp);
-}
-if (lsearch($::versions{$prod}, $version) < 0) {
-    $version = "other";
-    if (lsearch($::versions{$prod}, $version) < 0) {
-        Punt("version", $version);
-    }
-}
-
-
-$::FORM{'product'} = $prod;
-$::FORM{'component'} = $comp;
-$::FORM{'version'} = $version;
-
-
-my $longdesc =
-    "(This bug imported from BugSplat, Netscape's internal bugsystem.  It
-was known there as bug #$::FORM{'bug_id'}
-http://scopus.netscape.com/bugsplat/show_bug.cgi?id=$::FORM{'bug_id'}
-Imported into Bugzilla on " . time2str("%D %H:%M", time()) . ")
-
-" . $::FORM{'long_desc'};
-    
-
-$::FORM{'reporter'} =
-    DBNameToIdAndCheck("$::FORM{'reporter'}\@netscape.com", 1);
-$::FORM{'assigned_to'} = 
-    DBNameToIdAndCheck("$::FORM{'assigned_to'}\@netscape.com", 1);
-if ($::FORM{'qa_contact'} ne "") {
-    $::FORM{'qa_contact'} =
-        DBNameToIdAndCheck("$::FORM{'qa_contact'}\@netscape.com", 1);
-} else {
-    $::FORM{'qa_contact'} = 0;
-}
-    
-
-my @list = ('reporter', 'assigned_to', 'product', 'version', 'rep_platform',
-            'op_sys', 'bug_status', 'bug_severity', 'priority', 'component',
-            'short_desc', 'creation_ts', 'delta_ts',
-            'bug_file_loc', 'qa_contact', 'groupset');
-
-my @vallist;
-foreach my $i (@list) {
-    push @vallist, SqlQuote($::FORM{$i});
-}
-
-my $query = "insert into bugs (" .
-    join(',', @list) .
-    ") values (" .
-    join(',', @vallist) .
-    ")";
-
-
-SendSQL($query);
-
-SendSQL("select LAST_INSERT_ID()");
-my $zillaid = FetchOneColumn();
-
-SendSQL("INSERT INTO longdescs (bug_id, who, bug_when, thetext) VALUES " .
-        "($zillaid, $::FORM{'reporter'}, now(), " . SqlQuote($longdesc) . ")");
-
-
-foreach my $cc (split(/,/, $::FORM{'cc'})) {
-    if ($cc ne "") {
-        my $cid = DBNameToIdAndCheck("$cc\@netscape.com", 1);
-        SendSQL("insert into cc (bug_id, who) values ($zillaid, $cid)");
-    }
-}
-
-print "Created bugzilla bug $zillaid\n";
-system("./processmail", $zillaid);