addcertsldap

Perl写的CA认证程序

## OpenCA - RA Server Command
## (c) 2000-2001 by Michael Bell and OpenCA Group
##
##   File Name: addCertsLDAP
##       Brief: Add all certificates to LDAP server
## Description: Add all issued certificates to LDAP server
##  Parameters:
 
if ( $cmd !~ /addCertsLDAP/i ) {
        configError( "Wrong Command Usage ($cmd/importReqs)!" );
        exit 1;
}                                                                                            
## ca-certificates
print startLogPage ("Exporting certificates to LDAP");
print startLogSection ("Exporting CA certificate(s) to LDAP server ... ");
my @items = $db->searchItems ( DATATYPE => "VALID_CA_CERTIFICATE" );
for my $h (@items) {
  my $result = eximObjectToLDAP ( AUTHORITY_CERTIFICATE => $h );
  if ($result and $result->{STATUS}) {
    print addPreLogLine ("Certificate ".$h->getParsed()->{SERIAL}." OK");
  } else {
    print addPreLogLine ("<FONT COLOR=#ff0000>".
                         "Certificate ".$h->getParsed()->{SERIAL}.
                         " FAILED</FONT>");
  }
}
print closeLogSection ();

## certificates
print startLogSection ("Exporting certificates to LDAP ...");
my @items = $db->searchItems ( DATATYPE => "VALID_CERTIFICATE" );
for my $h (@items) {
  my $result = eximObjectToLDAP ( CERTIFICATE => $h );
  if ($result and $result->{STATUS}) {
    print addPreLogLine ("Certificate ".$h->getParsed()->{SERIAL}." OK");
  } else {
    print addPreLogLine ("<FONT COLOR=#ff0000>".
                         "Certificate ".$h->getParsed()->{SERIAL}.
                         " FAILED</FONT>");
  }
}
print closeLogSection ();

print closePage ();

1;