Changeset 10536

Timestamp:

2005-08-19T12:05:00+12:00 (19 years ago)

Author:

chi

Message:

Modification of adding pagedimg types of conversion for PS documents. So now PS documents can be converted to TEXT, PAGEDIMG_JPG, PAGEDIMG_GIF, PAGEDIMG_GIF types.

File:

• trunk/gsdl/perllib/plugins/PSPlug.pm (modified) (4 diffs)

trunk/gsdl/perllib/plugins/PSPlug.pm

@@ -38 +38 @@
 }
 
+my $convert_to_list =
+    [ { 'name' => "auto",
+    'desc' => "{ConvertToPlug.convert_to.auto}" },
+      { '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' => "process_exp",
+    [ { '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",
@@ -69 +88 @@
     push(@$pluginlist, $class);
 
-    push(@$inputargs,"-convert_to");
-    push(@$inputargs,"text");
+    #push(@$inputargs,"-convert_to");
+    #push(@$inputargs,"text");
     push(@$inputargs,"-title_sub");
     push(@$inputargs,'^(Page\s+\d+)?(\s*1\s+)?');
@@ -80 +99 @@
 
     my $secondary_plugin_options = $self->{'secondary_plugin_options'};
+
     if (!defined $secondary_plugin_options->{'TEXTPlug'}) {
     $secondary_plugin_options->{'TEXTPlug'} = [];
@@ -85 +105 @@
 
     my $text_options = $secondary_plugin_options->{'TEXTPlug'};
-   
+
+    if (defined $self->{'convert_to'} && $self->{'convert_to'} =~ /pagedimg.*/i) {
+    if (!defined $secondary_plugin_options->{'PagedImgPlug'}){
+        $secondary_plugin_options->{'PagedImgPlug'} = [];
+        my $pagedimg_options = $secondary_plugin_options->{'PagedImgPlug'}; 
+        push(@$pagedimg_options, "-title_sub", '^(Page\s+\d+)?(\s*1\s+)?');
+    }
+    }
     # following title_sub removes "Page 1" added by ps2ascii, and a leading
     # "1", which is often the page number at the top of the page. Bad Luck