Архив эхоконференции RU.PERL сообщение #89

- RU.PERL ----------------------------------------------------------- RU.PERL -
 Msg  : #89 [1062]
 От   : Denis Knyazev                 2:50/551.38         01 сентября 03, 17:37
 Кому : Algis Dumbris                                     03 сентября 03, 22:30
 Тема : Mail through Socks proxy
-------------------------------------------------------------------------------
Доброго времени суток !
 --==  #Algis Dumbris# /=>/ #All#  ==--

AD> Имеется задача Perl скриптом из корпоративной сети через Socks
AD> сервер этой организации отослать письмо на внешний SMTP. Т.е. по
AD> условию задачи из сети по 25 порту коннектится нельзя, отослать
AD> письмо на локальный relay тоже нельзя. Мои соображения как этого
AD> можно достигнуть "малой кровью": Создать наследника класса
AD> Net::SMTP, переопределить в нем конструктор new так что бы вместо
AD> обычного сокета IO::Socket::INET создавался сокет Net::SOCKS.
AD> А дальше пользоваться всеми методами объекта вновь созданного
AD> класса как будьто это обычный Net::SMTP.
AD> Правильно я мыслю или есть более простые способы решения задачи?

        Я делал приблизительно так:

   $request  = "";
   $request .= "POST http://$dstHost:25/ HTTP/1.0\r\n";
   $request .= "Host: $dstHost\r\n";
   $request .= "Content-type: application/x-www-form-urlencoded\r\n";
   $request .= "Content-length: ".length($smtpdata)."\r\n\r\n";
   $request .= "$smtpdata";

   $socket = IO::Socket::INET->new(PeerAddr => $proxAddr,
                    PeerPort => $proxyport,
                    Proto    => 'tcp',
                    Type     => SOCK_STREAM);

   print $socket $request;

        В скаляре $smtpdata делаем собственно письмо.
        Остально, надеюсь, понятно из названий переменных.
        C MIME-форматом не разбирался.


                                                WBR, Denis.
[#m:tg#] [#rpg#] [#gothic#] [#folk#] [#black#]
email: denizen[at]nm.ru    ICQ UIN: 99806075

--- God is Real, unless declared as Integer
 * Origin: Банальнейший артефакт (2:50/551.38)

Канарские острова  free hosted forums  форум вебмастеров  бесплатный хостинг