Subversion Repositories DevTools

Rev

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

Rev 341 Rev 353
Line 28... Line 28...
28 
#
 28 
#
29 
my $VERSION = "1.0.0";                      # Update this
 29 
my $VERSION = "1.0.0";                      # Update this
30 
my $opt_verbose = $ENV{'GBE_VERBOSE'} || 0;
 30 
my $opt_verbose = $ENV{'GBE_VERBOSE'} || 0;
31 
my $opt_help = 0;
 31 
my $opt_help = 0;
32 
my $indent = 17;
 32 
my $indent = 17;
- 
 
 33 
my @indents;
33 
my $GBE_UNIX = $ENV{GBE_UNIX} || 0;
 34 
my $GBE_UNIX = $ENV{GBE_UNIX} || 0;
34 
my $CWD;
 35 
my $CWD;
35 
my $PSPLIT;
 36 
my $PSPLIT;
36 
 
 37 
 
37 
#-------------------------------------------------------------------------------
 38 
#-------------------------------------------------------------------------------
Line 246... Line 247...
246 
        penv    "GBE_DM_USERNAME";
 247 
        penv    "GBE_DM_USERNAME";
247 
        penv    "GBE_DM_PASSWORD";
 248 
        penv    "GBE_DM_PASSWORD";
248 
        penv    "GBE_DM_URL";
 249 
        penv    "GBE_DM_URL";
249 
    }
 250 
    }
250 
 
 251 
 
251 
    if ( $opt_verbose || $ENV{GBE_SVN_URL} || $ENV{GBE_SVN_USERNAME} || $ENV{GBE_SVN_PATH} )
 252 
    if ( $opt_verbose || $ENV{GBE_SVN_USERNAME} || $ENV{GBE_SVN_PATH} )
252 
    {
 253 
    {
253 
        print "\nSubVersion\n";
 254 
        print "\nSubVersion\n";
254 
        denv    "GBE_SVN_PATH";
 255 
        denv    "GBE_SVN_PATH";
255 
        penv    "GBE_SVN_URL";
 - 
 
256 
        penv    "GBE_SVN_USERNAME";
 256 
        penv    "GBE_SVN_USERNAME";
257 
        penv    "GBE_SVN_PASSWORD";
 257 
        penv    "GBE_SVN_PASSWORD";
- 
 
 258 
        print "\nSubVersion Repository Paths\n";
- 
 
 259 
        push @indents, $indent;
- 
 
 260 
        $indent = 24;
- 
 
 261 
        foreach ( sort keys %ENV )
- 
 
 262 
        {
- 
 
 263 
            penv    $_ if ( m ~^GBE_SVN_URL~ );
- 
 
 264 
        }
- 
 
 265 
        $indent = pop @indents;
258 
    }
 266 
    }
259
267
260 
    if ( $opt_verbose && ! $GBE_UNIX)
 268 
    if ( $opt_verbose && ! $GBE_UNIX)
261 
    {
 269 
    {
262 
        print "\nWindows Environment\n";
 270 
        print "\nWindows Environment\n";