Lines 67-77
sub new {
Link Here
|
67 |
$params->{mimetype} = 'image/png'; |
67 |
$params->{mimetype} = 'image/png'; |
68 |
$params->{imagefile} = $fullsize->png(); |
68 |
$params->{imagefile} = $fullsize->png(); |
69 |
$params->{thumbnail} = $thumbnail->png(); |
69 |
$params->{thumbnail} = $thumbnail->png(); |
70 |
# Convert the image to PNG and print it on standard output |
|
|
71 |
|
72 |
open my $fh1, '>', '/inlibro/BD/outputV.png'; |
73 |
print {$fh1} $params->{thumbnail}; |
74 |
close $fh1; |
75 |
} |
70 |
} |
76 |
|
71 |
|
77 |
return $class->SUPER::new($params); |
72 |
return $class->SUPER::new($params); |