Today, i was working with a web-based mod_perl application running on an old rhel 2.1 (panama) server, with apache v1.3.33 and mod_perl v1.29.<\/p>\n
The applctn had an option to upload images for the products displayed on the site. But the app lacked image resizing functionality. Some of the users had uploaded huge images and that went beyond the site borders. I was about to integrate the resizing function using perl’s Image::Magick module. Existing module was out-dated, so i went for an upgrade. Obviously, it was not a quick and easy upgrade.<\/p>\n
For the code snip<\/p>\n
[perl]
\n$image = Image::Magick->new;
\n$x = $image->Read($imgname);
\nif($x eq ”)
\n{
\n$image->Resize( geometry => ‘800×800’ );
\n$image->Write($imgname);
\n}
\n[\/perl]<\/p>\n
The first error i met was<\/p>\n
Can’t load<\/strong> ‘\/usr\/lib\/perl5\/site_perl\/5.6.1\/i386-linux\/auto\/Image\/Magick\/Magick.so’<\/p>\n i ran ldd command on Magick.so, and libMagick.so link was found broken<\/p>\n [bash] So downloaded ImageMagick-6.2.3-6.tar.gz and reinstalled ImageMagick.<\/p>\n For a successful compile, i had to comment the following lines in \/usr\/src\/ImageMagick-6.2.3\/magick\/annotate.c<\/em><\/strong><\/p>\n [perl] because ( i guess ) the machine lacked that font. This was fixed by relinking libjpeg.so.62 to libjpeg.so.7.0.0. I know its dirty, but that did the trick.<\/p>\n Hope, mod_perl\/mason players will find this useful.<\/p>\n
\nldd \/usr\/lib\/perl5\/site_perl\/5.6.1\/i386-linux\/auto\/Image\/Magick\/Magick.so
\nlibMagick.so.6 => not found
\n[\/bash]<\/p>\n
\n\/\/\u00a0\u00a0\u00a0\u00a0\u00a0 if (LocaleCompare(encoding,”Latin-1″) == 0)
\n\/\/\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 encoding_type=ft_encoding_latin_1;
\n[\/perl]<\/p>\n
\nAfter that, the app threw another error
\nWrong JPEG library version: library is 62, caller expects 70<\/strong><\/p>\n