| Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате |
| Форум программистов > Perl: разработка для Web > Отправка почты |
| Автор: marlen 1.9.2003, 21:54 |
| Привет всем, не знаю где ошибка, тем более тема для меня новая. Работаю под WIN-XP, стоит Apache, Perl, тест-ую Perl Builder'ом. Нижеуказанный скрипт по идее должен послать мне почту, но при тестировании скрипт говорит что всё о'кей почта ушла, а при сохра нении в cgi-bin и запуска оттуда выскакивает ERROR 500. И ещё, если у кого-то есть инфа по использованию этого скрипта (сдаётся мне он сильно известен) буду очень благодарен за помощь. (only Russia) ################################################ #!C:/Perl/bin/perl print"Content-type: text/html charset='windows-1251'\n\n"; use strict; use CGI qw(:all); use CGI::Carp qw(fatalsToBrowser); use Net::SMTP; my $site_url="http://rambler.ru/"; my $relay="pop3.rambler.ru"; sub send_mail { my $to="[email protected]"; my $from="[email protected]"; my $subject="Hi ameba!"; my @body="The test."; my $smtp = Net::SMTP->new($relay); return 1 if (! defined $smtp); $smtp->mail($from); $smtp->to($to); $smtp->data(); $smtp->datasend("To: $to\n"); $smtp->datasend("From: $from\n"); $smtp->datasend("Subject: $subject\n"); $smtp->datasend("\n"); foreach(@body) { $smtp->datasend("$_\n"); } $smtp->dataend(); $smtp->quit; return 0; } my $rc; $rc=send_mail('@' .$relay. '???','Urgent!'); #Вот тут поподробнее. if($rc != 0) { print"\nERROR MAIL"; } else { print"\nMAIL O'KEY!"; } ############################################### |
| Автор: marlen 8.9.2003, 06:41 |
| Из 17 посмотревших, ни один, толкового ничего не сказал... |
| Автор: marlen 8.9.2003, 06:45 |
| Ошибку нашёл, use strict; не надо было использовать, а почту так и не получил, я отправлял её со своего компа, может надо провайдерской почтой воспользоватся. Спасибо.  |