#!/usr/bin/perl -w use strict; use warnings; use CGI; use CGI::Carp 'fatalsToBrowser'; use IO::Handle; STDOUT->autoflush(1); alarm 1800; my $dauer_in_sekunden = 600; (my $script = $0) =~ s/^.*[\\\/]//g; my $cgi = new CGI; if (defined $cgi->param('formular')) { sleep($dauer_in_sekunden); print STDOUT CGI->new->header(-charset => 'UTF-8').< Test mit Perlscript gegen http Status 504
FERTIG OHNE TIMEOUT!!
HTML_TEIL ; } elsif (defined $cgi->param('ajax')) { print STDOUT CGI->new->header(-charset=>'UTF-8').'weiter' if $cgi->param('diff') < $dauer_in_sekunden; } else { print STDOUT CGI->new->header(-charset=>'UTF-8').< Test mit Perlscript gegen http Status 504
HTML_TEIL ; }