ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : vilfred sagen                        2:5020/400     23 Mar 2002  22:00:02
 To : All
 Subject : ??? MIME::Lite and Mail::Mailer troubles
 -------------------------------------------------------------------------------- 
 

 Привет всем!
 
 задача, нужно настроить сендмейл определенным образом(SMTP AUTH), а я
 за такой проксей сижу, что нельзя обычным мейловым клиентом типа
 Netscape или Outlook express снимать и отправлять почту с удаленных
 серверов. Вышел из положения сделав аналоги нетскейпового мейлера:
 
 #!/usr/bin/perl
 
 use MIME::Lite;
 
 $msg = MIME::Lite->new(
         From     =>'test@www.server.su',
         To       =>'yowazzup@www.lala.ru',
         Subject  =>'Helloooooo, nurse!',
         Type    =>'multipart/mixed'
                         );
 
 $msg->attach(Type     =>'text',
 
              Data     => qq{test}
             );
 MIME::Lite->send('smtp', "www.server.su", Timeout=>60);
 
 $msg->send;
 
 ** Joe's Own Editor v2.8 ** Copyright (C) 1995 Joseph H. Allen **
 File smtp.pl not changed so no update needed.
 [root@www devel]# ./smtp.pl
 Failed to connect to mail server: неверный дескриптор файлая
  at ./smtp.pl line 15
 
 соответственно в логфайл того сервера(удаленного, через который
 отправляю письмо) пишется такая штука:
 
 Mar 23 20:39:28 tv sendmail[14345]: NOQUEUE:
 IDENT:root@[193.218.214.131] did not issue MAIL/EXPN/VRFY/ETRN during
 connection to MTA
 
 и вторая версия(делает то-же самое):
 
 #!/usr/bin/perl
 
 use Mail::Mailer;
 
 $to = 'yowazzup@www.lala.ru';
 $from = 'test@www.server.su';
 $subject = 'URA!!!';
 eval{
 $mailer = new Mail::Mailer 'smtp', Server => 'www.server.su';
 %headers =(
     'To' => $to,
     'From' => $from,
     'Subject' => $subject
 );
 
 $mailer->open(\%headers);
 print $mailer "EEEEEEeeeeeee";
 $mailer->close;
 };
 if($@){print "Couldn't send mail: $@\n"}else{print "all ok\n"}
 ** Joe's Own Editor v2.8 ** Copyright (C) 1995 Joseph H. Allen **
 File smtp.pl not changed so no update needed.
 [root@www devel]# ./smtp.pl
 Couldn't send mail: неправильный дескриптор файла at
 /usr/lib/perl5/site_perl/5.6.0/Mail/Mailer.pm line 270.
 
 и в /var/log/maillog пишется абсолютно то-же самое:
 
 Mar 23 20:45:02 tv sendmail[14349]: NOQUEUE:
 IDENT:root@[193.218.214.131] did not issue MAIL/EXPN/VRFY/ETRN during
 connection to MTA
 
 не понимаю, это поблема перла или это оно так ругается на настройки
 сендмейла на удаленном сервере?? Вторым вариантом скрипта исправно
 отсылал почту через тот сервер, оно либо relaying denied писало в
 логах того сервера, либо еще то-то делало, но говорило all ok, потом
 что-то поменял и начали валиться ошибки.  Главно восстановить работу
 второго варианта мейлера не получается никак. Может я подгадил где в
 smtp.pm? То, что оно пишет в логах значит, что оно ругается на
 непрописание www.server.ru в /etc/mail/local-host-names, но какое
 отношение ответ удаленного сервера имеет к серверу, на котором я
 тестирую скрипт(ведь ошибка-то в
 /usr/lib/perl5/site_perl/5.6.0/Mail/Mailer.pm) или может быть это
 такой баг в мейлере.пм, но тогда почему первый вариант программы
 генерирует в мейллогах удаленного сервера такой-же ответ? Я не
 понял...
 
 Спасибо!
 
 Дима
 --- ifmail v.2.15dev5
  * Origin: http://groups.google.com/ (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор