Скрипт для отправки почты

[Kataklysm]

Доброе время суток.
В чем я мог ошибиться?

Код:

inetserver:/home/kataklysm/fw_route # cat smtp.perl #!/usr/bin/perl # Sat May 10 23:22:43 VLAST 2008 use Net::SMTP; $smtp = Net::SMTP->new('smtp.mail.ru'); $smtp->auth('Login','password'); $smtp->mail('bla_bla@mail.ru'); $smtp->to('bla_bla@gmail.com'); $smtp->data(); $smtp->datasend("To: malmyzh\xxx.xxx.xxx.xxx\n"); $smtp->datasend("\n"); $smtp->datasend("Sat May 10 23:22:43 VLAST 2008"); #DATE $smtp->datasend("\n"); $smtp->datasend("77.35.00.00"); #IP $smtp->dataend(); $smtp->quit;

После запуска скрипта пишет:

Код:

inetserver:/home/kataklysm/fw_route # ./smtp.perl Unknown callback: 'authname'. (user|auth|language|pass)

[Alexxx]

Тупо скопипастил скрипт из твоего поста, подставил свои данные, всё работает, никаких ошибок.

[Kataklysm]

Тупо скопипастил скрипт из твоего поста, подставил свои данные, всё работает, никаких ошибок.

Хм...интересно....

[Underworld]

а у меня неработает. Пробовал в WinXP

Illegal hexadecimal digit 'x' ignored at Безымянный1 line 11.
Can't locate Authen/SASL.pm in @INC (@INC contains: C:/Perl/lib C:/Perl/site/lib .) at C:/Perl/site/lib/Net/SMTP.pm line 102.

[allez]

Underworld, вы бы просто сообщение об ошибке перевели, оно содержит исчерпывающую информацию:

Can't locate Authen/SASL.pm in @INC (@INC contains: C:/Perl/lib C:/Perl/site/lib .) at C:/Perl/site/lib/Net/SMTP.pm line 102.