Subversion Repositories DevTools

Rev

Rev 4466 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 4466 Rev 5909
Line 38... Line 38...
38 
#
 38 
#
39 
my $VERSION      = "1.0.0";                 # Update this
 39 
my $VERSION      = "1.0.0";                 # Update this
40 
my $opt_debug    = $ENV{'GBE_DEBUG'};        # Allow global debug
 40 
my $opt_debug    = $ENV{'GBE_DEBUG'};        # Allow global debug
41 
my $opt_verbose  = $ENV{'GBE_VERBOSE'};      # Allow global verbose
 41 
my $opt_verbose  = $ENV{'GBE_VERBOSE'};      # Allow global verbose
42 
my $opt_help = 0;
 42 
my $opt_help = 0;
- 
 
 43 
my $opt_database = 1;
- 
 
 44 
my $opt_webserver = 1;
43 
 
 45 
 
44 
#
 46 
#
45 
#   Release Manager Connection Information
 47 
#   Release Manager Connection Information
46 
#   Deployment manager Connection information
 48 
#   Deployment manager Connection information
47 
#
 49 
#
Line 59... Line 61...
59 
#
 61 
#
60 
my $result = GetOptions (
 62 
my $result = GetOptions (
61 
                "help+"         => \$opt_help,              # flag, multiple use allowed
 63 
                "help+"         => \$opt_help,              # flag, multiple use allowed
62 
                "manual:3"      => \$opt_help,
 64 
                "manual:3"      => \$opt_help,
63 
                "verbose:+"     => \$opt_verbose,           # flag, multiple use allowed
 65 
                "verbose:+"     => \$opt_verbose,           # flag, multiple use allowed
- 
 
 66 
                "database!"     => \$opt_database,
- 
 
 67 
                "webserver!"     => \$opt_webserver,
64 
                );
 68 
                );
65 
 
 69 
 
66 
                #
 70 
                #
67 
                #   UPDATE THE DOCUMENTATION AT THE END OF THIS FILE !!!
 71 
                #   UPDATE THE DOCUMENTATION AT THE END OF THIS FILE !!!
68 
                #
 72 
                #
Line 83... Line 87...
83 
 
 87 
 
84 
 
 88 
 
85 
#
 89 
#
86 
#   Open the connection and display some data
 90 
#   Open the connection and display some data
87 
#
 91 
#
88 
getOracleData();
 92 
getOracleData() if $opt_database;
89 
getDeployData();
 93 
getDeployData() if $opt_database;
90 
getHttpData();
 94 
getHttpData() if $opt_webserver;
- 
 
 95 
Warning ("All test disabled") unless ($opt_database || $opt_webserver);
91 
Message "Test Complete\n";
 96 
Message "Test Complete\n";
92 
exit;
 97 
exit;
93 
 
 98 
 
94 
 
 99 
 
95 
#-------------------------------------------------------------------------------
 100 
#-------------------------------------------------------------------------------
Line 254... Line 259...
254 
 Options:
 259 
 Options:
255 
    -help              - Brief help message
 260 
    -help              - Brief help message
256 
    -help -help        - Detailed help message
 261 
    -help -help        - Detailed help message
257 
    -man               - Full documentation
 262 
    -man               - Full documentation
258 
    -verbose           - Display additional information
 263 
    -verbose           - Display additional information
- 
 
 264 
    -[no]database      - Test database connection
- 
 
 265 
    -[no]webserver     - Test webserver connection
259 
 
 266 
 
260 
=head1 OPTIONS
 267 
=head1 OPTIONS
261 
 
 268 
 
262 
=over 8
 269 
=over 8
263 
 
 270 
 
Line 275... Line 282...
275 
 
 282 
 
276 
=item B<-verbose>
 283 
=item B<-verbose>
277 
 
 284 
 
278 
Prints additional information on the progress of the program.
 285 
Prints additional information on the progress of the program.
279 
 
 286 
 
- 
 
 287 
=item B<-[no]database>
- 
 
 288 
 
- 
 
 289 
This option can disable the testing of the database connection.
- 
 
 290 
 
- 
 
 291 
The default is to enable testing of the database connection.
- 
 
 292 
 
- 
 
 293 
=item B<-[no]webserver>
- 
 
 294 
 
- 
 
 295 
This option can disable the testing of the webserver connection.
- 
 
 296 
 
- 
 
 297 
The default is to enable testing of the webserver connection.
- 
 
 298 
 
- 
 
 299 
 
280 
=back
 300 
=back
281 
 
 301 
 
282 
=head1 DESCRIPTION
 302 
=head1 DESCRIPTION
283 
 
 303 
 
284 
This program is provided to test the connection between the users computer and
 304 
This program is provided to test the connection between the users computer and