Changeset 2785 for trunk/gsdl/perllib/plugins/PSPlug.pm
- Timestamp:
- 2001-10-09T17:21:29+13:00 (22 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/plugins/PSPlug.pm
r2451 r2785 33 33 } 34 34 35 use strict;36 37 38 35 sub new { 39 36 my $class = shift (@_); … … 65 62 print STDERR "using the PRESCRIPT package, which is available for download at\n http://www.nzdl.org/html/software.html\n\n"; 66 63 } 67 68 64 69 65 sub get_default_block_exp { … … 147 143 } 148 144 149 150 145 # do plugin specific processing of doc_obj for HTML type 151 146 sub process { … … 153 148 my ($trash, $trash2, $path, $file, $trash3, $doc) = @_; 154 149 155 print STDERR "PSPlug: passing $_[3] onto $self->{'convert_to'} Plug\n" 150 my $outhandle = $self->{'outhandle'}; 151 print $outhandle "PSPlug: passing $_[3] on to $self->{'convert_to'}Plug\n" 156 152 if $self->{'verbosity'} > 1; 157 153
Note:
See TracChangeset
for help on using the changeset viewer.