diff options
| -rw-r--r-- | scripts/regeng-api | 48 |
1 files changed, 20 insertions, 28 deletions
diff --git a/scripts/regeng-api b/scripts/regeng-api index 37e00c59..e6c883cc 100644 --- a/scripts/regeng-api +++ b/scripts/regeng-api @@ -172,42 +172,34 @@ :child foo) => (signing-context) -;; 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 -;; rather than per personality within cust-id; this can be fixed later -;; with a simple RE software upgrade if there's ever a need. Well, -;; almost. Need to upgrade the left-right protocol but that's a -;; single entity upgrade. - -;; The following two bother RobK and RobL who would prefer a -;; (generate-keypair) setup followed by a dance between the IRBE and -;; the business PKI system. - -(get-repo-biz-private-key :cust-id 42) -=> (private-key) - -(set-repo-biz-private-key :cust-id 42 - :new-key new-private-key) + + +(set-ca-repo-ta :cust-id 42 + :ca foo + :ta ta) => () -(get-repo-biz-signing-certs :cust-id 42) -=> (cert ...) +(get-ca-repo-ta :cust-id 42 + :ca foo) +=> (ta) -(set-repo-biz-signing-certs :cust-id 42 - (cert ...)) +(set-ca-repo-uri :cust-id 42 + :ca foo + :uri uri) => () -(add-repo-biz-cert :cust-id 42 - :cert cert) -=> () +(get-ca-repo-uri :cust-id 42 + :ca foo) +=> (uri) -(del-repo-biz-cert :cust-id 42 - :cert cert) +(set-ca-repo-biz-signing-context :cust-id 42 + :ca foo + :biz-signing-context foo) => () -(list-repo-biz-certs :cust-id 42) -=> (cert ...) +(get-ca-repo-biz-signing-context :cust-id 42 + :ca foo) +=> (biz-signing-context) |