From b552d632eae8f2c6befd27264ff5d037b9f3a056 Mon Sep 17 00:00:00 2001 From: Rob Austein Date: Tue, 20 Mar 2007 11:18:07 +0000 Subject: checkpoint svn path=/scripts/regeng-api; revision=501 --- scripts/regeng-api | 7 +++++++ 1 file changed, 7 insertions(+) (limited to 'scripts/regeng-api') diff --git a/scripts/regeng-api b/scripts/regeng-api index f5e68be3..fbc25f17 100644 --- a/scripts/regeng-api +++ b/scripts/regeng-api @@ -106,6 +106,9 @@ :biz-context-id biz-context-id) => () +(list-biz-contexts :cust-id 42) +=> (biz-context-id ...) + (get-biz-signing-certs :cust-id 42 :biz-context-id splat) => (cert ...) @@ -115,6 +118,10 @@ (cert ...)) => () +;; (define-friend) is missing. relationship of a friend to a ca context is: +;; a ca-context has zero or one parents (usually one, but rirs are weird) +;; a ca-context has zero or more children + (add-friend-biz-ta :cust-id 42 :biz-context-id splat :ta ta) -- cgit v1.2.3