httpd-test-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From do...@apache.org
Subject cvs commit: httpd-test/perl-framework/Apache-Test/lib/Apache TestRequest.pm
Date Fri, 16 Nov 2001 19:39:26 GMT
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();
   
  
  
  

Mime
View raw message