make-emqx-inv

#!/usr/bin/env bb
;; -*- mode: clojure; -*-

(let [[bastion-ip num-emqx num-cores num-lg] *command-line-args*
      emqxs (map #(str "emqx-" % ".int.thales") (range (Integer/parseInt num-emqx)))
      loadgens (map #(str "loadgen-" % ".int.thales") (range (Integer/parseInt num-lg)))
      make-line (fn [emqx]
                  (str "ssh"
                       " -o StrictHostKeyChecking=no"
                       " -J ec2-user@"
                       bastion-ip
                       " ubuntu@"
                       emqx))
      cores (->> emqxs
                 (take (Integer/parseInt num-cores))
                 (map make-line)
                 (str/join "\n"))
      replicants (->> emqxs
                      (drop (Integer/parseInt num-cores))
                      (map make-line)
                      (str/join "\n"))
      lgs (->> loadgens
               (map make-line)
               (str/join "\n"))
      all (str/join "\n" [cores replicants])]
  (spit "par-hosts.txt" all)
  (spit "cores.txt" cores)
  (spit "replicants.txt" replicants)
  (spit "loadgens.txt" lgs)
  (println all))