Comment out uuid - nobody will get it's just an identifier

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

index 98668c3..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";
@@ -171,10 +172,11 @@ sub FormatFingerPrint {
        $out .= "&nbsp;" if ($_ == 7);
      }      
    } else {
-    foreach (0..int(length($in)/2)) {
+    foreach (0..int(length($in)/4)) {
        $out .= substr($in, $_*4, 4)." ";
      }      
    }
+  chop $out;
    return $out;
  }
  
@@ -338,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;