addcrlldap

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 !~ /addCrlLDAP/i ) {
        configError( "Wrong Command Usage ($cmd/importReqs)!" );
        exit 1;
}                                                                                            

print startLogPage ( "Updating CRLs on the LDAP ...");

## crls
my @items = $db->searchItems ( DATATYPE => "CRL" );
for my $h (@items) {
  print addLogSection ("CRL ".$h->getParsed()->{KEY}." ...");
  my $result = eximObjectToLDAP ( CRL => $h );
  if ($result and $result->{STATUS}) {
    print addLogLine (" Ok.");
  } else {
    print addErrorLog (" Failed.");
  }
  print closeLogSection ();
}

closePage ();

1;