       (alter db remove-tuple :user user)
       (alter db add-tuple :user (update-in user [:pending?] conj step)))))
 
+(defn hostname []
+  (:host +server+))
+
 (defn send-to-client* [channel msg]
   (when (.isWritable channel)
     (send (agent nil)

  (send-to-client channel 2
                  (format
                   "Your host is %s, running version %s"
                   (:host +server+)
                   (:version +server+)))
  (send-to-client channel 3
                  (format "This server was created %s" (:started +server+)))
  (send-to-client channel 4
                  (format "%s %s mMvV bcdefFhiIklmnoPqstv"
                          (:host +server+)
                          (:version +server+))))

(defn maybe-update-authentication! [channel]


(defn send-to-client
  ([channel code msg]
     (send-to-client channel code msg (hostname)))
  ([channel code msg from]
     (send-to-client*
      channel
