broadcast-server: more infos

diff --git a/extra/broadcast-server/broadcast-server.factor b/extra/broadcast-server/broadcast-server.factor
index 3d5b80f6644ff931bffd6a57e8246cd38be6f67f..f3e2645eaa513e824093776ff79da2f7a79f9ff5 100644 (file)
--- 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 -- )