From: Doug Coleman <doug.coleman@gmail.com>
Date: Sun, 31 Jan 2021 03:26:20 +0000 (-0600)
Subject: broadcast-server: more infos
X-Git-Tag: 0.99~2635
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=14d172bcc7d8b1ced3cf945344d8bc21e1fb3895

broadcast-server: more infos
---

diff --git a/extra/broadcast-server/broadcast-server.factor b/extra/broadcast-server/broadcast-server.factor
index 3d5b80f664..f3e2645eaa 100644
--- a/extra/broadcast-server/broadcast-server.factor
+++ b/extra/broadcast-server/broadcast-server.factor
@@ -75,15 +75,23 @@ SINGLETONS: command data ;
         computer-name "computer-name" ,,
         os unparse "os" ,,
         os-version "os-version" ,,
-        username "username" ,,
         cell-bits "cell-bits" ,,
-        physical-mem "physical-mem" ,,
+        username "username" ,,
+
         build "build" ,,
-        vm-path "vm-path" ,,
-        vm-path file-info size>> "vm-size" ,,
         vm-git-id "git-id" ,,
         version-info "version-info" ,,
+        vm-path "vm-path" ,,
+        vm-path file-info size>> "vm-size" ,,
+        image-path "image-path" ,,
         image-path file-info size>> "image-size" ,,
+
+        cpus "cpus" ,,
+        cpu-mhz "cpu-mhz" ,,
+        physical-mem "physical-mem" ,,
+        vm-path file-system-info
+        [ total-space>> "disk-total-size" ,, ]
+        [ free-space>> "disk-free-size" ,, ] bi
     ] { } make ;
 
 : send-loop ( broadcast-server -- )