File Manager

X7ROOT File Manager

Current Path: /lib64/perl5/vendor_perl/auto/Net/SSLeay

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

📁 ..
📄 SSLeay.so(601.71 KB)
📄 autosplit.ix(1.54 KB)
📄 debug_read.al(677 B)
📄 do_https.al(508 B)
📄 do_https2.al(446 B)
📄 do_https3.al(466 B)
📄 do_https4.al(357 B)
📄 do_httpx2.al(559 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.17 KB)
📄 https_cat.al(2.96 KB)
📄 httpx_cat.al(558 B)
📄 initialize.al(815 B)
📄 make_form.al(604 B)
📄 make_headers.al(575 B)
📄 new_x_ctx.al(1.81 KB)
📄 open_proxy_tcp_connection.al(1.25 KB)
📄 open_tcp_connection.al(1.45 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 KB)
📄 set_cert_and_key.al(828 B)
📄 set_proxy.al(540 B)
📄 set_server_cert_and_key.al(413 B)
📄 ssl_read_CRLF.al(384 B)
📄 ssl_read_all.al(1.02 KB)
📄 ssl_read_until.al(3.07 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)

Editing: 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 1361 "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;

X7ROOT File Manager

Editing: do_httpx3.al

Upload File

Create Folder