Lines Matching full:my
55 my %message_type = (
149 my $payload = "";
150 my $messlen = -1;
151 my $mt;
152 my $startoffset = -1;
153 my $server = 0;
154 my $success = 0;
155 my $end = 0;
156 my @message_rec_list = ();
157 my @message_frag_lens = ();
158 my $ciphersuite = 0;
159 my $successondata = 0;
160 my $alert;
179 my $class = shift;
180 my $serverin = shift;
181 my $record = shift;
182 my $isdtls = shift;
183 my @messages = ();
184 my $message;
209 my $recoffset = 0;
249 my $msgheaderlen = $isdtls ? DTLS_MESSAGE_HEADER_LENGTH
256 my $lenhi;
257 my $lenlo;
258 my $msgseq;
259 my $msgfrag;
260 my $msgfragoffs;
262 my $msgfraghi;
263 my $msgfraglo;
264 my $msgfragoffshi;
265 my $msgfragoffslo;
314 my ($alertlev, $alertdesc) = unpack('CC', $record->decrypt_data);
340 my ($server, $mt, $msgseq, $msgfrag, $msgfragoffs, $data, $startoffset, $isdtls) = @_;
341 my $message;
503 my $class = shift;
508 my $class = shift;
513 my $class = shift;
524 my $class = shift;
525 my ($isdtls,
536 my $self = {
555 my $class = shift;
566 my $self = shift;
567 my $msgdata;
569 my $numrecs = $#{$self->records};
573 my $lenlo = length($self->data) & 0xff;
574 my $lenhi = length($self->data) >> 8;
577 my $msgfraghi = $self->msgfrag >> 8;
578 my $msgfraglo = $self->msgfrag & 0xff;
579 my $msgfragoffshi = $self->msgfragoffs >> 8;
580 my $msgfragoffslo = $self->msgfragoffs & 0xff;
591 my ($rec) = @{$self->records};
592 my $recdata = $rec->decrypt_data;
594 my $old_length;
595 my $msg_header_len = $self->{isdtls} ? DTLS_MESSAGE_HEADER_LENGTH
607 my $prefix = substr($recdata, 0, $self->startoffset);
608 my $suffix = substr($recdata, $self->startoffset + $old_length);
622 my $data = $rec->decrypt_data;
624 my $padval = length($data) % 16;
631 foreach my $macval (0..19) {
654 my $recctr = 0;
655 my $datadone = 0;
656 foreach my $rec (@{$self->records}) {
657 my $recdata = $rec->decrypt_data;
660 my $remainlen = length($recdata) - $self->startoffset;
684 my $self = shift;
691 my $self = shift;
699 my $self = shift;
707 my $self = shift;
715 my $self = shift;
723 my $self = shift;
731 my $self = shift;
739 my $self = shift;
747 my $self = shift;
755 my $self = shift;
756 my $msg_header_len = $self->{isdtls} ? DTLS_MESSAGE_HEADER_LENGTH
762 my $self = shift;
770 my $class = shift;