|
|||||||||||||||||||||||||||
Efter forgaeves at have provet at faa CGI::Push til at fungere, greb
jeg til sidste udvej og nappede et eksempel fra 'perldoc
CGI::Push'. Det virkede *heller* ikke. Kan der vaere noget med
serveren?
Jeg ser ikke andet i server-loggen end den "saedvanlige" besked om
malformed headers, som jeg i dette tilfaelde ikke rigtig kan deducere
noget ud fra. Eksemplet ser saadan ud:
------------------------------------------------------------------
#!/usr/bin/perl
use strict;
use warnings;
use CGI::Push qw(:standard);
do_push(-next_page=>\&next_page,
-last_page=>\&last_page,
-delay=>0.5);
sub next_page {
my($q,$counter) = @_;
return undef if $counter >= 10;
return start_html('Test'),
h1('Visible'),"\n",
"This page has been called ", strong($counter)," times",
end_html();
}
sub last_page {
my($q,$counter) = @_;
return start_html('Done'),
h1('Finished'),
strong($counter - 1),' iterations.',
end_html;
}
--------------------------------------------------------------------
Er der noget galt i det?
--
Med venlig hilsen / Best regards
David List
|
||||||||||||||
|
||||||||||||||