# print $html; # finally print the HTML page
# php-Template
{
use Digest::MD5 qw(md5_hex);
my $t = time;
my $dig = md5_hex($t . $html . $$);
if (!-e "$ENV{DOCUMENT_ROOT}/kresult/") {
mkdir("$ENV{DOCUMENT_ROOT}/kresult/");
}
my $php_fname = "ks-$dig-$t.php";
my $outfh;
open ($outfh, ">", "$ENV{DOCUMENT_ROOT}/kresult/$php_fname");
print $outfh $html; # finally print the HTML page
# --- PHP-Datei löschen nach Anzeige? Dann Kommentar entfernen!
print $outfh '';
# ---
close ($outfh);
my $redirect_url = "/kresult/$php_fname";
print <<"HTML";
Suchergebnis unter $redirect_url
HTML
exit;
}
# /php-Template