Changeset 4844
- Timestamp:
- 2003-07-01T15:06:12+12:00 (21 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/plugins/DBPlug.pm
r4785 r4844 49 49 'type' => "string", 50 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 51 'reqd' => "no" }]; 57 52 … … 61 56 'args' => $arguments }; 62 57 63 # sub print_usage {64 # print STDERR "\n usage: plugin DBPlug [options]\n\n";65 # print STDERR " options:\n";66 # print STDERR "\n";67 # }68 69 58 sub new { 70 59 my ($class) = @_; … … 74 63 push( @{$option_list}, $options ); 75 64 76 if (!parsargv::parse(\@_, 77 q^title_sub/.*/^, \$self->{'title_sub'}, 78 "allow_extra_options")) { 79 print STDERR "\nIncorrect options passed to DBPlug, check your collect.cfg configuration file\n"; 80 $self->print_txt_usage(); 81 die "\n"; 82 } 65 # no plugin-specific options 66 # if (!parsargv::parse(\@_, "allow_extra_options")) { 67 # $self->print_txt_usage(); 68 # die "\n"; 69 # } 83 70 84 71
Note:
See TracChangeset
for help on using the changeset viewer.