ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Sonic                                2:5020/400     21 Oct 2001  16:09:39
 To : All
 Subject : boundary
 -------------------------------------------------------------------------------- 
 

 Привет Алл!
 
 Подскажите почему у меня это не работает пример взят из одной доки.
 Перепробывал все коомбинации с multipart. Кинте ссылку на описания
 посылаемых заголовков.
 
 #!/usr/bin/perl
 #nph-animate.cgi
 
 $times = 20;
 #Заготовте несколько небольних gif-файлов для этой программы
 @files = qw(img0.gif img1.gif img2.gif img3.gif);
 
 select (STDOUT);
 $|=1; #autoflush mode on
 #Generate header
 print "HTTP/1.0 200 Okay\n";
 print "Content-Type: multipart/x-mixed-replace;boundary=myboundary\n\n";
 
 print "--myboundary\n";
 for ($num=1;$num<=$times;$num++) {
    foreach $file (@files) {
       print "Content-Type: image/gif\n\n";
       open(PIC,"$file");
       print <PIC>;
       close(PIC);
       print "\n--myboundary\n";
       sleep(3);
       }
    }
 print "\n--myboundary--\n";
 --
 
           С уважением Sidlarenko Sergey.
 --- ifmail v.2.15dev5
  * Origin: UNET news server (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    boundary   Sonic   21 Oct 2001 16:09:39   Re: boundary   Pavel Ammosov   21 Oct 2001 16:19:53