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