#! PERL
#
# (c) 2001 Dr. Andreas Mueller, Beratung und Entwicklung
#
# $Id: revoked.pl.in,v 1.1 2001/12/17 09:39:57 afm Exp $
#
$bindir = "BINDIR";
$sbindir = "SBINDIR";
$openscepdir = "OPENSCEPDIR";
$cacert = $openscepdir."/cacert.der";
$cafingerprint = $sbindir."/cafingerprint";
printf("Content-Type: text/html\n\n");
printf q(
Revoked certificates
Revoked certificates
);
open(CAF, "$cafingerprint $cacert 2>/dev/null |")
|| die "cannot get ca fingerprint: $!\n";
$cafingerprint = ;
close(CAF);
printf("CA key fingerprint: %s
\n", $cafingerprint);
printf q(
| distinguished name |
serial |
not before |
not after |
);
open(SCEPLIST, "$bindir/sceplist -h -v -c|")
|| die "cannot open pipe to sceplist: #!\n";
while ($_ = ) {
print $_
}
print q(
© 2001 The OpenSCEP Project
);
exit 0;