Lines Matching refs:proxy

29 my $proxy = TLSProxy::Proxy->new(
68 $proxy->clientflags("-no_tls1_3") if disabled("ec") && disabled("dh");
69 $proxy->start() or plan skip_all => "Unable to start up Proxy for tests";
78     $proxy->filter(\&sigalgs_filter);
81     $proxy->clear();
83     $proxy->start();
87     $proxy->clear();
89     $proxy->start();
93     $proxy->clear();
95     $proxy->start();
100     $proxy->clear();
102     $proxy->start();
108     $proxy->clear();
110     $proxy->start();
116     $proxy->filter(\&modify_cert_verify_sigalg);
117     $proxy->clear();
118     $proxy->start();
128     $proxy->clear();
129     $proxy->clientflags("-sigalgs ".randcase("ECDSA+SHA256"));
130     $proxy->filter(undef);
131     $proxy->start();
141     $proxy->clear();
142     $proxy->serverflags("-no_tls1_3");
143     $proxy->ciphers("ECDHE-RSA-AES128-SHA");
144     $proxy->filter(undef);
145     $proxy->start();
152     $proxy->filter(\&sigalgs_filter);
156     $proxy->clear();
158     $proxy->clientflags("-no_tls1_3 -cipher DEFAULT:\@SECLEVEL=0");
159     $proxy->ciphers("ECDHE-RSA-AES128-SHA:\@SECLEVEL=0");
160     $proxy->start();
166     $proxy->clear();
168     $proxy->clientflags("-tls1_2 -cipher DEFAULT:\@SECLEVEL=0");
169     $proxy->ciphers("DEFAULT:\@SECLEVEL=1");
170     $proxy->start();
176     $proxy->clear();
178     $proxy->clientflags("-tls1_2 -cipher DEFAULT:\@SECLEVEL=1");
179     $proxy->ciphers("DEFAULT:\@SECLEVEL=0");
180     $proxy->start();
184     $proxy->clear();
186     $proxy->clientflags("-no_tls1_3");
187     $proxy->ciphers("ECDHE-RSA-AES128-SHA");
188     $proxy->start();
192     $proxy->clear();
194     $proxy->clientflags("-no_tls1_3");
195     $proxy->ciphers("ECDHE-RSA-AES128-SHA");
196     $proxy->start();
201     $proxy->clear();
203     $proxy->clientflags("-no_tls1_3");
204     $proxy->ciphers("ECDHE-RSA-AES128-SHA");
205     $proxy->start();
209     $proxy->clear();
211     $proxy->serverflags("-no_tls1_3");
212     $proxy->ciphers("ECDHE-RSA-AES128-SHA");
213     $proxy->start();
220     $proxy->clear();
222     $proxy->clientflags("-no_tls1_3 -sigalgs ".randcase("RSA+SHA256"));
223     $proxy->ciphers("ECDHE-RSA-AES128-SHA");
224     $proxy->start();
229     $proxy->clear();
230     $proxy->clientflags("-no_tls1_3 -sigalgs ".randcase("ECDSA+SHA256"));
231     $proxy->ciphers("ECDHE-RSA-AES128-SHA");
232     $proxy->filter(undef);
233     $proxy->start();
235     $proxy->filter(\&sigalgs_filter);
239     $proxy->clear();
241     $proxy->clientflags("-no_tls1_3 -cipher DEFAULT:\@SECLEVEL=0");
242     $proxy->serverflags("-cert " . srctop_file("test", "certs",
246     $proxy->ciphers("ECDHE-ECDSA-AES128-SHA:\@SECLEVEL=0");
247     $proxy->start();
260     $proxy->clear();
261     $proxy->clientflags("-tls1_3");
262     $proxy->filter(\&modify_sigalgs_filter);
263     $proxy->start();
272         $proxy->clear();
273         $proxy->clientflags("-cipher AES128-SHA\@SECLEVEL=0");
274         $proxy->filter(\&modify_sigalgs_filter);
275         $proxy->start();
286     $proxy->clear();
287     $proxy->filter(\&modify_sigalgs_cert_filter);
288     $proxy->start();
293     $proxy->clear();
294     $proxy->filter(\&modify_sigalgs_cert_filter);
295     $proxy->start();
300     $proxy->clear();
301     $proxy->filter(\&modify_sigalgs_cert_filter);
302     $proxy->start();
308     $proxy->clear();
309     $proxy->filter(\&inject_unrecognized_sigalg);
310     $proxy->clientflags("-tls1_3");
313     $proxy->serverflags("" .
318     $proxy->start();
324     $proxy->clear();
325     $proxy->filter(\&inject_unrecognized_sigalg);
326     $proxy->clientflags("-tls1_3");
327     $proxy->serverflags("" .
332     $proxy->start();
340     my $proxy = shift;
343     if ($proxy->flight != 0) {
347     foreach my $message (@{$proxy->message_list}) {
374     my $proxy = shift;
377     return if ($proxy->flight != 0);
379     foreach my $message (@{$proxy->message_list}) {
431     my $proxy = shift;
434     if ($proxy->flight != 0) {
438     foreach my $message (@{$proxy->message_list}) {
467     my $proxy = shift;
470     if ($proxy->flight != 1) {
474     foreach my $message (@{$proxy->message_list}) {
484     my $proxy = shift;
488     if ($proxy->flight != 0) {
504     my $message = ${$proxy->message_list}[0];