Changeset 3540 for trunk/gsdl/perllib/plugins/PSPlug.pm

Timestamp:

2002-11-18T17:43:56+13:00 (22 years ago)

Author:

kjdon

Message:

added John T's changes into CVS - added info to enable retrieval of usage info in xml

File:

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

trunk/gsdl/perllib/plugins/PSPlug.pm

@@ -24 +24 @@
 ###########################################################################
 
+# 12/05/02 Added usage datastructure - John Thompson
+
 package PSPlug;
 
@@ -33 +35 @@
 }
 
+my $arguments = [ { 'name' => "process_exp",
+            'desc' => "A perl regular expression to match against filenames. Matching filenames will be processed by this plugin. Each plugin has its own default process_exp. e.g HTMLPlug defaults to '(?i)\.html?\$' i.e. all documents ending in .htm or .html (case-insensitive).",
+            'type' => "string",
+            'deft' => q^(?i)\.ps$^,
+            'reqd' => "no" },
+          { 'name' => "block_exp",
+            'desc' => "Files matching this regular expression will be blocked from being passed to any later plugins in the list. This has no real effect other than to prevent lots of warning messages about input files you don't care about. Each plugin might have a default block_exp. e.g. by default HTMLPlug blocks any files with .gif, .jpg, .jpeg, .png or .css file extensions.",
+            'type' => 'string',
+            'deft' =>  q^(?i)\.(eps)$^ }
+          ];
+
+my $options = { 'name'     => "PSPlug",
+        'desc'     => "This might look VERY similar to the PDF plugin.",
+        'inherits' => "yes",
+        'args'     => $arguments };
+
 sub new {
     my $class = shift (@_);
@@ -39 +57 @@
 
     my $self = new ConvertToPlug ($class, "-convert_to", "text", @_ , "-title_sub", '^(Page\s+\d+)?(\s*1\s+)?');
+
+    # 14-05-02 To allow for proper inheritance of arguments - John Thompson
+    my $option_list = $self->{'option_list'};
+    push( @{$option_list}, $options );
     
     if (!parsargv::parse(\@_,