Changeset 1279 for branches/New_Config_Format-branch/gsdl/perllib/plugin.pm

Timestamp:

2000-07-13T10:21:53+12:00 (24 years ago)

Author:

sjboddie

Message:

merged changes to trunk into New_Config_Format branch

File:

• branches/New_Config_Format-branch/gsdl/perllib/plugin.pm (modified) (2 diffs)

branches/New_Config_Format-branch/gsdl/perllib/plugin.pm

@@ -29 +29 @@
 
 sub load_plugins {
-    my ($plugin_list) = @_;
+    my ($plugin_list, $verbosity) = @_;
     my @plugin_objects = ();
+
+    $verbosity = 2 unless defined $verbosity;
 
     foreach $pluginoptions (@$plugin_list) {
@@ -49 +51 @@
     map { $_ = "\"$_\""; } @$pluginoptions;
     my $options = join (",", @$pluginoptions);
+    $options =~ s/\$/\\\$/g;
     eval ("\$plugobj = new \$pluginname($options)");
     die "$@" if $@;
     
+    # initialize plugin
+    $plugobj->init($verbosity);
+
     # add this object to the list
     push (@plugin_objects, $plugobj);