Changeset 15873

Timestamp:

2008-06-05T09:35:29+12:00 (16 years ago)

Author:

kjdon

Message:

plugin overhaul: all the plugins have new names. Have added a mapping between old names and new names so that if we are building an old collection that specifies xxPlug then we will load up the appropriate new ones

File:

• gsdl/trunk/perllib/plugin.pm (modified) (4 diffs)

gsdl/trunk/perllib/plugin.pm

@@ -32 +32 @@
 require util;
 use gsprintf 'gsprintf';
+
+# mapping from old plugin names to new ones for backwards compatibility
+# can remove at sometime in future when we no longer want to support old xxPlug plugins
+my $plugin_name_map = {
+    'ArcPlug' => 'ArchivesInfPlugin',
+    'RecPlug' => 'DirectoryPlugin',
+    'TEXTPlug' => 'TextPlugin',
+    'EMAILPlug' => 'EmailPlugin',
+    'SRCPlug' => 'SourceCodePlugin',
+    'NULPlug' => 'NulPlugin',
+    'W3ImgPlug' => 'W3ImagePlugin',
+    'PagedImgPlug' => 'PagedImagePlugin'
+    };
 
 # global variables
@@ -44 +57 @@
 my ($verbosity, $outhandle, $failhandle, $globaloptions);
 
-
+sub get_valid_pluginname {
+    my ($pluginname) = @_;
+    my $valid_name = $pluginname;
+    if (defined $plugin_name_map->{$pluginname}) {
+    $valid_name = $plugin_name_map->{$pluginname};
+    } elsif ($pluginname =~ /Plug$/) {
+    $valid_name =~ s/Plug/Plugin/;
+    
+    }
+    return $valid_name;
+}
 sub load_plugin_require
 {
@@ -102 +125 @@
 sub load_plugin_for_info {
     my ($pluginname) = shift @_;
-
+    $pluginname = &get_valid_pluginname($pluginname);
     load_plugin_require($pluginname);
 
@@ -134 +157 @@
     my $pluginname = shift @$pluginoptions;
     next unless defined $pluginname;
-
+    $pluginname = &get_valid_pluginname($pluginname);
     load_plugin_require($pluginname);