Changeset 2515
- Timestamp:
- 2001-06-11T12:15:21+12:00 (23 years ago)
- Location:
- trunk/gsdl/perllib/plugins
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/plugins/ConvertToPlug.pm
r2432 r2515 143 143 my ($output_ext, $input_filename, $textref) = @_; 144 144 145 my $outhandle = $self->{'outhandle'}; 145 146 my $convert_to = $self->{'convert_to'}; 146 147 147 148 # softlink to collection tmp dir 148 my $colname = &util::use_collection();149 149 my $tmp_dirname 150 = &util::filename_cat($ENV{'GSDL HOME'}, "collect", $colname, "tmp");150 = &util::filename_cat($ENV{'GSDLCOLLECTDIR'}, "tmp"); 151 151 &util::mk_dir($tmp_dirname) if (!-e $tmp_dirname); 152 152 … … 165 165 my $verbosity = $self->{'verbosity'}; 166 166 if ($verbosity > 0) { 167 print STDERR"Converting $tailname$suffix to $convert_to format\n";167 print $outhandle "Converting $tailname$suffix to $convert_to format\n"; 168 168 } 169 169 … … 180 180 chomp $output_type; 181 181 if ($output_type eq "fail") { 182 print STDERR"Could not convert $tailname$suffix to $convert_to format\n";182 print $outhandle "Could not convert $tailname$suffix to $convert_to format\n"; 183 183 return ""; 184 184 } … … 199 199 my $self = shift (@_); 200 200 201 my $colname = &util::use_collection();202 201 my $tmp_dirname 203 = &util::filename_cat($ENV{'GSDL HOME'}, "collect", $colname, "tmp");202 = &util::filename_cat($ENV{'GSDLCOLLECTDIR'}, "tmp"); 204 203 &util::rm_r($tmp_dirname); 205 204 &util::mk_dir($tmp_dirname); -
trunk/gsdl/perllib/plugins/PDFPlug.pm
r2452 r2515 32 32 } 33 33 34 use strict;35 36 37 34 sub new { 38 35 my $class = shift (@_); … … 65 62 my $self = shift (@_); 66 63 67 print STDERR "PDFPlug: passing $_[3] onto $self->{'convert_to'} Plug\n" 64 my $outhandle = $self->{'outhandle'}; 65 print $outhandle "PDFPlug: passing $_[3] onto $self->{'convert_to'} Plug\n" 68 66 if $self->{'verbosity'} > 1; 69 67 -
trunk/gsdl/perllib/plugins/WordPlug.pm
r1415 r2515 32 32 } 33 33 34 use strict;35 36 37 34 sub get_default_process_exp { 38 35 my $self = shift (@_); … … 46 43 sub process { 47 44 my $self = shift (@_); 48 49 print STDERR "WordPlug: passing $_[3] onto $self->{'convert_to'} Plug\n" 45 46 my $outhandle = $self->{'outhandle'}; 47 print $outhandle "WordPlug: passing $_[3] onto $self->{'convert_to'} Plug\n" 50 48 if $self->{'verbosity'} > 1; 51 49
Note:
See TracChangeset
for help on using the changeset viewer.