~singpolyma/cheogram

9b9e950e891b9e5991d80956dcbd9d2ca47cf8ef — Stephen Paul Weber 8 days ago 324c616
block a few more spam patterns
1 files changed, 1 insertions(+), 1 deletions(-)

M Util.hs
M Util.hs => Util.hs +1 -1
@@ 85,7 85,7 @@ unescapeJid txt = fromString result

-- Matches any URL-ish text, but not x@x.tld forms
autolinkRegex :: PCRE.Regex
autolinkRegex = PCRE.compile (encodeUtf8 $ s"(?<!@)(?<=\\b)(?:((http|https)://)?([a-z0-9-]+\\.)?[a-z0-9-]+(\\.[a-z]{2,6}){1,3}(/[a-z0-9.,_/~#&=;%+?-]*)?)") [PCRE.caseless, PCRE.dotall]
autolinkRegex = PCRE.compile (encodeUtf8 $ s"(?:(?<!@)(?<=\\b)(?:((http|https)://)?([a-z0-9-]+\\.)?[a-z0-9-]+(\\.[a-z]{2,6}){1,3}(/[a-z0-9.,_/~#&=;%+?-]*)?))|(?: .com)|(?:B[I1]TC[O0][I1]N)|(?:\\dBTC)") [PCRE.caseless, PCRE.dotall]

sanitizeSipLocalpart :: Text -> Maybe Text
sanitizeSipLocalpart localpart