Lines Matching refs:protocol

460         foreach my $protocol (@protocols) {
462             my @ciphers = run(app(["openssl", "ciphers", "-s", $protocol,
466             $ciphersstatus{$protocol} = $ciphersstatus;
468                 $ciphersuites{$protocol} = [ map { s|\R||; split(/:/, $_) }
470                 $protocolciphersuitecount += scalar @{$ciphersuites{$protocol}};
486         foreach my $protocol (@protocols) {
487             ok($ciphersstatus{$protocol}, "Getting ciphers for $protocol");
490         foreach my $protocol (sort keys %ciphersuites) {
491             note "Testing ciphersuites for $protocol";
494             my $flag = $protocol eq "-tls1_3" ? "" : $protocol;
496             foreach my $cipher (@{$ciphersuites{$protocol}}) {
497                 if ($protocol eq "-ssl3" && $cipher =~ /ECDH/ ) {
498                     note "*****SKIPPING $protocol $cipher";
501                     if ($protocol eq "-tls1_3") {
514             next if $protocol eq "-tls1_3";
524                            $protocol])), 0,