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

trunk/gsdl/perllib/plugins/EMAILPlug.pm

@@ -70 +70 @@
 }
 
-use strict;
-
 # Create a new EMAILPlug object with which to parse a file.
 # Accomplished by creating a new BasPlug and using bless to 
@@ -93 +91 @@
     my $self = shift (@_);
     my ($textref, $pluginfo, $base_dir, $file, $metadata, $doc_obj) = @_;
-    
+    my $outhandle = $self->{'outhandle'};
+
     # Check that we're dealing with a valid mail file
     return undef unless (($$textref =~ /From:/) || ($$textref =~ /To:/));
 
-    print STDERR "EMAILPlug: processing $file\n" 
+    print $outhandle "EMAILPlug: processing $file\n" 
     if $self->{'verbosity'} > 1;