Mercurial > rlm
annotate src/rlm/pings.clj @ 0:78a630e650d2
initial import
| author | Robert McIntyre <rlm@mit.edu> |
|---|---|
| date | Tue, 18 Oct 2011 00:57:08 -0700 |
| parents | |
| children |
| rev | line source |
|---|---|
| rlm@0 | 1 (ns rlm.pings) |
| rlm@0 | 2 (rlm.ns-rlm/ns-clone rlm.light-base) |
| rlm@0 | 3 (import 'java.net.URL) |
| rlm@0 | 4 (use 'clojure.contrib.shell-out) |
| rlm@0 | 5 |
| rlm@0 | 6 (def targets |
| rlm@0 | 7 [(URL. "http://www.csail.mit.edu") |
| rlm@0 | 8 (URL. "http://www.berkeley.edu") |
| rlm@0 | 9 (URL. "http://www.usyd.edu.au") |
| rlm@0 | 10 (URL. "http://www.kyoto-u.ac.jp")]) |
| rlm@0 | 11 |
| rlm@0 | 12 (defn ping [num-packets packet-size #^URL address] |
| rlm@0 | 13 (take-last |
| rlm@0 | 14 3 ;; just the summary information from ping |
| rlm@0 | 15 (re-split |
| rlm@0 | 16 #"\n" |
| rlm@0 | 17 (sh "ping" |
| rlm@0 | 18 "-c" (str num-packets) |
| rlm@0 | 19 "-s" (str packet-size) |
| rlm@0 | 20 (.getHost address))))) |
| rlm@0 | 21 |
| rlm@0 | 22 (defn display-pings [results] |
| rlm@0 | 23 (dorun (map #(dorun (map println %)) (interpose "\n" results)))) |
| rlm@0 | 24 |
| rlm@0 | 25 |
| rlm@0 | 26 |