parser

Написать ответ на текущее сообщение

 

 
   команды управления поиском

images.p

Безымянный 03.04.2006 01:23

И мне выдает ошибку 3. А папку big вообще удаляет. По форуму искал, ниче не помогает.
@auto[]
# Раскоментировать если используется nconvert
$script_path[/../cgi-bin]
$script_resize_name[nconvert]

$script_path[/../cgi-bin]
$script_resize_name[images.pl]

$script_convert_path[/../cgi-bin]
$script_convert_name[convert.pl]
### End @auto[]
^use[images.p]

<form method="POST" enctype="multipart/form-data" action="$request:uri"> 
<table>
	<tr>
		<td>Картинка:</td>
		<td><input type="file" name="pict" size="50" /></td>
	</tr>
	<tr>
		<td></td>
		<td><input type="submit" value="Изменить размер"> </td>
	</tr>
</table>
</form>

^if(def $form:pict){
$source_path[/img/i/big/]
$destination_path[/img/i/small/]
$extension[^file:justext[$form:pict.name]]
$image_name[54321.$extension]
$format[jpg]
^if(!^images:save[$form:pict;$source_path;$image_name;$format]){
	^if(^extension.lower[] ne ^format.lower[]){
		$image_name[${image_name}.$format]
	}
	$status[^images:resize[
		$.source_path[$source_path]
		$.destination_path[$destination_path]
		$.image_name[$image_name]
		$.x_size(100)
		$.y_size(120)
		$.quality[80]
	]]
	^if(!$status){
		^rem{ *** Всё ок *** }
	}{
		^rem{ *** Возникла ошибка *** }
		$status
	}
}
}