Mercurial > rlm
comparison 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 |
comparison
equal
deleted
inserted
replaced
-1:000000000000 | 0:78a630e650d2 |
---|---|
1 (ns rlm.pings) | |
2 (rlm.ns-rlm/ns-clone rlm.light-base) | |
3 (import 'java.net.URL) | |
4 (use 'clojure.contrib.shell-out) | |
5 | |
6 (def targets | |
7 [(URL. "http://www.csail.mit.edu") | |
8 (URL. "http://www.berkeley.edu") | |
9 (URL. "http://www.usyd.edu.au") | |
10 (URL. "http://www.kyoto-u.ac.jp")]) | |
11 | |
12 (defn ping [num-packets packet-size #^URL address] | |
13 (take-last | |
14 3 ;; just the summary information from ping | |
15 (re-split | |
16 #"\n" | |
17 (sh "ping" | |
18 "-c" (str num-packets) | |
19 "-s" (str packet-size) | |
20 (.getHost address))))) | |
21 | |
22 (defn display-pings [results] | |
23 (dorun (map #(dorun (map println %)) (interpose "\n" results)))) | |
24 | |
25 | |
26 |