Produce a report for all the data collectors
authorMichele Tartara <mtartara@google.com>
Wed, 24 Apr 2013 09:24:16 +0000 (09:24 +0000)
committerMichele Tartara <mtartara@google.com>
Tue, 30 Apr 2013 07:56:51 +0000 (09:56 +0200)
Implement the API function of the monitoring daemon that provides the report
of all the data collectors.

Signed-off-by: Michele Tartara <mtartara@google.com>
Reviewed-by: Helga Velroyen <helgav@google.com>

src/Ganeti/Monitoring/Server.hs

index 9a9af40..1f311e1 100644 (file)
@@ -139,7 +139,9 @@ reportHandler =
 
 -- | Return the report of all the available collectors.
 allReports :: Snap ()
 
 -- | Return the report of all the available collectors.
 allReports :: Snap ()
-allReports = writeText "TODO: return the reports of all the collectors"
+allReports = do
+  reports <- mapM (liftIO . dReport) collectors
+  writeBS . pack . J.encode $ reports
 
 -- | Returns a category given its name.
 -- If "collector" is given as the name, the collector has no category, and
 
 -- | Returns a category given its name.
 -- If "collector" is given as the name, the collector has no category, and