| |
SSL Connection Test
This page is a little test suite for the connection between you and
the website www.modssl.org (which is currently running
$x = $ENV{SERVER_SOFTWARE};
$x =~ s|\(Unix\)||;
$x =~ s|\s+|, |g;
print "$x";
!>
).
You can easily switch between HTTP (standard connection with no security) and
HTTPS (secured connection through SSL) with the following two buttons:
if ($ENV{'HTTPS'}) {
print "  \n";
print "  \n";
}
else {
print "  \n";
print "  \n";
}
!>
@TABLE = (
[ "Connection Details",
[
['Browser', 'HTTP_USER_AGENT'],
['Client Host Name', 'REMOTE_HOST'],
['Client IP Address', 'REMOTE_ADDR'],
['Client IP Port', 'REMOTE_PORT'],
['SSL Cipher', 'SSL_CIPHER'],
['SSL Key Length', 'SSL_CIPHER_ALGKEYSIZE'],
['SSL Secret Key Length', 'SSL_CIPHER_USEKEYSIZE'],
]
],
[ "Server Certificate Subject",
[
['Common Name', 'SSL_SERVER_S_DN_CN'],
['Organization Unit', 'SSL_SERVER_S_DN_OU'],
['Organization', 'SSL_SERVER_S_DN_O'],
['State/Province', 'SSL_SERVER_S_DN_SP'],
['Country', 'SSL_SERVER_S_DN_C'],
['Email Address', 'SSL_SERVER_S_DN_Email'],
]
],
[ "Server Certificate Issuer",
[
['Common Name', 'SSL_SERVER_I_DN_CN'],
['Organization Unit', 'SSL_SERVER_I_DN_OU'],
['Organization', 'SSL_SERVER_I_DN_O'],
['State/Province', 'SSL_SERVER_I_DN_SP'],
['Country', 'SSL_SERVER_I_DN_C'],
['Email Address', 'SSL_SERVER_I_DN_Email'],
]
],
[ "Client Certificate Subject",
[
['Common Name', 'SSL_CLIENT_S_DN_CN'],
['Organization Unit', 'SSL_CLIENT_S_DN_OU'],
['Organization', 'SSL_CLIENT_S_DN_O'],
['State/Province', 'SSL_CLIENT_S_DN_SP'],
['Country', 'SSL_CLIENT_S_DN_C'],
['Email Address', 'SSL_CLIENT_S_DN_Email'],
]
],
[ "Client Certificate Issuer",
[
['Common Name', 'SSL_CLIENT_I_DN_CN'],
['Organization Unit', 'SSL_CLIENT_I_DN_OU'],
['Organization', 'SSL_CLIENT_I_DN_O'],
['State/Province', 'SSL_CLIENT_I_DN_SP'],
['Country', 'SSL_CLIENT_I_DN_C'],
['Email Address', 'SSL_CLIENT_I_DN_Email'],
]
]
);
@COL = (
'#f0f0f0',
'#e0e0e0'
);
foreach $subtable (@TABLE) {
my ($title, $table) = @{$subtable};
print " \n";
print " \n";
print "$title | \n";
$coln = 1;
foreach $entry (@{$table}) {
my ($name, $var) = @{$entry};
$coln = ($coln + 1) % 2;
$col = $COL[$coln];
$val = $ENV{$var} || "empty";
print " $name | $val | $var | \n";
}
print " \n";
}
!>
| | |