iframe-proxy | Sunbelt Computer Software

executable file
175 lines (143 loc) · 5.71 KB
#!/usr/bin/perl -T
# This Source Code Form is subject to the terms of the Mozilla Public
# License, v. 2.0. If a copy of the MPL was not distributed with this
# file, You can obtain one at http://mozilla.org/MPL/2.0/.
# This Source Code Form is "Incompatible With Secondary Licenses", as
# defined by the Mozilla Public License, v. 2.0.
use 5.14.0;
use strict;
use warnings;
use lib qw(. lib local/lib/perl5);
use Bugzilla;
use Bugzilla::Constants;
use Bugzilla::Error;
use Bugzilla::Util;
use Bugzilla::Field;
use Bugzilla::Token;
my $cgi      = Bugzilla->cgi;
my $template = Bugzilla->template;
my $vars     = {};
# Make sure the user is logged in and is an administrator.
my $user = Bugzilla->login(LOGIN_REQUIRED);
$user->in_group('admin')
  || ThrowUserError('auth_failure',
  {group => 'admin', action => 'edit', object => 'custom_fields'});
my $action = trim($cgi->param('action') || '');
my $token = $cgi->param('token');
print $cgi->header();
# List all existing custom fields if no action is given.
if (!$action) {
  $template->process('admin/custom_fields/list.html.tmpl', $vars)
    || ThrowTemplateError($template->error());
# Interface to add a new custom field.
elsif ($action eq 'add') {
  $vars->{'token'} = issue_session_token('add_field');
  $template->process('admin/custom_fields/create.html.tmpl', $vars)
    || ThrowTemplateError($template->error());
elsif ($action eq 'new') {
  check_token_data($token, 'add_field');
  $vars->{'field'} = Bugzilla::Field->create({
    name                => scalar $cgi->param('name'),
    description         => scalar $cgi->param('desc'),
    long_desc           => scalar $cgi->param('long_desc'),
    type                => scalar $cgi->param('type'),
    sortkey             => scalar $cgi->param('sortkey'),
    mailhead            => scalar $cgi->param('new_bugmail'),
    enter_bug           => scalar $cgi->param('enter_bug'),
    obsolete            => scalar $cgi->param('obsolete'),
    custom              => 1,
    buglist             => 1,
    visibility_field_id => scalar $cgi->param('visibility_field_id'),
    visibility_values   => [$cgi->multi_param('visibility_values')],
    value_field_id      => scalar $cgi->param('value_field_id'),
    reverse_desc        => scalar $cgi->param('reverse_desc'),
    is_mandatory        => scalar $cgi->param('is_mandatory'),
  delete_token($token);
  $vars->{'message'} = 'custom_field_created';
  $template->process('admin/custom_fields/list.html.tmpl', $vars)
    || ThrowTemplateError($template->error());
elsif ($action eq 'edit') {
  my $name = $cgi->param('name') || ThrowUserError('field_missing_name');
  # Custom field names must start with "cf_".
  if ($name !~ /^cf_/) {
    $name = 'cf_' . $name;
  my $field = new Bugzilla::Field({'name' => $name});
  $field || ThrowUserError('customfield_nonexistent', {'name' => $name});
  $vars->{'field'} = $field;
  $vars->{'token'} = issue_session_token('edit_field');
  $template->process('admin/custom_fields/edit.html.tmpl', $vars)
    || ThrowTemplateError($template->error());
elsif ($action eq 'update') {
  check_token_data($token, 'edit_field');
  my $name = $cgi->param('name');
  # Validate fields.
  $name || ThrowUserError('field_missing_name');
  # Custom field names must start with "cf_".
  if ($name !~ /^cf_/) {
    $name = 'cf_' . $name;
  my $field = new Bugzilla::Field({'name' => $name});
  $field || ThrowUserError('customfield_nonexistent', {'name' => $name});
  $field->set_description(scalar $cgi->param('desc'));
  $field->set_long_desc(scalar $cgi->param('long_desc'));
  $field->set_sortkey(scalar $cgi->param('sortkey'));
  $field->set_in_new_bugmail(scalar $cgi->param('new_bugmail'));
  $field->set_enter_bug(scalar $cgi->param('enter_bug'));
  $field->set_obsolete(scalar $cgi->param('obsolete'));
  $field->set_is_mandatory(scalar $cgi->param('is_mandatory'));
  $field->set_visibility_field(scalar $cgi->param('visibility_field_id'));
  $field->set_visibility_values([$cgi->multi_param('visibility_values')]);
  $field->set_value_field(scalar $cgi->param('value_field_id'));
  $field->set_reverse_desc(scalar $cgi->param('reverse_desc'));
  $field->update();
  delete_token($token);
  $vars->{'field'}   = $field;
  $vars->{'message'} = 'custom_field_updated';
  $template->process('admin/custom_fields/list.html.tmpl', $vars)
    || ThrowTemplateError($template->error());
elsif ($action eq 'del') {
  my $name = $cgi->param('name');
  # Validate field.
  $name || ThrowUserError('field_missing_name');
  # Custom field names must start with "cf_".
  if ($name !~ /^cf_/) {
    $name = 'cf_' . $name;
  my $field = new Bugzilla::Field({'name' => $name});
  $field || ThrowUserError('customfield_nonexistent', {'name' => $name});
  $vars->{'field'} = $field;
  $vars->{'token'} = issue_session_token('delete_field');
  $template->process('admin/custom_fields/confirm-delete.html.tmpl', $vars)
    || ThrowTemplateError($template->error());
elsif ($action eq 'delete') {
  check_token_data($token, 'delete_field');
  my $name = $cgi->param('name');
  # Validate fields.
  $name || ThrowUserError('field_missing_name');
  # Custom field names must start with "cf_".
  if ($name !~ /^cf_/) {
    $name = 'cf_' . $name;
  my $field = new Bugzilla::Field({'name' => $name});
  $field || ThrowUserError('customfield_nonexistent', {'name' => $name});
  # Calling remove_from_db will check if field can be deleted.
  # If the field cannot be deleted, it will throw an error.
  $field->remove_from_db();
  $vars->{'field'}   = $field;
  $vars->{'message'} = 'custom_field_deleted';
  delete_token($token);
  $template->process('admin/custom_fields/list.html.tmpl', $vars)
    || ThrowTemplateError($template->error());
  ThrowUserError('unknown_action', {action => $action});
Sunbelt Computer Software

PL/B Language Development and Support

Provide feedback

Saved searches

Use saved searches to filter your results more quickly

Uh oh!

Uh oh!

Sunbelt Computer Software

PL/B Language Development and Support

Uh oh!

Uh oh!

FilesExpand file tree

editfields.cgi

Latest commit

History

editfields.cgi

File metadata and controls
