letsencrypt::Client method registerNewAccount (protected)

 <instance of letsencrypt::Client> registerNewAccount

Defined in /usr/local/ns/tcl/letsencrypt/letsencrypt-procs.tcl

Partial Call Graph (max 5 caller/called nodes):

Testcases:

No testcase defined.

Source code:

:log  "Register new account at Let's Encrypt... "  "generating RSA key pair...<br>"

#
# Repeat max 10 times until registration was successful
#
for {set count 0} {$count < 3} {incr count} {
    #
    # Create a fresh account key and get its components
    #
    exec -ignorestderr -- openssl genrsa 2048 > ${:accoutKeyFile}
    :parseAccountKey

    # ########################### #
    # ----- get first nonce ----- #
    # ########################### #
    :getNonce

    # ########################### #
    # ------ registration ------- #
    # ########################### #
    :log "Creating new registration...<br>"

    set payload [subst {{"termsOfServiceAgreed": true, "onlyReturnExisting": false, "contact": \["mailto:webmaster@${:domain}"\]}}]
    set status [:send_signed_request [:URL newAccount] $payload]
    if {$status eq "400"} {
        :log "New Registration failed. Retry and generate new RSA key pair...<br>"
    } else {
        set :kid [ns_set iget ${:replyHeaders} "location"]
        :log "<pre>registration headers contained kid ${:kid}\n</pre>"
        break
    }
}
:log "Registration ended with status $status.<br>"

return $status

XQL Not present:

Generic, PostgreSQL, Oracle