sergsd
Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Добрый день.
Подскажите пожалуйста.
Долго я писал сайт и решил выложить наконец-то на хостинг.
Предисловие.
У меня на компе Винда и всё работало хорошо. В панеле администрирования сайта у меня используется модуль Image::Magick для ресайза картинок.
Заранее поинтересовался у хостера, будел ли на моем тарифном плане поддерживаться этот модуль. Ответили, что, конечно, ДА. Хостинг на UNIX. Оплатил, залил - не работает.
Позвонил, говорю, так и так не работает. Ответ - на вашем тарифном плане и не будет! Я говорю, ваш сотрудник, ответил мне, что точно будет, благо вопрос я задавал письменно, в ответ - заикание, говорит, что он и есть тот сотрудник, что ему так сказал их админ. Вообщем немного поругал их - к вечеру всё установили. Вроде заработало(обратился к модулю), при более тщательной проверке оказалось, что не до конца.
Вопрос:
При исследование на простеньком скрипте оказалось, что не работаю процедуры Write и Resize.
Вот код:
Код: #!/usr/bin/perl
use Image::Magick;
my($img,$width);
my($image);
$image = Image::Magick->new;
$img='photo.jpg';
$width=150;
$x = $image->Read($img);
($ox,$oy)=$image->Get('base-columns','base-rows');
$ny=int(($oy/$ox)*$width);
if($ox>$width) {
#$image->Resize(geometry=>geometry, width=>$width, height=>$ny);
#$x = $image->Write('photo2.jpg');
}
print "Content-type: text/html\n\n";
print "Размер $img изменен! width=$width height=$ny<br>";
exit(0); |
Если раскоментировать строки, то выдает 500 ошибку, а в логах Premature end of script headers, т.е. процедуры вызывают ошибку.
Подскажите, пожалуйста, в чем дело? Мне хостера долбить дальше или я что-то не так пишу, может на UNIX-е по другому надо? |
