Релиб / Веб-программирование / Perl / Плиз, помогите... / Latest Posts

RE: Плиз, помогите...

mar — Mon, 03 Dec 2001 01:44:00 GMT

вариант посылки почты прямо по SMTP-протоколу (не связываемся с почтовой программой, - это не всегда безопасно)
use Net::SMTP; # подключаем модуль
....
sub mailing {
$subject="test";
$to=кому посылаем;
$hostname=Наш SMTP Host ;
$smtp = Net::SMTP->new('$hostname',
Hello => 'localhost',
);
$smtp->_MAIL("from: qq\@mail.ru");
$smtp->_RCPT("to: $to");
$smtp->data();
$smtp->datasend("To: $to
");
$smtp->datasend("From: Имя отправителя
");
$smtp->datasend("Subject: $subject
");
$smtp->datasend("X-Mailer: BioMail v1b или что там у вас
");
$smtp->datasend("MIME-Version: 1.0
");
$smtp->datasend("Content-Transfer-Encoding: 8bit
");
$smtp->datasend("Content-Type: text/plain; charset=\"koi8-r\"

");

$smtp->datasend("My test
");
$smtp->dataend();
$smtp->quit;
}

по радиокнопкам и другим элементам формы - удобно использовать CGI.pm

RE: Плиз, помогите...

sunex — Sat, 01 Dec 2001 20:35:00 GMT

Примеры парсинга данных переданных на сервер методами POST или GET есть почти в каждой книжке по Perl (или используй чужие библиотеки). Вот простейший вариант определения значения поля с именем radio переданным методом GET:

$querystring = $ENV{"REQUEST_URI"};
$querystring =~ m/radio=(.*)$/;
$radiovalue = $1;
print $radiovalue;

Будет работать только в том случае если передано только один парамер.

RE: Плиз, помогите...

Stam — Sat, 01 Dec 2001 11:10:00 GMT

Если можно пример по radiobutton.

RE: Плиз, помогите...

sunex — Sat, 01 Dec 2001 00:01:00 GMT

>>...используются radiobutton, как в перл скрипте прочитать возвращаемое значение?
Так же как значения других полей.

>>И еще как с помощью перл отправить письмо с сервера?

open(MAIL, "|/usr/sbin/sendmail someone\@mail.com");
print MAIL "Subject: hello";
print MAIL "From: someone";
print MAIL "This is test";
close(MAIL);

Плиз, помогите...

Stam — Fri, 30 Nov 2001 21:51:00 GMT

У меня в форме используются radiobutton, как в перл скрипте прочитать возвращаемое значение?
И еще как с помощью перл отправить письмо с сервера?