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

trunk/gsdl/perllib/plugins/RecPlug.pm

@@ -106 +106 @@
 use XML::Parser;
 
+my $arguments = [ { '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' => "CVS",
+            'reqd' => "no" },
+          { 'name' => "use_metadata_files",
+            'desc' => "Read metadata from metadata XML files.",
+            'type' => "flag",
+            'reqd' => "no" } ];
+
+my $options = { 'name'     => "RecPlug",
+        'desc'     => "RecPlug is a plugin which recurses through directories processing
+# each file it finds. For detailed comments edit <GSDLHOME>/perllib/plugins/RecPlug.pm .",
+            'inherits' => "yes",
+            'args'     => $arguments };
+
 sub print_usage {
     my ($plugin_name) = @_;
@@ -124 +140 @@
     $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 );
+
     if (!parsargv::parse(\@_,
              q^use_metadata_files^, \$self->{'use_metadata_files'},