some docker stuff

jonocodes · Dec 31, 2015 · 20b1667 · 20b1667
1 parent 377d94c
commit 20b1667
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 19 deletions.
diff --git a/project.clj b/project.clj
@@ -6,16 +6,6 @@
                            [org.clojure/clojure "1.7.0"]
                            [org.clojure/tools.logging "0.3.0"]
                            [org.slf4j/slf4j-api "1.7.5"]
-                          ; [org.slf4j/slf4j-log4j12 "1.7.1"]
-                          ; [log4j/log4j "1.2.17" :exclusions [javax.mail/mail
-                          ;          javax.jms/jms
-                          ;          com.sun.jmdk/jmxtools
-                          ;          com.sun.jmx/jmxri]]
-
-                          ;  [ch.qos.logback/logback-core "1.0.13"]
-                          ;  [ch.qos.logback/logback-classic "1.0.13"]
-
-                          [org.clojure/data.json "0.2.6"]
-                          ]
+                           [org.clojure/data.json "0.2.6"]]
             :profiles {:uberjar {:aot :all}}
             :main branch-runner.pipeline)
diff --git a/src/branch_runner/pipeline.clj b/src/branch_runner/pipeline.clj
@@ -3,9 +3,8 @@
         [lambdacd.steps.manualtrigger]
         [branch-runner.steps]
         [branch-runner.config]
-        ; [clojure.tools.logging]
-        ; [clj-logging-config.log4j]
         [clojure.java.io]
+        [clojure.java.shell :only [sh]]
         )
   (:require
         [ring.server.standalone :as ring-server]
@@ -19,14 +18,15 @@
         [lambdacd.steps.manualtrigger :as manualtrigger]
         [lambdacd.steps.support :refer [capture-output]]
         [clojure.data.json :as json])
-  (:gen-class)
-    ; (:import (org.apache.log4j Logger Level))
-    )
+  (:gen-class))
 
-; (.setLevel (Logger/getLogger (str *ns*)) Level/INFO)
+(def running-branches
+  []
+  )
+
+(println (count (clojure.string/split-lines (:out (sh "sh" "-c" "docker ps --format '{{.Names}}\t{{.Ports}}' | grep _web_1 | sed 's/_web_1//' | sed 's/0.0.0.0://' | sed 's/->.*//'")))))
 
-(log/info "info")
-(log/debug "debug")
+; docker ps --format '{{.Names}}\t{{.Ports}} | grep _web_1 | sed 's/0.0.0.0\:\([0-9]\+\)->5000\/tcp/\1/' | sed 's/_web_1//'
 
 (def remote-branches
   (map #(get % "name")