Lines Matching refs:self
29 my $self = $class->SUPER::new(
37 $self->{server_version} = 0;
38 $self->{random} = [];
39 $self->{session_id_len} = 0;
40 $self->{session} = "";
41 $self->{ciphersuite} = 0;
42 $self->{comp_meth} = 0;
43 $self->{extension_data} = "";
45 return $self;
50 my $self = shift;
52 my ($server_version) = unpack('n', $self->data);
55 my $random = substr($self->data, $ptr, 32);
59 $session_id_len = unpack('C', substr($self->data, $ptr));
61 $session = substr($self->data, $ptr, $session_id_len);
64 my $ciphersuite = unpack('n', substr($self->data, $ptr));
67 $comp_meth = unpack('C', substr($self->data, $ptr));
70 my $extensions_len = unpack('n', substr($self->data, $ptr));
80 $extension_data = substr($self->data, $ptr);
86 if (length($self->data) != $ptr) {
111 $self->server_version($server_version);
112 $self->random($random);
113 $self->session_id_len($session_id_len);
114 $self->session($session);
115 $self->ciphersuite($ciphersuite);
117 $self->comp_meth($comp_meth);
118 $self->extension_data(\%extensions);
120 $self->process_data();
133 my $self = shift;
135 TLSProxy::Message->ciphersuite($self->ciphersuite);
141 my $self = shift;
145 $data = pack('n', $self->server_version);
146 $data .= $self->random;
147 $data .= pack('C', $self->session_id_len);
148 $data .= $self->session;
149 $data .= pack('n', $self->ciphersuite);
150 $data .= pack('C', $self->comp_meth);
152 foreach my $key (keys %{$self->extension_data}) {
153 my $extdata = ${$self->extension_data}{$key};
157 if ($key == $self->dupext) {
166 $self->data($data);
172 my $self = shift;
174 $self->{server_version} = shift;
176 return $self->{server_version};
180 my $self = shift;
182 $self->{random} = shift;
184 return $self->{random};
188 my $self = shift;
190 $self->{session_id_len} = shift;
192 return $self->{session_id_len};
196 my $self = shift;
198 $self->{session} = shift;
200 return $self->{session};
204 my $self = shift;
206 $self->{ciphersuite} = shift;
208 return $self->{ciphersuite};
212 my $self = shift;
214 $self->{comp_meth} = shift;
216 return $self->{comp_meth};
220 my $self = shift;
222 $self->{extension_data} = shift;
224 return $self->{extension_data};
228 my ($self, $ext_type, $ext_data) = @_;
229 $self->{extension_data}{$ext_type} = $ext_data;
233 my ($self, $ext_type) = @_;
234 delete $self->{extension_data}{$ext_type};