X-Git-Url: https://git.adam-barratt.org.uk/?p=mirror%2Fuserdir-ldap-cgi.git;a=blobdiff_plain;f=login.cgi;h=cfe73805b764be522ec49c38627cfd253b53d69d;hp=6a3254716b02732d341e3c0d8fcbe2f8a8085163;hb=b564a1a3a3b8c9363004b2f0f6bc4fe761d4a2d8;hpb=295f9baecdce2ac043eaf41833094b0435d932aa

diff --git a/login.cgi b/login.cgi
index 6a32547..cfe7380 100755
--- a/login.cgi
+++ b/login.cgi
@@ -28,6 +28,7 @@ my $hrkey = unpack("H".($config{blowfishkeylen}*2), $key);
 my $cipher = new Crypt::Blowfish $key;
 
 my $ldap = Net::LDAP->new($config{ldaphost}) || &Util::HTMLError($!);
+&Util::UpgradeConnection($ldap) unless $config{usessl} eq 'False';
 
 my $username = $query->param('username');
 my $password = $query->param('password');