ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Vladimir Astakhov                    2:5020/400     06 Feb 2001  11:59:50
 To : All
 Subject : Re: Upload
 -------------------------------------------------------------------------------- 
 

 
 <FORM action='/cgi-bin/upload.pl' ENCTYPE=multipart/form-data
 method=post><INPUT name=blob type=file>
 
 upload.pl:
 
 use CGI;
 $cgi = new CGI;
 $raw_file = $cgi->param('blob');
  $_ = $raw_file;
  s/\w://;
  s/([^\/\\]+)$//;
  $_ = $1;
  s/\.\.+//g;
  s/\s+//g;
  $file_name = $_;
 open (OF, "> c:\\uploaddir\\$file_name");
 binmode OF;
 while ($bytesread=read($raw_file, $buffer, 1024)) {
 print OF $buffer;
 }
 close OF;
 "Sasha Rudenko" <Sasha.Rudenko@p16.f57.n468.z2.fidonet.org> wrote in message
 news:981395856@p16.f57.n468.z2.FidoNet.ftn...
 
 >                  Привет _All_ ! Пишет тебе *Sasha* !
 >
 > Hарод, а появился ли какой-нибудь метод короткого сабжа, а то последний
 > у меня растянулся на пару печатных листов. Если у кого есть которкий
 > и работающий под Win/Unix просьба поделится :)
 >
 >                ъ ъъъДН» Hу я вроде все сказал... Bye _*All*_ !
 >                       ИНННННННННННННННДДДДДДДДДДДДДДДДДъъъъъ ъ ъ ъ
 > ... Как здорово, что все мы здесь сегодня HАЖРАЛИСЬ!
 --- ifmail v.2.15dev5
  * Origin: COMSTAR Telecommunications (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    Upload   Sasha Rudenko   05 Feb 2001 18:55:52   Re: Upload   Vladimir Astakhov   06 Feb 2001 11:59:50   Re: Upload   Artem Chuprina   06 Feb 2001 12:21:04   Upload   Sasha Rudenko   08 Feb 2001 16:17:26   Re: Upload   Artem Chuprina   09 Feb 2001 21:14:29   Upload   Loginov Nick   14 Jan 2001 15:00:40   Upload   Yan Alexandrovsky   14 Feb 2001 09:02:01   Upload   Pavel Mukhin   15 Feb 2001 23:43:46