Fix for bug 98801: Implementation of the request tracker, a set of enhancements to attachment statuses.

r=gerv,bbaetz

1 files changed, 0 insertions, 347 deletions

diff --git a/editattachstatuses.cgi b/editattachstatuses.cgi
deleted file mode 100755
index eedf2add4..000000000
--- a/editattachstatuses.cgi
+++ /dev/null
@@ -1,347 +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>
-#                 Myk Melez <myk@mozilla.org>
-
-################################################################################
-# Script Initialization
-################################################################################
-
-# Make it harder for us to do dangerous things in Perl.
-use strict;
-use lib ".";
-
-use vars qw(
-  $template
-  $vars
-);
-
-# Include the Bugzilla CGI and general utility library.
-require "CGI.pl";
-
-# Establish a connection to the database backend.
-ConnectToDatabase();
-
-# Make sure the user is logged in and is allowed to edit products
-# (i.e. the user has "editcomponents" privileges), since attachment
-# statuses are product-specific.
-confirm_login();
-UserInGroup("editcomponents")
-  || DisplayError("You are not authorized to administer attachment statuses.")
-  && exit;
-
-################################################################################
-# Main Body Execution
-################################################################################
-
-# All calls to this script should contain an "action" variable whose value
-# determines what the user wants to do.  The code below checks the value of
-# that variable and runs the appropriate code.
-
-# Determine whether to use the action specified by the user or the default.
-my $action = $::FORM{'action'} || 'list';
-
-if ($action eq "list") 
-{ 
-  list(); 
-} 
-elsif ($action eq "create") 
-{ 
-  create(); 
-} 
-elsif ($action eq "insert") 
-{ 
-  validateName();
-  validateDescription();
-  validateSortKey();
-  validateProduct();
-  insert();
-}
-elsif ($action eq "edit") 
-{ 
-  edit(); 
-} 
-elsif ($action eq "update") 
-{ 
-  validateID();
-  validateName();
-  validateDescription();
-  validateSortKey();
-  update();
-}
-elsif ($action eq "confirmdelete") 
-{ 
-  validateID();
-  confirmDelete();
-} 
-elsif ($action eq "delete")
-{
-  validateID();
-  deleteStatus();
-}
-else 
-{ 
-  DisplayError("I could not figure out what you wanted to do.")
-}
-
-exit;
-
-################################################################################
-# Data Validation
-################################################################################
-
-sub validateID
-{
-  $::FORM{'id'} =~ /^[1-9][0-9]*$/
-    || DisplayError("The status ID is not a positive integer.") 
-      && exit;
-  
-  SendSQL("SELECT 1 FROM attachstatusdefs WHERE id = $::FORM{'id'}");
-  my ($defexists) = FetchSQLData();
-  $defexists
-    || DisplayError("The status with ID #$::FORM{'id'} does not exist.") 
-      && exit;
-}
-
-sub validateName
-{
-  $::FORM{'name'}
-    || DisplayError("You must enter a name for the status.")
-      && exit;
-
-  $::FORM{'name'} !~ /[\s,]/
-    || DisplayError("The status name cannot contain commas or whitespace.")
-      && exit;
-
-  length($::FORM{'name'}) <= 50
-    || DisplayError("The status name cannot be more than 50 characters long.")
-      && exit;
-}
-
-sub validateDescription
-{
-  $::FORM{'desc'}
-    || DisplayError("You must enter a description of the status.")
-      && exit;
-}
-
-sub validateSortKey
-{
-  $::FORM{'sortkey'} =~ /^\d+$/
-    && $::FORM{'sortkey'} < 32768
-      || DisplayError("The sort key must be an integer between 0 and 32767 inclusive.") 
-        && exit;
-}
-
-sub validateProduct
-{
-  # Retrieve a list of products.
-  SendSQL("SELECT name FROM products");
-  my @products;
-  push(@products, FetchSQLData()) while MoreSQLData();
-
-  grep($_ eq $::FORM{'product'}, @products)
-    || DisplayError("You must select an existing product for the status.") 
-      && exit;
-}
-
-################################################################################
-# Functions
-################################################################################
-
-sub list
-{
-  # Administer attachment status flags, which is the set of status flags 
-  # that can be applied to an attachment.
-
-  # If the user is seeing this screen as a result of doing something to
-  # an attachment status flag, display a message about what happened
-  # to that flag (i.e. "The attachment status flag was updated.").
-  my ($message) = (@_);
-
-  # Retrieve a list of attachment status flags and create an array of hashes
-  # in which each hash contains the data for one flag.
-  SendSQL("SELECT attachstatusdefs.id, attachstatusdefs.name, " .
-          "attachstatusdefs.description, attachstatusdefs.sortkey, products.name, " .
-          "count(attachstatusdefs.id) " .
-          "FROM attachstatusdefs, products " .
-          "WHERE products.id = attachstatusdefs.product_id " .
-          "GROUP BY id " .
-          "ORDER BY attachstatusdefs.sortkey");
-  my @statusdefs;
-  while ( MoreSQLData() )
-  {
-    my ($id, $name, $description, $sortkey, $product, $attachcount) = FetchSQLData();
-    push @statusdefs, { 'id' => $id , 'name' => $name , 'description' => $description , 
-                        'sortkey' => $sortkey , 'product' => $product, 
-                        'attachcount' => $attachcount };
-  }
-
-  # Define the variables and functions that will be passed to the UI template.
-  $vars->{'message'} = $message;
-  $vars->{'statusdefs'} = \@statusdefs;
-
-  # Return the appropriate HTTP response headers.
-  print "Content-type: text/html\n\n";
-
-  # Generate and return the UI (HTML page) from the appropriate template.
-  $template->process("admin/attachstatus/list.html.tmpl", $vars)
-    || ThrowTemplateError($template->error());
-}
-
-
-sub create
-{
-  # Display a form for creating a new attachment status flag.
-
-  # Retrieve a list of products to which the attachment status may apply.
-  SendSQL("SELECT name FROM products");
-  my @products;
-  push(@products, FetchSQLData()) while MoreSQLData();
-
-  # Define the variables and functions that will be passed to the UI template.
-  $vars->{'products'} = \@products;
-
-  # Return the appropriate HTTP response headers.
-  print "Content-type: text/html\n\n";
-
-  # Generate and return the UI (HTML page) from the appropriate template.
-  $template->process("admin/attachstatus/create.html.tmpl", $vars)
-    || ThrowTemplateError($template->error());
-}
-
-
-sub insert
-{
-  # Insert a new attachment status flag into the database.
-
-  # Quote the flag's name and description as appropriate for inclusion
-  # in a SQL statement.
-  my $name = SqlQuote($::FORM{'name'});
-  my $desc = SqlQuote($::FORM{'desc'});
-  my $product_id = get_product_id($::FORM{'product'});
-
-  SendSQL("LOCK TABLES attachstatusdefs WRITE");
-  SendSQL("SELECT MAX(id) FROM attachstatusdefs");
-  my $id = FetchSQLData() + 1;
-  SendSQL("INSERT INTO attachstatusdefs (id, name, description, sortkey, product_id)
-           VALUES ($id, $name, $desc, $::FORM{'sortkey'}, $product_id)");
-  SendSQL("UNLOCK TABLES");
-
-  # Display the "administer attachment status flags" page
-  # along with a message that the flag has been created.
-  list("The attachment status has been created.");
-}
-
-
-sub edit
-{
-  # Display a form for editing an existing attachment status flag.
-
-  # Retrieve the definition from the database.
-  SendSQL("SELECT attachstatusdefs.name, attachstatusdefs.description, " .
-          " attachstatusdefs.sortkey, products.name " .
-          "FROM attachstatusdefs, products " . 
-          "WHERE attachstatusdefs.product_id = products.id " .
-          " AND attachstatusdefs.id = $::FORM{'id'}");
-  my ($name, $desc, $sortkey, $product) = FetchSQLData();
-
-  # Define the variables and functions that will be passed to the UI template.
-  $vars->{'id'} = $::FORM{'id'}; 
-  $vars->{'name'} = $name; 
-  $vars->{'desc'} = $desc; 
-  $vars->{'sortkey'} = $sortkey; 
-  $vars->{'product'} = $product; 
-
-  # Return the appropriate HTTP response headers.
-  print "Content-type: text/html\n\n";
-
-  # Generate and return the UI (HTML page) from the appropriate template.
-  $template->process("admin/attachstatus/edit.html.tmpl", $vars)
-    || ThrowTemplateError($template->error());
-}
-
-
-sub update
-{
-  # Update an attachment status flag in the database.
-
-  # Quote the flag's name and description as appropriate for inclusion
-  # in a SQL statement.
-  my $name = SqlQuote($::FORM{'name'});
-  my $desc = SqlQuote($::FORM{'desc'});
-
-  SendSQL("LOCK TABLES attachstatusdefs WRITE");
-  SendSQL("
-           UPDATE  attachstatusdefs 
-           SET     name = $name , 
-                   description = $desc , 
-                   sortkey = $::FORM{'sortkey'} 
-           WHERE   id = $::FORM{'id'}
-         ");
-  SendSQL("UNLOCK TABLES");
-
-  # Display the "administer attachment status flags" page
-  # along with a message that the flag has been updated.
-  list("The attachment status has been updated.");
-}
-
-sub confirmDelete 
-{
-  # check if we need confirmation to delete:
-
-  SendSQL("SELECT COUNT(attach_id), name 
-           FROM attachstatusdefs LEFT JOIN attachstatuses
-                ON attachstatuses.statusid=attachstatusdefs.id
-           WHERE statusid = $::FORM{'id'}
-           GROUP BY attachstatuses.statusid;");
-  
-  my ($attachcount, $name) = FetchSQLData();
-
-  if ($attachcount > 0) {
-
-    $vars->{'id'} = $::FORM{'id'};
-    $vars->{'attachcount'} = $attachcount;
-    $vars->{'name'} = $name;
-
-    print "Content-type: text/html\n\n";
-    
-    $template->process("admin/attachstatus/delete.html.tmpl", $vars)
-      || ThrowTemplateError($template->error());
-  } 
-  else {
-    deleteStatus();
-  }
-}
-
-sub deleteStatus
-{
-  # Delete an attachment status flag from the database.
-
-  SendSQL("LOCK TABLES attachstatusdefs WRITE, attachstatuses WRITE");
-  SendSQL("DELETE FROM attachstatuses WHERE statusid = $::FORM{'id'}");
-  SendSQL("DELETE FROM attachstatusdefs WHERE id = $::FORM{'id'}");
-  SendSQL("UNLOCK TABLES");
-
-  # Display the "administer attachment status flags" page
-  # along with a message that the flag has been deleted.
-  list("The attachment status has been deleted.");
-}