diff options
| author | Rob Austein <sra@hactrn.net> | 2007-03-20 11:05:58 +0000 |
|---|---|---|
| committer | Rob Austein <sra@hactrn.net> | 2007-03-20 11:05:58 +0000 |
| commit | 109dcd102ff2ee4645ffff018c867ab111ae0c9d (patch) | |
| tree | 4722789764bfcb0c5a942346b9b6315159ffd240 /scripts | |
| parent | 20370c8e1a8cd5797ae45b204d7ce66359c04f0e (diff) | |
biz-ca-context
svn path=/scripts/regeng-api; revision=500
Diffstat (limited to 'scripts')
| -rw-r--r-- | scripts/regeng-api | 27 |
1 files changed, 17 insertions, 10 deletions
diff --git a/scripts/regeng-api b/scripts/regeng-api index f658a335..f5e68be3 100644 --- a/scripts/regeng-api +++ b/scripts/regeng-api @@ -98,34 +98,41 @@ ;; (generate-keypair) setup followed by a dance between the IRBE and ;; the business PKI system. -(create-biz-keypair :cust-id 42 - :ca-id splat) -=> (pkcs10-cert-request) +;; This creates both a context and a keypair +(create-biz-context :cust-id 42) +=> (biz-context-id pkcs10-cert-request) -(destroy-biz-keypair :cust-id 42 - :ca-id splat) +(destroy-biz-context :cust-id 42 + :biz-context-id biz-context-id) => () (get-biz-signing-certs :cust-id 42 - :ca-id splat) + :biz-context-id splat) => (cert ...) (set-biz-signing-certs :cust-id 42 - :ca-id splat + :biz-context-id splat (cert ...)) => () (add-friend-biz-ta :cust-id 42 - :cert cert) + :biz-context-id splat + :ta ta) => () (del-friend-biz-ta :cust-id 42 - :cert cert) + :biz-context-id splat + :ta ta) => () -(list-friend-biz-tas :cust-id 42) +(list-friend-biz-tas :cust-id 42 + :biz-context-id splat) => (cert ...) +(bind-biz-context-to-ca :cust-id 42 + :ca-id foo + :biz-context-id bar) + ;; Need something for specifying the private key and signing cert ;; chain used for lodging. Need contact URI (or whatever) for ;; lodging. At this point we think we can make this per cust-id |