frereth.cp.client.cookie — com.frereth/cp 0.0.5

decrypt-actual-cookie clj

(decrypt-actual-cookie {:keys [:frereth.cp.shared/packet
                               :frereth.cp.client.state/server-security
                               :frereth.cp.client.state/shared-secrets]
                        log-state :frereth.weald.specs/state
                        :as this}
                       {:keys [:frereth.cp.shared.templates/client-extension
                               :frereth.cp.shared.templates/client-nonce-suffix
                               :frereth.cp.shared.templates/cookie
                               :frereth.cp.shared.templates/header
                               :frereth.cp.shared.templates/server-extension]
                        :as rcvd})

decrypt-cookie-packet clj

(decrypt-cookie-packet {:keys [:frereth.cp.shared/extension
                               :frereth.cp.shared/packet
                               :frereth.cp.client.state/server-extension]
                        log-state :frereth.weald.specs/state
                        :as this})

do-received-response clj

(do-received-response
  {log-state :frereth.weald.specs/state
   :keys [:frereth.weald.specs/logger :frereth.cp.client.state/server-security]
   :as this}
  {:keys [:host :message :port] :or {message (byte-array 0)} :as cookie})

Hello triggers this (via wait-for-cookie) when it hears back from a Server

expected-sender? clj

(expected-sender? {:keys [:frereth.cp.shared.specs/srvr-port
                          :frereth.cp.shared.specs/srvr-ip]}
                  host
                  port)

Did the Cookie we just received come from the expected server?

servers-polled clj

(servers-polled {log-state :frereth.weald.specs/state
                 logger :frereth.weald.specs/logger
                 cookie :frereth.cp.shared.specs/network-packet
                 :as this})

Got back a cookie. Respond with an Initiate

wait-for-cookie! clj

(wait-for-cookie! {:keys [:frereth.weald.specs/logger
                          :frereth.cp.client.state/chan<-server]
                   log-state :frereth.weald.specs/state
                   :as this}
                  timeout
                  send-success)

Pulls Cookie Packet from the wire, then triggers the response

wrap-received clj

(wrap-received {log-state :frereth.weald.specs/state
                :keys [:frereth.weald.specs/logger]
                :as this}
               incoming)