Changeset 17328

Timestamp:

2008-09-18T14:08:29+12:00 (16 years ago)

Author:

kjdon

Message:

tidied up this file a bit, and changed all pdf help bits to pdf/ps help. This is a result of the merge of pdftoimg.pl and pstoimg.pl. Basically only the output statements have changed, the code was pretty much all the same

File:

• gsdl/trunk/bin/script/pdfpstoimg.pl (modified) (6 diffs)

gsdl/trunk/bin/script/pdfpstoimg.pl

@@ -4 +4 @@
 ###########################################################################
 #
-# pdftoimg.pl -- convert PDF documents to various types of Image format
+# pdfpstoimg.pl -- convert PDF or PS documents to various types of Image format
 #
 # A component of the Greenstone digital library software
@@ -27 +27 @@
 #
 ###########################################################################
-# pdftoimg.pl is a wrapper for running convert utility which converts
-# PDF documents to various types of image (e.g. PNG, GIF, JPEG format, 
-# Then use PagedImgPlug to deal with the the images
+# pdfpstoimg.pl is a wrapper for running the ImageMagick 'convert' utility 
+# which converts PDF and PS documents to various types of image (e.g. PNG, 
+# GIF, JPEG format). We then create an item file to join the images together
+# into a document. The item file will be processed by PagedImagePlugin
 
 BEGIN {
@@ -39 +40 @@
 use util;
 use Cwd;
-use File::Basename
-;
+use File::Basename;
+
 sub print_usage {
-    # note - we don't actually ever use most of these options...
     print STDERR  
-    ("pdftoimg.pl wrapper for pdftoimg.\n",
-     "Usage: pdftoimg [options] <PDF-file> <output>>\n",
+    ("pdfpstoimg.pl wrapper for converting PDF or PS files to a series of images.\n",
+     "Usage: pdfpstoimg.pl [options] <PDF/PS-file> <output-filestem>>\n",
      "Options:\n",
-     "\t-convert_to\toutput image type for the PDF\n"
+     "\t-convert_to\toutput image type (gif, jpg, png) \n"
      );
     exit (1);
@@ -64 +64 @@
     }
     
-    # Make sure the input file exists and can be opened for reading
+    # Make sure the user has specified both input and output files
     if (scalar(@ARGV) != 2) {
     print_usage();
@@ -73 +73 @@
     
     # test that the directories exist to create the output file, or
-    # we should exit immediately. (File:: is included by util.pm)
+    # we should exit immediately. 
     &util::mk_dir($output_filestem) if (!-e $output_filestem);
         
     my @dir = split (/(\/|\\)/, $input_filename);
     my $input_basename = pop(@dir);
-    $input_basename =~ s/\.pdf//i;
+    $input_basename =~ s/\.(pdf|ps)$//i;
     my $dir = join ("", @dir);
 
@@ -89 +89 @@
     # that the PATH is set up correctly.
     $cmd = "convert";
-    #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") {