Changeset 9465 for trunk/gsdl/perllib/plugins/PSPlug.pm

Timestamp:

2005-03-18T14:10:58+13:00 (19 years ago)

Author:

kjdon

Message:

ConvertToPlug now accepts the gli arg in read() and passes it in process(), and all the convert plugins now print a processing message for gli in their process() method.

File:

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

trunk/gsdl/perllib/plugins/PSPlug.pm

@@ -169 +169 @@
 sub process {
     my $self = shift (@_);
-    my ($trash, $trash2, $path, $file, $trash3, $doc) = @_;
+    my ($trash, $trash2, $path, $file, $trash3, $doc, $gli) = @_;
 
     my $outhandle = $self->{'outhandle'};
     print $outhandle "PSPlug: passing $_[3] on to $self->{'converted_to'}Plug\n" 
     if $self->{'verbosity'} > 1;
-    
+    print STDERR "<Processing n='$_[3]' p='PDFPlug'>\n" if ($gli);
+
     &extract_metadata_from_postscript($self,"$path/$file", $doc);