Changeset 4744 for trunk/gsdl/perllib/plugins/DBPlug.pm
- Timestamp:
- 2003-06-20T14:22:34+12:00 (21 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/plugins/DBPlug.pm
r4429 r4744 44 44 } 45 45 46 my $arguments = [ { 'name' => "process_exp", 47 '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).", 48 'type' => "string", 49 'deft' => q^(?i)\.dbi$^, 50 'reqd' => "no" } , 51 { 'name' => "title_sub", 52 '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.", 53 'type' => "string", 54 'reqd' => "no" }]; 46 my $arguments = 47 [ { 'name' => "process_exp", 48 '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).", 49 'type' => "string", 50 'deft' => &get_default_process_exp(), 51 'reqd' => "no" } , 52 { 'name' => "title_sub", 53 '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.", 54 'type' => "string", 55 'deft' => "", 56 'reqd' => "no" }]; 55 57 56 58 my $options = { 'name' => "DBPlug", 57 58 59 59 'desc' => "Uses records from a database as documents.", 60 'inherits' => "yes", 61 'args' => $arguments }; 60 62 61 63 sub print_usage {
Note:
See TracChangeset
for help on using the changeset viewer.