Новости | FAQ | Авторы | Документация | В действии | Библиотека |
Инструменты | Полезные ссылки | Хостинги | Скачать | Примеры | Форум |
Crawl 26.02.2005 06:21
Как всегда все сделал как написано, ну или так думаю, но результат не работает.$source_path[/] $destination_path[/small/] ^if(def $form:pict && $form:pict is "file"){ $x_size(^form:size.int(200)) $extension[^file:justext[$form:pict.name]] $image_name[1.^extension.lower[]] ^if(!^images:save[$form:pict;$source_path;$image_name]){ ^images:resize[ $.script_path[/cgi-bin] $.source_path[$source_path] $.destination_path[$destination_path] $.image_name[$image_name] $.x_size[$x_size] ] $response:refresh[ $.value[0] $.url[$request:uri] ] }{ Файл не сохранен&hellip^; } }{ Заполните все поля формы&hellip^; }В списке модулей Perl есть Image::Magick. Хостинг www.arbatek.ru