ꦫꦣꦺꦤ꧀ꦄꦤ꧀ꦠꦱꦺꦤ

PATH: usr / lib64 / perl5 / vendor_perl / auto / Net / SSLeay

# 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 438 "blib/lib/Net/SSLeay.pm (autosplit into blib/lib/auto/Net/SSLeay/open_tcp_connection.al)"
sub open_tcp_connection {
    my ($dest_serv, $port) = @_;
    my ($errs);

$port = getservbyname($port, 'tcp') unless $port =~ /^\d+$/;
    my $dest_serv_ip = gethostbyname($dest_serv);
    unless (defined($dest_serv_ip)) {
	$errs = "$0 $$: open_tcp_connection: destination host not found:"
            . " `$dest_serv' (port $port) ($!)\n";
	warn $errs if $trace;
        return wantarray ? (0, $errs) : 0;
    }
    my $sin = sockaddr_in($port, $dest_serv_ip);

warn "Opening connection to $dest_serv:$port (" .
	inet_ntoa($dest_serv_ip) . ")" if $trace>2;

my $proto = getprotobyname('tcp');
    if (socket (SSLCAT_S, &PF_INET(), &SOCK_STREAM(), $proto)) {
        warn "next connect" if $trace>3;
        if (CORE::connect (SSLCAT_S, $sin)) {
            my $old_out = select (SSLCAT_S); $| = 1; select ($old_out);
            warn "connected to $dest_serv, $port" if $trace>3;
            return wantarray ? (1, undef) : 1; # Success
        }
    }
    $errs = "$0 $$: open_tcp_connection: failed `$dest_serv', $port ($!)\n";
    warn $errs if $trace;
    close SSLCAT_S;
    return wantarray ? (0, $errs) : 0; # Fail
}

# end of Net::SSLeay::open_tcp_connection
1;

[-] get_http3.al [edit]
[-] put_httpx.al [edit]
[-] want_read.al [edit]
[-] post_http4.al [edit]
[-] head_https4.al [edit]
[-] put_httpx3.al [edit]
[-] get_https.al [edit]
[-] head_https.al [edit]
[-] httpx_cat.al [edit]
[-] do_https4.al [edit]
[-] set_proxy.al [edit]
[-] get_httpx3.al [edit]
[-] put_http4.al [edit]
[-] dump_peer_certificate.al [edit]
[-] post_https.al [edit]
[-] put_http.al [edit]
[-] put_https.al [edit]
[+] ..
[-] put_https3.al [edit]
[-] post_httpx3.al [edit]
[-] tcp_read_until.al [edit]
[-] tcp_write_all.al [edit]
[-] set_cert_and_key.al [edit]
[-] tcp_write_CRLF.al [edit]
[-] head_httpx4.al [edit]
[-] head_httpx.al [edit]
[-] post_http.al [edit]
[-] want_write.al [edit]
[-] open_proxy_tcp_connection.al [edit]
[-] head_httpx3.al [edit]
[-] sslcat.al [edit]
[-] put_httpx4.al [edit]
[-] post_https3.al [edit]
[-] ssl_write_all.al [edit]
[-] tcpxcat.al [edit]
[-] open_tcp_connection.al [edit]
[-] make_form.al [edit]
[-] post_http3.al [edit]
[-] ssl_read_all.al [edit]
[-] want_nothing.al [edit]
[-] make_headers.al [edit]
[-] get_httpx4.al [edit]
[-] do_https.al [edit]
[-] get_https4.al [edit]
[-] do_httpx4.al [edit]
[-] get_http4.al [edit]
[-] want_X509_lookup.al [edit]
[-] autosplit.ix [edit]
[-] do_httpx3.al [edit]
[-] tcp_read_all.al [edit]
[-] head_https3.al [edit]
[-] randomize.al [edit]
[-] get_https3.al [edit]
[-] get_http.al [edit]
[-] debug_read.al [edit]
[-] ssl_read_until.al [edit]
[-] put_http3.al [edit]
[-] put_https4.al [edit]
[-] do_httpx2.al [edit]
[-] ssl_read_CRLF.al [edit]
[-] post_httpx.al [edit]
[-] head_http4.al [edit]
[-] get_httpx.al [edit]
[-] ssl_write_CRLF.al [edit]
[-] do_https2.al [edit]
[-] tcp_read_CRLF.al [edit]
[-] set_server_cert_and_key.al [edit]
[-] tcpcat.al [edit]
[-] https_cat.al [edit]
[-] post_https4.al [edit]
[-] do_https3.al [edit]
[-] head_http3.al [edit]
[-] SSLeay.so [edit]
[-] post_httpx4.al [edit]
[-] head_http.al [edit]
[-] new_x_ctx.al [edit]
[-] initialize.al [edit]
[-] http_cat.al [edit]