diff options
Diffstat (limited to 'scripts/regeng-api.lisp')
| -rw-r--r-- | scripts/regeng-api.lisp | 23 |
1 files changed, 17 insertions, 6 deletions
diff --git a/scripts/regeng-api.lisp b/scripts/regeng-api.lisp index d3de4ce2..48b899f5 100644 --- a/scripts/regeng-api.lisp +++ b/scripts/regeng-api.lisp @@ -107,6 +107,8 @@ (list-friend-biz-certs :cust-id 42) => (cert ...) +;;; Stuff below this line is not even close to baked yet + ;; These two may take a bit more thought. What's a ca-handle? (create-ca-context :cust-id 42 @@ -118,16 +120,25 @@ => () ;; Ask signing engine to generate a cert request with specified -;; attributes and indicated (subject) keyset. +;; attributes and indicated (subject) keyset. Key handle is in case +;; we have to ask signing engine to create a keypair for this. + +(generate-cert-request :cust-id 42 + :subject-name subject-name + :attributes '(blah blah blah) + :public-key public-key + :public-key-handle handle) -(generate-cert-request) +;; Ask signing engine to sign a CRL. Need to indicate the CA that's +;; generating the CRL -(generate-crl) +(generate-crl :cust-id 42 + :ca-handle ca-handle) -;; Ask signing engine to sign a cert using specified cert request and -;; attributes and indicated (issuer) keyset. +;; Ask signing engine to sign a cert request using specified cert +;; request and attributes and indicated (issuer) keyset. -(sign-cert) +(sign-cert-request) (add-right-to-route) (del-right-to-route) |