596__________________Часть V. Разработка программ и написание скриптов
if ($ENV{'REQUEST_METHOD'}eq 'POST')(
readfSTDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs= split(/&/, $buffer);
foreach $pair (@pairs)(
($name, $value)=spli (/=/',$pair);
$ value=~tr/+/ /;
$value=~s/%([a-fA-FO-9][a-fA-FO-9])/pack("C", hex($l))/eq;
$contents{$name}=$value;
# Open The Mail
open(MAIL, "¦$mailprog -t")¦¦die "Can't open $mailprog!\n",^
print MAIL "To:$recipient\n";
print MAIL "From:$contents{'email'}<$contents'realname'}>\n";
print MAIL "Subject:$contents{'subject'}\n\n";
print MAIL "$contents{'comments'}\n\n";
close(MAIL);
print «"HTML";
<HTML>
<HEADXTITLE>Thank you! </TITLEX/HEAD>
<BODY BGCOLOR=#FFFFFF>
<Hl>Thank you!</Hl>
Thank you for your comments!
<P>
<HR>
<CENTER>
<A HREF="http://www.selah.net/cgi.html">[Return to the main page]</A>
</CENTER>
</BODY>
</HTML>
HTML
exit;
Обычно одной из наиболее важных частей CGI-скрипта является код, возвращающий какую-либо информацию посетителю. В приведенном примере посетителя просто поблагодарили за сделанные комментарии. Отправка об-