Lines Matching refs:record
355 my $record;
357 $record = TLSProxy::Record->new_dtls(
371 $record = TLSProxy::Record->new(
383 push @{$records}, $record;
414 my $record = TLSProxy::Record->new(
425 push @{$records}, $record;
429 $record = TLSProxy::Record->new(
440 push @{$records}, $record;
447 my $record;
461 $record = TLSProxy::Record->new(
473 push @{$proxy->record_list}, $record;
500 $record = TLSProxy::Record->new(
512 push @{$proxy->record_list}, $record;
540 $record = TLSProxy::Record->new(
551 push @{$proxy->record_list}, $record;
560 $record = TLSProxy::Record->new(
571 push @{$proxy->record_list}, $record;
574 $record = TLSProxy::Record->new(
585 push @{$proxy->record_list}, $record;
606 my $record;
609 $record = TLSProxy::Record->new_dtls(
623 $record = TLSProxy::Record->new(
643 splice @{$proxy->record_list}, $i, 0, $record;
697 foreach my $record (@{$records}) {
698 last if $record->content_type == TLSProxy::Record::RT_CCS;
721 foreach my $record (@{$records}) {
722 if ($record->content_type == TLSProxy::Record::RT_HANDSHAKE) {
723 $record->{sent} = 1; # pretend it's sent already
765 my $record = TLSProxy::Record->new(
788 $record->data($data);
789 $record->len(length $data);
790 push @{$records}, $record;
795 my $record = TLSProxy::Record->new(
814 $record->data($data);
815 $record->len(length $data);
816 push @{$records}, $record;
820 $record = TLSProxy::Record->new(
835 $record->data($data);
836 $record->len(length $data);
837 push @{$records}, $record;
841 $record = TLSProxy::Record->new(
861 $record->data($data);
862 $record->len(length $data);
863 push @{$records}, $record;