Hi,
Kindly go through the code below.
#!D:\Perl\bin\perl
use warnings;
use strict;
my $line="";
use CGI::Push qw(:standard);
do_push(-next_page=>\&refresh,
-last_page=>\&done);
sub refresh()
{
my ($cgi,$count)[EMAIL PROTECTED];
if($count>10)
{
return undef;
}
my $page=start_html().p("Count=$count");
$line.="*";
$page.=$cgi->p($line."\n").end_html();
return $page;
}
sub done()
{
my ($cgi,$count)[EMAIL PROTECTED];
return start_html().p("Counting stopped at $count").end_html();
}
When I run this code typing "http://localhost/push.cgi"; in the browser I get
internal server error.
I use Apache 2.2 on windows & perl 5.10.
Apache error log file shows "[error] [client 127.0.0.1] malformed header
from script. Bad header=HTTP/1.1 200 OK: push.plx".
How to resolve this?
I have tried adding header like my $page =cgi->header().start_html().. &
return $cgi->header().start_html. as well as =header().start_html().. &
return header().start_html. but doesn,t work
