Revert "drop overrids - LDAP has it on its own"

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

index 374a592..27060d7 100644 (file)
--- a/Util.pm
+++ b/Util.pm
@@ -7,7 +7,7 @@ package Util;
  
  use strict;
  use Date::Manip qw(ParseDate);
-use Net::LDAP qw(:all);
+use Net::LDAP qw(LDAP_SUCCESS LDAP_PROTOCOL_ERROR);
  use English;
  
  my $blocksize = 8; # A blowfish block is 8 bytes
@@ -33,21 +33,26 @@ sub CreateKey {
  }
  
  sub CreateCryptSalt {
+  # CreateCryptSalt(type = 0, skip_header = 0)
    # this can create either a DES type salt or a MD5 salt
+  # 0 for DES, 1 for MD5 salt
+  # if skip_header is 0, does not add $1$ for md5 salts.
    my $md5 = shift; # do we want a MD5 salt?
+  my $no_crypttype_header = shift;
    my $validstr = './0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ';
    my @valid = split(//,$validstr);
    my ($in, $out);
-  
+
    my $cryptsaltlen = ($md5 ? 8 : 2);
-  
+
    open (F, "</dev/urandom") || die &HTMLError("No /dev/urandom found!");
    foreach (1..$cryptsaltlen) {
      read(F, $in, 1);
      $out .= $valid[ord($in) % ($#valid + 1)];
    }
    close F;
-  return ($md5 ? "\$1\$$out\$" : $out);
+  if ($md5 == 1 && !$no_crypttype_header) { $out = "\$1\$$out\$"; }
+  return $out
  }
  
  sub Encrypt { 
@@ -359,7 +364,7 @@ sub UpgradeConnection($) {
    $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";
+    print "<html><body><h1>STARTTLS failed: ".$mesg->error."</h1></body></html>\n";
      exit(1);
    };
  };