Changeset 3540 for trunk/gsdl/perllib/plugins/XMLPlug.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/XMLPlug.pm (modified) (2 diffs)

trunk/gsdl/perllib/plugins/XMLPlug.pm

@@ -35 +35 @@
 
 use XML::Parser;
+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)\.xml$^,
+                          'reqd' => "no" } ];
+
+my $options = { 'name'     => "XMLPlug",
+                 'desc'     => "",
+                     'inherits' => "yes",
+                     'args'     => $arguments };
+
 
 my ($self);
@@ -43 +54 @@
     $self = new BasPlug ($class, @_);
 
+
+    # 14-05-02 To allow for proper inheritance of arguments - John Thompson
+    my $option_list = $self->{'option_list'};
+    push( @{$option_list}, $options );
+    
     my $parser = new XML::Parser('Style' => 'Stream',
                  'Handlers' => {'Char' => \&Char,