version 1.44, 2004/01/14 22:59:18
|
version 1.46, 2004/01/28 20:00:26
|
Line 33 package Apache::imageresponse;
|
Line 33 package Apache::imageresponse;
|
use strict; |
use strict; |
use Image::Magick; |
use Image::Magick; |
use Apache::randomlylabel; |
use Apache::randomlylabel; |
|
use Apache::londefdef; |
use Apache::Constants qw(:common :http); |
use Apache::Constants qw(:common :http); |
|
|
BEGIN { |
BEGIN { |
Line 469 sub end_image {
|
Line 470 sub end_image {
|
$Apache::response::foilgroup{"$name.image"} ='\vskip 0 mm \noindent\graphicspath{{'.$path.'}}\includegraphics[width='.$width_param.' mm]{'.$file.'} '; |
$Apache::response::foilgroup{"$name.image"} ='\vskip 0 mm \noindent\graphicspath{{'.$path.'}}\includegraphics[width='.$width_param.' mm]{'.$file.'} '; |
} |
} |
} else { |
} else { |
my $temp_file; |
#care about eps dynamical generation |
my $filename = "/home/httpd/prtspool/$ENV{'user.name'}_$ENV{'user.domain'}_printout.dat"; |
$Apache::response::foilgroup{"$name.image"}='\vskip 0 mm '.&Apache::londefdef::eps_generation($src,$file,$width_param); |
$temp_file = Apache::File->new('>>'.$filename); |
|
print $temp_file "$src\n"; |
|
$Apache::response::foilgroup{"$name.image"} ='\vskip 0 mm \graphicspath{{/home/httpd/prtspool/}}\includegraphics[width='.$width_param.' mm]{'.$file.'} '; |
|
} |
} |
} |
} |
return $result; |
return $result; |