170 |
} |
} |
171 |
|
|
172 |
|
|
|
$ENV{LANG} = 'C'; # so we don't double-encode utf-8 if LANG is utf-8 |
|
|
|
|
173 |
my $listenersock = IO::Socket::INET->new( |
my $listenersock = IO::Socket::INET->new( |
174 |
Listen => 5, |
Listen => 5, |
175 |
Proto => 'tcp', |
Proto => 'tcp', |
187 |
: IO::Socket::SSL->new( $config->{upstream_ldap} . ':ldaps') |
: IO::Socket::SSL->new( $config->{upstream_ldap} . ':ldaps') |
188 |
|| die "can't open upstream socket: $!"; |
|| die "can't open upstream socket: $!"; |
189 |
|
|
|
binmode( $listenersock ); |
|
|
binmode( $targetsock ); |
|
|
|
|
190 |
run_proxy($listenersock,$targetsock); |
run_proxy($listenersock,$targetsock); |
191 |
|
|
192 |
1; |
1; |