Хочу из браузера Upload File сделать.
У меня Апач под BSD
Вроде формочка METHOD="POST" и ENCTYPE="multipart/form-data"
И все такое но !
Почемуто упорно Аплодит в ASCI режиме?
UploadFile($q->param(\'file-to-upload\'),\'tttt.jpg\');
sub UploadFile
{
if ($_[0] ne \'\')
{
$CGI::POST_MAX=1024 * 1000;
undef $buffer;
open(OUTFILE, ">/home/motozona/public_html$_[1]")||&error("Can\'t open $dir$file. $!");
binmode(OUTFILE);
$encoding=\'multipart/form-data\';
while ($bytesread=read($_[0],$buffer,1024))
{print OUTFILE $buffer; }
close (OUTFILE);
return 1;
}
else { return 0;}
}
