diff options
| author | Rob Austein <sra@hactrn.net> | 2007-03-20 11:51:17 +0000 |
|---|---|---|
| committer | Rob Austein <sra@hactrn.net> | 2007-03-20 11:51:17 +0000 |
| commit | 017a09cfa77ac5c1344460722a4156d0b41a4419 (patch) | |
| tree | 3991d5055daeaa271e07f884f6a26fb7e2c2fbe7 /scripts | |
| parent | c0db176b4ccfd434413b22b716cbd4787ba18ca1 (diff) | |
checkpoint
svn path=/scripts/regeng-api; revision=506
Diffstat (limited to 'scripts')
| -rw-r--r-- | scripts/regeng-api | 27 |
1 files changed, 10 insertions, 17 deletions
diff --git a/scripts/regeng-api b/scripts/regeng-api index 7cd30acb..fd432967 100644 --- a/scripts/regeng-api +++ b/scripts/regeng-api @@ -163,27 +163,19 @@ :child foo) => (signing-context) -;; (add-child-to-ca) -;; (del-child-from-ca) -;; (list-ca-children) - -(add-friend-biz-ta :cust-id 42 - :biz-context-id splat - :ta ta) +(add-child-to-ca :cust-id id + :ca foo + :child bar) => () -(del-friend-biz-ta :cust-id 42 - :biz-context-id splat - :ta ta) +(del-child-from-ca :cust-id id + :ca foo + :child bar) => () -(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) +(list-ca-children :cust-id id + :ca foo) +=> (child ...) ;; Need something for specifying the private key and signing cert ;; chain used for lodging. Need contact URI (or whatever) for @@ -193,6 +185,7 @@ ;; almost. Need to upgrade the left-right protocol but that's a ;; single entity upgrade. +;; rob objects to the next two for the same reasons as above (get-repo-biz-private-key :cust-id 42) => (private-key) |