| Новости | 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