log db properties to glean_database_stats

Summary: When landed, we can adjust the fact count alert D87927971

Reviewed By: malanka

Differential Revision: D87868792

fbshipit-source-id: 48da22373f3b95413f9389479ae466c71b62789d

Author: jjuliamolin

glean/db/Glean/Database/Backup.hs

@@ -278,6 +278,7 @@ doBackup env@Env{..} repo prefix site =
       dataSize
       locator
       excluded
+      (metaProperties meta)
     say logInfo "finished"
     atomically $ do
       void $ Catalog.modifyMeta envCatalog repo $ \meta -> return meta

glean/db/Glean/Database/Logger.hs

@@ -11,7 +11,11 @@ module Glean.Database.Logger (
   logDBStatistics
 ) where
 
+import Data.Aeson (encode)
+import Data.HashMap.Strict (HashMap)
 import Data.Text (Text)
+import Data.Text.Lazy (toStrict)
+import Data.Text.Lazy.Encoding (decodeUtf8)
 
 import qualified Glean.Database.Types as Database
 import qualified Glean.Types as Thrift
@@ -29,6 +33,7 @@ logDBStatistics
   -> Int          -- ^ Number of bytes backed up
   -> Text         -- ^ Backup locator
   -> Bool         -- ^ The db has exclude property
+  -> HashMap Text Text -- ^ Database properties
   -> IO ()
 logDBStatistics
   env
@@ -37,18 +42,21 @@ logDBStatistics
   maybeOwnershipStats
   size
   locator
-  excluded = do
+  excluded
+  properties = do
   let preamble = mconcat
         [ Logger.SetRepoName repo_name
         , Logger.SetRepoHash repo_hash
         ]
 
   -- We shoehorn a summary row into the format for query rows
-  let summary  = mconcat
+  let propertiesJson = toStrict $ decodeUtf8 $ encode properties
+      summary  = mconcat
         [ Logger.SetPredicateSize size            -- # bytes uploaded
         , Logger.SetPredicateCount factCount      -- # total facts
         , Logger.SetUploadDestination locator
         , Logger.SetHasExcludeProperty excluded
+        , Logger.SetDatabaseProperties propertiesJson
         ]
       factCount = fromIntegral $ sum [predicateStats_count p| (_, p) <- preds]
 

glean/db/Glean/Logger/Database.hs

@@ -31,6 +31,7 @@ data GleanDatabaseLog
   | SetCount Int
   | SetSize Int
   | SetHasExcludeProperty Bool
+  | SetDatabaseProperties Text
 
 instance Semigroup GleanDatabaseLog where
   a <> b = GleanDatabaseLogAnd a b