Changeset 6332 for trunk/gsdl/perllib/plugins/TEXTPlug.pm

Timestamp:

2003-12-19T15:16:29+13:00 (20 years ago)

Author:

jmt12

Message:

When -gli argument is provided to calling script these modules will now output gli specific, non-language nor verbosity specific, messages

File:

• trunk/gsdl/perllib/plugins/TEXTPlug.pm (modified) (1 diff)

trunk/gsdl/perllib/plugins/TEXTPlug.pm

@@ -95 +95 @@
 sub process {
     my $self = shift (@_);
-    my ($textref, $pluginfo, $base_dir, $file, $metadata, $doc_obj) = @_;
+    my ($textref, $pluginfo, $base_dir, $file, $metadata, $doc_obj, $gli) = @_;
     my $outhandle = $self->{'outhandle'};
 
+    print STDERR "<Processing n='$file' p='TEXTPlug'>\n" if ($gli);
     print $outhandle "TEXTPlug: processing $file\n" 
     if $self->{'verbosity'} > 1;