Papa von Papa Klasse ändern (Allgemeines zu Perl)

[thread]6108[/thread]

Papa von Papa Klasse ändern

esskar

2004-03-02 01:46

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

Code: (dl )

package IO::Socket::SecureSocks;

use strict;

use vars qw(@ISA $VERSION);

require Exporter;
require IO::Socket::Socks;
require IO::Socket::SSL;

@IO::Socket::Socks::ISA = qw(Exporter IO::Socket::SSL);
@ISA = qw(Exporter IO::Socket::Socks);
$VERSION = '0.01';

1;

ist eigentlich unschick, da ich Sachen ändere, die mir nicht gehören, i.e. @IO::Socket::Socks::ISA
aber wie kann ich es besser machen?

kabel

2004-03-02 09:56

User since
2003-08-04
704 Artikel
BenutzerIn
[default_avatar]

hmm. IO::Socket::INET ist hartkodiert in der source...

wie wäre es damit? ein patch für Socks.pm, um in der (nicht vorhandenen) import-methode einen parameter SSL abzufragen. wenn er nicht vorhanden ist, dann verhält sich IO::Socket::Socks normal. wenn SSL vorhanden ist, dann benutzt es IO::Socket::SSL.

IO::Socket::SecureSocks ist dann praktisch ein wrapper um IO::Socket::Socks mit gesetztem SSL import parameter.

-- stefan

View all threads created 2004-03-02 01:46.