Merge pull request #16 from cjp256/oxt-335

xenmgr: add switcher-status-report-enabled property to configure
OpenXT · Jul 23, 2015 · fdce31e · fdce31e
2 parents 76ad710 + e8f6493
commit fdce31e
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 0 deletions.
diff --git a/xenmgr/XenMgr/Config.hs b/xenmgr/XenMgr/Config.hs
@@ -57,6 +57,7 @@ module XenMgr.Config
                  , appGetSwitcherSelfSwitchEnabled, appSetSwitcherSelfSwitchEnabled
                  , appGetSwitcherKeyboardFollowsMouse, appSetSwitcherKeyboardFollowsMouse
                  , appGetSwitcherResistance, appSetSwitcherResistance
+                 , appGetSwitcherStatusReportEnabled, appSetSwitcherStatusReportEnabled
                  , appGetDrmGraphics, appSetDrmGraphics
                  , appGetSupportedLanguages
                  , appGetLanguage, appSetLanguage
@@ -291,6 +292,10 @@ appGetSwitcherResistance = dbReadWithDefault 10 "/switcher/resistance"
 appSetSwitcherResistance :: Int -> Rpc ()
 appSetSwitcherResistance v = dbWrite "/switcher/resistance" v
 
+appGetSwitcherStatusReportEnabled :: Rpc Bool
+appGetSwitcherStatusReportEnabled = dbReadWithDefault True "/switcher/status-report-enabled"
+appSetSwitcherStatusReportEnabled v = dbWrite "/switcher/status-report-enabled" v
+
 appGetSupportedLanguages :: Rpc [String]
 appGetSupportedLanguages = parse <$> liftM (M.lookup "supported-languages") (liftIO readCaps) where
     parse Nothing   = []

diff --git a/xenmgr/XenMgr/Expose/XenmgrObject.hs b/xenmgr/XenMgr/Expose/XenmgrObject.hs
@@ -145,6 +145,8 @@ implementation xm testingCtx =
   , comCitrixXenclientXenmgrConfigUiSetSwitcherKeyboardFollowsMouse = appSetSwitcherKeyboardFollowsMouse
   , comCitrixXenclientXenmgrConfigUiGetSwitcherResistance = fromIntegral <$> appGetSwitcherResistance
   , comCitrixXenclientXenmgrConfigUiSetSwitcherResistance = appSetSwitcherResistance . fromIntegral
+  , comCitrixXenclientXenmgrConfigUiGetSwitcherStatusReportEnabled = appGetSwitcherStatusReportEnabled
+  , comCitrixXenclientXenmgrConfigUiSetSwitcherStatusReportEnabled = appSetSwitcherStatusReportEnabled
 
   , comCitrixXenclientXenmgrConfigUiGetSupportedLanguages = appGetSupportedLanguages
   , comCitrixXenclientXenmgrConfigUiGetLanguage = appGetLanguage