From 5b765848229835ff58a53095b7e494047f69a6fb Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Sun, 15 Mar 2009 21:20:35 +0000
Subject: [PATCH] use ssl connection to upstream ldap

---
 bin/ldap-rewrite.pl | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/bin/ldap-rewrite.pl b/bin/ldap-rewrite.pl
index b3080f8..58c8222 100755
--- a/bin/ldap-rewrite.pl
+++ b/bin/ldap-rewrite.pl
@@ -9,6 +9,7 @@ use warnings;
 
 use IO::Select;
 use IO::Socket;
+use IO::Socket::SSL;
 use warnings;
 use Data::Dump qw/dump/;
 use Convert::ASN1 qw(asn_read);
@@ -144,6 +145,8 @@ my $targetsock = new IO::Socket::INET (
 	PeerPort => 389,
 );
 
+$targetsock = IO::Socket::SSL->new("ldap.ffzg.hr:ldaps");
+
 run_proxy($listenersock,$targetsock);
 
 1;
-- 
2.20.1