Subversion Repositories DevTools

Rev

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

Rev 315 Rev 325
Line 29... Line 29...
29
 
29
 
30
#
30
#
31
#   Options
31
#   Options
32
#
32
#
33
my $opt_debug   = $ENV{'GBE_DEBUG'};        # Allow global debug
33
my $opt_debug   = $ENV{'GBE_DEBUG'};        # Allow global debug
34
my $opt_verbose = $ENV{'opt_verbose'};      # Allow global verbose
34
my $opt_verbose = $ENV{'GBE_VERBOSE'};      # Allow global verbose
35
my $opt_help = 0;
35
my $opt_help = 0;
36
my $opt_all = 0;
36
my $opt_all = 0;
37
 
37
 
38
#
38
#
39
#   Hash of substitute/hide items
39
#   Hash of substitute/hide items
Line 86... Line 86...
86
                );
86
                );
87
 
87
 
88
#
88
#
89
#   Configure the error reporting process now that we have the user options
89
#   Configure the error reporting process now that we have the user options
90
#
90
#
91
ErrorConfig( 'name'    =>'help',
91
ErrorConfig( 'name'    => 'help',
92
             'verbose' => $opt_verbose,
92
             'verbose' => $opt_verbose,
93
            );
93
            );
94
#
94
#
95
#   Extend the search path if required
95
#   Extend the search path if required
96
#
96
#
Line 105... Line 105...
105
{
105
{
106
    pod2usage(-verbose => $opt_help,
106
    pod2usage(-verbose => $opt_help,
107
              -message => "Version: $VERSION",
107
              -message => "Version: $VERSION",
108
              -exitval => 'noexit'
108
              -exitval => 'noexit'
109
              );
109
              );
110
    unless( $opt_help )
-
 
111
    {
-
 
112
        display_help_items("",   'Items',   '*.pod');
110
    display_help_items("",   'Items',   '*.pod');
113
        display_help_items("\n", 'Commands','*.pl');
111
    display_help_items("\n", 'Commands','*.pl');
114
    }
-
 
115
    exit 0;
112
    exit 0;
116
}
113
}
117
 
114
 
118
#-------------------------------------------------------------------------------
115
#-------------------------------------------------------------------------------
119
#   Take the user argument as help topic and attempt to locate it it as:
116
#   Take the user argument as help topic and attempt to locate it it as: