gistfile1.clj

(ns net_protocols.examples.console_server.client
  (:use [net_protocols.streams.base :as stream]
        [net_protocols.streams.tcp  :as tcp]
        [net_protocols.control.core :as ctrl]))

(defn authenticate [stream username password]
  (ctrl/challenge-response stream #"Username" (str username "\n"))
  (ctrl/challenge-response stream #"Password" (str password "\n")))

(defn get-version []
  (with-open [stream (tcp/connect "localhost" 12345)]
    (authenticate stream "bob" "bob")
    (ctrl/challenge-response stream #"console>>" "version\n")
    (clojure.string/trim (ctrl/read-until stream \newline))))