cvs commit: httpd-test/perl-framework/Apache-Test/lib/Apache TestRequest.pm

[dougm]

dougm       01/11/16 11:39:26

  Modified:    perl-framework/Apache-Test/lib/Apache TestRequest.pm
  Log:
  add socket_trace function
  
  Revision  Changes    Path
  1.56      +10 -0     
httpd-test/perl-framework/Apache-Test/lib/Apache/TestRequest.pm
  
  Index: TestRequest.pm
  ===================================================================
  RCS file: 
/home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/TestRequest.pm,v
  retrieving revision 1.55
  retrieving revision 1.56
  diff -u -r1.55 -r1.56
  --- TestRequest.pm    2001/11/16 19:11:23     1.55
  +++ TestRequest.pm    2001/11/16 19:39:26     1.56
  @@ -196,6 +196,16 @@
       $sock->$method();
   }
   
  +sub socket_trace {
  +    my $sock = shift;
  +    return unless $sock->can('get_peer_certificate');
  +
  +    #like having some -v info
  +    my $cert = $sock->get_peer_certificate;
  +    print "Cipher:  ", $sock->get_cipher, "\n";
  +    print "Peer DN: ", $cert->subject_name, "\n";
  +}
  +
   sub prepare {
       user_agent();