Subversion Repositories DevTools

Rev

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

Rev 3832 Rev 4466
Line 1... Line -...
1 
#! perl
 - 
 
2 
########################################################################
 1 
########################################################################
3 
# Copyright ( C ) 2006 ERG Limited, All rights reserved
 2 
# Copyright (c) VIX TECHNOLOGY (AUST) LTD
4 
#
 3 
#
5 
# Module name   : Build System
 4 
# Module name   : test_rmconnection.pl
6 
# Module type   : Makefile system
 5 
# Module type   : Makefile system
7 
# Compiler(s)   : n/a
 6 
# Compiler(s)   : Perl
8 
# Environment(s): jats
 7 
# Environment(s): jats
9 
#
 8 
#
10 
# Description   : Test the connectivity to the Release Manager Database
 9 
# Description   : Test the connectivity to the Release Manager Database
11 
#                 test_rmconnection.pl
 10 
#                 test_rmconnection.pl
12 
#
 11 
#
13 
# Usage:
 - 
 
14 
#
 - 
 
15 
# Version   Who      Date        Description
 12 
# Usage         : See POD
16 
#
 13 
#
17 
#......................................................................#
 14 
#......................................................................#
18 
 
 15 
 
19 
require 5.006_001;
 16 
require 5.008_002;
20 
use strict;
 17 
use strict;
21 
use warnings;
 18 
use warnings;
- 
 
 19 
 
22 
use JatsEnv;
 20 
use JatsEnv;
23 
use JatsError;
 21 
use JatsError;
24 
use Pod::Usage;                             # required for help support
 22 
use Pod::Usage;                             # required for help support
25 
use Getopt::Long;
 23 
use Getopt::Long;
26 
use JatsRmApi;
 24 
use JatsRmApi;
Line 40... Line 38...
40 
#
 38 
#
41 
my $VERSION      = "1.0.0";                 # Update this
 39 
my $VERSION      = "1.0.0";                 # Update this
42 
my $opt_debug    = $ENV{'GBE_DEBUG'};        # Allow global debug
 40 
my $opt_debug    = $ENV{'GBE_DEBUG'};        # Allow global debug
43 
my $opt_verbose  = $ENV{'GBE_VERBOSE'};      # Allow global verbose
 41 
my $opt_verbose  = $ENV{'GBE_VERBOSE'};      # Allow global verbose
44 
my $opt_help = 0;
 42 
my $opt_help = 0;
45 
my $opt_manual = 0;
 - 
 
46 
 
 43 
 
47 
#
 44 
#
48 
#   Release Manager Connection Information
 45 
#   Release Manager Connection Information
49 
#   Deployment manager Connection information
 46 
#   Deployment manager Connection information
50 
#
 47 
#
Line 60... Line 57...
60 
#
 57 
#
61 
# Inputs          :
 58 
# Inputs          :
62 
#
 59 
#
63 
my $result = GetOptions (
 60 
my $result = GetOptions (
64 
                "help+"         => \$opt_help,              # flag, multiple use allowed
 61 
                "help+"         => \$opt_help,              # flag, multiple use allowed
65 
                "manual"        => \$opt_manual,            # flag
 62 
                "manual:3"      => \$opt_help,
66 
                "verbose+"      => \$opt_verbose,           # flag, multiple use allowed
 63 
                "verbose:+"     => \$opt_verbose,           # flag, multiple use allowed
67 
                );
 64 
                );
68 
 
 65 
 
69 
                #
 66 
                #
70 
                #   UPDATE THE DOCUMENTATION AT THE END OF THIS FILE !!!
 67 
                #   UPDATE THE DOCUMENTATION AT THE END OF THIS FILE !!!
71 
                #
 68 
                #
Line 73... Line 70...
73 
#
 70 
#
74 
#   Process help and manual options
 71 
#   Process help and manual options
75 
#
 72 
#
76 
pod2usage(-verbose => 0, -message => "Version: $VERSION") if ($opt_help == 1 || ! $result);
 73 
pod2usage(-verbose => 0, -message => "Version: $VERSION") if ($opt_help == 1 || ! $result);
77 
pod2usage(-verbose => 1) if ($opt_help == 2 );
 74 
pod2usage(-verbose => 1) if ($opt_help == 2 );
78 
pod2usage(-verbose => 2) if ($opt_manual || ($opt_help > 2));
 75 
pod2usage(-verbose => 2) if ($opt_help > 2);
79 
 
 76 
 
80 
#
 77 
#
81 
#   Configure the error reporting process now that we have the user options
 78 
#   Configure the error reporting process now that we have the user options
82 
#
 79 
#
83 
ErrorConfig( 'name'    =>'RMTEST',
 80 
ErrorConfig( 'name'    =>'RMTEST',
Line 246... Line 243...
246 
 
 243 
 
247 
=pod
 244 
=pod
248 
 
 245 
 
249 
=head1 NAME
 246 
=head1 NAME
250 
 
 247 
 
251 
test_rmconnection - Test the connection tot he Release Manager Database
 248 
test_rmconnection - Test the connection to the Release Manager Database
252 
 
 249 
 
253 
=head1 SYNOPSIS
 250 
=head1 SYNOPSIS
254 
 
 251 
 
255 
jats etool test_rmconnection [options]
 252 
jats etool test_rmconnection [options]
256 
 
 253