Changeset 1424 for trunk/gsdl/perllib/mgbuildproc.pm

Timestamp:

2000-08-18T17:37:15+12:00 (24 years ago)

Author:

sjboddie

Message:

Added a -out option to most of the perl building scripts to allow output
debug information to be directed to a file.

File:

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

trunk/gsdl/perllib/mgbuildproc.pm

@@ -41 +41 @@
 
 sub new {
-    my ($class, $collection, $source_dir, $build_dir, $verbosity) = @_;
+    my ($class, $collection, $source_dir, $build_dir,
+    $verbosity, $outhandle) = @_;
     my $self = new docproc ();
+
+    # outhandle is where all the debugging info goes
+    # output_handle is where the output of the plugins is piped
+    # to (i.e. mg, gdbm etc.)
+    $outhandle = STDERR unless defined $outhandle;
 
     $self->{'collection'} = $collection;
@@ -59 +65 @@
     $self->{'num_bytes'} = 0;
     $self->{'num_processed_bytes'} = 0;
+    $self->{'outhandle'} = $outhandle;
 
     $self->{'indexing_text'} = 0;