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";