Newsgroups: fj.lang.perl,de.comp.lang.perl
Path: galaxy.trc.rwcp.or.jp!coconuts.jaist!wnoc-tyo-news!news.join.ad.jp!news.imnet.ad.jp!usenet.seri.re.kr!news.kreonet.re.kr!news.dacom.co.kr!newsfeed.internetmci.com!EU.net!sun4nl!news
From: remko@yrams.nl (Remko Posthuma)
Subject: Server Push! Help wanted!
X-Nntp-Posting-Host: spot.yrams.nl
Message-ID: <DHF0M1.KFu@inter.NL.net>
Sender: news@inter.NL.net (News at news)
Organization: NLnet
X-Newsreader: Forte Free Agent 1.0.82
Date: Thu, 2 Nov 1995 21:08:38 GMT
Lines: 28
Xref: galaxy.trc.rwcp.or.jp fj.lang.perl:524
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.lang.perl&nb=524&hd=a
X-reformat-date: Mon, 18 Oct 2004 15:18:22 +0900
X-reformat-comment: Tabs were expanded into 4 column tabstops by the Galaxy's archiver. See http://katsu.watanabe.name/ancientfj/galaxy-format.html for more info.

Does somebody has some experiance with the Server Push mime type. I
tried to make a working sample but it stucks. This is what I tried:
----------------------------------------------------------------------------------------------------
print "HTTP/1.0 200";
print "Content-type:
multipart/x-mixed-replace;boundary=--ThisRandomString";
print "\n\n";  
   
print "--ThisRandomString\n";
   
$tmp == 0;
while ($tmp == 0)
{
   print "\n--ThisRandomString--\n";
   print "Content-type: text/html"; 
   print "\n\n";
   
   print "refresh this every 10 seconds";
   print "<P>";
   print "\n--ThisRandomString\n";
   sleep 1;
   
} 
print "Content-type: text/html";
----------------------------------------------------------------------------------------------------
All suggestions are welcome!


