letsencrypt::Client method signAgreement (protected)

 <instance of letsencrypt::Client> signAgreement

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

Testcases:

No testcase defined.

Source code:

:log "<br>Signing agreement... "
set location [ns_set iget ${:replyHeaders} "location"]
#set :kid $location

#
# parse link header for terms of service
#
set url ""
foreach {key value} [ns_set array ${:replyHeaders}] {
    if {$key eq "link"
        && [regexp {^<(.*)>;rel="terms-of-service"} $value . url]
    } {
        break
    }
}

set payload [subst {{"resource": "reg", "agreement": "$url"}}]
set httpStatus [:send_signed_request $location $payload]

:log "returned HTTP status $httpStatus<br>"
return $httpStatus

XQL Not present:

Generic, PostgreSQL, Oracle