|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : alexander kudrikov 2:5020/400 26 Nov 2002 08:50:06
To : Ivan Frolcov
Subject : Re: SMTP поверх proxy
--------------------------------------------------------------------------------
> > Я вижу выход только в наследовании от NET::SMPT и полном дублировании
его
> >конструктора без его вызова
> > хотя не уверен что это поможет.
> Я делал похожую штуку для News::NNTPClient именно так - переписав
> конструктор. Работало как из пушки.
Я только начинаю писать но перле, но новичкам везет :) Частично мне удалось
это реализовать не совсем хорошим способом :)
Я обнаружил, что на перле могу запросто в рантайме поменять чужому классу
его родителя.
Таким образом я сделал ProxySocket наследника от IO::Socket::INET, а
классу SMTP, который наследовался от IO::Socket::INET сказал чтоб он
наследовался не от него а от ProxySocket - по идее ему пофиг, что добавили
промежуточное звено. Т.е.
package MySMTP;
@ISA=qw(Net::SMTP);
@Net::SMTP::ISA=qw(Net::CMD ProxySocket).
В результате он вызывает в своем конструкторе не INETовскй а мой.
Проблемма осталась в том, как в него передать дополнительные параметры? Т.е.
ProxySocket наряду со стандартными берет у меня еще Proxy => 'some proxy
addr', но собака SMTP->new вызывает родителя с явным списком параметров :(((
Что бы можно было еще придумать?
--- ifmail v.2.15dev5
* Origin: Magistral Telecom JV. (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
