|
|
|
Forum Member
 
участник
Last Login: 17.07.2002 11:02
Сообщ.: 31,
Visits: 342
|
|
У меня в форме используются radiobutton, как в перл скрипте прочитать возвращаемое значение?
И еще как с помощью перл отправить письмо с сервера?
|
|
|
|
|
Supreme Being
участник
Last Login: 20.09.2003 13:10
Сообщ.: 121,
Visits: 1 332
|
|
>>...используются radiobutton, как в перл скрипте прочитать возвращаемое значение?
Так же как значения других полей.
>>И еще как с помощью перл отправить письмо с сервера?
open(MAIL, "|/usr/sbin/sendmail someone\@mail.com");
print MAIL "Subject: hello";
print MAIL "From: someone";
print MAIL "This is test";
close(MAIL);
|
|
|
|
|
Forum Member
участник
Last Login: 17.07.2002 11:02
Сообщ.: 31,
Visits: 342
|
|
| Если можно пример по radiobutton.
|
|
|
|
|
Supreme Being
участник
Last Login: 20.09.2003 13:10
Сообщ.: 121,
Visits: 1 332
|
|
Примеры парсинга данных переданных на сервер методами POST или GET есть почти в каждой книжке по Perl (или используй чужие библиотеки). Вот простейший вариант определения значения поля с именем radio переданным методом GET:
$querystring = $ENV{"REQUEST_URI"};
$querystring =~ m/radio=(.*)$/;
$radiovalue = $1;
print $radiovalue;
Будет работать только в том случае если передано только один парамер.
|
|
|
|
|
Supreme Being
участник
Last Login: 13.10.2006 1:31
Сообщ.: 143,
Visits: 1 577
|
|
вариант посылки почты прямо по 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
|
|
|
|