Latest update and remove TLSv1.3 draft

2019-02-09 20:33:39 +09:00
parent afcfc266de
commit d6aa4528fc
143 changed files with 3914 additions and 761 deletions
@@ -16,7 +16,7 @@ sub new
        $encrypted,
        $level,
        $description) = @_;
-    
+
    my $self = {
        server => $server,
        encrypted => $encrypted,
@@ -238,7 +238,7 @@ sub get_messages
                $startoffset = $recoffset;
                $recoffset += 4;
                $payload = "";
-                
+
                if ($recoffset <= $record->decrypt_len) {
                    #Some payload data is present in this record
                    if ($record->decrypt_len - $recoffset >= $messlen) {
@@ -410,7 +410,7 @@ sub new
        $records,
        $startoffset,
        $message_frag_lens) = @_;
-    
+
    my $self = {
        server => $server,
        data => $data,
@@ -44,7 +44,7 @@ BEGIN
        $s->close();
    };
    if ($@ eq "") {
-        $IP_factory = sub { IO::Socket::INET6->new(@_); };
+        $IP_factory = sub { IO::Socket::INET6->new(Domain => AF_INET6, @_); };
        $have_IPv6 = 1;
    } else {
        eval {
@@ -173,7 +173,7 @@ sub new
        $decrypt_len,
        $data,
        $decrypt_data) = @_;
-    
+
    my $self = {
        flight => $flight,
        content_type => $content_type,
@@ -25,7 +25,7 @@ sub new
        $records,
        $startoffset,
        $message_frag_lens) = @_;
-    
+
    my $self = $class->SUPER::new(
        $server,
        TLSProxy::Message::MT_SERVER_HELLO,
@@ -78,7 +78,7 @@ sub parse
    my $extension_data;
    if ($extensions_len != 0) {
        $extension_data = substr($self->data, $ptr);
-    
+
        if (length($extension_data) != $extensions_len) {
            die "Invalid extension length\n";
        }
@@ -20,7 +20,7 @@ sub new
        $records,
        $startoffset,
        $message_frag_lens) = @_;
-    
+
    my $self = $class->SUPER::new(
        $server,
        TLSProxy::Message::MT_SERVER_KEY_EXCHANGE,