Changeset 16104 for gsdl/trunk/perllib/plugins/SplitTextFile.pm

Timestamp:

2008-06-23T12:13:46+12:00 (16 years ago)

Author:

kjdon

Message:

tried to make the 'xxxplugin processing file' print statements more consistent. They are now done in read (or read_into_doc_obj) and not process

File:

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

gsdl/trunk/perllib/plugins/SplitTextFile.pm

@@ -207 +207 @@
     return 0; # not processed but no point in passing it on
     }
+
+    print STDERR "<Processing n='$file' p='$self->{'plugin_type'}'>\n" if ($gli);
+    print $outhandle "$self->{'plugin_type'} processing $file\n"
+        if $self->{'verbosity'} > 1;    
 
     my $language = $le_rec->{'language'};
@@ -252 +256 @@
 
     # do plugin specific processing of doc_obj
-    print $outhandle "segment $segment - " if ($self->{'verbosity'});
+    print $outhandle "segment $segment\n" if ($self->{'verbosity'});
     $status = $self->process (\$segtext, $pluginfo, $base_dir, $file, $metadata, $doc_obj, $gli);
     if (!defined $status) {