golden hour

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

File/Folder	Size	Actions
SSLeay.so	423.98 KB
autosplit.ix	1.54 KB
debug_read.al	677 B
do_https.al	507 B
do_https2.al	446 B
do_https3.al	466 B
do_https4.al	357 B
do_httpx2.al	535 B
do_httpx3.al	1.52 KB
do_httpx4.al	544 B
dump_peer_certificate.al	958 B
get_http.al	316 B
get_http3.al	319 B
get_http4.al	319 B
get_https.al	319 B
get_https3.al	322 B
get_https4.al	322 B
get_httpx.al	316 B
get_httpx3.al	319 B
get_httpx4.al	319 B
head_http.al	319 B
head_http3.al	322 B
head_http4.al	346 B
head_https.al	322 B
head_https3.al	325 B
head_https4.al	333 B
head_httpx.al	319 B
head_httpx3.al	322 B
head_httpx4.al	399 B
http_cat.al	1.18 KB
https_cat.al	2.96 KB
httpx_cat.al	558 B
initialize.al	814 B
make_form.al	604 B
make_headers.al	575 B
new_x_ctx.al	1.2 KB
open_proxy_tcp_connection.al	1.25 KB
open_tcp_connection.al	1.4 KB
post_http.al	318 B
post_http3.al	321 B
post_http4.al	321 B
post_https.al	321 B
post_https3.al	324 B
post_https4.al	324 B
post_httpx.al	318 B
post_httpx3.al	321 B
post_httpx4.al	321 B
put_http.al	316 B
put_http3.al	319 B
put_http4.al	319 B
put_https.al	319 B
put_https3.al	322 B
put_https4.al	322 B
put_httpx.al	316 B
put_httpx3.al	319 B
put_httpx4.al	319 B
randomize.al	1.05 KB
set_cert_and_key.al	805 B
set_proxy.al	540 B
set_server_cert_and_key.al	413 B
ssl_read_CRLF.al	384 B
ssl_read_all.al	801 B
ssl_read_until.al	3.04 KB
ssl_write_CRLF.al	812 B
ssl_write_all.al	5.6 KB
sslcat.al	3.05 KB
tcp_read_CRLF.al	400 B
tcp_read_all.al	756 B
tcp_read_until.al	970 B
tcp_write_CRLF.al	793 B
tcp_write_all.al	1.2 KB
tcpcat.al	1.33 KB
tcpxcat.al	485 B
want_X509_lookup.al	441 B
want_nothing.al	357 B
want_read.al	309 B
want_write.al	312 B

Edit: do_httpx3.al

# 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 1262 "blib/lib/Net/SSLeay.pm (autosplit into blib/lib/auto/Net/SSLeay/do_httpx3.al)"
sub do_httpx3 {
    my ($method, $usessl, $site, $port, $path, $headers,
	$content, $mime_type, $crt_path, $key_path) = @_;
    my ($response, $page, $h,$v);

my $len = blength($content);
    if ($len) {
	$mime_type = "application/x-www-form-urlencoded" unless $mime_type;
	$content = "Content-Type: $mime_type$CRLF"
	    . "Content-Length: $len$CRLF$CRLF$content";
    } else {
	$content = "$CRLF$CRLF";
    }
    my $req = "$method $path HTTP/1.0$CRLF";
    unless (defined $headers && $headers =~ /^Host:/m) {
        $req .= "Host: $site";
        unless (($port == 80 && !$usessl) || ($port == 443 && $usessl)) {
            $req .= ":$port";
        }
        $req .= $CRLF;
	}
    $req .= (defined $headers ? $headers : '') . "Accept: */*$CRLF$content";

warn "do_httpx3($method,$usessl,$site:$port)" if $trace;
    my ($http, $errs, $server_cert)
	= httpx_cat($usessl, $site, $port, $req, $crt_path, $key_path);
    return (undef, "HTTP/1.0 900 NET OR SSL ERROR$CRLF$CRLF$errs") if $errs;

$http = '' if !defined $http;
    ($headers, $page) = split /\s?\n\s?\n/, $http, 2;
    warn "headers >$headers< page >>$page<< http >>>$http<<<" if $trace>1;
    ($response, $headers) = split /\s?\n/, $headers, 2;
    return ($page, $response, $headers, $server_cert);
}

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