#!/usr/bin/perl
use CGI qw(:standard);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
$|=1;
print header;
print start_html("X.509 Certificate Info");
if ( defined( $ENV{SSL_CLIENT_S_DN} ) ){
  print $ENV{SSL_CLIENT_CERT}, "<br />";
} else {
  print "ERROR: Client certificate not presented to webserver for authentication";
}
print end_html;