diff --git a/lib/Properties.hs b/lib/Properties.hs index 73c6467a41ea78eb6a4fb2a5d252c3c0a693f0b8..efc7e1337ef9b3c83b5fdf015ed2c8889ab1b68f 100644 --- a/lib/Properties.hs +++ b/lib/Properties.hs @@ -147,7 +147,7 @@ checkMapProperty p@(Property name _) = case name of (not $ "/../" `isInfixOf` str) && (not $ "%" `isInfixOf` str) && (not $ "@" `isInfixOf` str)) - $ forbid "only scripts hosted on static.rc3.world are allowed." + $ forbid "only scripts hosted on https://static.rc3.world/scripts/ are allowed." | name `elem` ["jitsiRoom", "bbbRoom", "playAudio", "openWebsite" , "url", "exitUrl", "silent", "getBadge"] -> complain $ "property " <> name @@ -348,7 +348,7 @@ checkIsRc3Url text= checkIsRc3ScriptUrl :: Text -> Bool checkIsRc3ScriptUrl url = checkIsRc3Url url && case parseUri url of Nothing -> False - Just (_,_,path) -> "/scripts" `isPrefixOf` path + Just (_,_,path) -> "/scripts/" `isPrefixOf` path -- | Checks a single (custom) property of a "normal" tile layer checkTileLayerProperty :: Property -> LintWriter Layer