From b3d7e8d777021014ade793b52ff20ac5798103d1 Mon Sep 17 00:00:00 2001 From: "terry%netscape.com" <> Date: Tue, 20 Oct 1998 01:11:53 +0000 Subject: Added a mechanism where I can add new bugs from the netscape bugsystem. Other installations of Bugzilla probably don't need to worry about this file any. --- backdoor.cgi | 143 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 143 insertions(+) create mode 100755 backdoor.cgi diff --git a/backdoor.cgi b/backdoor.cgi new file mode 100755 index 000000000..ad1d66542 --- /dev/null +++ b/backdoor.cgi @@ -0,0 +1,143 @@ +#!/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.0 (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 + +# 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'}; + +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 %prodmap = ("Communicator" => "Mozilla"); + + +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 = "Mozilla"; + $version = "other"; +} + + +# 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) { + Punt("version", $comp); +} + +$::FORM{'long_desc'} = + "(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); + + +my @list = ('reporter', 'assigned_to', 'product', 'version', 'rep_platform', + 'op_sys', 'bug_status', 'bug_severity', 'priority', 'component', + 'short_desc', 'long_desc', 'creation_ts', 'delta_ts'); + +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(); + +print "Created bugzilla bug $zillaid\n"; +system("./processmail $zillaid < /dev/null > /dev/null 2> /dev/null &"); -- cgit v1.2.3-24-g4f1b