summaryrefslogtreecommitdiffstats
path: root/doeditowners.cgi
diff options
context:
space:
mode:
authorterry%mozilla.org <>2000-01-15 06:44:09 +0100
committerterry%mozilla.org <>2000-01-15 06:44:09 +0100
commit304d2b1f896ceeccae7b7690751ff7413c0212f5 (patch)
treef21f81dce3205c2301af668deb0fb44cc7977337 /doeditowners.cgi
parentf82d897d1120dd782970509d2db335099addbfd0 (diff)
downloadbugzilla-304d2b1f896ceeccae7b7690751ff7413c0212f5.tar.gz
bugzilla-304d2b1f896ceeccae7b7690751ff7413c0212f5.tar.xz
Remove unused files.
Diffstat (limited to 'doeditowners.cgi')
-rwxr-xr-xdoeditowners.cgi69
1 files changed, 0 insertions, 69 deletions
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 <sam@ziegler.org>
-
-use diagnostics;
-use strict;
-
-require "CGI.pl";
-
-confirm_login();
-
-print "Content-type: text/html\n\n";
-
-if (!UserInGroup("editcomponents")) {
- print "<H1>Sorry, you aren't a member of the 'editcomponents' group.</H1>\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}.<BR>\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.<p>\n";
-print "<a href=editowners.cgi>Edit the owners some more.</a><p>\n";
-print "<a href=query.cgi>Go back to the query page.</a>\n";