Commit cc3c6806 authored by lpsolit%gmail.com's avatar lpsolit%gmail.com

Bug 413163: sanitycheck.pl needs to be more helpful when run at command line -…

Bug 413163: sanitycheck.pl needs to be more helpful when run at command line - Patch by Colin Ogilvie <colin.ogilvie@gmail.com> r/a=LpSolit
parent 3e0d22b5
...@@ -31,7 +31,8 @@ BEGIN { *esc = \&Pod::Simple::HTML::esc } ...@@ -31,7 +31,8 @@ BEGIN { *esc = \&Pod::Simple::HTML::esc }
# Note that if you leave out a category here, it will not be indexed # Note that if you leave out a category here, it will not be indexed
# in the contents file, even though its HTML POD will still exist. # in the contents file, even though its HTML POD will still exist.
use constant FILE_TRANSLATION => { use constant FILE_TRANSLATION => {
Files => ['importxml', 'contrib', 'checksetup', 'email_in', 'install-module'], Files => ['importxml', 'contrib', 'checksetup', 'email_in', 'install-module',
'sanitycheck'],
Modules => ['bugzilla'], Modules => ['bugzilla'],
Extensions => ['extensions'], Extensions => ['extensions'],
}; };
......
...@@ -30,11 +30,17 @@ use Bugzilla::User; ...@@ -30,11 +30,17 @@ use Bugzilla::User;
use Bugzilla::Mailer; use Bugzilla::Mailer;
use Getopt::Long; use Getopt::Long;
use Pod::Usage;
my $verbose = 0; # Return all comments if true, else errors only. my $verbose = 0; # Return all comments if true, else errors only.
my $login = ''; # Login name of the user which is used to call sanitycheck.cgi. my $login = ''; # Login name of the user which is used to call sanitycheck.cgi.
my $help = 0; # Has user asked for help on this script?
my $result = GetOptions('verbose' => \$verbose, 'login=s' => \$login); my $result = GetOptions('verbose' => \$verbose,
'login=s' => \$login,
'help|h|?' => \$help);
pod2usage({-verbose => 1, -exitval => 1}) if $help;
Bugzilla->usage_mode(USAGE_MODE_CMDLINE); Bugzilla->usage_mode(USAGE_MODE_CMDLINE);
...@@ -68,3 +74,43 @@ if ($cgi->param('output')) { ...@@ -68,3 +74,43 @@ if ($cgi->param('output')) {
MessageToMTA($message); MessageToMTA($message);
} }
__END__
=head1 NAME
sanitycheck.pl - Perl script to perform a sanity check at the command line
=head1 SYNOPSIS
./sanitycheck.pl [--help]
./sanitycheck.pl [--verbose] --login <user@domain.com>
=head1 OPTIONS
=over
=item B<--help>
Displays this help text
=item B<--verbose>
Causes this script to be more verbose in its output. Without this option,
the script will return only errors. With the option, the script will append
all output to the email.
=item B<--login>
This should be passed the email address of a user that is capable of
running the Sanity Check process, a user with the editcomponents priv. This
user will receive an email with the results of the script run.
=back
=head1 DESCRIPTION
This script provides a way of running a 'Sanity Check' on the database
via either a CLI or cron. It is equivalent to calling sanitycheck.cgi
via a web broswer.
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment