new_ask4rev

Perl写的CA认证程序

## Certificate Revocation Request
## (c) 1999 by The OpenCA Team
## All Rights Reserved
##
## Project Information:
##
## 	Current Version ..................... $ver: 0.031
##      Project Started on .................. 15/02/2000
##      Last Modified on .................... 19/02/2000
##      Project Closed on ................... n/a
##
## Original program by Miguel Armas <[e-mail]>. Modified for
## new release by Massimiliano Pala <[e-mail]>.

## If you want to contact me (the author) please use the e-mail
## addresses listed below. Do not esitate in reporting bugs, enhancement
## or anything seems useful in developing this software:
##
##	Miguel Armas <[e-mail]>
##

## Thank you for using this software, and remember that Open Projects
## are the future of mankind. Do not sleep, partecipate to world wide
## efforts to make life easier for all!

## OpenCA - Public Web-Gateway Command
## (c) 1998-2001 by OpenCA Group
##
##   File Name: new_ask4rev
##       Brief: begin to revoke a certificate
## Description: get the certificate which should be revoked and prompt
##              the user to a second ok
##  Parameters: none

if ( $cmd !~ /new_ask4rev/i ) {
        configError( "Wrong Command Usage ($cmd over new_ask4rev)!" );
        exit 1;
}

## Print the Content Type for Browser
print "Content-type: text/html\n\n";

## Main Section
## ============

my $doc = 'NewAsk4RevSheet';

my $basedoc     = getRequired($doc);

$page = $query->getFile ( $basedoc );

# Text to sign
$text  = "Please sign this text with the private key and ".
         "certificate which you want to revoke.\n";

## Substitute the Variables in the $page
$page = $query->subVar( $page, '$text', $text );

print "$page";
exit 0;