From 304d2b1f896ceeccae7b7690751ff7413c0212f5 Mon Sep 17 00:00:00 2001 From: "terry%mozilla.org" <> Date: Sat, 15 Jan 2000 05:44:09 +0000 Subject: Remove unused files. --- addcomponent.cgi | 100 ---------------------------------- doaddcomponent.cgi | 105 ----------------------------------- doeditcomponents.cgi | 151 --------------------------------------------------- doeditowners.cgi | 69 ----------------------- 4 files changed, 425 deletions(-) delete mode 100755 addcomponent.cgi delete mode 100755 doaddcomponent.cgi delete mode 100755 doeditcomponents.cgi delete mode 100755 doeditowners.cgi diff --git a/addcomponent.cgi b/addcomponent.cgi deleted file mode 100755 index f9c6a6c24..000000000 --- a/addcomponent.cgi +++ /dev/null @@ -1,100 +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): Sam Ziegler -# Terry Weissman -# Mark Hamby - -# Code derived from editcomponents.cgi, reports.cgi - -use diagnostics; -use strict; - -require "CGI.pl"; - -# Shut up misguided -w warnings about "used only once": - -use vars @::legal_product; - -confirm_login(); - -print "Content-type: text/html\n\n"; - -if (!UserInGroup("editcomponents")) { - print "

Sorry, you aren't a member of the 'editcomponents' group.

\n"; - print "And so, you aren't allowed to add a new component.\n"; - exit; -} - - -PutHeader("Add Component"); - -print "This page lets you add a component to bugzilla.\n"; - -unlink "data/versioncache"; -GetVersionTable(); - -my $prodcode = "P0"; - -my $product_popup = make_options (\@::legal_product, $::legal_product[0]); - -print " -
- - - - - - - - - - - - - - - - - - - "; - -if (Param('useqacontact')) { - print " - - - - - "; -} - -print " -
Component:
Program:
Description:
Initial owner:
Initial QA contact:
-
- "; - -print "\n"; - -print "
\n"; - -print "

Skip all this, and go back to the query page\n"; diff --git a/doaddcomponent.cgi b/doaddcomponent.cgi deleted file mode 100755 index b26b4a1b0..000000000 --- a/doaddcomponent.cgi +++ /dev/null @@ -1,105 +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): Sam Ziegler -# Terry Weissman -# Mark Hamby - -# Code derived from doeditcomponents.cgi - - -use diagnostics; -use strict; - -require "CGI.pl"; - -confirm_login(); - -print "Content-type: text/html\n\n"; - -# foreach my $i (sort(keys %::FORM)) { -# print value_quote("$i $::FORM{$i}") . "
\n"; -# } - -if (!UserInGroup("editcomponents")) { - print "

Sorry, you aren't a member of the 'editcomponents' group.

\n"; - print "And so, you aren't allowed to add components.\n"; - exit; -} - - -PutHeader("Adding new component"); - -unlink "data/versioncache"; -GetVersionTable(); - -my $component = trim($::FORM{"component"}); -my $product = trim($::FORM{"product"}); -my $description = trim($::FORM{"description"}); -my $initialowner = trim($::FORM{"initialowner"}); - -if (!defined $::FORM{"initialqacontact"}) { - # May not be defined if we're not using this field. - $::FORM{'initialqacontact'} = ""; -} -my $initialqacontact = trim($::FORM{"initialqacontact"}); - -if ($component eq "") { - print "You must enter a name for the new component. Please press\n"; - print "Back and try again.\n"; - exit; -} - -# Check to ensure the component doesn't exist already. -SendSQL("SELECT value FROM components WHERE " . - "program = " . SqlQuote($product) . " and " . - "value = " . SqlQuote($component)); -my @row = FetchSQLData(); -if (@row) { - print "

Component already exists

"; - print "The component '$component' already exists\n"; - print "for product '$product'.

\n"; - print "

Go back to the query page\n"; - exit; -} - -# Check that the email addresses are legitimate. -foreach my $addr ($initialowner, $initialqacontact) { - if ($addr ne "") { - DBNameToIdAndCheck($addr); - } -} - -# Add the new component. -SendSQL("INSERT INTO components ( " . - "value, program, description, initialowner, initialqacontact" . - " ) VALUES ( " . - SqlQuote($component) . "," . - SqlQuote($product) . "," . - SqlQuote($description) . "," . - SqlQuote($initialowner) . "," . - SqlQuote($initialqacontact) . ")" ); - -unlink "data/versioncache"; - -print "OK, done.

\n"; -print "Edit another new component.

\n"; -print "Edit existing components.

\n"; -print "Go back to the query page.\n"; diff --git a/doeditcomponents.cgi b/doeditcomponents.cgi deleted file mode 100755 index cac248db9..000000000 --- a/doeditcomponents.cgi +++ /dev/null @@ -1,151 +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): Sam Ziegler -# Terry Weissman - -# Code derived from doeditowners.cgi - - -use diagnostics; -use strict; - -require "CGI.pl"; - - -# Shut up misguided -w warnings about "used only once": - -use vars @::legal_product; - - -confirm_login(); - -print "Content-type: text/html\n\n"; - -# foreach my $i (sort(keys %::FORM)) { -# print value_quote("$i $::FORM{$i}") . "
\n"; -# } - -if (!UserInGroup("editcomponents")) { - print "

Sorry, you aren't a member of the 'editcomponents' group.

\n"; - print "And so, you aren't allowed to edit the owners.\n"; - exit; -} - - -sub Check { - my ($code1, $code2) = (@_); - if ($code1 ne $code2) { - print "

A race error has occurred.

"; - print "It appears that someone else has been changing the database\n"; - print "while you've been editing it. I'm afraid you will have to\n"; - print "start all over. Sorry!

\n"; - print "

Go back to the query page\n"; - exit; - } -} - - -my @cmds; - -sub DoOne { - my ($oldvalue, $field, $where, $checkemail) = (@_); - if (!defined $::FORM{$field}) { - print "ERROR -- $field not defined!"; - exit; - } - if ($oldvalue ne $::FORM{$field}) { - my $name = $field; - $name =~ s/^.*-//; - my $table = "products"; - if ($field =~ /^P\d+-C\d+-/) { - $table = "components"; - } - push @cmds, "update $table set $name=" . - SqlQuote($::FORM{$field}) . " where $where"; - print "Changed $name for $where

"; - if ($checkemail) { - DBNameToIdAndCheck($::FORM{$field}); - } - } -} - - - -PutHeader("Saving new component info"); - -unlink "data/versioncache"; -GetVersionTable(); - -my $prodcode = "P000"; - -foreach my $product (@::legal_product) { - SendSQL("select description, milestoneurl, disallownew, votesperuser from products where product='$product'"); - my @row = FetchSQLData(); - if (!@row) { - next; - } - my ($description, $milestoneurl, $disallownew, $votesperuser) = (@row); - $prodcode++; - Check($product, $::FORM{"prodcode-$prodcode"}); - - my $where = "product=" . SqlQuote($product); - DoOne($description, "$prodcode-description", $where); - if (Param('usetargetmilestone')) { - DoOne($milestoneurl, "$prodcode-milestoneurl", $where); - } - DoOne($disallownew, "$prodcode-disallownew", $where); - DoOne($votesperuser, "$prodcode-votesperuser", $where); - - SendSQL("select value, initialowner, initialqacontact, description from components where program=" . SqlQuote($product) . " order by value"); - my $c = 0; - while (my @row = FetchSQLData()) { - my ($component, $initialowner, $initialqacontact, $description) = - (@row); - $c++; - my $compcode = $prodcode . "-" . "C$c"; - - Check($component, $::FORM{"compcode-$compcode"}); - - my $where = "program=" . SqlQuote($product) . " and value=" . - SqlQuote($component); - - DoOne($initialowner, "$compcode-initialowner", $where, 1); - if (Param('useqacontact')) { - DoOne($initialqacontact, "$compcode-initialqacontact", $where, - 1); - } - DoOne($description, "$compcode-description", $where); - } - -} - -print "Saving changes.

\n"; - -foreach my $cmd (@cmds) { - print "$cmd
"; - SendSQL($cmd); -} - -unlink "data/versioncache"; - -print "OK, done.

\n"; -print "Edit the components some more.

\n"; -print "Go back to the query page.\n"; diff --git a/doeditowners.cgi b/doeditowners.cgi deleted file mode 100755 index c1aefc5d2..000000000 --- a/doeditowners.cgi +++ /dev/null @@ -1,69 +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): Sam Ziegler - -use diagnostics; -use strict; - -require "CGI.pl"; - -confirm_login(); - -print "Content-type: text/html\n\n"; - -if (!UserInGroup("editcomponents")) { - print "

Sorry, you aren't a member of the 'editcomponents' group.

\n"; - print "And so, you aren't allowed to edit the owners.\n"; - exit; -} - - -PutHeader("Saving new owners"); - -SendSQL("select program, value, initialowner from components order by program, value"); - -my @line; - -foreach my $key (keys(%::FORM)) { - $::FORM{url_decode($key)} = $::FORM{$key}; -} - -my @updates; -my $curIndex = 0; - -while (@line = FetchSQLData()) { - my $curItem = "$line[0]_$line[1]"; - if (exists $::FORM{$curItem}) { - $::FORM{$curItem} =~ s/\r\n/\n/; - if ($::FORM{$curItem} ne $line[2]) { - print "$line[0] : $line[1] is now owned by $::FORM{$curItem}.
\n"; - $updates[$curIndex++] = "update components set initialowner = '$::FORM{$curItem}' where program = '$line[0]' and value = '$line[1]'"; - } - } -} - -foreach my $update (@updates) { - SendSQL($update); -} - -print "OK, done.

\n"; -print "Edit the owners some more.

\n"; -print "Go back to the query page.\n"; -- cgit v1.2.3-24-g4f1b