From: mkanat%bugzilla.org <> Date: Tue, 2 Sep 2008 10:48:09 +0000 (+0000) Subject: Bug 451707: Provide a --version option to checksetup.pl X-Git-Tag: bugzilla-3.2rc2~72 X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=8c6b36c20977606571a9a25ee20994dfe6cc9f99;p=thirdparty%2Fbugzilla.git Bug 451707: Provide a --version option to checksetup.pl Patch By Max Kanat-Alexander r=LpSolit, a=mkanat --- diff --git a/checksetup.pl b/checksetup.pl index 6969b5b6b7..d7a787f488 100755 --- a/checksetup.pl +++ b/checksetup.pl @@ -66,7 +66,7 @@ $ENV{'HTTP_ACCEPT_LANGUAGE'} ||= get_console_locale(); my %switch; GetOptions(\%switch, 'help|h|?', 'check-modules', 'no-templates|t', 'verbose|v|no-silent', 'make-admin=s', - 'reset-password=s'); + 'reset-password=s', 'version|V'); # Print the help message if that switch was selected. pod2usage({-verbose => 1, -exitval => 1}) if $switch{'help'}; @@ -77,6 +77,7 @@ my $answers_file = $ARGV[0]; my $silent = $answers_file && !$switch{'verbose'}; print(install_string('header', get_version_and_os()) . "\n") unless $silent; +exit if $switch{'version'}; # Check required --MODULES-- my $module_results = check_requirements(!$silent); Bugzilla::Install::Requirements::print_module_instructions( @@ -242,7 +243,7 @@ checksetup.pl - A do-it-all upgrade and installation script for Bugzilla. =head1 SYNOPSIS - ./checksetup.pl [--help|--check-modules] + ./checksetup.pl [--help|--check-modules|--version] ./checksetup.pl [SCRIPT [--verbose]] [--no-templates|-t] [--make-admin=user@domain.com] [--reset-password=user@domain.com] @@ -288,6 +289,11 @@ by developers to speed up checksetup.) Use this switch at your own risk. Output results of SCRIPT being processed. +=item B<--version> + +Display the version of Bugzilla, Perl, and some info about the +system that Bugzilla is being installed on, and then exit. + =back =head1 DESCRIPTION