diff options
| author | Rob Austein <sra@hactrn.net> | 2007-03-22 09:43:42 +0000 |
|---|---|---|
| committer | Rob Austein <sra@hactrn.net> | 2007-03-22 09:43:42 +0000 |
| commit | 332130c792e9042a52f6038f0cf2a4f4f8a4b81d (patch) | |
| tree | 61801e640cef8f5dac3b5704419998f38c94e447 /scripts | |
| parent | aae9220ad200be379c147cc05733be1a09e2ccda (diff) | |
start getting rid of ca in left-right protocol
svn path=/scripts/regeng-api; revision=522
Diffstat (limited to 'scripts')
| -rw-r--r-- | scripts/regeng-api | 62 |
1 files changed, 31 insertions, 31 deletions
diff --git a/scripts/regeng-api b/scripts/regeng-api index 24e5ae25..4307be05 100644 --- a/scripts/regeng-api +++ b/scripts/regeng-api @@ -135,15 +135,6 @@ ;; Extensions might also show up as preferences that nobody but this ;; IRBE operator has ever heard of -;; The following create RPKI CA contexts - -(create-ca-context :cust-id 42) -=> (ca-id) - -(destroy-ca-context :cust-id 42 - :ca-id foo) -=> () - ;; This creates both a context and a keypair (create-biz-signing-context :cust-id 42) => (biz-signing-context-id pkcs10-cert-request) @@ -164,44 +155,51 @@ (cert ...)) => () -(set-ca-parent-ta :cust-id 42 - :ca foo - :ta ta) +(create-parent-context :cust-id 42) +=> (parent) + +(destroy-parent-context :cust-id 42 + :parent foo) +=> () + +(list-parents :cust-id 42) +=> (parent ...) + +(set-parent-ta :cust-id 42 + :parent foo + :ta ta) => () -(get-ca-parent-ta :cust-id 42 - :ca foo) +(get-parent-ta :cust-id 42 + :parent foo) => (ta) -(set-ca-parent-uri :cust-id 42 - :ca foo - :uri uri) +(set-parent-uri :cust-id 42 + :parent foo + :uri uri) => () -(get-ca-parent-uri :cust-id 42 - :ca foo) +(get-parent-uri :cust-id 42 + :parent foo) => (uri) -(set-ca-parent-biz-signing-context :cust-id 42 - :ca foo - :biz-signing-context foo) +(set-parent-biz-signing-context :cust-id 42 + :parent foo + :biz-signing-context foo) => () -(get-ca-parent-biz-signing-context :cust-id 42 - :ca foo) +(get-parent-biz-signing-context :cust-id 42 + :parent foo) => (biz-signing-context) -(create-ca-child :cust-id 42 - :ca foo) +(create-child :cust-id 42) => (child) -(destroy-ca-child :cust-id 42 - :ca foo - :child bar) +(destroy-child :cust-id 42 + :child bar) => () -(list-ca-children :cust-id id - :ca foo) +(list-children :cust-id id) => (child ...) (set-child-ta :cust-id 42 @@ -222,6 +220,8 @@ :child foo) => (signing-context) +;;; The following repo stuff is now wrong, need to come back to it + (set-ca-repo-ta :cust-id 42 :ca foo :ta ta) |