diff options
| author | Rob Austein <sra@hactrn.net> | 2007-01-31 16:44:28 +0000 |
|---|---|---|
| committer | Rob Austein <sra@hactrn.net> | 2007-01-31 16:44:28 +0000 |
| commit | ce7c5f982a490dcbb5074ef621b41c3fe9301eef (patch) | |
| tree | a9dd68320da010d35a9331fa3c97478c3e0ebf76 /scripts | |
| parent | 9175d4642b986320e4e4e8c3d12e1553b06b81e1 (diff) | |
checkpoint
svn path=/scripts/regeng-api.lisp; revision=477
Diffstat (limited to 'scripts')
| -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) |