HMS

commit 60bd50edd87cd4a0c9d51a6a7235d709e5b3fbcf
parent 03708ad6170aca2d75bd01a70bc87da8963edef9
Author: Brian C. Lane <bcl@brianlane.com>
Date:   Sun, 13 Nov 2022 13:08:02 -0800

Add keystore status to MainScene

Diffstat:
M
HMS/components/MainScene.brs
 | 
1
+
M
HMS/components/ValidateURLTask.brs
 | 
8
++++++--
M
HMS/components/ValidateURLTask.xml
 | 
1
+

3 files changed, 8 insertions(+), 2 deletions(-)
diff --git a/HMS/components/MainScene.brs b/HMS/components/MainScene.brs
@@ -54,6 +54,7 @@ sub OnValidateChanged()
         m.top.serverurl = m.validateTask.serverurl
         ' And save it for next time
         RegWrite("ServerURL", m.validateTask.serverurl)
+        m.top.keystore = m.validateTask.keystore
     end if
 end sub
 
diff --git a/HMS/components/ValidateURLTask.brs b/HMS/components/ValidateURLTask.brs
@@ -13,9 +13,13 @@ sub ValidateURL()
     print "ValidateURLTask->GetContent()"
     print m.top.serverurl
 
-    m.top.valid = isURLValid(m.top.serverurl)
-    if m.top.valid then
+    valid = isURLValid(m.top.serverurl)
+    if valid then
         print "Is VALID"
+
+        ' See if there is a keystore available
+        m.top.keystore = isUrlValid(m.top.serverurl+"/keystore/version")
+        m.top.valid = valid
     else
         print "Is NOT VALID"
     end if
diff --git a/HMS/components/ValidateURLTask.xml b/HMS/components/ValidateURLTask.xml
@@ -5,6 +5,7 @@
 
     <interface>
         <field id="serverurl" type="uri" />
+        <field id="keystore" type="bool" />
         <field id="valid" type="bool" alwaysNotify="true" />
     </interface>
 </component>