#!/usr/bin/perl -W use strict; use warnings; use IO::Handle; STDOUT -> autoflush (1); # sicherheitshalber statt $| = 1; gem. [msg://133383] use CGI; my $q = CGI -> new; (my $script = $0) =~ s/^.*[\\\/]//g; if (defined $q -> param ('action') && defined $q -> param ('sekunden')) { my $header = $q -> header; if ($q -> param ('action') eq 'start1') { sleep $q -> param ('sekunden'); } elsif ($q -> param ('action') eq 'start3') { $q -> nph (1); # no-parsed-header Modus (Header wird vom Script gesendet) sleep $q -> param ('sekunden'); $header = "Status: 100 Continue\n$header"; } else { print $header; for (my $z = 0; $z < $q -> param ('sekunden'); $z ++) { print " \n"; sleep 1; } $header = ''; } print <

Bin DA!

HTML_TEIL } else { print $q -> header . <

HTML_TEIL }