Perl - специальный справочник


           

Perl. Специальный справочник - стр. 323


Листинг 20.5. email.htm

<HTML>

<HEAD>

<TITLE>Send me some email</TITLE>

</HEAD>

<BODY BGCOLOR="white" LINK="red">

<CENTER><H1>Send me some email</H1></CENTER>

<HR><FORM METHOD="POST"

ACTION="http://www.yourserver.com/username/cgi/email.cgi"

ENCTYPE="application/x-www-form-urlencoded">

Please enter your email address:

<INPUT TYPE="text" NAME="name" VALUE=""><P>

Please enter the email's subject:

<INPUT TYPE="text" NAME="subject" VALUE=""><P>

Please enter the email you want to send: <P>

<TEXTAREA NAME="text" ROWS=10 COLS=60>Dear you:</TEXTAREA><P>

<CENTER>

<INPUT TYPE="submit" NAME="submit" VALUE="Send email">

<INPUT TYPE="reset">

</CENTER>

<HR>

</FORM>

</BODY>

</HTML>

Листинг 20.6. email.cgi

#!/usr/bin/perl

use CGI

$co = new CGI

print $co->header,

$co->start_html(

-title=>'Guest Book Example', -author=>'Steve',

-BGCOLOR=>'white', -LINK=>'red');

if ($co->param()) {

$from = $co->param('name');

$from =~ s/@/\@/;

$subject = $co->param('subject');

$text = $co->param('text');

$text =~ s/</&lt/;

open(MAIL, '| /usr/lib/sendmail -t -oi');

prin MAIL <<EOF;

To: steve\@yourserver.com

From: $from

Subject: $subject

$text

EOF

close MAIL;

}

$co->center($co-h1('Thanks for sending me email!')),

$co->hr,

$co->end_html;

Глава 21. CGI: многопользовательские чаты, теневые посылки (cookies) и игры

Коротко

В этой главе мы собираемся рассмотреть несколько мощных примеров CGI-сценариев. В этот список входят: приложение, обеспечивающее одновременную беседу нескольких пользователей, сценарий, предоставляющий возможность устанавливать и читать теневые посылки (cookies), и настоящая интерактивная игра — возможно, вы даже получите удовольствие, поиграв в нее.




Содержание  Назад  Вперед