- Timestamp:
- 2017-10-06T18:55:29+13:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/plugins/UnknownConverterPlugin.pm
r32026 r32028 118 118 # It's up to the user to do the (escaped) double-quoting around paths. 119 119 my $cmd = $self->{'exec_cmd'}; 120 $cmd =~ s@%GSDL3SRCHOME@$ENV{'GSDL3SRCHOME'}@g; 121 $cmd =~ s@%GSDLHOME@$ENV{'GSDLHOME'}@g; 122 $cmd =~ s@%GSDL3HOME@$ENV{'GSDL3HOME'}@g; 123 $self->{'exec_cmd'} = $cmd; 120 if($cmd) { 121 $cmd =~ s@%%GSDL3SRCHOME@$ENV{'GSDL3SRCHOME'}@g; 122 $cmd =~ s@%%GSDLHOME@$ENV{'GSDLHOME'}@g; 123 $cmd =~ s@%%GSDL3HOME@$ENV{'GSDL3HOME'}@g; 124 $self->{'exec_cmd'} = $cmd; 125 } 124 126 125 127 my $secondary_plugin_name = $self->{'convert_to_plugin'}; … … 256 258 # replace remaining occurrences of placeholders in cmd string, the ones that change per input file 257 259 #$cmd =~ s@\"@\\"@g; 258 $cmd =~ s@% INPUT_FILE@\"$tmp_filename\"@g; # refer to the softlink260 $cmd =~ s@%%INPUT_FILE@\"$tmp_filename\"@g; # refer to the softlink 259 261 if(defined $output_dirname) { 260 $cmd =~ s@% OUTPUT@\"$output_dirname\"@g;262 $cmd =~ s@%%OUTPUT@\"$output_dirname\"@g; 261 263 } else { 262 $cmd =~ s@% OUTPUT@\"$output_filename\"@g;264 $cmd =~ s@%%OUTPUT@\"$output_filename\"@g; 263 265 } 264 266
Note:
See TracChangeset
for help on using the changeset viewer.