|
|||||||||||||||||||||||||||
Kan man definere specifikt hvilke HTTP headers, CGI::Push leverer?
Jeg har et problem med følgende script, som er mit første forsøg på at
bruge CGI::Push:
/////////////////////////////////////////////////////////////////
#!/usr/bin/perl
use strict;
use warnings;
use CGI::Push qw(:standard);
my $line = "";
do_push(-next_page=>\&refresh, -last_page=>\&done, -delay=>1);
sub refresh
{
my ($cgi, $count) = @_;
return undef if($count > 20);
my $page = header() . start_html() . p("The count is $count");
$line .= "*";
$page .= $cgi->p($line . "\n") . end_html();
return $page;
}
sub done
{
my ($cgi, $count) = @_;
return header() . start_html() . "Count stopped on $count." . end_html();
}
///////////////////////////////////////////////////////////////////
Jeg får følgende i Apache's error_log:
[Mon Jun 10 21:41:01 2002] [error] [client 192.168.1.2] malformed header
from script. Bad header=HTTP/1.1 200 OK:
/usr/local/httpd/cgi-bin/test/serverpush.cgi
Jeg har prøvet med og uden kald af CGI's header() før start_html().
Resultatet er det samme. Hvordan laver jeg om på det?
--
Med venlig hilsen / Best regards,
David List
|
||||||||||||||
|
||||||||||||||