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 799 "blib/lib/Net/SSLeay.pm (autosplit into blib/lib/auto/Net/SSLeay/ssl_read_until.al)"
### from patch by Clinton Wong <clintdw@netcom.com>

# ssl_read_until($ssl [, $delimit [, $max_length]])
#  if $delimit missing, use $/ if it exists, otherwise use \n
#  read until delimiter reached, up to $max_length chars if defined

sub ssl_read_until ($;$$) {
    my ($ssl,$delim, $max_length) = @_;

# guess the delim string if missing
    if ( ! defined $delim ) {
      if ( defined $/ && length $/  ) { $delim = $/ }
      else { $delim = "\n" }      # Note: \n,$/ value depends on the platform
    }
    my $len_delim = length $delim;

my ($got);
    my $reply = '';

# If we have OpenSSL 0.9.6a or later, we can use SSL_peek to
    # speed things up.
    # N.B. 0.9.6a has security problems, so the support for
    #      anything earlier than 0.9.6e will be dropped soon.
    if (&Net::SSLeay::OPENSSL_VERSION_NUMBER >= 0x0090601f) {
	$max_length = 2000000000 unless (defined $max_length);
	my ($pending, $peek_length, $found, $done);
	while (blength($reply) < $max_length and !$done) {
	    #Block if necessary until we get some data
	    $got = Net::SSLeay::peek($ssl,1);
	    last if print_errs('SSL_peek');

$pending = Net::SSLeay::pending($ssl) + blength($reply);
	    $peek_length = ($pending > $max_length) ? $max_length : $pending;
	    $peek_length -= blength($reply);
	    $got = Net::SSLeay::peek($ssl, $peek_length);
	    last if print_errs('SSL_peek');
	    $peek_length = blength($got);

#$found = index($got, $delim);  # Old and broken

# the delimiter may be split across two gets, so we prepend
	    # a little from the last get onto this one before we check
	    # for a match
	    my $match;
	    if(blength($reply) >= blength($delim) - 1) {
		#if what we've read so far is greater or equal
		#in length of what we need to prepatch
		$match = substr $reply, blength($reply) - blength($delim) + 1;
	    } else {
		$match = $reply;
	    }

$match .= $got;
	    $found = index($match, $delim);

if ($found > -1) {
		#$got = Net::SSLeay::ssl_read_all($ssl, $found+$len_delim);
		#read up to the end of the delimiter
		$got = Net::SSLeay::ssl_read_all($ssl,
					 $found + $len_delim
					 - ((blength($match)) - (blength($got))));
		$done = 1;
	    } else {
		$got = Net::SSLeay::ssl_read_all($ssl, $peek_length);
		$done = 1 if ($peek_length == $max_length - blength($reply));
	    }

last if print_errs('SSL_read');
	    debug_read(\$reply, \$got) if $trace>1;
	    last if $got eq '';
	    $reply .= $got;
	}
    } else {
	while (!defined $max_length || length $reply < $max_length) {
	    $got = Net::SSLeay::ssl_read_all($ssl,1);  # one by one
	    last if print_errs('SSL_read');
	    debug_read(\$reply, \$got) if $trace>1;
	    last if $got eq '';
	    $reply .= $got;
	    last if $len_delim
		&& substr($reply, blength($reply)-$len_delim) eq $delim;
	}
    }
    return $reply;
}

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