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

trunk/gsdl/perllib/plugins/BasPlug.pm

@@ -31 +31 @@
 use acronym;
 use textcat;
-use strict;
 use doc;
 use diagnostics;
@@ -85 +84 @@
     my $self = {};
     my $encodings = "^(iso_8859_1|Latin1|ascii|gb|iso_8859_6|windows_1256|Arabic|utf8|unicode)\$";
+    $self->{'outhandle'} = STDERR;
     my $year = (localtime)[5]+1900;
+
     # general options available to all plugins
     if (!parsargv::parse(\@_,
@@ -114 +115 @@
 sub init {
     my $self = shift (@_);
-    my ($verbosity) = @_;
+    my ($verbosity, $outhandle) = @_;
 
     # verbosity is passed through from the processor
     $self->{'verbosity'} = $verbosity;
+
+    # as is the outhandle ...
+    $self->{'outhandle'} = $outhandle if defined $outhandle;
 
     # set process_exp and block_exp to defaults unless they were
@@ -209 +213 @@
 
     if ($text !~ /\w/) {
-    print STDERR "$plugin_name: ERROR: $file contains no text\n" if $self->{'verbosity'};
+    my $outhandle = $self->{'outhandle'};
+    print $outhandle "$plugin_name: ERROR: $file contains no text\n" if $self->{'verbosity'};
     return 0;
     }
@@ -387 +392 @@
 
 # extract acronyms from a section in a document. progress is 
-# reported to STDERR based on the verbosity. both the Acronym
+# reported to outhandle based on the verbosity. both the Acronym
 # and the AcronymKWIC metadata items are created. 
 
@@ -393 +398 @@
     my $self = shift (@_);
     my ($textref, $doc_obj, $thissection) = @_;
-
-    print STDERR " extracting acronyms ...\n" 
+    my $outhandle = $self->{'outhandle'};
+
+    print $outhandle " extracting acronyms ...\n" 
     if ($self->{'verbosity'} >= 2);
 
@@ -408 +414 @@
         {
         $seen_before = "true";
-        print STDERR "  already seen ". $acro->to_string() . "\n" 
+        print $outhandle "  already seen ". $acro->to_string() . "\n" 
             if ($self->{'verbosity'} >= 2);
         }       
@@ -420 +426 @@
         #do the normal acronym
         $doc_obj->add_utf8_metadata($thissection, "Acronym",  $acro->to_string());
-        print STDERR "  adding ". $acro->to_string() . "\n" 
+        print $outhandle "  adding ". $acro->to_string() . "\n" 
             if ($self->{'verbosity'} >= 1);
         
@@ -432 +438 @@
     }
     }
-    print STDERR " done extracting acronyms. \n" 
+    print $outhandle " done extracting acronyms. \n" 
     if ($self->{'verbosity'} >= 2);
 }
@@ -439 +445 @@
     my $self = shift (@_);
     my ($text, $doc_obj, $thissection) = @_;
-
-    print STDERR " marking up acronyms ...\n" 
+    my $outhandle = $self->{'outhandle'};
+
+    print $outhandle " marking up acronyms ...\n" 
     if ($self->{'verbosity'} >= 2);
 
@@ -446 +453 @@
     $text = &acronym::markup_acronyms($text, $self);
 
-    print STDERR " done marking up acronyms. \n" 
+    print $outhandle " done marking up acronyms. \n" 
     if ($self->{'verbosity'} >= 2);