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

trunk/gsdl/perllib/plugins/ImagePlug.pm

@@ -364 +364 @@
 sub read {
     my $self = shift (@_);
-    my ($pluginfo, $base_dir, $file, $metadata, $processor, $maxdocs) = @_;
+    my ($pluginfo, $base_dir, $file, $metadata, $processor, $maxdocs, $gli) = @_;
 
     my $outhandle = $self->{'outhandle'};
@@ -373 +373 @@
     return undef;
     }
+
+    print STDERR "<Processing n='$file' p='ImagePlug'>\n" if ($gli);
     print $outhandle "ImagePlug processing \"$filename\"\n"
         if $self->{'verbosity'} > 1;