# -*- perl -*-x
# Copyright (c) 1999-2006 Debian Admin Team Members and Developers (taken from debian/copyright in 2008 by weasel)
-# Copyright (c) 2002, 2003, 2004, 2008 Peter Palfrader
+# Copyright (c) 2002, 2003, 2004, 2008, 2009, 2011, 2012, 2014, 2015 Peter Palfrader
package Util;
my ($ldap) = @_;
my $mesg = $ldap->start_tls(
verify => 'require',
- # Cannot specify the server cert, must specify the CA cert
- #cafile => '/etc/ssl/servicecerts/db.debian.org.crt'
- #cafile => '/etc/ssl/certs/UTN_USERFirst_Hardware_Root_CA.pem'
- cafile => '/usr/share/ca-certificates/mozilla/AddTrust_External_Root.crt'
+ cafile => $config{sslcafile},
);
$mesg->sync;
if ($mesg->code != LDAP_SUCCESS) {
}
}
- next unless (defined(@$readyr)); # Wait some more.
+ next unless (@$readyr); # Wait some more.
for my $rfd (@$readyr) {
if ($rfd->eof) {