Changeset 27758 for main/trunk/greenstone2/bin/script/pdfpstoimg.pl
- Timestamp:
- 2013-07-05T14:53:19+12:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/bin/script/pdfpstoimg.pl
r25994 r27758 39 39 use parsargv; 40 40 use util; 41 use FileUtils; 41 42 use Cwd; 42 43 use File::Basename; … … 74 75 # test that the directories exist to create the output file, or 75 76 # we should exit immediately. 76 & util::mk_dir($output_filestem) if (!-e $output_filestem);77 &FileUtils::makeDirectory($output_filestem) if (!-e $output_filestem); 77 78 78 79 my @dir = split (/(\/|\\)/, $input_filename); … … 90 91 $cmd = "\"".&util::get_perl_exec()."\" -S gs-magick.pl convert"; 91 92 92 my $output_filename = & util::filename_cat($output_filestem, $input_basename);93 my $output_filename = &FileUtils::filenameConcatenate($output_filestem, $input_basename); 93 94 if ($convert_to eq "gif") { 94 95 $cmd .= " \"$input_filename\" \"$output_filename-%02d.$convert_to\""; … … 104 105 print STDERR "Convert error for $input_filename $!\n"; 105 106 # leave these for gsConvert.pl... 106 #& util::rm("$output_filestem.text") if (-e "$output_filestem.text");107 #& util::rm("$output_filestem.err") if (-e "$output_filestem.err");107 #&FileUtils::removeFiles("$output_filestem.text") if (-e "$output_filestem.text"); 108 #&FileUtils::removeFiles("$output_filestem.err") if (-e "$output_filestem.err"); 108 109 return 1; 109 110 } else {
Note:
See TracChangeset
for help on using the changeset viewer.