Updated. This seems too sparse, I must be missing something.

svn path=/scripts/regeng-api; revision=488

1 files changed, 4 insertions, 55 deletions

diff --git a/scripts/regeng-api b/scripts/regeng-api
index 0be103af..6dea76d0 100644
--- a/scripts/regeng-api
+++ b/scripts/regeng-api
@@ -113,58 +113,7 @@
     (:ipv6-address "fe80:dead:beef::/24")
     ...)
 
-
-
-;;; Stuff below this line is not even close to baked yet
-
-;; These two may take a bit more thought.  What's a ca-handle?
-
-(create-ca-context :cust-id 42
-		   :distinguished-name dn)
-=> (ca-handle)
-
-(destroy-ca-context :cust-id 42
-		    :ca-handle handle)
-=> ()
-
-;; Ask signing engine to generate a cert request with specified
-;; attributes and indicated (subject) keyset.  Key handle is in case
-;; we have to ask signing engine to create a keypair for this.
-
-(generate-cert-request :cust-id 42
-		       :subject-name subject-name
-		       :attributes '(blah blah blah)
-		       :public-key public-key
-		       :public-key-handle handle)
-
-;; Ask signing engine to sign a CRL.  Need to indicate the CA that's
-;; generating the CRL
-
-(generate-crl :cust-id 42
-	      :ca-handle ca-handle)
-
-;; Ask signing engine to sign a cert request using specified cert
-;; request and attributes and indicated (issuer) keyset.
-
-(sign-cert-request)
-
-(add-right-to-route)
-(del-right-to-route)
-(list-rights-to-route)
-
-(generate-roa)
-
-(publish-cert)
-(publish-crl)
-(publish-roa)
-
-;; Trigger poll of this cust id's external parent, no-op if parent is
-;; not external.  What does reg engine do with responses, save them as
-;; part of its internal state then go back to sleep?
-
-(poll-external-parent)
-
-;; Trigger this cust id to do its "nightly" cycle.  Most likely needs
-;; to be broken down further.
-
-(run-nightly-batch)
+(list-rights-to-route :cust-id 42)
+=> ((as-number :ipv4 prefix-or-range :ipv6 prefix-or-range ...)
+    (as-number "ipv6 prefix-or-range :ipv6 prefix-or-range :ipv4 prefix-or-range ...)
+    ...)