Parent Directory | Revision Log | Patch
revision 10 by dpavlin, Sun Mar 15 19:48:21 2009 UTC | revision 16 by dpavlin, Sun Mar 15 21:20:35 2009 UTC | |
---|---|---|
# | Line 9 use warnings; | Line 9 use warnings; |
9 | ||
10 | use IO::Select; | use IO::Select; |
11 | use IO::Socket; | use IO::Socket; |
12 | use IO::Socket::SSL; | |
13 | use warnings; | use warnings; |
14 | use Data::Dump qw/dump/; | use Data::Dump qw/dump/; |
15 | use Convert::ASN1 qw(asn_read); | use Convert::ASN1 qw(asn_read); |
# | Line 144 my $targetsock = new IO::Socket::INET ( | Line 145 my $targetsock = new IO::Socket::INET ( |
145 | PeerPort => 389, | PeerPort => 389, |
146 | ); | ); |
147 | ||
148 | $targetsock = IO::Socket::SSL->new("ldap.ffzg.hr:ldaps"); | |
149 | ||
150 | run_proxy($listenersock,$targetsock); | run_proxy($listenersock,$targetsock); |
151 | ||
152 | 1; | 1; |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |