How to use the PipedInputStream to stream to stdout? about clj-ssh

[abailly]

I have tried the following but it does not work: ssh exits after first line of input gets retrieved.

(defn stream-events
  "Connect to gerrit server and stream events to stdout"
  [host port]
  (let [agent (ssh-agent {:use-system-ssh-agent false})]
    (add-identity agent {:private-key-path "/home/user/.ssh/id_rsa"})
    (let [session (session agent host {:strict-host-key-checking :no
                                                       :port port})]
      (with-connection session
        (let [result (ssh session {:cmd "gerrit stream-events"
                                   :out :stream})
              reader (io/reader (:out-stream result))]
          (map #'println (line-seq reader)))))))

I also would like to be able to stream the output from the remote shell, here to simply propagate to stdout but later on to do more interesting things.

[mattford63]

I did the above successfully with the following final line

(doall (map println (line-seq reader))))))))