Use SSL/TLS when configured to do so.

[mirror/userdir-ldap-cgi.git] / Util.pm
diff --git a/Util.pm b/Util.pm

index 1688dc4..2b5b266 100644 (file)
--- a/Util.pm
+++ b/Util.pm
@@ -3,6 +3,7 @@ package Util;
  
  use strict;
  use Date::Manip qw(ParseDate);
+use Net::LDAP qw(:all);
  
  my $blocksize = 8; # A blowfish block is 8 bytes
  my $configfile = "/etc/userdir-ldap/userdir-ldap.conf";
@@ -339,4 +340,17 @@ sub ReadConfigFile {
    return %config;
  }
  
+sub UpgradeConnection($) {
+  my ($ldap) = @_;
+  my $mesg = $ldap->start_tls(
+                          verify => 'require',
+                          capath => '/etc/ssl/certs/'
+                          );
+  $mesg->sync;
+  if ($mesg->code != LDAP_SUCCESS) {
+    print "Content-type: text/html; charset=utf-8\n\n";
+    print "<html><body><h1>STARTTLS failed: "..$mesg->error."</h1></body></html>\n";
+    exit(1);
+  };
+};
  1;