Subversion Repositories DevTools

Rev

Rev 263 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 263 Rev 279
Line 23... Line 23...
23 
use FileUtils;
 23 
use FileUtils;
24 
 
 24 
 
25 
use Pod::Usage;                             # required for help support
 25 
use Pod::Usage;                             # required for help support
26 
use Getopt::Long;
 26 
use Getopt::Long;
27 
use Cwd;
 27 
use Cwd;
28 
use Sys::Hostname;                          # For hostname
 - 
 
29 
 
 28 
 
30 
my $VERSION = "1.1.0";                      # Update this
 29 
my $VERSION = "1.1.0";                      # Update this
31 
 
 30 
 
32 
#
 31 
#
33 
#   Options
 32 
#   Options
Line 45... Line 44...
45 
#   Globals - Provided by the JATS environment
 44 
#   Globals - Provided by the JATS environment
46 
#
 45 
#
47 
my $USER            = $ENV{'USER'};
 46 
my $USER            = $ENV{'USER'};
48 
my $UNIX            = $ENV{'GBE_UNIX'};
 47 
my $UNIX            = $ENV{'GBE_UNIX'};
49 
my $TMP             = $UNIX ? "/tmp" : $ENV{'TMP'};
 48 
my $TMP             = $UNIX ? "/tmp" : $ENV{'TMP'};
- 
 
 49 
my $MACHINENAME     = $ENV{'GBE_HOSTNAME'};
50 
 
 50 
 
51 
#
 51 
#
52 
#   Globals
 52 
#   Globals
53 
#
 53 
#
54 
my $MACHINENAME;
 - 
 
55 
my @error_list;                             # ClearCmd detected errors
 54 
my @error_list;                             # ClearCmd detected errors
56 
my $BC2             = 'c:/Program Files/Beyond Compare 2/BC2.exe';
 55 
my $BC2             = 'c:/Program Files/Beyond Compare 2/BC2.exe';
57 
my @view_tags;
 56 
my @view_tags;
58 
 
 57 
 
59 
 
 58 
 
Line 130... Line 129...
130 
 
 129 
 
131 
#
 130 
#
132 
#   Extract parameters that will be used to create a view that is
 131 
#   Extract parameters that will be used to create a view that is
133 
#   unique. Will use hostname and user name
 132 
#   unique. Will use hostname and user name
134 
#
 133 
#
135 
$MACHINENAME = hostname;
 - 
 
136 
Error ("Machine Name not determined")
 134 
Error ("Machine Name not determined")
137 
    unless ( $MACHINENAME );
 135 
    unless ( $MACHINENAME );
138 
chomp( $MACHINENAME );
 - 
 
139 
 
 136 
 
140 
Error ("USER name not determined" )
 137 
Error ("USER name not determined" )
141 
    unless ( $USER );
 138 
    unless ( $USER );
142 
 
 139 
 
143 
#
 140 
#