Skip to content
Snippets Groups Projects
Commit 89a4aa1e authored by stuebinm's avatar stuebinm
Browse files

fix bbb urls a second time …

parent 8b96ea32
No related branches found
No related tags found
No related merge requests found
Pipeline #12825 passed
...@@ -368,16 +368,12 @@ checkTileLayerProperty p@(Property name _value) = case name of ...@@ -368,16 +368,12 @@ checkTileLayerProperty p@(Property name _value) = case name of
Just ("bbb",assembly_slug, room_slug) Just ("bbb",assembly_slug, room_slug)
| "/" `isPrefixOf` room_slug | "/" `isPrefixOf` room_slug
&& T.length room_slug >= 2 -> do && T.length room_slug >= 2 -> do
assemblies <- lintConfig configAssemblies let link = "https://rc3.world/2021/room"<>room_slug
if assembly_slug `elem` assemblies
then do
let link = "https://rc3.world/2021/room/"<>room_slug
dependsOn (Link link) dependsOn (Link link)
setProperty "openWebsite" link setProperty "openWebsite" link
setProperty "silent" (BoolProp True) setProperty "silent" (BoolProp True)
setProperty "openWebsitePolicy" setProperty "openWebsitePolicy"
("fullscreen;camera;microphone;display-capture" :: Text) ("fullscreen;camera;microphone;display-capture" :: Text)
else complain $ prettyprint assembly_slug <> " is not a registered assembly and therefore cannot be used in `bbbUrl`."
_ -> complain "the \"bbbRoom\" property must take a link of the form bbb://assembly_slug/room_slug." _ -> complain "the \"bbbRoom\" property must take a link of the form bbb://assembly_slug/room_slug."
"bbbTrigger" -> do "bbbTrigger" -> do
removeProperty "bbbTrigger" removeProperty "bbbTrigger"
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment