#!/usr/bin/perl #404.pl # # # # #Jip de Kort, pip@dds.nl use strict; use CGI qw(:standard :html3); use jip; my $Q=new CGI; print $Q->header(-type=>'text/html', -expires=>'-1day'); my $uri=$ENV{'REQUEST_URI'}; my $refer=$ENV{'HTTP_REFERER'}; $uri=~ s!^/!!; my $head= hoofd('404'); my $ddns=ddns(); print < Kwark > 404 > $uri $head
google

Pagina http://$ddns/$uri niet gevonden.

Probeer iets anders of gebruik de google kwark zoek box.









GROK if ($refer){ print <$refer GROK } #foreach $i (keys %ENV){print "$i= ",$ENV{$i},"\n
";} print "
"; my $voet=voet('404'); print <
$voet GROK