#!/usr/bin/perl
##
## printenv -- demo CGI program which just prints its environment
##Tue Dec 21 10:59:45 JST 2004 change some SERVER environments
## and + something
print "Content-type: text/html\n\n";
print <
環境変数チェック
HEAD
#$ENV {PATH} = "/bin:/usr/bin:/usr/local/bin";
$ENV {PATH} = "& e m p t y ;";
$ENV {HTTP_HOST} = "riddle!";
$ENV {SERVER_ADDR} = "I wouldn't tell you, sorry.";
$ENV {SERVER_NAME} = "It's my secret.";
$ENV {SERVER_ADMIN} = "N i m d a";
$ENV {SERVER_SIGNATURE} = "Ha, Ha, Ha!";
$ENV {BAKKAYARO} = "げらげら";
#$ENV {QUERY_STRING} = "I don't want to parse this!";
if ($ENV {QUERY_STRING} =~ ".") {
print "ERR! I don't want to parse QUERY_STRING!\n";
print <
END
exit(0);
}
foreach $var (sort(keys(%ENV))) {
$val = $ENV{$var};
$val =~ s|\n|\\n|g;
$val =~ s|"|\\"|g;
print "${var}=\"${val}\" \n";
}
print <Go to the top page
END