webauthn::WebAuthn method origin (public)

 <instance of webauthn::WebAuthn> origin

Defined in packages/webauthn/tcl/webauthn-procs.tcl

Returns the "origin" field provided to the attestation.

Testcases:

No testcase defined.

Source code:

# In general, "ns_conn location" would be the right
# thing. However, inside a container, it reports the
# internal port.
set proto [expr {[ad_conn behind_secure_proxy_p] ? "https" : [ns_conn proto]}]

# Case-insensitive headers in NaviServer 5; ns_parsehostport validates.
set hp [ns_parsehostport [ns_set get [ns_conn headers] Host]]

set origin "${proto}://[dict get $hp host]"

if {[dict exists $hp port]} {
    set port [dict get $hp port]
    if {($proto eq "http"  && $port != 80)
        || ($proto eq "https" && $port != 443)} {
        append origin ":$port"
    }
}
return $origin

XQL Not present:

Generic, PostgreSQL, Oracle