0UT1S's

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

By Order of Mr.0UT1S

N/A

601.71 KB

1.54 KB

677 bytes

508 bytes

446 bytes

466 bytes

357 bytes

559 bytes

1.52 KB

544 bytes

dump_peer_certificate.al

958 bytes

316 bytes

319 bytes

319 bytes

319 bytes

322 bytes

322 bytes

316 bytes

319 bytes

319 bytes

319 bytes

322 bytes

346 bytes

322 bytes

325 bytes

333 bytes

319 bytes

322 bytes

399 bytes

1.17 KB

2.96 KB

558 bytes

815 bytes

604 bytes

make_headers.al

575 bytes

1.81 KB

open_proxy_tcp_connection.al

1.25 KB

open_tcp_connection.al

1.45 KB

318 bytes

321 bytes

321 bytes

321 bytes

324 bytes

324 bytes

318 bytes

321 bytes

321 bytes

316 bytes

319 bytes

319 bytes

319 bytes

322 bytes

322 bytes

316 bytes

319 bytes

319 bytes

1.00 KB

set_cert_and_key.al

828 bytes

540 bytes

set_server_cert_and_key.al

413 bytes

ssl_read_CRLF.al

384 bytes

ssl_read_all.al

1.02 KB

ssl_read_until.al

3.07 KB

ssl_write_CRLF.al

812 bytes

ssl_write_all.al

5.60 KB

3.05 KB

tcp_read_CRLF.al

400 bytes

tcp_read_all.al

756 bytes

tcp_read_until.al

970 bytes

tcp_write_CRLF.al

793 bytes

tcp_write_all.al

1.20 KB

1.33 KB

485 bytes

want_X509_lookup.al

441 bytes

want_nothing.al

357 bytes

309 bytes

312 bytes

# 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 515 "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 = &Socket::IPPROTO_TCP; # getprotobyname('tcp') not available on android
    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;