view release on metacpan or  search on metacpan

lib/Mojolicious/Plugin/BasicAuthPlus.pm  view on Meta::CPAN

        $c->app->log->warn("Connection to $params->{host} failed: $@")
            if $logging;
        return 0;
    }

    my $socket_type = ref $ldap->{net_ldap_socket};
    $c->app->log->warn("LDAP socket type: $socket_type") if $logging;

    unless (
        # SSL connection already established
        ($socket_type eq 'IO::Socket::SSL')

        # Or user doesn't want TLS
        || (defined($params->{start_tls}) && $params->{start_tls} == 0)
        )
    {
        my $dse     = $ldap->root_dse();
        my $has_tls = $dse->supported_extension('1.3.6.1.4.1.1466.20037');

        if ($has_tls) {
            my $mesg = $ldap->start_tls(