Lines Matching refs:self

280     my $self = {
299     return bless $self, $class;
305     my ($self) = shift;
307     my $data = $self->data;
309     if($self->version >= VERS_TLS_1_1()) {
323     $self->decrypt_data($data);
324     $self->decrypt_len(length($data));
332     my ($self) = shift;
334     my $data = $self->data;
340         if ($self->content_type() == RT_ALERT) {
351     } elsif ($self->version >= VERS_TLS_1_1()) {
368         $self->content_type($content_type);
372     $self->decrypt_data($data);
373     $self->decrypt_len(length($data));
381     my $self = shift;
386     if ($self->{sent} || ($self->flight & 1) != $server) {
389     $self->{sent} = 1;
391     if ($self->sslv2) {
392         $data = pack('n', $self->len | 0x8000);
394         if($self->{isdtls}) {
395             my $seqhi = ($self->seq >> 32) & 0xffff;
396             my $seqmi = ($self->seq >> 16) & 0xffff;
397             my $seqlo = ($self->seq >> 0) & 0xffff;
398             $data = pack('Cnnnnnn', $self->content_type, $self->version,
399                          $self->epoch, $seqhi, $seqmi, $seqlo, $self->len);
401             if (TLSProxy::Proxy->is_tls13() && $self->encrypted) {
402                 $data = pack('Cnn', $self->outer_content_type, $self->version,
403                              $self->len);
406                 $data = pack('Cnn', $self->content_type, $self->version,
407                              $self->len);
412     $data .= $self->data;
420     my $self = shift;
421     return $self->{flight};
425     my $self = shift;
426     return $self->{sslv2};
430     my $self = shift;
431     return $self->{len_real};
435     my $self = shift;
436     return $self->{orig_decrypt_data};
442     my $self = shift;
444       $self->{decrypt_len} = shift;
446     return $self->{decrypt_len};
450     my $self = shift;
452       $self->{data} = shift;
454     return $self->{data};
458     my $self = shift;
460       $self->{decrypt_data} = shift;
462     return $self->{decrypt_data};
466     my $self = shift;
468       $self->{len} = shift;
470     return $self->{len};
474     my $self = shift;
476       $self->{version} = shift;
478     return $self->{version};
482     my $self = shift;
484       $self->{content_type} = shift;
486     return $self->{content_type};
490     my $self = shift;
492         $self->{epoch} = shift;
494     return $self->{epoch};
498     my $self = shift;
500         $self->{seq} = shift;
502     return $self->{seq};
506     my $self = shift;
508       $self->{encrypted} = shift;
510     return $self->{encrypted};
514     my $self = shift;
516       $self->{outer_content_type} = shift;
518     return $self->{outer_content_type};
522     my $self = shift;
525     if (($self->{flight} & 1) == $server && $self->{content_type} == RT_ALERT) {
526         my ($level, $description) = unpack('CC', $self->decrypt_data);