print $html; # finally print the HTML page
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35
{ use Digest::MD5 qw(md5_hex); my $t = time; my $dig = md5_hex($t . $html . $$); if (!-e "$ENV{DOCUMENT_ROOT}/cgi-bin/ksresult/") { mkdir("$ENV{DOCUMENT_ROOT}/cgi-bin/ksresult/"); } my $php_fname = "ks-$dig-$t.php"; my $outfh; open ($outfh, ">", "$ENV{DOCUMENT_ROOT}/cgi-bin/ksresult/$php_fname"); print $outfh $html; # finally print the HTML page # --- PHP-Datei löschen nach Anzeige? Dann Kommentar entfernen! #print $outfh '<?php @unlink("$ENV{DOCUMENT_ROOT}/cgi-bin/ksresult/$php_fname"); ?>'; # --- close ($outfh); my $redirect_url = "/cgi-bin/ksresult/$php_fname"; print <<"HTML"; <html> <head> <meta http-equiv="refresh" content="0; url=$redirect_url"> </head> <body> <p>Suchergebnis unter <a href="$redirect_url">$redirect_url</a></p> </body> </html> HTML exit; }
2011-05-02T18:47:20 biancaWill das nicht madig machen aber es gilt zu beachten, dass man bei dieser Lösung niemals einfach ein Update von ksearch.cgi durchführen darf, weil das natürlich alle eigenen Codeänderungen überschreibt!
2011-05-02T19:18:07 clmsDeshalb hätte ich hier wenig Bedenken.