Subversion Repositories DevTools

Rev

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

Rev 341 Rev 343
Line 85... Line 85...
85 
our $GBE_HOSTNAME       = $ENV{'GBE_HOSTNAME'}       || hostname || '';
 85 
our $GBE_HOSTNAME       = $ENV{'GBE_HOSTNAME'}       || hostname || '';
86 
our $USER               = $ENV{'USER'}               || '';
 86 
our $USER               = $ENV{'USER'}               || '';
87 
our $PERL5LIB           = $ENV{'PERL5LIB'}           || '';
 87 
our $PERL5LIB           = $ENV{'PERL5LIB'}           || '';
88 
our $JAVA_HOME          = $ENV{'JAVA_HOME'}          || '';
 88 
our $JAVA_HOME          = $ENV{'JAVA_HOME'}          || '';
89 
our $GBE_ABT            = $ENV{'GBE_ABT'}            || '';
 89 
our $GBE_ABT            = $ENV{'GBE_ABT'}            || '';
- 
 
 90 
our $GBE_VIEWBASE       = $ENV{'GBE_VIEWBASE'}       || '';
90 
our $GBE_UNIX           = 1;
 91 
our $GBE_UNIX           = 1;
91 
our $CWD;
 92 
our $CWD;
92 
 
 93 
 
93 
#-------------------------------------------------------------------------------
 94 
#-------------------------------------------------------------------------------
94 
#   Clean up some environment variables
 95 
#   Clean up some environment variables
Line 809... Line 810...
809 
$JAVA_HOME = get_java_home ($opt_java)
 810 
$JAVA_HOME = get_java_home ($opt_java)
810 
    if ( $opt_java );
 811 
    if ( $opt_java );
811 
PathPrepend ("$JAVA_HOME/bin")
 812 
PathPrepend ("$JAVA_HOME/bin")
812 
    if ( -d $JAVA_HOME );
 813 
    if ( -d $JAVA_HOME );
813 
 
 814 
 
- 
 
 815 
################################################################################
- 
 
 816 
#   Setup GBE_VIEWBASE
- 
 
 817 
#   Ideally this should be configured externally
- 
 
 818 
#
- 
 
 819 
unless ( $GBE_VIEWBASE )
- 
 
 820 
{
- 
 
 821 
    if ( $GBE_UNIX ){
- 
 
 822 
        my $HOME = $ENV{'HOME'};
- 
 
 823 
        Error ("Unix HOME EnvVar not defined" ) unless ( $HOME );
- 
 
 824 
        Error ("Unix HOME directory not found: $HOME" ) unless (-d $HOME );
- 
 
 825 
        $GBE_VIEWBASE= "$HOME/jats_cbuilder";
- 
 
 826 
    } else {
- 
 
 827 
        $GBE_VIEWBASE= 'c:/clearcase';
- 
 
 828 
    }
- 
 
 829 
}
814 
 
 830 
 
815 
################################################################################
 831 
################################################################################
816 
#   Ensure that the PATH contains the PERL executable
 832 
#   Ensure that the PATH contains the PERL executable
817 
#   Need to true path to the PERL executable so that the user has access to some
 833 
#   Need to true path to the PERL executable so that the user has access to some
818 
#   of the perl utility programs such as pod2html
 834 
#   of the perl utility programs such as pod2html
Line 962... Line 978...
962 
$ENV{'GBE_VERBOSE'}       = $GBE_VERBOSE;
 978 
$ENV{'GBE_VERBOSE'}       = $GBE_VERBOSE;
963 
$ENV{'GBE_UNIX'}          = $GBE_UNIX;
 979 
$ENV{'GBE_UNIX'}          = $GBE_UNIX;
964 
$ENV{'USER'}              = $USER;
 980 
$ENV{'USER'}              = $USER;
965 
$ENV{'COMSPEC'}           = $COMSPEC;
 981 
$ENV{'COMSPEC'}           = $COMSPEC;
966 
$ENV{'GBE_HOSTNAME'}      = $GBE_HOSTNAME;
 982 
$ENV{'GBE_HOSTNAME'}      = $GBE_HOSTNAME;
- 
 
 983 
$ENV{'GBE_VIEWBASE'}      = $GBE_VIEWBASE;
967 
 
 984 
 
968 
#-------------------------------------------------------------------------------
 985 
#-------------------------------------------------------------------------------
969 
# Function        : PathPrepend
 986 
# Function        : PathPrepend
970 
#
 987 
#
971 
# Description     : Prepend stuff to the PATH
 988 
# Description     : Prepend stuff to the PATH