|
|
ru.cgi.perl- RU.CGI.PERL ------------------------------------------------------------------ From : Volkov Dmitry 2:5020/400 22 Sep 2001 14:25:59 To : All Subject : nph --------------------------------------------------------------------------------
Hello, All!
.
Я написал вот такой скриптик
=========================
#!/usr/bin/perl
#nph-test.cgi
$delay=3;
$boundary="sdfkgjhasdfkljgydflsjgh";
$messagefile="/home/www/cgi-bin/messages.txt";
select (STDOUT);
$|=1;
print "HTTP/1.0 200 Okay\n\n";
print "Content-Type: multipart/x-mixed-replace\n\n";
boundary=$boundary\n\n";
print "--$boundary\n";
while(1){
print "\nContent-Type: text/html\n\n";
print "<html><body>\n";
open(FILE,"<$messagefile");
$F=<FILE>;
print "$F";
close(FILE);
print "</body></html>\n";
print"\n--$boundary\n";
sleep($delay);
}
===========================
в консоли работает нормально, а вот в броузер не выводит
With best regards, Volkov Dmitry. E-mail: vdv@nvkz.net
--- ifmail v.2.15dev5
* Origin: Novokuznetsk TTS (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.cgi.perl/1926478f57481.html, оценка из 5, голосов 10
|