ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : nikolay zaikin                       2:450/83.4     11 Nov 2000  12:12:30
 To : Konstantin Patrushev
 Subject : Закачка файла
 -------------------------------------------------------------------------------- 
 

 
  Konstantin Patrushev wrote All:
 KP> Тpебуется написать скpипт, пpинимающий файл, котоpый юзеp указал на своем
 KP> компе, заполняя мою фоpму.
 KP> К сожалению, я даже не знаю с чего начать.
 KP> Подскажите хотя бы суть или укажите где есть пpимеpы такого.
 что-то типа этого.
 
 === Cut ===
 #!/usr/bin/perl
 #!C:\Perl\bin\perl.exe
 
 require 'ibc.cfg';
 
 use CGI;
 my $req = new CGI;
 my $bfile     = $req->param("file");
 
 my $lfile = $bfile;
 $bfile =~ s!^.*(\\|\/)!!;
 
 my $fname = "$basedir/".time()."$bfile";
 open (OUTFILE, ">$fname");
 binmode OUTFILE;
 my $buffer = "";
 while (read($lfile, $buffer, 1024)) { print OUTFILE $buffer }
 close (OUTFILE);
 $fname =~ s!^.*(\\|\/)!!;
 open (DATAFILE, ">>$datadir/"."data.db");
 print DATAFILE "$bemail\|$burl\|$fname\|0\n";
 close (DATAFILE);
 
 print "Location:
 http://ibcontest.virtualave.net/cgi-bin/ibc.cgi?table=3&stage=2\n\n";
 
 === Cut ===
 
 best regards,
 nikolay
 
 --- Золотой дед GoldED/W32 3.00.Beta3+ !!!
  * Origin: GOA TEMPLE (2:450/83.4)
 
 

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

Тема:    Автор:    Дата:    Закачка файла   Konstantin Patrushev   28 Oct 2000 19:13:18   Закачка файла   Alex Railyan   30 Oct 2000 09:02:00   Re: Закачка файла   Artem Chuprina   13 Nov 2000 12:04:04   Закачка файла   nikolay zaikin   11 Nov 2000 12:12:30