From a54149e000548823cfc5821957bc7e5c13def944 Mon Sep 17 00:00:00 2001 From: "mkanat%bugzilla.org" <> Date: Wed, 8 Aug 2007 00:12:55 +0000 Subject: Bug 389845: Remove setup.cgi from Bugzilla (no web-based installation) Patch By Max Kanat-Alexander r=LpSolit, a=mkanat --- Bugzilla/Install/Requirements.pm | 21 ++++----------------- Bugzilla/Install/Util.pm | 26 -------------------------- 2 files changed, 4 insertions(+), 43 deletions(-) (limited to 'Bugzilla') diff --git a/Bugzilla/Install/Requirements.pm b/Bugzilla/Install/Requirements.pm index 321f90f8d..305c0843a 100644 --- a/Bugzilla/Install/Requirements.pm +++ b/Bugzilla/Install/Requirements.pm @@ -25,7 +25,7 @@ package Bugzilla::Install::Requirements; use strict; -use Bugzilla::Install::Util qw(vers_cmp install_string is_web); +use Bugzilla::Install::Util qw(vers_cmp install_string); use List::Util qw(max); use Safe; @@ -513,22 +513,9 @@ sub have_vers { my $black_string = $blacklisted ? install_string('blacklisted') : ''; my $want_string = $wanted ? "v$wanted" : install_string('any'); - # It's impossible to do the printf formatting in the install_string - # system, so we do it manually below. - if (is_web()) { - print install_string('module_details', - { package => $package, - wanted => $want_string, - found => $vstr, - ok => $ok, - blacklisted => $black_string, - row_class => $vok ? 'mod_ok' : 'mod_not_ok' }); - } - else { - $ok = "$ok:" if $ok; - printf "%s %19s %-9s $ok $vstr $black_string\n", - install_string('checking_for'), $package, "($want_string)"; - } + $ok = "$ok:" if $ok; + printf "%s %19s %-9s $ok $vstr $black_string\n", + install_string('checking_for'), $package, "($want_string)"; } return $vok ? 1 : 0; diff --git a/Bugzilla/Install/Util.pm b/Bugzilla/Install/Util.pm index a590238e4..931d9f1b5 100644 --- a/Bugzilla/Install/Util.pm +++ b/Bugzilla/Install/Util.pm @@ -37,7 +37,6 @@ our @EXPORT_OK = qw( get_version_and_os indicate_progress install_string - is_web template_include_path vers_cmp ); @@ -79,8 +78,6 @@ sub install_string { # Find the first template that defines this string. foreach my $dir (@$path) { my $base = "$dir/setup/strings"; - $string_template = _get_string_from_file($string_id, "$base.html.pl") - if is_web(); $string_template = _get_string_from_file($string_id, "$base.txt.pl") if !defined $string_template; last if defined $string_template; @@ -237,23 +234,6 @@ sub vers_cmp { # Helper Subroutines # ###################### -# Tells us if we're running in a web interface (Usually, this means -# we're running in setup.cgi as opposed to checksetup.pl, but sometimes -# this function *might* get called from within normal Bugzilla code.) -sub is_web { - # When this is called, we may or may not have all of our required - # perl modules installed. - # - # The way this is written works for all of these circumstances: - # * We're in checksetup.pl, before and after requirements-checking - # * We're in setup.cgi, before and after requirements-checking - # * We're in email_in.pl, the WebService interface, or something else - # (That's primarily what the "return 0" check below is for.) - my $usage_mode = eval { Bugzilla->usage_mode }; - return 0 if (defined $usage_mode && $usage_mode != USAGE_MODE_BROWSER); - return i_am_cgi(); -} - # Used by install_string sub _get_string_from_file { my ($string_id, $file) = @_; @@ -336,12 +316,6 @@ sub is_tainted { return not eval { my $foo = join('',@_), kill 0; 1; }; } -sub i_am_cgi { - # I use SERVER_SOFTWARE because it's required to be - # defined for all requests in the CGI spec. - return exists $ENV{'SERVER_SOFTWARE'} ? 1 : 0; -} - __END__ =head1 NAME -- cgit v1.2.3-24-g4f1b