Lines Matching +full:isa +full:- +full:extensions

12 use vars '@ISA';
13 push @ISA, 'TLSProxy::Message';
24     my $self = $class->SUPER::new(
32     $self->{extension_data} = "";
42     if (TLSProxy::Proxy->is_tls13()) {
43         my $request_ctx_len = unpack('C', $self->data);
44         my $request_ctx = substr($self->data, $ptr, $request_ctx_len);
47         my $extensions_len = unpack('n', substr($self->data, $ptr));
49         my $extension_data = substr($self->data, $ptr);
53         my %extensions = ();
58             $extensions{$type} = $extdata;
60         $self->extension_data(\%extensions);
62         print "    Extensions Len:".$extensions_len."\n";
64     # else parse TLSv1.2 version - we don't support that at the moment
67 #Reconstruct the on-the-wire message data following changes
72     my $extensions = "";
74     foreach my $key (keys %{$self->extension_data}) {
75         my $extdata = ${$self->extension_data}{$key};
76         $extensions .= pack("n", $key);
77         $extensions .= pack("n", length($extdata));
78         $extensions .= $extdata;
81     $data = pack('n', length($extensions));
82     $data .= $extensions;
83     $self->data($data);
91         $self->{extension_data} = shift;
93     return $self->{extension_data};
98     $self->{extension_data}{$ext_type} = $ext_data;
103     delete $self->{extension_data}{$ext_type};