форумы  помощь  поиск  регистрация  майллист  ВХОД  слежка

Вариант для распечатки		Пред. тема | След. тема
Форумы Программирование под UNIX (Public)
Изначальное сообщение		[Проследить за развитием треда]

"Socks In Perl"

Сообщение от Raist (??) on 01-Окт-06, 19:25

необходимо написать отправку писем через сокс сервер. Использую модуль 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) ...Короче говоря нифига не работает :) Сокет создается, но ничего из него не читает  :(( Почему и что делать? Может этот модуль нормально не работает и нужно воспользоватся другим? Подскажите хотя бы в какую сторону копать плз....

Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

Сообщения по теме

[Сортировка по времени, UBB]

1. "Socks In Perl"

Сообщение от Raist (??) on 01-Окт-06, 19:28

Еще такой вариант, может сокс не может установить соединение с удаленным хостом? Или тогда бы вообще сокет не создался? Как это можно проверить вообще ?

Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

2. "Socks In Perl"

Сообщение от Kuzik on 30-Янв-07, 10:04

Ты коннектишься к билли на почту. Он ее не любит. Поставь адрес реального сервера и сервиса. >необходимо написать отправку писем через сокс сервер. Использую модуль 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) >...Короче говоря нифига не работает :) Сокет создается, но ничего из него >не читает  :(( >Почему и что делать? Может этот модуль нормально не работает и нужно >воспользоватся другим? Подскажите хотя бы в какую сторону копать плз....

Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

	3. "Socks In Perl"
	Сообщение от chertyaka on 12-Май-07, 00:10
	А кто скажет как реализовать подключение через 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; >>
	Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

Архив | Удалить	Индекс форумов | Темы | Пред. тема | След. тема
Оцените тред (1=ужас, 5=супер)? [ 1 | 2 | 3 | 4 | 5 ] [Рекомендовать для помещения в FAQ]