Changeset 2785 for trunk/gsdl/perllib/mgbuilder.pm

Timestamp:

2001-10-09T17:21:29+13:00 (23 years ago)

Author:

sjboddie

Message:

The build process now creates a summary of how many files were included,
which were rejected, etc. A link to a page containing this summary is
provided from the final page of the collector (once the collection is built
successfully) and from the default "about this collection" text for
collections built by the collector.

Also did a little bit of tidying in a couple of places

File:

• trunk/gsdl/perllib/mgbuilder.pm (modified) (3 diffs)

trunk/gsdl/perllib/mgbuilder.pm

@@ -62 +62 @@
     my ($class, $collection, $source_dir, $build_dir, $verbosity, 
     $maxdocs, $debug, $keepold, $allclassifications, 
-    $outhandle, $no_text) = @_;
+    $outhandle, $no_text, $failhandle) = @_;
 
     $outhandle = STDERR unless defined $outhandle;
     $no_text = 0 unless defined $no_text;
+    $failhandle = STDERR unless defined $failhandle;
 
     # create an mgbuilder object
@@ -78 +79 @@
               'outhandle'=>$outhandle,
               'no_text'=>$no_text,
+              'failhandle'=>$failhandle,
               'notbuilt'=>[]    # indexes not built
               }, $class;
@@ -134 +136 @@
     
     # load all the plugins
-    $self->{'pluginfo'} = &plugin::load_plugins ($plugins, $verbosity, $outhandle);
+    $self->{'pluginfo'} = &plugin::load_plugins ($plugins, $verbosity, $outhandle, $failhandle);
     if (scalar(@{$self->{'pluginfo'}}) == 0) {
     print $outhandle "No plugins were loaded.\n";