Changeset 27758 for main/trunk/greenstone2/bin/script/pdfpstoimg.pl

Timestamp:

2013-07-05T14:53:19+12:00 (11 years ago)

Author:

ak19

Message:

Using FileUtils instead of deprecated util subroutines. Also a typo fix in FileUtils

File:

• main/trunk/greenstone2/bin/script/pdfpstoimg.pl (modified) (4 diffs)

main/trunk/greenstone2/bin/script/pdfpstoimg.pl

@@ -39 +39 @@
 use parsargv;
 use util;
+use FileUtils;
 use Cwd;
 use File::Basename;
@@ -74 +75 @@
     # test that the directories exist to create the output file, or
     # we should exit immediately. 
-    &util::mk_dir($output_filestem) if (!-e $output_filestem);
+    &FileUtils::makeDirectory($output_filestem) if (!-e $output_filestem);
         
     my @dir = split (/(\/|\\)/, $input_filename);
@@ -90 +91 @@
     $cmd = "\"".&util::get_perl_exec()."\" -S gs-magick.pl convert";
 
-    my $output_filename = &util::filename_cat($output_filestem, $input_basename);
+    my $output_filename = &FileUtils::filenameConcatenate($output_filestem, $input_basename);
     if ($convert_to eq "gif") {
     $cmd .= " \"$input_filename\" \"$output_filename-%02d.$convert_to\"";
@@ -104 +105 @@
     print STDERR "Convert error for $input_filename $!\n";
     # leave these for gsConvert.pl...
-    #&util::rm("$output_filestem.text") if (-e "$output_filestem.text");
-    #&util::rm("$output_filestem.err") if (-e "$output_filestem.err");
+    #&FileUtils::removeFiles("$output_filestem.text") if (-e "$output_filestem.text");
+    #&FileUtils::removeFiles("$output_filestem.err") if (-e "$output_filestem.err");
     return 1;
     } else {