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";
$out .= substr($in, $_*4, 4)." ";
}
}
+ chop $out;
return $out;
}
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;