Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/gsdl/perllib/plugins/RecPlug.pm

    r3540 r4744  
    106106use XML::Parser;
    107107
    108 my $arguments = [ { 'name' => "block_exp",
    109             '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.",
    110             'type' => "string",
    111             'deft' => "CVS",
    112             'reqd' => "no" },
    113           { 'name' => "use_metadata_files",
    114             'desc' => "Read metadata from metadata XML files.",
    115             'type' => "flag",
    116             'reqd' => "no" } ];
     108my $arguments =
     109    [ { 'name' => "block_exp",
     110    '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.",
     111    'type' => "string",
     112    'deft' => &get_default_block_exp(),
     113    'reqd' => "no" },
     114      { 'name' => "use_metadata_files",
     115    'desc' => "Read metadata from metadata XML files.",
     116    'type' => "flag",
     117    'reqd' => "no" } ];
    117118
    118119my $options = { 'name'     => "RecPlug",
    119         'desc'     => "RecPlug is a plugin which recurses through directories processing
    120 # each file it finds. For detailed comments edit <GSDLHOME>/perllib/plugins/RecPlug.pm .",
    121             'inherits' => "yes",
    122             'args'     => $arguments };
     120        'desc'     => "RecPlug is a plugin which recurses through directories processing each file it finds.",
     121        'inherits' => "yes",
     122        'args'     => $arguments };
    123123
    124124sub print_usage {
Note: See TracChangeset for help on using the changeset viewer.