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 87ace99..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;
  }
  
@@ -256,7 +258,7 @@ sub LookupCountry {
  my $htmlhdrsent = 0;
  
  sub HTMLSendHeader {
-  print "Content-type: text/html\n\n" if (!$htmlhdrsent);
+  print "Content-type: text/html; charset=utf-8\n\n" if (!$htmlhdrsent);
    $htmlhdrsent = 1;
  }
  
@@ -325,7 +327,8 @@ sub ReadConfigFile {
      if ((!/^\s*#/) && ($_ ne "")) {
        # Chop off any trailing comments
        s/#.*//;
-      ($attr, $setting) = split(/=/, $_, 2);
+      /([^=]+)=(.*)/;
+      ($attr, $setting) = ($1, $2);
        $setting =~ s/"//g; #"
        $setting =~ s/;$//;
        $attr =~ s/^\s+//; $attr =~ s/\s+$//;
@@ -337,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;