sendcert

Perl写的CA认证程序

## Send Certificates Tool - V2.0
## (c) 1999 by Massimiliano Pala and the OpenCA Group

## OpenCA - Public Web-Gateway Command
## (c) 1998-2001 by Massimiliano Pala and OpenCA Group
##
##   File Name: sendcert
##       Brief: submit the ca_certificate
## Description: submit the actual ca-certificate
##  Parameters:                                                                              

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


my $cacert = getRequired( 'CACert' );

print "Content-Type: application/x-x509-ca-cert\n\n";
open (FD ,"$cacert") or die "Error: Can't access CA Certificate!";

while (<FD>) {
  print $_;
}

close FD