Hallo, der Header muss vorher zum Browser geschickt werden, d.h., erst der Header,
dann das Dokument.
Hallo Rolf!
ganz zum Anfang hatte ich's so:
use CGI qw(:standard);
.
.
.
Übergabeparameter lesen und aufbereiten
$tag = param('tag');
$monat = param('monat');
$jahr = param('jahr');
.
.
&msgreg(@html);
.
.
sub msgreg {
#template lesen
open (FILE,"$regresultpath") die "Can't Open $regresultpath!\n";
@lines = <FILE>;
close(FILE);
print "Content-type: text/html\n\n"; #header
#result ausgeben und bei '<!--begin->' @html einfügen
foreach $line (@lines) {
if ($line =~ /<!--begin-->/) {
print @_;
} else {
print $line;
}
}
}
ging aber auch nicht... :-(
jedenfalls "offline" auf meinem PC. Online ist dieses Script nämlich so im Einsatz (UNIX, Apache, Perl5.004).
Gruß Frank