Xpoint
   [напомнить пароль]

Net::SMTP & SOCKS

Метки: [без меток]
[удл]
2010-08-03 22:40:01 [обр] Igor V[досье]

Здравствуйте!
Появилась задача использования SMTP через SOCKS.
Нарыл Net::SMTP::SocksChain(http://home.sinn.ru/~gosha/perl-scripts/) поставил все ОК,
простейший скрипт (внизу пример) оправляет письмо но соксы почему-то не использует.

Есть идеи из-за чего это может происходить?
Заранее спасибо!
======================================================
#!/usr/bin/perl
use Net::SMTP;
use Net::SMTP::SocksChain;
use strict;
my $smtp = Net::SMTP->new('smtp.aol.com',
      Port => 587 ,
      Hello => 'HomePC',
      Timeout => 10 ,
      Chain_Len => 1 ,
      Debug => 0x64,
      Random_Chain => 0 ,
      Auto_Save => 0,
      Chain_File_Data => [
         '85.119.217.110:1080:::4:',
      ],
);
$smtp->auth ('testing0001@mail.com','testing10001');
$smtp->mail('testing0001@mail.com');
$smtp->to('mailto@gmail.com');

    $smtp->data();
   $smtp->datasend("From: testing0001\@mail.com\n");
   $smtp->datasend("To: mailto\@gmail.com\n");
   $smtp->datasend("Subject: Hey there!!");
       $smtp->datasend("\n");
    $smtp->datasend("A simple test message\n");
    $smtp->dataend();

$smtp->quit;

Powered by POEM™ Engine Copyright © 2002-2005