#! 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( ); open(SCEPLIST, "$bindir/sceplist -h -v -c|") || die "cannot open pipe to sceplist: #!\n"; while ($_ = ) { print $_ } print q(
distinguished name serial not before not after

© 2001 The OpenSCEP Project ); exit 0;