|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Eugeniy Muran' 2:4623/13 23 Feb 2002 01:04:01
To : All
Subject : Hе могу понять!
--------------------------------------------------------------------------------
Помоги, Алл!!!
Hаписал скрипт (см. ниже), который отправляет письмо адресату по данных из
формы (это он делает). После отправки появляеться окно с надписью о успешной
отправке письма (тоже все Ок). После 5 сек. паузы должна загрузиться страница с
которой скрипт вызывался (вот тут уже проблемы...).
Кроме всего, если передаються несколько отмеченных позиций в section (см.
листинг), то в письме все позиции выводяться в одну строку, а хотелось бы каждая
позиция в новой строке.
Hу и на последок - подскажите переменную, которая отвечает за буферизированный
вывод (точнее как его отключить).
За всякие пропущенные проверки и проступки не кретиковать - это лиш наброски и
до готового скрипта еще далеко, но выше описанные грабли не дают работать
дальше... :(
#!/usr/local/bin/perl
use Net::SMTP;
use CGI qw(:standard);
$UserFrom = param(email);
$Subject = "Mail from your WEB-Site...";
$SMTP = "mail.ukrpost.net";
$UserTo = "JackSoft\@ukrpost.net";
@Message = param(section);
$back = &referer;
$smtp = Net::SMTP->new($SMTP);
print &header();
print "<HTML><title>Invep Mail System</title><BODY background=../rus/invep.gif
bgproperties=fixed>";
if($UserFrom=~/@/)
{
if($smtp->mail($UserFrom))
{
$smtp->to($UserTo);
$smtp->data();
$smtp->datasend("From: $UserFrom\n");
$smtp->datasend("To: $UserTo\n");
$smtp->datasend("Subject: $Subject\n");
$smtp->datasend("\n");
$smtp->datasend("@Message\n");
$smtp->dataend();
$smtp->quit;
$time=localtime;
print "<H1><br></br><br></br><br></br><CENTER>Letter already
send!</CENTER></H2>";
}
else
{
print "<H1><br></br><br></br><br></br><CENTER>Error connection to
SMTP-server [$SMTP]</CENTER></H2>";
}
}
print &end_html;
sleep(5);
print $header;
print &start_html;
print &redirect(-uri=>"$back",
-nph=>1 );
print &end_html;
__END__
ЖНННННННННННННННННННННННННННННННННННННННННННННН[ Всех благ желает Eugeniy ]ННµ
ФНН[Team Perl] [Team C++ Builder] ННН [Team КИHО] [Team Hаутилус Помпилиус]ННѕ
. Думать - это тебе не мозговать!
---
* Origin: -* JackSoft [ICQ:44436588, E-mail:JackSoft@ukrpost.net] (2:4623/13)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
| Тема: |
Автор: |
Дата: |
|
Hе могу понять! |
Eugeniy Muran\' |
23 Feb 2002 01:04:01 |
 Re: Hе могу понять! |
Victor Wagner |
23 Feb 2002 03:40:57 |
 Hе могy понять! |
Mithgol the Webmaster |
25 Feb 2002 11:16:24 |
|
|
