REDROOM

Navigation

Breadcrumbs

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

Create

Create File | Create Folder | Upload Files | Run Command

Preview: https_cat.al Size: 2.96 KB

//lib64/perl5/vendor_perl/auto/Net/SSLeay/https_cat.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 1178 "blib/lib/Net/SSLeay.pm (autosplit into blib/lib/auto/Net/SSLeay/https_cat.al)"
###
### Basic request - response primitive, this is different from sslcat
###                 because this does not shutdown the connection.
###

sub https_cat { # address, port, message --> returns reply / (reply,errs,cert)
    my ($dest_serv, $port, $out_message, $crt_path, $key_path) = @_;
    my ($ctx, $ssl, $got, $errs, $written);

    ($got, $errs) = open_proxy_tcp_connection($dest_serv, $port);
    return (wantarray ? (undef, $errs) : undef) unless $got;

    ### Do SSL negotiation stuff

    warn "Creating SSL $ssl_version context...\n" if $trace>2;
    initialize();

    $ctx = new_x_ctx();
    goto cleanup2 if $errs = print_errs('CTX_new') or !$ctx;

    CTX_set_options($ctx, &OP_ALL);
    goto cleanup2 if $errs = print_errs('CTX_set_options');

    warn "Cert `$crt_path' given without key" if $crt_path && !$key_path;
    set_cert_and_key($ctx, $crt_path, $key_path) if $crt_path;

    warn "Creating SSL connection (context was '$ctx')...\n" if $trace>2;
    $ssl = new($ctx);
    goto cleanup if $errs = print_errs('SSL_new') or !$ssl;

    warn "Setting fd (ctx $ctx, con $ssl)...\n" if $trace>2;
    set_fd($ssl, fileno(SSLCAT_S));
    goto cleanup if $errs = print_errs('set_fd');

    warn "Entering SSL negotiation phase...\n" if $trace>2;

    if ($trace>2) {
	my $i = 0;
	my $p = '';
	my $cipher_list = 'Cipher list: ';
	$p=Net::SSLeay::get_cipher_list($ssl,$i);
	$cipher_list .= $p if $p;
	do {
	    $i++;
	    $cipher_list .= ', ' . $p if $p;
	    $p=Net::SSLeay::get_cipher_list($ssl,$i);
	} while $p;
	$cipher_list .= '\n';
	warn $cipher_list;
    }

    $got = Net::SSLeay::connect($ssl);
    warn "SSLeay connect failed" if $trace>2 && $got==0;
    goto cleanup if $errs = print_errs('SSL_connect');

    my $server_cert = get_peer_certificate($ssl);
    print_errs('get_peer_certificate');
    if ($trace>1) {
	warn "Cipher `" . get_cipher($ssl) . "'\n";
	print_errs('get_ciper');
	warn dump_peer_certificate($ssl);
    }

    ### Connected. Exchange some data (doing repeated tries if necessary).

    warn "https_cat $$: sending " . blength($out_message) . " bytes...\n"
	if $trace==3;
    warn "https_cat $$: sending `$out_message' (" . blength($out_message)
	. " bytes)...\n" if $trace>3;
    ($written, $errs) = ssl_write_all($ssl, $out_message);
    goto cleanup unless $written;

    warn "waiting for reply...\n" if $trace>2;
    ($got, $errs) = ssl_read_all($ssl);
    warn "Got " . blength($got) . " bytes.\n" if $trace==3;
    warn "Got `$got' (" . blength($got) . " bytes)\n" if $trace>3;

cleanup:
    free ($ssl);
    $errs .= print_errs('SSL_free');
cleanup2:
    CTX_free ($ctx);
    $errs .= print_errs('CTX_free');
    close SSLCAT_S;
    return wantarray ? ($got, $errs, $server_cert) : $got;
}

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

Directory Contents

Dirs: 0 × Files: 77

Sort:

Enable drag-to-move

Name	Size	Perms	Modified	Actions
autosplit.ix	1.54 KB	lrw-r--r--	2022-04-22 17:22:32	Edit Download recursive recursive
debug_read.al	677 B	lrw-r--r--	2022-04-22 17:22:32	Edit Download recursive recursive
do_https.al	508 B	lrw-r--r--	2022-04-22 17:22:32	Edit Download recursive recursive
do_https2.al	446 B	lrw-r--r--	2022-04-22 17:22:32	Edit Download recursive recursive
do_https3.al	466 B	lrw-r--r--	2022-04-22 17:22:32	Edit Download recursive recursive
do_https4.al	357 B	lrw-r--r--	2022-04-22 17:22:32	Edit Download recursive recursive
do_httpx2.al	559 B	lrw-r--r--	2022-04-22 17:22:32	Edit Download recursive recursive
do_httpx3.al	1.52 KB	lrw-r--r--	2022-04-22 17:22:32	Edit Download recursive recursive
do_httpx4.al	544 B	lrw-r--r--	2022-04-22 17:22:32	Edit Download recursive recursive
dump_peer_certificate.al	958 B	lrw-r--r--	2022-04-22 17:22:32	Edit Download recursive recursive
get_http.al	316 B	lrw-r--r--	2022-04-22 17:22:32	Edit Download recursive recursive
get_http3.al	319 B	lrw-r--r--	2022-04-22 17:22:32	Edit Download recursive recursive
get_http4.al	319 B	lrw-r--r--	2022-04-22 17:22:32	Edit Download recursive recursive
get_https.al	319 B	lrw-r--r--	2022-04-22 17:22:32	Edit Download recursive recursive
get_https3.al	322 B	lrw-r--r--	2022-04-22 17:22:32	Edit Download recursive recursive
get_https4.al	322 B	lrw-r--r--	2022-04-22 17:22:32	Edit Download recursive recursive
get_httpx.al	316 B	lrw-r--r--	2022-04-22 17:22:32	Edit Download recursive recursive
get_httpx3.al	319 B	lrw-r--r--	2022-04-22 17:22:32	Edit Download recursive recursive
get_httpx4.al	319 B	lrw-r--r--	2022-04-22 17:22:32	Edit Download recursive recursive
head_http.al	319 B	lrw-r--r--	2022-04-22 17:22:32	Edit Download recursive recursive
head_http3.al	322 B	lrw-r--r--	2022-04-22 17:22:32	Edit Download recursive recursive
head_http4.al	346 B	lrw-r--r--	2022-04-22 17:22:32	Edit Download recursive recursive
head_https.al	322 B	lrw-r--r--	2022-04-22 17:22:32	Edit Download recursive recursive
head_https3.al	325 B	lrw-r--r--	2022-04-22 17:22:32	Edit Download recursive recursive
head_https4.al	333 B	lrw-r--r--	2022-04-22 17:22:32	Edit Download recursive recursive
head_httpx.al	319 B	lrw-r--r--	2022-04-22 17:22:32	Edit Download recursive recursive
head_httpx3.al	322 B	lrw-r--r--	2022-04-22 17:22:32	Edit Download recursive recursive
head_httpx4.al	399 B	lrw-r--r--	2022-04-22 17:22:32	Edit Download recursive recursive
https_cat.al	2.96 KB	lrw-r--r--	2022-04-22 17:22:32	Edit Download recursive recursive
httpx_cat.al	558 B	lrw-r--r--	2022-04-22 17:22:32	Edit Download recursive recursive
http_cat.al	1.17 KB	lrw-r--r--	2022-04-22 17:22:32	Edit Download recursive recursive
initialize.al	815 B	lrw-r--r--	2022-04-22 17:22:32	Edit Download recursive recursive
make_form.al	604 B	lrw-r--r--	2022-04-22 17:22:32	Edit Download recursive recursive
make_headers.al	575 B	lrw-r--r--	2022-04-22 17:22:32	Edit Download recursive recursive
new_x_ctx.al	1.81 KB	lrw-r--r--	2022-04-22 17:22:32	Edit Download recursive recursive
open_proxy_tcp_connection.al	1.25 KB	lrw-r--r--	2022-04-22 17:22:32	Edit Download recursive recursive
open_tcp_connection.al	1.45 KB	lrw-r--r--	2022-04-22 17:22:32	Edit Download recursive recursive
post_http.al	318 B	lrw-r--r--	2022-04-22 17:22:32	Edit Download recursive recursive
post_http3.al	321 B	lrw-r--r--	2022-04-22 17:22:32	Edit Download recursive recursive
post_http4.al	321 B	lrw-r--r--	2022-04-22 17:22:32	Edit Download recursive recursive
post_https.al	321 B	lrw-r--r--	2022-04-22 17:22:32	Edit Download recursive recursive
post_https3.al	324 B	lrw-r--r--	2022-04-22 17:22:32	Edit Download recursive recursive
post_https4.al	324 B	lrw-r--r--	2022-04-22 17:22:32	Edit Download recursive recursive
post_httpx.al	318 B	lrw-r--r--	2022-04-22 17:22:32	Edit Download recursive recursive
post_httpx3.al	321 B	lrw-r--r--	2022-04-22 17:22:32	Edit Download recursive recursive
post_httpx4.al	321 B	lrw-r--r--	2022-04-22 17:22:32	Edit Download recursive recursive
put_http.al	316 B	lrw-r--r--	2022-04-22 17:22:32	Edit Download recursive recursive
put_http3.al	319 B	lrw-r--r--	2022-04-22 17:22:32	Edit Download recursive recursive
put_http4.al	319 B	lrw-r--r--	2022-04-22 17:22:32	Edit Download recursive recursive
put_https.al	319 B	lrw-r--r--	2022-04-22 17:22:32	Edit Download recursive recursive
put_https3.al	322 B	lrw-r--r--	2022-04-22 17:22:32	Edit Download recursive recursive
put_https4.al	322 B	lrw-r--r--	2022-04-22 17:22:32	Edit Download recursive recursive
put_httpx.al	316 B	lrw-r--r--	2022-04-22 17:22:32	Edit Download recursive recursive
put_httpx3.al	319 B	lrw-r--r--	2022-04-22 17:22:32	Edit Download recursive recursive
put_httpx4.al	319 B	lrw-r--r--	2022-04-22 17:22:32	Edit Download recursive recursive
randomize.al	1.00 KB	lrw-r--r--	2022-04-22 17:22:32	Edit Download recursive recursive
set_cert_and_key.al	828 B	lrw-r--r--	2022-04-22 17:22:32	Edit Download recursive recursive
set_proxy.al	540 B	lrw-r--r--	2022-04-22 17:22:32	Edit Download recursive recursive
set_server_cert_and_key.al	413 B	lrw-r--r--	2022-04-22 17:22:32	Edit Download recursive recursive
sslcat.al	3.05 KB	lrw-r--r--	2022-04-22 17:22:32	Edit Download recursive recursive
SSLeay.so	601.71 KB	lrwxr-xr-x	2022-04-22 17:22:43	Edit Download recursive recursive
ssl_read_all.al	1.02 KB	lrw-r--r--	2022-04-22 17:22:32	Edit Download recursive recursive
ssl_read_CRLF.al	384 B	lrw-r--r--	2022-04-22 17:22:32	Edit Download recursive recursive
ssl_read_until.al	3.07 KB	lrw-r--r--	2022-04-22 17:22:32	Edit Download recursive recursive
ssl_write_all.al	5.60 KB	lrw-r--r--	2022-04-22 17:22:32	Edit Download recursive recursive
ssl_write_CRLF.al	812 B	lrw-r--r--	2022-04-22 17:22:32	Edit Download recursive recursive
tcpcat.al	1.33 KB	lrw-r--r--	2022-04-22 17:22:32	Edit Download recursive recursive
tcpxcat.al	485 B	lrw-r--r--	2022-04-22 17:22:32	Edit Download recursive recursive
tcp_read_all.al	756 B	lrw-r--r--	2022-04-22 17:22:32	Edit Download recursive recursive
tcp_read_CRLF.al	400 B	lrw-r--r--	2022-04-22 17:22:32	Edit Download recursive recursive
tcp_read_until.al	970 B	lrw-r--r--	2022-04-22 17:22:32	Edit Download recursive recursive
tcp_write_all.al	1.20 KB	lrw-r--r--	2022-04-22 17:22:32	Edit Download recursive recursive
tcp_write_CRLF.al	793 B	lrw-r--r--	2022-04-22 17:22:32	Edit Download recursive recursive
want_nothing.al	357 B	lrw-r--r--	2022-04-22 17:22:32	Edit Download recursive recursive
want_read.al	309 B	lrw-r--r--	2022-04-22 17:22:32	Edit Download recursive recursive
want_write.al	312 B	lrw-r--r--	2022-04-22 17:22:32	Edit Download recursive recursive
want_X509_lookup.al	441 B	lrw-r--r--	2022-04-22 17:22:32	Edit Download recursive recursive