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

build-actual-packet clj

(build-actual-packet {log-state :frereth.weald.specs/state :as this}
                     short-term-nonce
                     safe-nonce)

build-raw-template-values clj

(build-raw-template-values {:keys [:frereth.cp.shared/extension
                                   :frereth.cp.shared/my-keys
                                   :frereth.cp.client.state/server-extension
                                   :frereth.cp.client.state/server-security
                                   :frereth.cp.client.state/shared-secrets]
                            log-state :frereth.weald.specs/state
                            :as this}
                           short-term-nonce
                           internal-nonce-suffix)

Set up the values for injecting into the template

cookie-retrieved clj

(cookie-retrieved
  {log-state :frereth.weald.specs/state
   :keys [:frereth.cp.client.hello/continue :frereth.cp.client.hello/recurse
          :frereth.weald.specs/logger :frereth.cp.client.state/server-security]
   :as this}
  raw-packet
  cookie-waiter
  start-time
  timeout)

cookie-validation clj

(cookie-validation {log-state :frereth.weald.specs/state
                    :keys [:frereth.cp.shared/network-packet
                           :frereth.cp.client.state/server-security
                           :frereth.cp.client.state/shared-secrets]
                    :as this}
                   start-time
                   timeout)

Check whether the cookie matches our expectations

do-build-packet clj

(do-build-packet {:keys [:frereth.cp.shared/packet-nonce] :as this})

Builds a plain-text hello packet

do-polling-loop clj

(do-polling-loop {:keys [:frereth.weald.specs/logger
                         :frereth.cp.shared.specs/executor
                         :frereth.cp.client.state/chan->server
                         :frereth.cp.client.state/server-security]
                  ips :frereth.cp.client.state/server-ips
                  :as this}
                 cookie-waiter
                 start-time
                 timeout)

max-server-attempts clj

pick-next-timeout clj

(pick-next-timeout n-remaining)

possibly-recurse clj

(possibly-recurse {:keys [:frereth.weald.specs/logger
                          :frereth.cp.client.state/server-ips]
                   log-state :frereth.weald.specs/state
                   :as this}
                  cookie-waiter
                  raw-packet)

Try the next server (if any)

send-failed! clj

(send-failed! {:keys [:frereth.weald.specs/logger :frereth.weald.specs/state]
               :as this}
              completion
              ex)

send-succeeded! clj

(send-succeeded! logger this)

set-up-server-polling! clj

(set-up-server-polling! {log-state :frereth.weald.specs/state
                         :keys [:frereth.cp.client.state/server-ips]
                         :as this}
                        wait-for-cookie!)

Start polling the server(s) with HELLO Packets