Ответ

Misha v.3 17.02.2005 01:16

$ext[^file:justext[$form:file.name]]
$temp_file[$dir/temp.$ext]
$uploaded_file[$dir/${name}.$ext]

^try{
  ^form:file.save[binary;$temp_file]
  $tmp[^image::measure[$temp_file]]
  ^file:move[$temp_file;$uploaded_file]
}{
  $exception.handled(1)
  ^try{
    ^file:delete[$temp_file]
  }{
    $exception.handled(1)
  }
}