ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Bakanov Vladimir                     2:5015/126.47  04 Feb 2001  00:07:49
 To : Fel G
 Subject : Re: UpLoad
 -------------------------------------------------------------------------------- 
 

 
 Числа *31.01.01* *11:45:15* ты написал в ЭХЕ *RU.PERL*
 сообщение к *All*
 Hа тему *"UpLoad"*.
  FG>          Hi *All*! Как сабж можно осуществить на сайте , чтобы люди могли
  FG> закачивать файлы на сайт?
 
 Вот вроде ка кработающий скрипт :))) Разбирайся сам...
 
 #!c:/perl/bin/perl.exe
 
 use lib '..';
 use CGI qw(:standard);
 use CGI::Carp qw/fatalsToBrowser/;
 $SAVE_DIRECTORY = "c:/apache/htdocs/chat";
 print header();
 
 #open(NUMBER,"number_chat_img.txt");
 #$num=<NUMBER>;
 #close(NUMBER);
 #print $num,br;
 #            $ext='jpg';
 #$chat_img_name="$num\.$ext";
 #print  $chat_img_name,br;
 #$old_img='img1.jpg';
 #if(!copy($old_img, $chat_img_name)) {print 'bad rename',br;}
 #-----------------------------------------
 
 if (param('fil')=~ /([^\/\\]+)$/) {
 
                         $Fiilename = $1;
                         $Fiilename =~ s/^\.+//;
                         $File_Handle = param('fil');
 print  $Fiilename,br;
 print  $File_Handle;
 $Fiiilename='img1.jpg';         
         open(OUTFILE, ">$SAVE_DIRECTORY\/$Fiiilename");
          binmode OUTFILE;
 
                 undef $BytesRead;
                 undef $Buffer;
         
         while ($Bytes = read($File_Handle,$Buffer,102400)) {
                         $BytesRead += $Bytes;
             print OUTFILE $Buffer;
         }
 close(OUTFILE);
 
 }
 print hr(),
 br, 'Thank You! And now close this window.',
 
 end_html;
 Приём !....
 
        Bakanov Vladimir
 
 --- WP/95 Rel 1.78E (215.0) Reg.
  * Origin: If you can't make it good, make it LOOK good. (c) Bi (2:5015/126.47)
 
 

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

Тема:    Автор:    Дата:    UpLoad   Fel G   31 Jan 2001 12:45:15   Re: UpLoad   InSAn   01 Feb 2001 19:06:20   Re: UpLoad   Bakanov Vladimir   04 Feb 2001 00:07:49