Lines Matching full:proxy

12 use TLSProxy::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_filter);
49 $proxy->clientflags("-no_tls1_3");
50 $proxy->serverflags("-client_renegotiation");
51 $proxy->reneg(1);
52 $proxy->start();
60     $proxy->clear();
61     $proxy->filter(undef);
62     $proxy->ciphers("DEFAULT:\@SECLEVEL=0");
63     $proxy->clientflags("-no_tls1_3 -cipher AES128-SHA:\@SECLEVEL=0");
64     $proxy->serverflags("-no_tls1_3 -no_tls1_2 -client_renegotiation");
65     $proxy->reneg(1);
66     $proxy->start();
69     foreach my $message (@{$proxy->message_list}) {
90     $proxy->clear();
91     $proxy->filter(\&sigalgs_filter);
92     $proxy->clientflags("-tls1_2");
93     $proxy->serverflags("-client_renegotiation");
94     $proxy->reneg(1);
95     $proxy->start();
103     $proxy->clear();
104     $proxy->filter(undef);
105     $proxy->serverflags("-no_tls1_3");
106     $proxy->clientflags("-no_tls1_3");
107     $proxy->reneg(1);
108     $proxy->start();
115     my $proxy = shift;
118     if ($proxy->flight != 0) {
122     foreach my $message (@{$proxy->message_list}) {
135     my $proxy = shift;
139     foreach my $message (@{$proxy->message_list}) {