summaryrefslogtreecommitdiffstats
path: root/editattachstatuses.cgi
diff options
context:
space:
mode:
Diffstat (limited to 'editattachstatuses.cgi')
-rwxr-xr-xeditattachstatuses.cgi347
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.");
-}
generated by cgit v1.2.3-24-g4f1b (git 2.32.0) at 2024-05-18 01:37:48 +0200