Select Code to Download

Select or download this

if($usessl) {
    my $defaultdomain = $self->{config}->{sslconfig}->{ssldefaultdomai
+n};
    my $encrypted;
...
        $self->endprogram();
    }
}

Select or download this

                # Enable workarounds for broken clients
                Net::SSLeay::CTX_set_options($ctx, &Net::SSLeay::OP_AL
+L);

...

                # Disable session tickets
                Net::SSLeay::CTX_set_options($ctx, &Net::SSLeay::OP_NO
+_TICKET);

Select or download this
Net::SSLeay::CTX_use_certificate_chain_file($ctx, $self->{config}->{sslconfig}->{ssldomains}->{$defaultdomain}->{sslcert});

Select or download this

                Net::SSLeay::CTX_set_tlsext_servername_callback($ctx, 
+sub {
                    my $ssl = shift;
                    my $h = Net::SSLeay::get_servername($ssl);
...
                });
...
            },