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: