## OpenCA - RA Server Command
## (c) 1998-2002 by Massimiliano Pala and OpenCA Group
##
##   File Name: setupInitialCert
##       Brief: manage the links for the intializationphases
##     Version: $Revision: 1.1 $
## Description: create the links and call the scripts
##  Parameters: dest

sub cmdSetupInitialCert {

    generalError ("Unknown destination command")
        if ($query->param ('dest') !~ /^basic_csr|pkcs10_req|editCSR|viewCSR|viewCert$/);

    if ($query->param ('dest') =~ /basic_csr/)
    {
        $query->param (-name => "CSR_TYPE", -value => "basic");
    } elsif ($query->param ('dest') =~ /editCSR|viewCSR/) {
        $query->param (-name => "key", -value => libDBGetLastItem ("PENDING_REQUEST")->getSerial());
        $query->param (-name => "dataType", -value => "PENDING_REQUEST");
    } else {
        $query->param (-name => "key", -value => libDBGetLastItem ("VALID_CERTIFICATE")->getSerial());
        $query->param (-name => "dataType", -value => "VALID_CERTIFICATE");
    }
    libDoCommand ($query->param ('dest'));

}

1;
