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

Timestamp:

2002-11-18T17:43:56+13:00 (21 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/WordPlug.pm (modified) (3 diffs)

trunk/gsdl/perllib/plugins/WordPlug.pm

@@ -24 +24 @@
 ###########################################################################
 
+# 12/05/02 Added usage datastructure - John Thompson
+
 package WordPlug;
 
@@ -32 +34 @@
 }
 
+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)\.doc$^,
+                          'reqd' => "no" } ];
+
+my $options = { 'name'     => "WordPlug",
+                 'desc'     => "",
+                     'inherits' => "yes",
+                     'args'     => $arguments };
+
 sub new {
     my $class = shift (@_);
 
     my $self = new ConvertToPlug ($class, @_);
+
+     # 14-05-02 To allow for proper inheritance of arguments - John Thompson
+     my $option_list = $self->{'option_list'};
+     push( @{$option_list}, $options );
 
     # wvWare will always produce html files encoded as utf-8
@@ -57 +74 @@
 
     my $outhandle = $self->{'outhandle'};    
-    print $outhandle "WordPlug: passing $_[3] on to $self->{'converted_to'}Plug\n"
+    print $outhandle "WordPlug: passing $_[3] on to $self->{'converted_to'}Plug\n" 
     if $self->{'verbosity'} > 1;