From a129ad47dd8d4202e3e64e9868e9eba4ff004fb2 Mon Sep 17 00:00:00 2001
From: stuebinm
Date: Tue, 28 Dec 2021 23:34:09 +0100
Subject: 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")
-- 
cgit v1.2.3