- Socks In Perl, Raist, 19:28 , 01-Окт-06 (1)
- Socks In Perl, Kuzik, 10:04 , 30-Янв-07 (2)
Ты коннектишься к билли на почту. Он ее не любит. Поставь адрес реального сервера и сервиса.>необходимо написать отправку писем через сокс сервер. Использую модуль 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; > >И на экран должно вывести нечто вроде >220 Welcomo to Bill SMTP Server >Если конечно все нормально создалось (ну положим у нас есть проверка сокета >на undef) >...Короче говоря нифига не работает :) Сокет создается, но ничего из него >не читает :(( >Почему и что делать? Может этот модуль нормально не работает и нужно >воспользоватся другим? Подскажите хотя бы в какую сторону копать плз....
|