Trying to create IO::Socket::SecureSocks

esskar has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: Trying to create IO::Socket::SecureSocks by saintmike (Vicar) on Mar 01, 2004 at 22:57 UTC
Modifying variables in packages other than your own (like you're doing with `@IO::Socket::Socks::ISA`) is frowned upon. Also, it's not quite clear what you're trying to accomplish -- what's IO::Socket::SecureSocks supposed to do, which methods do you want to inherit from IO::Socket::Socks/IO::Socket::SSL?	[reply]
Re: Trying to create IO::Socket::SecureSocks by esskar (Deacon) on Mar 01, 2004 at 23:05 UTC
well, i want to establish a socks connection over a secure wire to a SSL Socks Server. I know how to do like POP3 over SSL (i.e. POP3S) or POP3 over a Socks socket. Now i want to be able to communicate POP3 over a SSL Socks Socket. Since IO::Socket::Socks is the best choice to do SOCKS and IO::Socket::SSL the best to do SSL i have to combine them somehow. The thing is: Socks.pm derives from IO::Socket::INET by doing just `@ISA = qw(Exporter IO::Socket::INET);` [download] changing this to `@ISA = qw(Exporter IO::Socket::SSL);` [download] would do the job...	[reply] [d/l] [select]
Re: Re: Trying to create IO::Socket::SecureSocks by saintmike (Vicar) on Mar 02, 2004 at 00:09 UTC
I see. Basically, what you want is "use class IO::Socket::Socks, but not quite." - though one. You could potentially get lucky with Class::Prototyped, see Randal's article in Linux-Magazine. update: code snippet retracted ... or how about this: `package IO::Socket::SecureSocks; use strict; use warnings; use IO::Socket::Socks; use IO::Socket::SSL; sub new { my $self = IO::Socket::SSL->new(@_); bless $self, "IO::Socket::Socks"; } 1;` [download] This creates a IO::Socket::SSL object, and then reblesses it into the IO::Socket::Socks class. It assumes that you know that IO::Socket::Socks inherits the constructor from its base class, so it's still somewhat kludgy :). --saintmike	[reply] [d/l]
Re: Re: Re: Trying to create IO::Socket::SecureSocks by signal9 (Pilgrim) on Mar 02, 2004 at 22:35 UTC
Why not just "use base( 'IO::Socket::Socks' );", then just add/override methods as you need? Update: Oops! Example used modules I was working on for work that day, rather than the modules in question. Fixed that.	[reply]
Re: Trying to create IO::Socket::SecureSocks by Roger (Parson) on Mar 01, 2004 at 22:58 UTC
Isn't IO::Socket::SSL socket over SSL already?	[reply]


Syntactic Confectionery Delight
	PerlMonks