ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Sergey P.Tanko                       2:5020/400     09 Aug 2002  11:21:20
 To : Sergey Nepsha
 Subject : Re: script
 -------------------------------------------------------------------------------- 
 

 
 > помогите написать кое что... короче надо скрипт такой, заливают мне
 
 допустим
 
 > картинку,
 
 use CGI,
 ##-- create upload field --
 print $query->filefield('uploaded_file','starting value',50,80);
 
 ## -- read from script --
 $filename = $query->upload('uploaded_file');
 open (OUTFILE,">>/usr/local/web/users/feedback");while
 ($bytesread=read($filename,$buffer,1024)) {   print OUTFILE $buffer;}
 --- ifmail v.2.15dev5
  * Origin: JSC Rostovtelecom (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    script   Sergey Nepsha   08 Aug 2002 21:41:41   Re: script   Sergey P.Tanko   09 Aug 2002 11:21:20