Lines Matching refs:proxy
32 my $proxy = TLSProxy::Proxy->new(
40 $proxy->clientflags("-no_tls1_3");
41 $proxy->serverflags("-client_renegotiation");
42 $proxy->reneg(1);
43 $proxy->start() or plan skip_all => "Unable to start up Proxy for tests";
47 $proxy->clear();
48 $proxy->filter(\&reneg_scsv_filter);
49 $proxy->cipherc("DEFAULT:\@SECLEVEL=0");
50 $proxy->clientflags("-no_tls1_3");
51 $proxy->serverflags("-client_renegotiation");
52 $proxy->reneg(1);
53 $proxy->start();
62 $proxy->clear();
63 $proxy->filter(\&reneg_ext_filter);
64 $proxy->clientflags("-no_tls1_3");
65 $proxy->serverflags("-client_renegotiation");
66 $proxy->reneg(1);
67 $proxy->start();
76 $proxy->clear();
77 $proxy->filter(undef);
78 $proxy->ciphers("DEFAULT:\@SECLEVEL=0");
79 $proxy->clientflags("-no_tls1_3 -cipher AES128-SHA:\@SECLEVEL=0");
80 $proxy->serverflags("-no_tls1_3 -no_tls1_2 -client_renegotiation");
81 $proxy->reneg(1);
82 $proxy->start();
85 foreach my $message (@{$proxy->message_list}) {
106 $proxy->clear();
107 $proxy->filter(\&sigalgs_filter);
108 $proxy->clientflags("-tls1_2");
109 $proxy->serverflags("-client_renegotiation");
110 $proxy->reneg(1);
111 $proxy->start();
119 $proxy->clear();
120 $proxy->filter(undef);
121 $proxy->serverflags("-no_tls1_3");
122 $proxy->clientflags("-no_tls1_3");
123 $proxy->reneg(1);
124 $proxy->start();
134 $proxy->clear();
135 $proxy->filter(undef);
136 $proxy->cipherc("DEFAULT:\@SECLEVEL=0");
137 $proxy->start();
139 … my $clientHello = first { $_->mt == TLSProxy::Message::MT_CLIENT_HELLO } @{$proxy->message_list};
151 $proxy->clear();
152 $proxy->filter(undef);
153 $proxy->cipherc("DEFAULT:\@SECLEVEL=0");
154 $proxy->clientflags("-tls1_2");
155 $proxy->start();
157 … my $clientHello = first { $_->mt == TLSProxy::Message::MT_CLIENT_HELLO } @{$proxy->message_list};
170 $proxy->clear();
171 $proxy->filter(undef);
172 $proxy->clientflags("-tls1_3");
173 $proxy->start();
175 … my $clientHello = first { $_->mt == TLSProxy::Message::MT_CLIENT_HELLO } @{$proxy->message_list};
184 my $proxy = shift;
187 if ($proxy->flight != 0) {
191 foreach my $message (@{$proxy->message_list}) {
204 my $proxy = shift;
207 if ($proxy->flight != 0) {
211 foreach my $message (@{$proxy->message_list}) {
221 my $proxy = shift;
225 foreach my $message (@{$proxy->message_list}) {
