Changeset 4744 for trunk/gsdl/perllib/plugins/WordPlug.pm
- Timestamp:
- 2003-06-20T14:22:34+12:00 (21 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/plugins/WordPlug.pm
r3540 r4744 34 34 } 35 35 36 my $arguments = [ { 'name' => "process_exp", 37 '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).", 38 'type' => "string", 39 'deft' => q^(?i)\.doc$^, 40 'reqd' => "no" } ]; 36 my $arguments = 37 [ { 'name' => "process_exp", 38 '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).", 39 'type' => "string", 40 'deft' => &get_default_process_exp(), 41 'reqd' => "no" } ]; 41 42 42 43 my $options = { 'name' => "WordPlug", 43 'desc' => "",44 45 44 'desc' => "A plugin for importing Microsoft Word documents.", 45 'inherits' => "yes", 46 'args' => $arguments }; 46 47 47 48 sub new { … … 50 51 my $self = new ConvertToPlug ($class, @_); 51 52 52 53 54 53 # 14-05-02 To allow for proper inheritance of arguments - John Thompson 54 my $option_list = $self->{'option_list'}; 55 push( @{$option_list}, $options ); 55 56 56 57 # wvWare will always produce html files encoded as utf-8
Note:
See TracChangeset
for help on using the changeset viewer.