- Timestamp:
- 2009-05-12T17:29:56+12:00 (15 years ago)
- Location:
- gsdl/trunk/bin/script
- Files:
-
- 6 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/bin/script/full-buildcol.pl
r18470 r19409 30 30 # Runs: buildcol.pl -removeold ... 31 31 32 BEGIN { 33 die "GSDLOS not set\n" unless defined $ENV{'GSDLOS'}; 34 # for windows, need PERLPATH in order to launch Perl 35 if($ENV{'GSDLOS'} =~ m/windows/) { 36 die "PERLPATH, which is required for Windows, is not set.\n" unless defined $ENV{'PERLPATH'}; 37 } 38 } 32 39 33 40 use strict; … … 37 44 38 45 my $buildcol_cmd = "buildcol.pl -removeold $quoted_argv"; 46 if($ENV{'GSDLOS'} =~ m/windows/) { 47 $buildcol_cmd = "$ENV{'PERLPATH'}\\Perl.exe -S $buildcol_cmd"; 48 #$buildcol_cmd = "perl -S $buildcol_cmd"; 49 } 39 50 40 51 my $buildcol_status = system($buildcol_cmd)/256; -
gsdl/trunk/bin/script/full-import.pl
r18470 r19409 31 31 32 32 33 BEGIN { 34 die "GSDLOS not set\n" unless defined $ENV{'GSDLOS'}; 35 # for windows, need PERLPATH in order to launch Perl 36 if($ENV{'GSDLOS'} =~ m/windows/) { 37 die "PERLPATH, which is required for Windows, is not set.\n" unless defined $ENV{'PERLPATH'}; 38 } 39 } 40 33 41 use strict; 34 42 35 43 my $quoted_argv = join(" ", map { "\"$_\"" } @ARGV); 36 44 37 38 45 my $import_cmd = "import.pl -removeold $quoted_argv"; 46 if($ENV{'GSDLOS'} =~ m/windows/) { 47 $import_cmd = "$ENV{'PERLPATH'}\\Perl.exe -S $import_cmd"; 48 #$import_cmd = "perl -S $import_cmd"; 49 } 39 50 40 51 my $import_status = system($import_cmd)/256; -
gsdl/trunk/bin/script/full-rebuild.pl
r18529 r19409 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 Perl 41 if($ENV{'GSDLOS'} =~ m/windows/) { 42 die "PERLPATH, which is required for Windows, is not set.\n" unless defined $ENV{'PERLPATH'}; 43 } 39 44 } 40 45 … … 102 107 103 108 my $final_status = 0; 109 110 my $launch_cmd = ""; 111 $launch_cmd = "$ENV{'PERLPATH'}\\Perl.exe -S " if($ENV{'GSDLOS'} =~ m/windows/); 104 112 105 113 print "\n"; … … 107 115 print "* Running Import Stage\n"; 108 116 print "************************\n"; 109 110 my $import_cmd = "full-import.pl $quoted_argv \"$collect\"";111 117 118 my $import_cmd = $launch_cmd . "full-import.pl $quoted_argv \"$collect\""; 119 112 120 my $import_status = system($import_cmd)/256; 113 121 … … 118 126 print "************************\n"; 119 127 120 my $buildcol_cmd = "full-buildcol.pl $quoted_argv \"$collect\"";128 my $buildcol_cmd = $launch_cmd . "full-buildcol.pl $quoted_argv \"$collect\""; 121 129 my $buildcol_status = system($buildcol_cmd)/256; 122 130 if ($buildcol_status == 0) { -
gsdl/trunk/bin/script/incremental-buildcol.pl
r18511 r19409 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 Perl 39 if($ENV{'GSDLOS'} =~ m/windows/) { 40 die "PERLPATH, which is required for Windows, is not set.\n" unless defined $ENV{'PERLPATH'}; 41 } 37 42 } 38 43 … … 104 109 105 110 my $buildcol_cmd = "buildcol.pl"; 111 if($ENV{'GSDLOS'} =~ m/windows/) { 112 $buildcol_cmd = "$ENV{'PERLPATH'}\\Perl.exe -S $buildcol_cmd"; 113 #$buildcol_cmd = "perl -S $buildcol_cmd"; 114 } 106 115 107 116 if (-e $build_cfg_filename) { -
gsdl/trunk/bin/script/incremental-import.pl
r18660 r19409 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 Perl 40 if($ENV{'GSDLOS'} =~ m/windows/) { 41 die "PERLPATH, which is required for Windows, is not set.\n" unless defined $ENV{'PERLPATH'}; 42 } 38 43 } 39 44 … … 107 112 108 113 my $import_cmd = "import.pl"; 114 if($ENV{'GSDLOS'} =~ m/windows/) { 115 $import_cmd = "$ENV{'PERLPATH'}\\Perl.exe -S $import_cmd"; 116 #$import_cmd = "perl -S $import_cmd"; 117 } 109 118 if (-e $archiveinf_doc) { 110 119 $import_cmd .= " -incremental"; -
gsdl/trunk/bin/script/incremental-rebuild.pl
r18510 r19409 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 Perl 41 if($ENV{'GSDLOS'} =~ m/windows/) { 42 die "PERLPATH, which is required for Windows, is not set.\n" unless defined $ENV{'PERLPATH'}; 43 } 39 44 } 40 45 … … 65 70 my $final_status = 0; 66 71 72 my $launch_cmd = ""; 73 $launch_cmd = "$ENV{'PERLPATH'}\\Perl.exe -S " if($ENV{'GSDLOS'} =~ m/windows/); 74 67 75 print "\n"; 68 76 print "************************\n"; … … 70 78 print "************************\n"; 71 79 72 my $import_cmd = "incremental-import.pl $quoted_argv \"$collect\"";80 my $import_cmd = $launch_cmd . "incremental-import.pl $quoted_argv \"$collect\""; 73 81 74 82 my $import_status = system($import_cmd)/256; … … 81 89 82 90 83 my $buildcol_cmd = "incremental-buildcol.pl $quoted_argv \"$collect\"";91 my $buildcol_cmd = $launch_cmd . "incremental-buildcol.pl $quoted_argv \"$collect\""; 84 92 my $buildcol_status = system($buildcol_cmd)/256; 85 93 if ($buildcol_status != 0) {
Note:
See TracChangeset
for help on using the changeset viewer.