summaryrefslogtreecommitdiffstats
path: root/globals.pl
diff options
context:
space:
mode:
Diffstat (limited to 'globals.pl')
-rw-r--r--globals.pl99
1 files changed, 0 insertions, 99 deletions
diff --git a/globals.pl b/globals.pl
index a1e87eec2..6af204666 100644
--- a/globals.pl
+++ b/globals.pl
@@ -39,23 +39,6 @@ use Bugzilla::Config qw(:DEFAULT ChmodDataFile $localconfig $datadir);
use Bugzilla::User;
use Bugzilla::Error;
-# Shut up misguided -w warnings about "used only once". For some reason,
-# "use vars" chokes on me when I try it here.
-
-sub globals_pl_sillyness {
- my $zz;
- $zz = @main::legal_bug_status;
- $zz = @main::legal_opsys;
- $zz = @main::legal_platform;
- $zz = @main::legal_priority;
- $zz = @main::legal_severity;
-}
-
-#
-# Here are the --LOCAL-- variables defined in 'localconfig' that we'll use
-# here
-#
-
# XXX - Move this to Bugzilla::Config once code which uses these has moved out
# of globals.pl
do $localconfig;
@@ -68,88 +51,6 @@ use Date::Parse; # For str2time().
# Use standard Perl libraries for cross-platform file/directory manipulation.
use File::Spec;
-# XXXX - this needs to go away
-sub GenerateVersionTable {
- my $dbh = Bugzilla->dbh;
-
- @::legal_priority = get_legal_field_values("priority");
- @::legal_severity = get_legal_field_values("bug_severity");
- @::legal_platform = get_legal_field_values("rep_platform");
- @::legal_opsys = get_legal_field_values("op_sys");
- @::legal_bug_status = get_legal_field_values("bug_status");
- @::legal_resolution = get_legal_field_values("resolution");
-
- # 'settable_resolution' is the list of resolutions that may be set
- # directly by hand in the bug form. Start with the list of legal
- # resolutions and remove 'MOVED' and 'DUPLICATE' because setting
- # bugs to those resolutions requires a special process.
- #
- @::settable_resolution = @::legal_resolution;
- my $w = lsearch(\@::settable_resolution, "DUPLICATE");
- if ($w >= 0) {
- splice(@::settable_resolution, $w, 1);
- }
- my $z = lsearch(\@::settable_resolution, "MOVED");
- if ($z >= 0) {
- splice(@::settable_resolution, $z, 1);
- }
-
- require File::Temp;
- my ($fh, $tmpname) = File::Temp::tempfile("versioncache.XXXXX",
- DIR => "$datadir");
-
- print $fh "#\n";
- print $fh "# DO NOT EDIT!\n";
- print $fh "# This file is automatically generated at least once every\n";
- print $fh "# hour by the GenerateVersionTable() sub in globals.pl.\n";
- print $fh "# Any changes you make will be overwritten.\n";
- print $fh "#\n";
-
- require Data::Dumper;
-
- print $fh (Data::Dumper->Dump([\@::legal_priority, \@::legal_severity,
- \@::legal_platform, \@::legal_opsys,
- \@::legal_bug_status, \@::legal_resolution],
- ['*::legal_priority', '*::legal_severity',
- '*::legal_platform', '*::legal_opsys',
- '*::legal_bug_status', '*::legal_resolution']));
-
- print $fh (Data::Dumper->Dump([\@::settable_resolution],
- ['*::settable_resolution']));
-
- print $fh "1;\n";
- close $fh;
-
- rename ($tmpname, "$datadir/versioncache")
- || die "Can't rename $tmpname to versioncache";
- ChmodDataFile("$datadir/versioncache", 0666);
-}
-
-
-$::VersionTableLoaded = 0;
-sub GetVersionTable {
- return if $::VersionTableLoaded;
- my $file_generated = 0;
- if (!-r "$datadir/versioncache") {
- GenerateVersionTable();
- $file_generated = 1;
- }
- require "$datadir/versioncache";
- $::VersionTableLoaded = 1;
-}
-
-# Returns a list of all the legal values for a field that has a
-# list of legal values, like rep_platform or resolution.
-sub get_legal_field_values {
- my ($field) = @_;
- my $dbh = Bugzilla->dbh;
- my $result_ref = $dbh->selectcol_arrayref(
- "SELECT value FROM $field
- WHERE isactive = ?
- ORDER BY sortkey, value", undef, (1));
- return @$result_ref;
-}
-
############# Live code below here (that is, not subroutine defs) #############
use Bugzilla;