From 6bbd0c3901c647ec1dfbed0617a009ffd55348a9 Mon Sep 17 00:00:00 2001 From: Rob Austein Date: Tue, 20 Mar 2007 13:48:15 +0000 Subject: Fix repo stuff to use biz-signing-context etc svn path=/scripts/regeng-api; revision=511 --- scripts/regeng-api | 48 ++++++++++++++++++++---------------------------- 1 file changed, 20 insertions(+), 28 deletions(-) (limited to 'scripts/regeng-api') 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) -- cgit v1.2.3