Ãëàâà 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")