#!/usr/bin/perl
#changed the shebang from /usr/local/bin -lwk 11/20/2000 NARA archival effort
# White House for Kids Good-bye White House Script
# Tim Heberling, 1996
# **** CONFIG ****
#set delay (in seconds) for refresh
$delay=8;
# **** MAIN STARTS HERE ****
&ncsa_get_vars;
print "Content-type: text/html\n";
print "Refresh: $delay; URL=$forms{'url'}\n";
print "\n";
print "\n";
print "\n";
print "bye-bye!\n";
print "\n";
print "\n";
print "
";
print "\n";
print "Thank you for visiting the White House for Kids Home Page,
";
print "We're going to take a nap now...
\n";
print "
\n";
print "
Please scratch our heads with your pointer to continue
";
print "";
print "\n";
print "\n";
#*****SUB ROUTINES BELOW HERE*****
sub ncsa_get_vars {
if ($ENV{'REQUEST_METHOD'} eq "POST") {
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
}
else {
$buffer = $ENV{'QUERY_STRING'};
}
local(@query_strings) = split("&", $buffer);
foreach $q (@query_strings) {
$q =~ s/\+/ /g;
($attr, $val) = split("=", $q);
$val =~ s/%/\n%/g;
local($tmpval);
foreach (split("\n",$val)){
if(m:%(\w\w):){
local($binval) = hex($1);
if(($binval>0)&&($binval<256)){
local($htmlval) = pack("C",$binval);
s/%$1/$htmlval/;
}
}
$tmpval .= $_;
}
$forms{$attr} = $tmpval;
}
%forms;
}