Changeset 1243 for trunk/gsdl/perllib/plugin.pm

Timestamp:

2000-06-27T09:38:51+12:00 (24 years ago)

Author:

sjboddie

Message:

Caught HTMLPlug up with BasPlug. A few minor changes to some supporting
files (for new BasPlug options).

File:

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

trunk/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) {
@@ -52 +54 @@
     die "$@" if $@;
     
+    # initialize plugin
+    $plugobj->init($verbosity);
+
     # add this object to the list
     push (@plugin_objects, $plugobj);