FM / SSLeay

/usr/lib/x86_64-linux-gnu/perl5/5.34/auto/Net/SSLeay/

/usr/lib/x86_64-linux-gnu/perl5/5.34/auto/Net/SSLeay

Name	Size	Mode	Actions
autosplit.ix	1581	0644	edit dl rm
debug_read.al	677	0644	edit dl rm
do_https.al	508	0644	edit dl rm
do_https2.al	446	0644	edit dl rm
do_https3.al	466	0644	edit dl rm
do_https4.al	357	0644	edit dl rm
do_httpx2.al	559	0644	edit dl rm
do_httpx3.al	1558	0644	edit dl rm
do_httpx4.al	544	0644	edit dl rm
dump_peer_certificate.al	959	0644	edit dl rm
get_http.al	316	0644	edit dl rm
get_http3.al	319	0644	edit dl rm
get_http4.al	319	0644	edit dl rm
get_https.al	319	0644	edit dl rm
get_https3.al	322	0644	edit dl rm
get_https4.al	322	0644	edit dl rm
get_httpx.al	316	0644	edit dl rm
get_httpx3.al	319	0644	edit dl rm
get_httpx4.al	319	0644	edit dl rm
head_http.al	319	0644	edit dl rm
head_http3.al	322	0644	edit dl rm
head_http4.al	346	0644	edit dl rm
head_https.al	322	0644	edit dl rm
head_https3.al	325	0644	edit dl rm
head_https4.al	333	0644	edit dl rm
head_httpx.al	319	0644	edit dl rm
head_httpx3.al	322	0644	edit dl rm
head_httpx4.al	399	0644	edit dl rm
https_cat.al	3028	0644	edit dl rm
httpx_cat.al	558	0644	edit dl rm
http_cat.al	1203	0644	edit dl rm
initialize.al	815	0644	edit dl rm
make_form.al	604	0644	edit dl rm
make_headers.al	575	0644	edit dl rm
new_x_ctx.al	1858	0644	edit dl rm
open_proxy_tcp_connection.al	1284	0644	edit dl rm
open_tcp_connection.al	1482	0644	edit dl rm
post_http.al	318	0644	edit dl rm
post_http3.al	321	0644	edit dl rm
post_http4.al	321	0644	edit dl rm
post_https.al	321	0644	edit dl rm
post_https3.al	324	0644	edit dl rm
post_https4.al	324	0644	edit dl rm
post_httpx.al	318	0644	edit dl rm
post_httpx3.al	321	0644	edit dl rm
post_httpx4.al	321	0644	edit dl rm
put_http.al	316	0644	edit dl rm
put_http3.al	319	0644	edit dl rm
put_http4.al	319	0644	edit dl rm
put_https.al	319	0644	edit dl rm
put_https3.al	322	0644	edit dl rm
put_https4.al	322	0644	edit dl rm
put_httpx.al	316	0644	edit dl rm
put_httpx3.al	319	0644	edit dl rm
put_httpx4.al	319	0644	edit dl rm
randomize.al	1028	0644	edit dl rm
set_cert_and_key.al	828	0644	edit dl rm
set_proxy.al	540	0644	edit dl rm
set_server_cert_and_key.al	413	0644	edit dl rm
sslcat.al	3196	0644	edit dl rm
SSLeay.so	636928	0644	edit dl rm
ssl_read_all.al	1047	0644	edit dl rm
ssl_read_CRLF.al	385	0644	edit dl rm
ssl_read_until.al	3144	0644	edit dl rm
ssl_write_all.al	5734	0644	edit dl rm
ssl_write_CRLF.al	813	0644	edit dl rm
tcpcat.al	1358	0644	edit dl rm
tcpxcat.al	485	0644	edit dl rm
tcp_read_all.al	757	0644	edit dl rm
tcp_read_CRLF.al	401	0644	edit dl rm
tcp_read_until.al	971	0644	edit dl rm
tcp_write_all.al	1232	0644	edit dl rm
tcp_write_CRLF.al	794	0644	edit dl rm
want_nothing.al	357	0644	edit dl rm
want_read.al	309	0644	edit dl rm
want_write.al	312	0644	edit dl rm
want_X509_lookup.al	441	0644	edit dl rm

Edit: /usr/lib/x86_64-linux-gnu/perl5/5.34/auto/Net/SSLeay/do_httpx3.al (1558B)

# 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 1774 "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;

cmd: