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 547 "blib/lib/Net/SSLeay.pm (autosplit into blib/lib/auto/Net/SSLeay/open_proxy_tcp_connection.al)"
### Open connection via standard web proxy, if one was defined
### using set_proxy().

sub open_proxy_tcp_connection {
    my ($dest_serv, $port) = @_;
    return open_tcp_connection($dest_serv, $port) if !$proxyhost;

warn "Connect via proxy: $proxyhost:$proxyport" if $trace>2;
    my ($ret, $errs) = open_tcp_connection($proxyhost, $proxyport);
    return wantarray ? (0, $errs) : 0 if !$ret;  # Connection fail

warn "Asking proxy to connect to $dest_serv:$port" if $trace>2;
    #print SSLCAT_S "CONNECT $dest_serv:$port HTTP/1.0$proxyauth$CRLF$CRLF";
    #my $line = <SSLCAT_S>;   # *** bug? Mixing stdio with syscall read?
    ($ret, $errs) =
	tcp_write_all("CONNECT $dest_serv:$port HTTP/1.0$proxyauth$CRLF$CRLF");
    return wantarray ? (0,$errs) : 0 if $errs;
    ($line, $errs) = tcp_read_until($CRLF . $CRLF, 1024);
    warn "Proxy response: $line" if $trace>2;
    return wantarray ? (0,$errs) : 0 if $errs;
    return wantarray ? (1,'') : 1;  # Success
}

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