Changeset 1424 for trunk/gsdl/perllib/plugins/IndexPlug.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/plugins/IndexPlug.pm (modified) (3 diffs)

trunk/gsdl/perllib/plugins/IndexPlug.pm

@@ -62 +62 @@
 }
 
-use strict;
-
 sub new {
     my ($class) = @_;
@@ -84 +82 @@
     my $self = shift (@_);
     my ($pluginfo, $base_dir, $file, $metadata, $processor, $maxdocs) = @_;
+    my $outhandle = $self->{'outhandle'};
 
     my $indexfile = &util::filename_cat($base_dir, $file, "index.txt");
@@ -92 +91 @@
 
     # found an index.txt file
-    print STDERR "IndexPlug: processing $indexfile\n";
+    print $outhandle "IndexPlug: processing $indexfile\n";
 
     # read in the index.txt