Mercurial > hg > nginx-tests

comparison lib/Test/Nginx/POP3.pm @ 1980:d732a96e05df

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tests: logging of certificate subjects instead of issuers.
author Maxim Dounin <mdounin@mdounin.ru>
date Sat, 25 May 2024 03:44:55 +0300
parents 6d3a8f4eb9b2
children
comparison
equal deleted inserted replaced
1979:2d58bb10ff5d 1980:d732a96e05df
45 ) 45 )
46 or die $IO::Socket::SSL::SSL_ERROR . "\n"; 46 or die $IO::Socket::SSL::SSL_ERROR . "\n";
47 47
48 my $s = $self->{_socket}; 48 my $s = $self->{_socket};
49 log_in("ssl cipher: " . $s->get_cipher()); 49 log_in("ssl cipher: " . $s->get_cipher());
50 log_in("ssl cert: " . $s->peer_certificate('issuer')); 50 log_in("ssl cert: " . $s->peer_certificate('subject'));
51 } 51 }
52 52
53 alarm(0); 53 alarm(0);
54 }; 54 };
55 alarm(0); 55 alarm(0);