Установлен Parser 3.1.4 .....

Сергей 20.12.2005 10:34

файлы .pl записаны в cgi-bin и на них установлены права 755
файл images.p записан в /class/
путь к перлу не менял #!/use/bin/perl (у меня такой же)
в /auto.p указано

@USE
/class/images.p

создан файл /images.html для загрузки изображений. В нем код:

<form method="post" enctype="multipart/form-data" action="/images.html"> 
   <input type="file" name="pict" size=50>
   <br>
   <input type="submit" value="Загрузить">
</form>
			
^if(def $form:pict){		
$source_path[/big/]
$destination_path[/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
	}
}			
	
			
			
			
}			

---