Код:
use CGI::Carp qw(fatalsToBrowser);
use DBI;
require "dev.pl";
use CGI;
use DBD::mysql;
use Math::Round qw(nearest);
use Image::Magick;
#use strict;
use warnings;
use CGI::Cookie;
use Storable;
use vars '$dbh', '%user_vars';
use POSIX;
use Digest::MD5 qw(md5_hex);
use Encode qw(encode_utf8);
if ($action=~/reg$/i){
reg3();
}
$pageone=param(pageone);
if $pageone{
regrel();
}
sub reg4 {
<form name="pageone" method="post" enctype="multipart/form-data">
<div align="center"><center><table border="0" cellspacing="0" cellspacing=1>
<tr>
<td align="right">Логин:</td>
<td colspan="2"><input type="hiden" name="logi0" size="15">(с 2 до 15 символов, латинские символы)</td>
</tr>
<tr>
<td align="right">pass:</td>
<td colspan="2"><input type="hiden" name="passs" size="15">(с 2 до 15 символов, латинские символы)</td>
</tr>
<tr>
<td align="right">pass:</td>
<td colspan="2"><input type="hiden" name="passs2" size="15">(с 2 до 15 символов, латинские символы)</td>
</tr>
<tr>
<td align="right">имя:</td>
<td colspan="2"><input type="hiden" name="login0" size="15">(с 2 до 15 символов, латинские символы)</td>
</tr>
<tr>
<td align="right">pers:</td>
<td colspan="2"><input name="photo" type="file"> </td>
<br>
</tr>
<td></td>
<td align="center"><input type="submit" value="Добавить"></td>
<td align="center"><input type="reset" value="Очистить"></td>
</tr>
}
sub rerrel{
$photo=param(photo);
if ($photo) {
# путь к директории для закачки директория
# должна иметь право на запись для
# пользователя, под которым работает веб-сервер
$downpath = "//perl/photo/";
#my $in=param('picture');
# выделяем имя файла из параметра
($name)=$photo =~ m#([^\\/:]+)$#;
$a="jpg";
$file = $downpath.$avatar.$tv.".".$a;
#$open(OUT,">$file") || die "$!";
#binmode(OUT);
# читаем входной поток и пишем в файл
#$file = $path_image.$tv[1].".".$tv[0];
open (IMG, ">$file"); binmode IMG; print IMG while (<$photo>); close (IMG); chmod 0644, $file;
#
# my $ix="150";
# my $iy="150";
#
#
#
# $photo = Image::Magick->new;
# $photo->Read("$file"); # $file - понятно что это только что загруженный файл
#
#
#
# my ($ox, $oy, $oc, $ic, $nx, $ny, $geo);
# ($ox,$oy)=$photo->Get('columns','height');
# if (($ox > $ix)||($oy > $iy)) {
# $oc = $ox/$oy; $ic = $ix/$iy;
# if ($oc < $ic) {$ny = $iy; $nx=int(($ox/$oy)*$iy);}
# elsif ($oc > $ic) {$nx = $ix; $ny=int(($oy/$ox)*$ix);}
# else {$nx = $ix; $ny = $iy;}}
# else {$nx=$ox;$ny=$oy;}
#
# #Изменяем размер и сохраняем изображение:
#
# $geo = 'geometry';
# $photo->Resize(geometry=>$geo, width=>$nx, height=>$ny);
# $file = $path_image."i".$tv[1].".".$tv[0];
# $photo -> Write("$photo");
}
}создаеться пустой файл! вверху примерный дивжок...
как записать картинку?? не хочет и всё