Changeset 4873 for trunk/gsdl/perllib/plugins/PSPlug.pm
- Timestamp:
- 2003-07-03T15:59:04+12:00 (21 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/plugins/PSPlug.pm
r4785 r4873 37 37 my $arguments = 38 38 [ { 'name' => "process_exp", 39 '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 'desc' => "{BasPlug.process_exp}", 40 40 'type' => "string", 41 41 'deft' => &get_default_process_exp(), 42 42 'reqd' => "no" }, 43 43 { 'name' => "block_exp", 44 '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.",44 'desc' => "{BasPlug.block_exp}", 45 45 'type' => 'string', 46 46 'deft' => &get_default_block_exp() }, 47 47 { 'name' => "extract_date", 48 'desc' => " Extract date from PS header.",48 'desc' => "{PSPlug.extract_date}", 49 49 'type' => "flag" }, 50 50 { 'name' => "extract_pages", 51 'desc' => " Extract pages from PS header.",51 'desc' => "{PSPlug.extract_pages}", 52 52 'type' => "flag" }, 53 53 { 'name' => "extract_title", 54 'desc' => " Extract title from PS header.",54 'desc' => "{PSPlug.extract_title}", 55 55 'type' => "flag" } ]; 56 56 57 57 my $options = { 'name' => "PSPlug", 58 'desc' => "This might look VERY similar to the PDF plugin.",58 'desc' => "This is a \"poor man's\" ps to text converter. If you are serious, consider using the PRESCRIPT package, which is available for download at http://www.nzdl.org/html/software.html", 59 59 'inherits' => "yes", 60 60 'args' => $arguments }; … … 77 77 "allow_extra_options")) { 78 78 print STDERR "\nIncorrect options passed to HTMLPlug, check your collect.cfg configuration file\n"; 79 $self->print_txt_usage( );79 $self->print_txt_usage(""); # Use default resource bundle 80 80 die "\n"; 81 81 }
Note:
See TracChangeset
for help on using the changeset viewer.