Changeset 835 for trunk

Timestamp:

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

Author:

davidb

Message:

added 'begin' and 'end' function for plugins

Location:

trunk/gsdl/perllib

Files:

• mgbuilder.pm (modified) (1 diff)
• plugin.pm (modified) (2 diffs)

trunk/gsdl/perllib/mgbuilder.pm

@@ -198 +198 @@
     $self->{'buildproc'}->set_indexing_text (0);
     $self->{'buildproc'}->reset();
-    &plugin::read ($self->{'pluginfo'}, $self->{'source_dir'},
-                   "", {}, $self->{'buildproc'}, $self->{'maxdocs'});
+    &plugin::begin($self->{'pluginfo'}, $self->{'source_dir'}, 
+           $self->{'buildproc'}, $self->{'maxdocs'});
+    &plugin::read ($self->{'pluginfo'}, $self->{'source_dir'}, 
+           "", {}, $self->{'buildproc'}, $self->{'maxdocs'});
+    &plugin::end($self->{'pluginfo'});
+    close (PIPEOUT);
 
     close ($handle) unless $self->{'debug'};

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;