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

Timestamp:

1999-12-13T16:54:00+13:00 (24 years ago)

Author:

davidb

Message:

added 'begin' and 'end' function for plugins

File:

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

trunk/gsdl/perllib/plugin.pm

@@ -59 +59 @@
 }
 
+
+sub begin {
+    my ($pluginfo, $base_dir, $processor, $maxdocs) = @_;
+
+    map { $_->begin($pluginfo, $base_dir, $processor, $maxdocs); } @$pluginfo;
+}
+
 sub read {
     my ($pluginfo, $base_dir, $file, $metadata, $processor, $maxdocs, $aux) = @_;
@@ -80 +87 @@
 }
 
+sub end {
+    my  ($pluginfo) = @_;
+    map { $_->end(); } @$pluginfo;
+}
 
 1;