ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Andrey Fedorov                       2:5020/1230.40 20 Feb 2001  01:33:42
 To : All
 Subject : UpLoad
 -------------------------------------------------------------------------------- 
 

 
 Есть, скрипт:
 === Cut ===
 use strict;                                  # спасает от глупых ошибок
 use Fcntl;                                   # O_EXCL, O_CREAT и O_WRONLY
 use CGI       qw (:standard);                # читайте "perldoc CGI"
 use CGI::Carp qw (fatalsToBrowser);          # вывод ошибок к browser-у
 
 my $query = new CGI;
 my $file_name = $query->param('file');
 
 $_ = $file_name;
 s/\w://;
 s/([^\/\\]+)$//;
 $_ = $1;
 s/\.\.+//g;
 s/\s+//g;
 $file_name = $_;
 
 open (FILE, ">c:\\$file_name") || die "can't open file";
 binmode FILE;                              # включить binmode для Windows
 print FILE while (<$file_name>);                # и скопировать данные в файл
 close (FILE);
 === Cut ===
 
 Hо он почемy-то не работает, файлы создаются нyлевой длины, а всё содержимое
 передаваемого файла записывается в файл CGItemp12345 (цифры зависят от времени
 upload'а), в каталоге cgi-bin.
 Форма на странице:
 
 === Cut ===
 <FORM METHOD="post" ACTION="cgi-bin/upload.cgi" ENCTYPE="multipart/form-data">
 <B>Файл:</B>
 <INPUT TYPE="file" NAME="file" SIZE=20 MAXLENGTH=80>
 <INPUT TYPE="submit" VALUE="Закачать">
 </FORM>
 === Cut ===
 
 OS: WinME, Server: EServ v2.94, Perl: ActivePerl v5.6.0.623
 
 > Кyда копать?
 ... WBR, Andrey ... [Team MAMI] ...
 --- GoldED/W32 3.0.1-asa9 SR1
  * Origin: NO ORiGiN (2:5020/1230.40)
 
 

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