Changeset 15873 for gsdl/trunk
- Timestamp:
- 2008-06-05T09:35:29+12:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/plugin.pm
r14933 r15873 32 32 require util; 33 33 use gsprintf 'gsprintf'; 34 35 # mapping from old plugin names to new ones for backwards compatibility 36 # can remove at sometime in future when we no longer want to support old xxPlug plugins 37 my $plugin_name_map = { 38 'ArcPlug' => 'ArchivesInfPlugin', 39 'RecPlug' => 'DirectoryPlugin', 40 'TEXTPlug' => 'TextPlugin', 41 'EMAILPlug' => 'EmailPlugin', 42 'SRCPlug' => 'SourceCodePlugin', 43 'NULPlug' => 'NulPlugin', 44 'W3ImgPlug' => 'W3ImagePlugin', 45 'PagedImgPlug' => 'PagedImagePlugin' 46 }; 34 47 35 48 # global variables … … 44 57 my ($verbosity, $outhandle, $failhandle, $globaloptions); 45 58 46 59 sub get_valid_pluginname { 60 my ($pluginname) = @_; 61 my $valid_name = $pluginname; 62 if (defined $plugin_name_map->{$pluginname}) { 63 $valid_name = $plugin_name_map->{$pluginname}; 64 } elsif ($pluginname =~ /Plug$/) { 65 $valid_name =~ s/Plug/Plugin/; 66 67 } 68 return $valid_name; 69 } 47 70 sub load_plugin_require 48 71 { … … 102 125 sub load_plugin_for_info { 103 126 my ($pluginname) = shift @_; 104 127 $pluginname = &get_valid_pluginname($pluginname); 105 128 load_plugin_require($pluginname); 106 129 … … 134 157 my $pluginname = shift @$pluginoptions; 135 158 next unless defined $pluginname; 136 159 $pluginname = &get_valid_pluginname($pluginname); 137 160 load_plugin_require($pluginname); 138 161
Note:
See TracChangeset
for help on using the changeset viewer.