Changeset 10526

Timestamp:

2005-08-18T08:53:14+12:00 (19 years ago)

Author:

chi

Message:

Modifications of passing the file pathname to the system command.

File:

• trunk/gsdl/bin/script/pdftoimg.pl (modified) (1 diff)

trunk/gsdl/bin/script/pdftoimg.pl

@@ -91 +91 @@
     #if ($ENV{'GSDLOS'} =~ /^windows$/);
     #Convert utility will convert the PDF to GIF Animation
+    my $output_filename = &util::filename_cat($output_filestem, $input_basename);
     if ($convert_to eq "gif") {
-    if ($ENV{'GSDLOS'} =~ /^windows$/){
-        $cmd .= " ".$input_filename." ".$output_filestem."\\".$input_basename."-%02d.".$convert_to;
-    } else {
-        $cmd .= " ".$input_filename." ".$output_filestem."/".$input_basename."-%02d.".$convert_to;
-    }
+    $cmd .= " \"$input_filename\" \"$output_filename-%02d.$convert_to\"";
     } else {
-    if ($ENV{'GSDLOS'} =~ /^windows$/){
-        $cmd .= " ".$input_filename." ".$output_filestem."\\".$input_basename.".".$convert_to;
-    } else {
-        $cmd .= " ".$input_filename." ".$output_filestem."/".$input_basename.".".$convert_to;
-    }
+    $cmd .= " \"$input_filename\" \"$output_filename.$convert_to\"";
     }