Changeset 24362 for main/trunk/greenstone2/bin/script/incremental-import.pl
- Timestamp:
- 2011-08-03T21:17:30+12:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/bin/script/incremental-import.pl
r24192 r24362 31 31 32 32 33 34 33 BEGIN { 35 34 die "GSDLHOME not set\n" unless defined $ENV{'GSDLHOME'}; … … 38 37 } 39 38 40 41 39 use strict; 42 43 use Config; # for getting the perlpath in the recommended way44 40 use dbutil; 45 41 use util; … … 60 56 exit(-1); 61 57 } 62 63 58 64 59 my $collection = pop @argv; … … 129 124 my $quoted_argv = join(" ", map { "\"$_\"" } @filtered_argv); 130 125 131 132 my $import_cmd = "import.pl";133 if($ENV{'PERLPATH'}) {134 126 # need to ensure that the path to perl is quoted (in case there's spaces in it) 135 if($ENV{'GSDLOS'} =~ m/windows/) { 136 $import_cmd = "\"$ENV{'PERLPATH'}\\Perl.exe\" -S $import_cmd"; 137 } else { 138 $import_cmd = "\"$ENV{'PERLPATH'}/perl\" -S $import_cmd"; 139 } 140 } else { 141 #Config{perlpath}, like $^X, is a special variable containing the full path to the current perl executable we are in 142 $import_cmd = "\"$Config{perlpath}\" -S $import_cmd"; 143 } 127 my $import_cmd = "\"".&util::get_perl_exec()."\" -S import.pl"; 144 128 145 129 if (defined $manifest) {
Note:
See TracChangeset
for help on using the changeset viewer.