add num_live_users key

master
nathaniel smith 2015-07-26 00:04:02 -07:00
parent ea062325ec
commit 1a3ce5c683
1 changed files with 3 additions and 2 deletions

View File

@ -54,11 +54,12 @@
list)] list)]
[live_users (-> (filter (fn [u] (not (get u "default"))) all_users) [live_users (-> (filter (fn [u] (not (get u "default"))) all_users)
list)] list)]
[data {"all_users" users [data {"all_users" all_users
"live_users" live_users "live_users" live_users
"active_user_count" (-> (. (facter "active_user_count") stdout) "active_user_count" (-> (. (facter "active_user_count") stdout)
.strip .strip
int) int)
"generated_at" (.strftime (.now datetime) "%Y-%m-%d %H:%M:%S") "generated_at" (.strftime (.now datetime) "%Y-%m-%d %H:%M:%S")
"num_users" (len users)}]] "num_users" (len all_users)
"num_live_users" (len live_users)}]]
(print (dumps data)))) (print (dumps data))))