Changeset 2117

Timestamp:

2001-03-05T18:00:10+13:00 (23 years ago)

Author:

jrm21

Message:

Tidied up a bit, error in args passed to pdf_to_text, etc.

File:

• trunk/gsdl/bin/script/gsConvert.pl (modified) (3 diffs)

trunk/gsdl/bin/script/gsConvert.pl

@@ -246 +246 @@
     # Attempt conversion to TEXT
     if (!$output_type || ($output_type =~ /text/i)) {
-    $success = &pdf_to_text($input_filename, $output_filestem);
+    $success = &pdf_to_text($dirname, $input_filename, $output_filestem);
     if ($success) {
         return "text";
@@ -420 +420 @@
     $cmd .= "pdftohtml.pl -F ";
     $cmd .= " \"$input_filename\" \"$output_filestem\"";
-
+    $!=0;
     if (system($cmd)!=0)
     {
-    print STDERR "Error executing $cmd: $!\n";
+    print STDERR "Error executing $cmd";
+    if ($!) {print STDERR ": $!";} 
+    print STDERR "\n";
     return 0;
     }
@@ -452 +454 @@
     ($dirname, $input_filename, $output_filestem) = @_;
 
-    $cmd = "pdftotext \"$input_filename\" > \"$output_filestem.text\"";
-    $cmd .= " 2> $output_filestem.err";
+    my $cmd = "pdftotext \"$input_filename\" > \"$output_filestem.text\"";
+    $cmd .= " 2> \"$output_filestem.err\"";
     
     if (system($cmd)!=0)