ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Alexey Maltzev                       2:5020/400     25 Apr 2005  23:49:17
 To : All
 Subject : Закачка файлов через HTTP
 -------------------------------------------------------------------------------- 
 

 Привет Все!
 
 Ребята, есть простейщий скрипт закачки через HTTP (см. ниже). Так вот, на
 апаче под юниксом все изумительно. Hо в Win NT 4 (тестился на LiteServe 2.5
 и на Small HTTP 3.05.21) скрипт ведет себя странновато. Все файлы более 100
 кб, просто не закачиваются, Такое ощущение что сервер не отвечает, мол
 браузер показывает в строке статуса загрузку и потом выдает мол не найдена
 страница. Если файл менее 100 кб, все нормально. Сам http сервер (Small
 HTTP) вроде нормально сконфигурирован, ограничения по размеру передаваемых
 данных сняты... А вот под управлением Lite Serve там вобще смешно, все что
 более 4 кб - не проходит.
 
 Как победить? Я так понимаю здесь сами настройки perl ковырять надо?
 
 Сорри, если че неправильно написал, начинающий я понимаишь.
 
 =====================================================
 #!/usr/bin/perl
 
 $|=1;
 use strict;
 use CGI qw (param);
 use Fcntl;
 
 my $filename;
 my $FL;
 my $PATH;
 
 $FL = param("logotype");
 $PATH = "e:\\sait\\web\\guest\\doc\\goruno\\";
 
  $FL =~ /[\\\/:]([^\\\/:]+)$/;
  $filename = $1;
 
  open(DATA, ">".$PATH.$filename);
  binmode (DATA);
  print DATA while (<$FL>);
  close (DATA);
    print "Content-type: text/html\n\n";
    print "-$FL-";
 
 =====================================================
 ________________________________________
 С уважением, Алексей Мальцев.
 Северодвинск (с) 2005
 URL: www.syt.edu.severodvinsk.ru
 --- ifmail v.2.15dev5.3
  * Origin: Step (2:5020/400)
 
 

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