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

diff --git a/machines.cgi b/machines.cgi
index 166c2ca..de5191e 100755
--- a/machines.cgi
+++ b/machines.cgi
@@ -92,6 +92,7 @@ my $sortorder = lc($query->param('sortorder')) || "asc";
 
 &Util::HTMLSendHeader;
 $ldap = Net::LDAP->new($config{ldaphost}) || &Util::HTMLError($!);
+&Util::UpgradeConnection($ldap) unless $config{usessl} eq 'False';
 $mesg;
 $ldap->bind;