Changeset 2785 for trunk/gsdl/perllib/plugins/RTFPlug.pm
- Timestamp:
- 2001-10-09T17:21:29+13:00 (22 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/plugins/RTFPlug.pm
r2564 r2785 33 33 } 34 34 35 use strict;36 37 35 sub get_default_process_exp { 38 36 my $self = shift (@_); … … 42 40 sub process { 43 41 my $self = shift (@_); 44 print STDERR "RTFPlug: passing $_[3] onto $self->{'convert_to'} Plug\n" 42 43 my $outhandle = $self->{'outhandle'}; 44 print $outhandle "RTFPlug: passing $_[3] on to $self->{'convert_to'}Plug\n" 45 45 if $self->{'verbosity'} > 1; 46 46 47 return ConvertToPlug::process_type($self,"rtf",@_); 47 48 }
Note:
See TracChangeset
for help on using the changeset viewer.