ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : ЏҐва®ўЁз                             2:5020/400     14 Apr 2001  15:40:23
 To : All
 Subject : file upload
 -------------------------------------------------------------------------------- 
 

 Hу заходи, All, коли пришел...
 
 Скрипт, который загружает файл в определенный дир и делает о нем запись в
 логах... Если файл не более 100-150 килобайт - все в норме... А если более -
 500 internal server error. Hа локальной машине проходил файл и в 5 мегов. К
 логам доступа - болт... Подскажите, что делать? Скрипт вот:
 
 use CGI qw(:standard);
 
 $query = new CGI;
 $home = "/home/freesamp/upload";
 $saveas = $query->param('saveas');
 $category = $query->param('category');
 $list="$home/$category/list.txt";
 $filename = $query->param('file');
 $txt = $query->param('description');
 open (OUTFILE,">$home/$category/$saveas");
 while ($bytesread=read($filename,$buffer,1024)) {
  print OUTFILE $buffer;
 }
 close OUTFILE;
 close $filename;
 
 open (OUTFILE,">>$list");
 print OUTFILE "$txt"."::$saveas\n";
 close OUTFILE;
 
 Тхэнкс, all... :)
 
 --
 Re$pect
 Петрович
 -=[Team PPS] [Team WSL] [<http://www.perlyny.net>] [talk.ru.samples]
 [<http://freesamples.takeinet.com>]=-
 --- ifmail v.2.15dev5
  * Origin: Donbass Internet Center DIPT (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    file upload   ЏҐва®ўЁз   14 Apr 2001 15:40:23   Re: file upload   Artem Chuprina   16 Apr 2001 12:11:50