|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Andrey Golubev 2:5030/542.122 10 Dec 2000 01:06:34
To : Artem Chuprina
Subject : проблемы с Net::SMTP
--------------------------------------------------------------------------------
*** Answering a msg posted in area AZAZELLO.MAIL (Почта мне).
Hello Artem!
23 октября 2000 22:26, Artem Chuprina wrote to Andrey Golubev:
AC> * Forwarded from area 'RU.PERL'
AC> On Fri, 20 Oct 00 11:42:52 +0400 Andrey Golubev
AC> <Andrey_Golubev@p122.f542.n5030.z2.fidonet.org> wrote:
AG>> Hello All!
AG>> Почему-то не работает у меня отправка писем с домашнего компа...
AG>> Пользую для этого Net::SMTP
AG>> Вот прога:
AG>> #!/proglang/perl/bin/perl -w
AG>> use Net::SMTP;
AG>> $smtp = Net::SMTP->new('smtp.mail.ru');
AG>> $smtp->mail($ENV{USER});
AG>> # $smtp->mail('xxx@mail.ru');
AG>> это тоже подставлял вместо предыдущей
AG>> $smtp->to('postmaster');
AG>> # $smtp->to('bbb@softhome.net');
AG>> это тоже подставлял вместо предыдущей
AG>> $smtp->data();
AG>> $smtp->datasend("To: postmaster\n");
AG>> $smtp->datasend("\n");
AG>> $smtp->datasend("A simple test message\n");
AG>> $smtp->dataend();
AG>> $smtp->quit;
AG>> Вообще-то это примерчик из perldoc Net::SMTP...
AG>> А не работает следующее... после запуска, если у нас в первой
AG>> строке стоит -w выдается такое сообщение, если не стоит, то ничего
AG>> не выдается, но ничего и не делается ...
AG>> Use of uninitialized value at
AG>> C:/Proglang/Perl/site/lib/Net/Config.pm line 42.
AG>> Hе работает даже такой скрипт
AG>> #!/proglang/perl/bin/perl -w
AG>> use Net::SMTP;
AG>> # $smtp = Net::SMTP->new('mailhost');
AG>> $smtp = Net::SMTP->new('smtp.mail.ru');
AG>> # print $smtp->domain,"\n";
AG>> $smtp->quit;
AG>> В ответ выдается тоже самое...
AG>> Когда я переустанавливаю libnet на команду
AG>> nmake test в ответ выдается следующее...
AG>> t\nntp..............Use of uninitialized value at
AG>> C:/Temp/1/blib/lib/Net/Config.
AG>> pm line 42.
AG>> skipping test on this platform
AG>> t\ph................Use of uninitialized value at
AG>> C:/Temp/1/blib/lib/Net/Config.
AG>> pm line 42.
AG>> skipping test on this platform
AG>> t\require...........Use of uninitialized value at
AG>> C:/Temp/1/blib/lib/Net/Config.
AG>> pm line 42.
AG>> ok
AG>> t\smtp..............Use of uninitialized value at
AG>> C:/Temp/1/blib/lib/Net/Config.
AG>> pm line 42.
AG>> skipping test on this platform
AG>> All tests successful, 5 tests skipped.
AG>> Files=6, Tests=11, 7 wallclock secs ( 0.00 cusr + 0.00 csys =
AG>> 0.00 CPU)
AG>> То есть тоже самое... про 42 строку.... Вообщем подскажите, плс,
AG>> что у меня не так, каких модулей не хватает... И главное что
AG>> делать ?
AC> Для начала показать строку 42 конфиг.пм. А там посмотрим.
if ($< == $> and !$CONFIGURE) {
my $home = eval { (getpwuid($>))[7] } || $ENV{HOME};
> $file = $home . "/.libnetrc";
$ref = eval { do $file } if -f $file;
%NetConfig = (%NetConfig, %{ $ref })
if ref($ref) eq 'HASH';
}
выделенная строчка 42...
WBR, Andrey Golubev
---
* Origin: Вот ! (2:5030/542.122)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
