summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rwxr-xr-xbackdoor.cgi178
1 files changed, 0 insertions, 178 deletions
diff --git a/backdoor.cgi b/backdoor.cgi
deleted file mode 100755
index f46cb6759..000000000
--- a/backdoor.cgi
+++ /dev/null
@@ -1,178 +0,0 @@
-#!/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);