#!/usr/bin/perl
print "Content-type:text/html\n\n";
$yourorigin = $ENV{'HTTP_REFERER'};
if ($yourorigin =~ m#^http://www.rjmprogramming.com.au/#) {
@ourpairs = split(/&/, $ENV{'QUERY_STRING'});
foreach $ourpair (@ourpairs) {
($ourname, $ourvalue) = split(/=/, $ourpair);
$ourvalue =~ tr/+/ /;
$ourvalue =~ s/%([\dA-Fa-f]{2})/pack("C", hex($1))/eg;
$formdata{$ourname} = $ourvalue;
}
($oursec, $ourmin, $ourhour, $ourday, $ourmon, $ouryr, $ourwday, $ouryday, $ourisdat) = localtime(time);
$ourmin = sprintf("%02d", $ourmin);
$oursec = sprintf("%02d", $oursec);
$ourlang = $formdata{'language'};
$oururl = "http://translate.google.com/#auto/" . $ourlang . "/We%20hope%20you%20enjoy%20our%20tutorials%20and%20please%20keep%20the%20cards%20and%20letters%20flowing%20in.%20%20The%20time%20for%20our%20server%20is%20" . $ourhour . ":" . $ourmin . ":" . $oursec . ".";
print "\n";
} else {
print "\nAre you accessing from the right place?
";
}