Subversion Repositories DevTools

Rev

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

Rev 335 Rev 337
Line 38... Line 38...
38 
#   Options
 38 
#   Options
39 
#
 39 
#
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_manual;
 - 
 
44 
my $opt_clear;
 43 
my $opt_clear;
45 
my $opt_flush;
 44 
my $opt_flush;
46 
my $opt_refresh;
 45 
my $opt_refresh;
47 
my $opt_refresh_all;
 46 
my $opt_refresh_all;
48 
my $opt_list;
 47 
my $opt_list;
Line 87... Line 86...
87 
# Description     :
 86 
# Description     :
88 
#
 87 
#
89 
# Inputs          :
 88 
# Inputs          :
90 
#
 89 
#
91 
my $result = GetOptions (
 90 
my $result = GetOptions (
92 
                "help+"                     => \$opt_help,              # flag, multiple use allowed
 91 
                "help|h:+"                  => \$opt_help,
93 
                "manual"                    => \$opt_manual,            # flag
 92 
                "manual:3"                  => \$opt_help,
94 
                "verbose+"                  => \$opt_verbose,           # flag, multiple use allowed
 93 
                "verbose:+"                 => \$opt_verbose,           # flag, multiple use allowed
95 
                "debug+"                    => \$opt_debug,             # flag, multiple use allowed
 94 
                "debug:+"                   => \$opt_debug,             # flag, multiple use allowed
96 
                "flush"                     => \$opt_flush,             # flag
 95 
                "flush"                     => \$opt_flush,             # flag
97 
                "clear"                     => \$opt_clear,             # flag
 96 
                "clear"                     => \$opt_clear,             # flag
98 
                "refresh!"                  => \$opt_refresh,           # flag
 97 
                "refresh!"                  => \$opt_refresh,           # flag
99 
                "refresh_all|refresh-all"   => \$opt_refresh_all,       # flag
 98 
                "refresh_all|refresh-all"   => \$opt_refresh_all,       # flag
100 
                "update_all|update-all"     => \$opt_update_all,        # flag
 99 
                "update_all|update-all"     => \$opt_update_all,        # flag
Line 112... Line 111...
112 
#
 111 
#
113 
#   Process help and manual options
 112 
#   Process help and manual options
114 
#
 113 
#
115 
pod2usage(-verbose => 0, -message => "Version: $VERSION")  if ($opt_help == 1  || ! $result);
 114 
pod2usage(-verbose => 0, -message => "Version: $VERSION")  if ($opt_help == 1  || ! $result);
116 
pod2usage(-verbose => 1)  if ($opt_help == 2 );
 115 
pod2usage(-verbose => 1)  if ($opt_help == 2 );
117 
pod2usage(-verbose => 2)  if ($opt_manual || $opt_help > 2);
 116 
pod2usage(-verbose => 2)  if ($opt_help > 2);
118 
 
 117 
 
119 
#
 118 
#
120 
#   Configure the error reporting process now that we have the user options
 119 
#   Configure the error reporting process now that we have the user options
121 
#
 120 
#
122 
ErrorConfig( 'name'    =>'CACHE',
 121 
ErrorConfig( 'name'    =>'CACHE',