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

trunk/gsdl/perllib/plugins/TEXTPlug.pm

@@ -39 +39 @@
 }
 
-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)\.te?xt$^,
-                          'reqd' => "no" } ,
-                        { 'name' => "title_sub",
-                          'desc' => "Substitution expression to modify string stored as Title. Used by, for example, PSPlug to remove \"Page 1\" etc from text used as the title.",
-                          'type' => "string",
-                          'reqd' => "no" }];
+my $arguments =
+    [ { 'name' => "process_exp",
+    'desc' => "A perl regular expression to match against filenames. Matching filenames will be processed by this plugin. For example, using '(?i).html?\$' matches all documents ending in .htm or .html (case-insensitive).",
+    'type' => "string",
+    'deft' => &get_default_process_exp(),
+    'reqd' => "no" } ,
+      { 'name' => "title_sub",
+    'desc' => "Substitution expression to modify string stored as Title. Used by, for example, PSPlug to remove \"Page 1\" etc from text used as the title.",
+    'type' => "string",
+    'deft' => "",
+    'reqd' => "no" } ];
 
 my $options = { 'name'     => "TEXTPlug",
-                 'desc'     => "Creates simple single-level document. Adds Title metadata of first line of text (up to 100 characters long).",
-                     'inherits' => "yes",
-                     'args'     => $arguments };
+        'desc'     => "Creates simple single-level document. Adds Title metadata of first line of text (up to 100 characters long).",
+        'inherits' => "yes",
+        'args'     => $arguments };
 
 sub print_usage {
@@ -68 +70 @@
     my $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 );
+    # 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(\@_,