Lines Matching +full:data +full:- +full:shift

17     my $class = shift;
19         $data,
24     my $self = $class->SUPER::new(
27         $data,
32     $self->{first_certificate} = "";
33     $self->{extension_data} = "";
34     $self->{remaining_certdata} = "";
41     my $self = shift;
43     if (TLSProxy::Proxy->is_tls13()) {
44         my $context_len = unpack('C', $self->data);
45         my $context = substr($self->data, 1, $context_len);
47         my $remdata = substr($self->data, 1 + $context_len);
91         $self->context($context);
92         $self->first_certificate($certdata);
93         $self->extension_data(\%extensions);
94         $self->remaining_certdata($remdata);
101         my ($hicertlistlen, $certlistlen) = unpack('Cn', $self->data);
104         my $remdata = substr($self->data, 3);
120         $self->first_certificate($certdata);
121         $self->remaining_certdata($remdata);
128 #Reconstruct the on-the-wire message data following changes
131     my $self = shift;
132     my $data;
135     if (TLSProxy::Proxy->is_tls13()) {
136         foreach my $key (keys %{$self->extension_data}) {
137             my $extdata = ${$self->extension_data}{$key};
142         $data = pack('C', length($self->context()));
143         $data .= $self->context;
144         my $certlen = length($self->first_certificate);
146                           + length($self->remaining_certdata);
149         $data .= pack('Cn', $hi, $certlistlen);
152         $data .= pack('Cn', $hi, $certlen);
153         $data .= pack('n', length($extensions));
154         $data .= $extensions;
155         $data .= $self->remaining_certdata();
156         $self->data($data);
158         my $certlen = length($self->first_certificate);
159         my $certlistlen = $certlen + length($self->remaining_certdata);
162         $data .= pack('Cn', $hi, $certlistlen);
165         $data .= pack('Cn', $hi, $certlen);
166         $data .= $self->remaining_certdata();
167         $self->data($data);
174     my $self = shift;
176       $self->{context} = shift;
178     return $self->{context};
182     my $self = shift;
184       $self->{first_certificate} = shift;
186     return $self->{first_certificate};
190     my $self = shift;
192       $self->{remaining_certdata} = shift;
194     return $self->{remaining_certdata};
198     my $self = shift;
200       $self->{extension_data} = shift;
202     return $self->{extension_data};
207     $self->{extension_data}{$ext_type} = $ext_data;
212     delete $self->{extension_data}{$ext_type};