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-скрипта является код, возвращающий какую-либо информацию посетителю. В приведенном примере посетителя просто поблагодарили за сделанные комментарии. Отправка об-