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->cipherc("DEFAULT:\@SECLEVEL=2");
64     $proxy->filter(\&reneg_ext_filter);
65     $proxy->clientflags("-no_tls1_3");
66     $proxy->serverflags("-client_renegotiation");
67     $proxy->reneg(1);
68     $proxy->start();
77     $proxy->clear();
78     $proxy->filter(undef);
79     $proxy->ciphers("DEFAULT:\@SECLEVEL=0");
80     $proxy->clientflags("-no_tls1_3 -cipher AES128-SHA:\@SECLEVEL=0");
81     $proxy->serverflags("-no_tls1_3 -no_tls1_2 -client_renegotiation");
82     $proxy->reneg(1);
83     $proxy->start();
86     foreach my $message (@{$proxy->message_list}) {
107     $proxy->clear();
108     $proxy->filter(\&sigalgs_filter);
109     $proxy->clientflags("-tls1_2");
110     $proxy->serverflags("-client_renegotiation");
111     $proxy->reneg(1);
112     $proxy->start();
120     $proxy->clear();
121     $proxy->filter(undef);
122     $proxy->serverflags("-no_tls1_3");
123     $proxy->clientflags("-no_tls1_3");
124     $proxy->reneg(1);
125     $proxy->start();
135     $proxy->clear();
136     $proxy->filter(undef);
137     $proxy->cipherc("DEFAULT:\@SECLEVEL=0");
138     $proxy->start();
140 …  my $clientHello = first { $_->mt == TLSProxy::Message::MT_CLIENT_HELLO } @{$proxy->message_list};
152     $proxy->clear();
153     $proxy->filter(undef);
154     $proxy->cipherc("DEFAULT:\@SECLEVEL=0");
155     $proxy->clientflags("-tls1_2");
156     $proxy->start();
158 …  my $clientHello = first { $_->mt == TLSProxy::Message::MT_CLIENT_HELLO } @{$proxy->message_list};
171     $proxy->clear();
172     $proxy->filter(undef);
173     $proxy->clientflags("-tls1_3");
174     $proxy->start();
176 …  my $clientHello = first { $_->mt == TLSProxy::Message::MT_CLIENT_HELLO } @{$proxy->message_list};
185     my $proxy = shift;
188     if ($proxy->flight != 0) {
192     foreach my $message (@{$proxy->message_list}) {
205     my $proxy = shift;
208     if ($proxy->flight != 0) {
212     foreach my $message (@{$proxy->message_list}) {
222     my $proxy = shift;
226     foreach my $message (@{$proxy->message_list}) {