Lines Matching refs:protocol
418 foreach my $protocol (@protocols) {
420 my @ciphers = run(app(["openssl", "ciphers", "-s", $protocol,
423 $ciphersstatus{$protocol} = $ciphersstatus;
425 $ciphersuites{$protocol} = [ map { s|\R||; split(/:/, $_) }
427 $protocolciphersuitecount += scalar @{$ciphersuites{$protocol}};
442 foreach my $protocol (@protocols) {
443 ok($ciphersstatus{$protocol}, "Getting ciphers for $protocol");
446 foreach my $protocol (sort keys %ciphersuites) {
447 note "Testing ciphersuites for $protocol";
450 my $flag = $protocol eq "-tls1_3" ? "" : $protocol;
452 foreach my $cipher (@{$ciphersuites{$protocol}}) {
453 if ($protocol eq "-ssl3" && $cipher =~ /ECDH/ ) {
454 note "*****SKIPPING $protocol $cipher";
457 if ($protocol eq "-tls1_3") {
466 next if $protocol eq "-tls1_3";
471 $protocol])), 0,