Changeset 19410
- Timestamp:
- 2009-05-12T18:31:55+12:00 (15 years ago)
- Location:
- gsdl/trunk/bin/script
- Files:
-
- 6 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/bin/script/full-buildcol.pl
r19409 r19410 32 32 BEGIN { 33 33 die "GSDLOS not set\n" unless defined $ENV{'GSDLOS'}; 34 # for windows, need PERLPATH in order to launch Perl35 if($ENV{'GSDLOS'} =~ m/windows/) {36 die "PERLPATH, which is required for Windows, is not set.\n" unless defined $ENV{'PERLPATH'};37 }38 34 } 39 35 … … 45 41 my $buildcol_cmd = "buildcol.pl -removeold $quoted_argv"; 46 42 if($ENV{'GSDLOS'} =~ m/windows/) { 47 $buildcol_cmd = "$ENV{'PERLPATH'}\\Perl.exe -S $buildcol_cmd"; 48 #$buildcol_cmd = "perl -S $buildcol_cmd"; 43 if($ENV{'PERLPATH'}) { 44 $buildcol_cmd = "$ENV{'PERLPATH'}\\Perl.exe -S $buildcol_cmd"; 45 } else { 46 $buildcol_cmd = "perl -S $buildcol_cmd"; 47 } 49 48 } 50 49 -
gsdl/trunk/bin/script/full-import.pl
r19409 r19410 33 33 BEGIN { 34 34 die "GSDLOS not set\n" unless defined $ENV{'GSDLOS'}; 35 # for windows, need PERLPATH in order to launch Perl36 if($ENV{'GSDLOS'} =~ m/windows/) {37 die "PERLPATH, which is required for Windows, is not set.\n" unless defined $ENV{'PERLPATH'};38 }39 35 } 40 36 … … 45 41 my $import_cmd = "import.pl -removeold $quoted_argv"; 46 42 if($ENV{'GSDLOS'} =~ m/windows/) { 47 $import_cmd = "$ENV{'PERLPATH'}\\Perl.exe -S $import_cmd"; 48 #$import_cmd = "perl -S $import_cmd"; 43 if($ENV{'PERLPATH'}) { 44 $import_cmd = "$ENV{'PERLPATH'}\\Perl.exe -S $import_cmd"; 45 } else { 46 $import_cmd = "perl -S $import_cmd"; 47 } 49 48 } 50 49 -
gsdl/trunk/bin/script/full-rebuild.pl
r19409 r19410 37 37 die "GSDLOS not set\n" unless defined $ENV{'GSDLOS'}; 38 38 unshift (@INC, "$ENV{'GSDLHOME'}/perllib"); 39 40 # for windows, need PERLPATH in order to launch Perl41 if($ENV{'GSDLOS'} =~ m/windows/) {42 die "PERLPATH, which is required for Windows, is not set.\n" unless defined $ENV{'PERLPATH'};43 }44 39 } 45 40 … … 109 104 110 105 my $launch_cmd = ""; 111 $launch_cmd = "$ENV{'PERLPATH'}\\Perl.exe -S " if($ENV{'GSDLOS'} =~ m/windows/); 106 if($ENV{'GSDLOS'} =~ m/windows/) { 107 if($ENV{'PERLPATH'}) { 108 $launch_cmd = "$ENV{'PERLPATH'}\\Perl.exe -S "; 109 } else { 110 $launch_cmd = "perl -S "; 111 } 112 } 112 113 113 114 print "\n"; -
gsdl/trunk/bin/script/incremental-buildcol.pl
r19409 r19410 35 35 die "GSDLOS not set\n" unless defined $ENV{'GSDLOS'}; 36 36 unshift (@INC, "$ENV{'GSDLHOME'}/perllib"); 37 38 # for windows, need PERLPATH in order to launch Perl39 if($ENV{'GSDLOS'} =~ m/windows/) {40 die "PERLPATH, which is required for Windows, is not set.\n" unless defined $ENV{'PERLPATH'};41 }42 37 } 43 38 … … 110 105 my $buildcol_cmd = "buildcol.pl"; 111 106 if($ENV{'GSDLOS'} =~ m/windows/) { 112 $buildcol_cmd = "$ENV{'PERLPATH'}\\Perl.exe -S $buildcol_cmd"; 113 #$buildcol_cmd = "perl -S $buildcol_cmd"; 107 if($ENV{'PERLPATH'}) { 108 $buildcol_cmd = "$ENV{'PERLPATH'}\\Perl.exe -S $buildcol_cmd"; 109 } else { 110 $buildcol_cmd = "perl -S $buildcol_cmd"; 111 } 114 112 } 115 113 -
gsdl/trunk/bin/script/incremental-import.pl
r19409 r19410 36 36 die "GSDLOS not set\n" unless defined $ENV{'GSDLOS'}; 37 37 unshift (@INC, "$ENV{'GSDLHOME'}/perllib"); 38 39 # for windows, need PERLPATH in order to launch Perl40 if($ENV{'GSDLOS'} =~ m/windows/) {41 die "PERLPATH, which is required for Windows, is not set.\n" unless defined $ENV{'PERLPATH'};42 }43 38 } 44 39 … … 113 108 my $import_cmd = "import.pl"; 114 109 if($ENV{'GSDLOS'} =~ m/windows/) { 115 $import_cmd = "$ENV{'PERLPATH'}\\Perl.exe -S $import_cmd"; 116 #$import_cmd = "perl -S $import_cmd"; 110 if($ENV{'PERLPATH'}) { 111 $import_cmd = "$ENV{'PERLPATH'}\\Perl.exe -S $import_cmd"; 112 } else { 113 $import_cmd = "perl -S $import_cmd"; 114 } 117 115 } 118 116 if (-e $archiveinf_doc) { -
gsdl/trunk/bin/script/incremental-rebuild.pl
r19409 r19410 37 37 die "GSDLOS not set\n" unless defined $ENV{'GSDLOS'}; 38 38 unshift (@INC, "$ENV{'GSDLHOME'}/perllib"); 39 40 # for windows, need PERLPATH in order to launch Perl41 if($ENV{'GSDLOS'} =~ m/windows/) {42 die "PERLPATH, which is required for Windows, is not set.\n" unless defined $ENV{'PERLPATH'};43 }44 39 } 45 40 … … 71 66 72 67 my $launch_cmd = ""; 73 $launch_cmd = "$ENV{'PERLPATH'}\\Perl.exe -S " if($ENV{'GSDLOS'} =~ m/windows/); 68 if($ENV{'GSDLOS'} =~ m/windows/) { 69 if($ENV{'PERLPATH'}) { 70 $launch_cmd = "$ENV{'PERLPATH'}\\Perl.exe -S "; 71 } else { 72 $launch_cmd = "perl -S "; 73 } 74 } 74 75 75 76 print "\n";
Note:
See TracChangeset
for help on using the changeset viewer.