Lines Matching refs:proxy

44 my $proxy = TLSProxy::Proxy->new(
54 my $proxy = shift;
56 if ($proxy->flight == 1) {
59 my $message = ${$proxy->message_list}[1];
66 if ($proxy->flight != 0) {
70 foreach my $message (@{$proxy->message_list}) {
85 my ($proxy, $message_type) = @_;
87 foreach my $message (@{$proxy->message_list}) {
102 my $proxy = shift;
105 if ($proxy->flight == 0) {
106 inject_duplicate_extension($proxy, TLSProxy::Message::MT_CLIENT_HELLO);
110 my $last_record = @{$proxy->{record_list}}[-1];
116 my $proxy = shift;
119 if ($proxy->flight == 0) {
121 } elsif ($proxy->flight == 1) {
122 inject_duplicate_extension($proxy, TLSProxy::Message::MT_SERVER_HELLO);
126 my $last_record = @{$proxy->{record_list}}[-1];
132 my $proxy = shift;
136 if ($proxy->flight == 0) {
142 if ($proxy->flight != 1) {
144 my $last_record = @{$proxy->record_list}[-1];
151 return if (!defined($message = ${$proxy->message_list}[2]));
153 .${$proxy->message_list}[1]->mt.", "
154 .${$proxy->message_list}[3]->mt
157 $message = ${$proxy->message_list}[1];
179 my $proxy = shift;
182 if ($proxy->flight != 0) {
186 my $message = ${$proxy->message_list}[0];
192 $proxy->start() or plan skip_all => "Unable to start up Proxy for tests";
200 $proxy->clear();
201 $proxy->filter(\&inject_duplicate_extension_serverhello);
202 $proxy->clientflags("-no_tls1_3");
203 $proxy->start();
207 $proxy->clear();
208 $proxy->filter(\&extension_filter);
209 $proxy->cipherc("DEFAULT:\@SECLEVEL=0");
210 $proxy->ciphers("AES128-SHA:\@SECLEVEL=0");
211 $proxy->clientflags("-no_tls1_3");
212 $proxy->start();
217 $proxy->clear();
218 $proxy->filter(\&inject_unsolicited_extension);
220 $proxy->clientflags("-no_tls1_3 -noservername");
221 $proxy->start();
227 $proxy->clear();
228 $proxy->filter(\&inject_cryptopro_extension);
229 $proxy->clientflags("-no_tls1_3");
230 $proxy->start();
238 $proxy->clear();
239 $proxy->filter(\&inject_unsolicited_extension);
241 $proxy->clientflags("-no_tls1_3");
242 $proxy->start();
251 $proxy->clear();
252 $proxy->filter(\&inject_unsolicited_extension);
254 $proxy->clientflags("-no_tls1_3");
255 $proxy->start();
264 $proxy->clear();
265 $proxy->filter(\&inject_unsolicited_extension);
267 $proxy->clientflags("-noservername");
268 $proxy->start();