Changeset 5106
- Timestamp:
- 2003-08-07T13:53:14+12:00 (21 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/Kea-1.1.4/Kea
r5016 r5106 82 82 if (system("which java >/dev/null 2>/dev/null")==0) { 83 83 $java_exec=`which java`; 84 chomp $java_exec; 84 85 } else { 85 86 $java_exec="$java_home/bin/java"; … … 94 95 # Parse command line options 95 96 use Getopt::Std; 96 my$opt_d=0; # debug option97 local $opt_d=0; # debug option 97 98 getopts("dtN:E:C:F:K:L:M:S:"); 98 99 … … 222 223 $file = $ARGV[$f]; 223 224 $temp = "$data/$f"; 225 $temp =~ s@//@/@g; 224 226 $original_filename{$temp} = $file; 225 227 226 228 # copy the file to the data directory & coerce into a clause file 227 if ($file =~ /.*\.clauses/ ) {228 `cp $file $temp.clauses`;229 if ($file =~ /.*\.clauses/i) { 230 system("cp","$file","$temp.clauses"); 229 231 } else { 230 if ($file =~ /.*\.te?xt/ ) {231 `cp $file $temp.txt`;232 if ($file =~ /.*\.te?xt/i) { 233 system("cp","$file","$temp.txt"); 232 234 } elsif ($file =~ /.*\.html?/i) { 233 `cp $file $temp.html`;235 system("cp", "$file", "$temp.html"); 234 236 `$perl_command $gsdlhome/perllib/Kea-1.1.4/convert-html-to-text.pl $temp.html > $temp.txt`; 235 237 } elsif ($file =~ /.*\.cstr/) { … … 290 292 # open start the new document 291 293 ($doc) = $line =~ /Current document: (.*)\.clauses$/; 294 $doc =~ s@//@/@g; 292 295 $document = $original_filename{$doc}; 293 296 $document =~ s/\.[^\.]+$//;
Note:
See TracChangeset
for help on using the changeset viewer.