Commit 94676fa5 authored by David Hawes's avatar David Hawes
Browse files

Change cipher and set sslversion.

parent da791058
...@@ -21,7 +21,7 @@ my $ldap = Net::LDAP->new($server, port => $port, version => 3) or die $@; ...@@ -21,7 +21,7 @@ my $ldap = Net::LDAP->new($server, port => $port, version => 3) or die $@;
my $mesg = $ldap->start_tls(verify => 'require', my $mesg = $ldap->start_tls(verify => 'require',
cafile => $cafile, cafile => $cafile,
ciphers => 'RC4-SHA', ciphers => 'AES256-SHA256', sslversion => 'tlsv1_2',
clientcert => $clientcert, clientcert => $clientcert,
clientkey => $clientkey); clientkey => $clientkey);
$mesg->code && die $mesg->error; $mesg->code && die $mesg->error;
...@@ -58,4 +58,4 @@ else ...@@ -58,4 +58,4 @@ else
print $entry->dn.": $attr != $value\n"; print $entry->dn.": $attr != $value\n";
} }
$ldap->unbind; $ldap->unbind;
\ No newline at end of file
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment