From a129ad47dd8d4202e3e64e9868e9eba4ff004fb2 Mon Sep 17 00:00:00 2001
From: stuebinm <stuebinm@disroot.org>
Date: Tue, 28 Dec 2021 23:34:09 +0100
Subject: [PATCH] disallow more things in urls
---
lib/Properties.hs | 9 +--------
1 file changed, 1 insertion(+), 8 deletions(-)
diff --git a/lib/Properties.hs b/lib/Properties.hs
index c4fc458..2b4203f 100644
--- a/lib/Properties.hs
+++ b/lib/Properties.hs
@@ -477,14 +477,7 @@ checkTileLayerProperty p@(Property name _value) = case name of
-> forbidProperty name
-- the openWebsite Api can only be allowed if the website is on static.rc3.world
| T.toLower name == "openwebsiteallowapi"
- -> do
- properties <- askContext <&> getProperties
- unless (all (\(Property name value) -> case value of
- StrProp str -> name /= "openWebsite" || "https://static.rc3.world" `isPrefixOf` str
- _ -> True
- ) properties)
- $ complain "\"openWebsiteAllowApi\" can only be used with websites hosted \
- \on https://static.rc3.world"
+ -> forbid "\"openWebsiteAllowApi\" is disallowed."
| name `elem` [ "openWebsite", "openTab" ] -> do
uselessEmptyLayer
suggestProperty $ Property "openWebsiteTrigger" (StrProp "onaction")
--
GitLab