А кто скажет как реализовать подключение через socks proxy? Вот создал я $socket через проксю на 110 порт pop.mailserver.com, а дальше? 1) Как послать USER vasya и PASS passw0rd через этот $socket и прочитать ответ от сервера? Пробовал слать таким образом: print $socket "USER vasya\n"; sysread ($socket,$buf,4096); - не прокатывает (или я чего-то не так делаю). 2) Решил использовать my $receiver = Mail::Transport::POP3->new(...) для верности. И снова тупик. А как вот этот $receiver пропихнуть через $socket?>>необходимо написать отправку писем через сокс сервер. Использую модуль Net::SOCKET:SOCKS >>Судя по докуменатции он возвращает обьект который потом можно использовать как обычный >>обьект класса Net::SOCKET. Тоесть я пишу (например) >> >> my $socket = new IO::Socket::Socks(ProxyAddr=>'192.1.1.1', >> ProxyPort=>'1111', >> ConnectAddr=>'microsoft.com', >> ConnectPort=>25, >> SocksDebug=>1); >> >> sysread ($socket,$buf,4096); >> print $buf; >>
|