Changeset 10452 for trunk/gsdl/perllib/plugins/PDFPlug.pm

Timestamp:

2005-08-10T12:55:11+12:00 (19 years ago)

Author:

kjdon

Message:

added in allowimagesonly option for use with convert_to html (thanks to Doug Carter), and convert_to option has been added here to override the one in converttoplug

File:

• trunk/gsdl/perllib/plugins/PDFPlug.pm (modified) (3 diffs)

trunk/gsdl/perllib/plugins/PDFPlug.pm

@@ -34 +34 @@
 }
 
-my $arguments =
-    [ { 'name' => "process_exp",
+my $convert_to_list =
+    [ { 'name' => "auto",
+    'desc' => "{ConvertToPlug.convert_to.auto}" },
+      { 'name' => "html",
+    'desc' => "{ConvertToPlug.convert_to.html}" },
+      { 'name' => "text",
+    'desc' => "{ConvertToPlug.convert_to.text}" },
+      { 'name' => "pagedimg_jpg",
+    'desc' => "{ConvertToPlug.convert_to.pagedimg_jpg}"},
+      { 'name' => "pagedimg_gif",
+    'desc' => "{ConvertToPlug.convert_to.pagedimg_gif}"},
+      { 'name' => "pagedimg_png",
+    'desc' => "{ConvertToPlug.convert_to.pagedimg_png}"}, 
+      ];
+
+
+my $arguments = 
+      [
+       { 'name' => "convert_to",
+    'desc' => "{ConvertToPlug.convert_to}",
+    'type' => "enum",
+    'reqd' => "yes",
+    'list' => $convert_to_list, 
+    'deft' => "html" },  
+       { 'name' => "process_exp",
     'desc' => "{BasPlug.process_exp}",
     'type' => "regexp",
@@ -46 +69 @@
       { 'name' => "noimages",
     'desc' => "{PDFPlug.noimages}",
+    'type' => "flag" },
+      { 'name' => "allowimagesonly",
+    'desc' => "{PDFPlug.allowimagesonly}",
     'type' => "flag" },
       { 'name' => "complex",
@@ -88 +114 @@
     $self->{'convert_options'} .= " -pdf_nohidden" if $self->{"nohidden"};
     $self->{'convert_options'} .= " -pdf_ignore_images" if $self->{"noimages"};
+    $self->{'convert_options'} .= " -pdf_allow_images_only" if $self->{"allowimagesonly"};
 
     my $secondary_plugin_options = $self->{'secondary_plugin_options'};