chore(avs): show avs config on test page

src/Handler/Admin/Avs.hs

@@ -114,6 +114,13 @@ avsLicenceOptions = mkOptionList
 getAdminAvsR,  postAdminAvsR :: Handler Html
 getAdminAvsR = postAdminAvsR
 postAdminAvsR = do
+  mbAvsConf <- getsYesod $ view _appAvsConf
+  let avsWgt = [whamlet|
+          $maybe avsConf <- mbAvsConf
+            AVS Konfiguration ist #{decodeUtf8 (avsUser avsConf)}@#{avsHost avsConf}:#{avsPort avsConf}
+          $nothing
+            AVS nicht konfiguriert!
+        |]
   mAvsQuery <- getsYesod $ view _appAvsQuery
   case mAvsQuery of
     Nothing -> return mempty
@@ -405,7 +412,6 @@ getProblemAvsSynchR = do
     setTitleI   MsgAvsTitleLicenceSynch
     $(i18nWidgetFile "avs-synchronisation")
 
-
 type LicenceTableExpr = (                   E.SqlExpr (Entity UserAvs)        
                           `E.InnerJoin`     E.SqlExpr (Entity User)  
                           `E.LeftOuterJoin` E.SqlExpr (Maybe (Entity QualificationUser))

templates/avs.hamlet

@@ -52,4 +52,7 @@ $# SPDX-License-Identifier: AGPL-3.0-or-later
   $maybe answer <- mbStatus
     <p>
       Unverarbeitete Antwort: #
-      ^{answer}
+      ^{answer}
+
+<section> 
+  ^{modal "AVS Konfiguration" (Right avsWgt)}