Changeset 4744 for trunk/gsdl/perllib/plugins/SplitPlug.pm

Timestamp:

2003-06-20T14:22:34+12:00 (21 years ago)

Author:

mdewsnip

Message:

Tidied up and structures (representing the options of the plugin) in preparation for removing the print_usage() routines.

File:

• trunk/gsdl/perllib/plugins/SplitPlug.pm (modified) (1 diff)

trunk/gsdl/perllib/plugins/SplitPlug.pm

@@ -49 +49 @@
 }
 
+my $arguments =
+    [ { 'name' => "split_exp",
+    'desc' => "A perl regular expression to split input files into segments.",
+    'type' => "string",
+    'deft' => &get_default_split_exp(),
+    'reqd' => "no" }
+      ];
+
 my $options = { 'name'     => "SplitPlug",
-                 'desc'     => "SplitPlug is a plugin for splitting input files into segments that will then be individually processed. This plugin should not be called directly.  Instead, if you need to process input files that contain several documents, you should write a plugin with a process function that will handle one of those documents and have it inherit from SplitPlug.  See ReferPlug for an example.",
-                     'inherits' => "yes" };
+        'desc'     => "SplitPlug is a plugin for splitting input files into segments that will then be individually processed. This plugin should not be called directly.  Instead, if you need to process input files that contain several documents, you should write a plugin with a process function that will handle one of those documents and have it inherit from SplitPlug.  See ReferPlug for an example.",
+        'inherits' => "yes",
+            'args'     => $arguments };