Ãëàâà 25. CGI-ñêðèïãû_____ $logfil ="redirect.log";
if ($ENV('REQUEST_METHOD'}eq 'POST')(
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pair =split(/&/, $buffer);
foreach $pair (@pairs)(
($name, $value)=split(/=/, $pair);
$value=~tr/+/ /;
$valu =~s/%([a-fA-FO-9][a-fA-FO-9])/pack("C", hex($l))/eg;
$contents($name)=$value;
chop($date= 'date');
Slogit if $contents('location');
print "Content-type:text/html\n\n";
print «"HTML";
<HTML>
<HEADXTITLE>Whatever</TITLEX/HEAD>
<BODY>
<Hl>Whatever</Hl>
<form action="/cgi-bin/redirect.pl"method="POST">
<input type="siibmit"name="location"value="Infoseek"xbr>
<input type="submit"name="location"value="AltaVista"xbr>
<input type="submit"name="location"value="WebCrawler"xbr>
</form>
</body>
</html>
HTML
exit ;
sub logi {
if ($contents{'location'}eq "Infoseek")