Использование socks5 прокси с Net :: SMTP - PullRequest
Новая
       16

Использование socks5 прокси с Net :: SMTP

2 голосов
/ 15 июля 2010

Я хотел бы использовать Net :: SMTP с динамическим прокси socks. IO :: Socket :: Socks знает о socks, но как его использовать с net :: smtp?

1 Ответ

3 голосов
/ 11 марта 2011

Я понял это, но он включает взлом, который может или не может работать с будущей версией Net :: SMTP: 

use Net::SMTP;
use Net::SOCKS;
my $socks = new Net::SOCKS(socks_addr=>$shost,socks_port=>$sport, protocol_version=>5) or die $!; 
my $socksfd = $socks->connect(peer_addr=>$smtp_server,peer_port=>25);
if(!$socksfd){
    die "Connection to SOCKS failed";
}
my $smtp = Net::SMTP->new_from_fd($socksfd->fileno, 'r+' ) or die $!;

#HACK: there is "220 host.domain.net" line we must read otherwise Net::SMTP would not work!
$smtp->getline();

$smtp->hello("localhost") or die $smtp->message();
#from here Net::SMTP business as usual...
...