| Server IP : 147.93.80.58 / Your IP : 216.73.216.195 Web Server : LiteSpeed System : Linux id-dci-web1866.main-hosting.eu 5.14.0-503.38.1.el9_5.x86_64 #1 SMP PREEMPT_DYNAMIC Fri Apr 18 08:52:10 EDT 2025 x86_64 User : u939086737 ( 939086737) PHP Version : 8.2.28 Disable Function : system, exec, shell_exec, passthru, mysql_list_dbs, ini_alter, dl, symlink, link, chgrp, leak, popen, apache_child_terminate, virtual, mb_send_mail MySQL : OFF | cURL : ON | WGET : ON | Perl : OFF | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : /lib64/perl5/vendor_perl/auto/Net/SSLeay/ |
Upload File : |
# NOTE: Derived from blib/lib/Net/SSLeay.pm.
# Changes made here will be lost when autosplit is run again.
# See AutoSplit.pm.
package Net::SSLeay;
#line 1564 "blib/lib/Net/SSLeay.pm (autosplit into blib/lib/auto/Net/SSLeay/new_x_ctx.al)"
sub new_x_ctx {
if ( $ssl_version == 2 ) {
unless ( exists &Net::SSLeay::CTX_v2_new ) {
warn "ssl_version has been set to 2, but this version of libssl has been compiled without SSLv2 support";
return undef;
}
$ctx = CTX_v2_new();
}
elsif ( $ssl_version == 3 ) {
unless ( exists &Net::SSLeay::CTX_v3_new ) {
warn 'ssl_version has been set to 3, but this version of libssl has been compiled without SSLv3 support';
return undef;
}
$ctx = CTX_v3_new();
}
elsif ( $ssl_version == 10 ) {
unless ( exists &Net::SSLeay::CTX_tlsv1_new ) {
warn 'ssl_version has been set to 10, but this version of libssl has been compiled without TLSv1 support';
return undef;
}
$ctx = CTX_tlsv1_new();
}
elsif ( $ssl_version == 11 ) {
unless ( exists &Net::SSLeay::CTX_tlsv1_1_new ) {
warn 'ssl_version has been set to 11, but this version of libssl has been compiled without TLSv1.1 support';
return undef;
}
$ctx = CTX_tlsv1_1_new();
}
elsif ( $ssl_version == 12 ) {
unless ( exists &Net::SSLeay::CTX_tlsv1_2_new ) {
warn 'ssl_version has been set to 12, but this version of libssl has been compiled without TLSv1.2 support';
return undef;
}
$ctx = CTX_tlsv1_2_new();
}
elsif ( $ssl_version == 13 ) {
unless ( eval { Net::SSLeay::TLS1_3_VERSION() } ) {
warn 'ssl_version has been set to 13, but this version of libssl has been compiled without TLSv1.3 support';
return undef;
}
$ctx = CTX_new();
unless ( Net::SSLeay::CTX_set_min_proto_version( $ctx, Net::SSLeay::TLS1_3_VERSION() ) ) {
warn 'CTX_set_min_proto failed for TLSv1.3';
return undef;
}
unless ( Net::SSLeay::CTX_set_max_proto_version( $ctx, Net::SSLeay::TLS1_3_VERSION() ) ) {
warn 'CTX_set_max_proto failed for TLSv1.3';
return undef;
}
}
else {
$ctx = CTX_new();
}
return $ctx;
}
# end of Net::SSLeay::new_x_ctx
1;