When the message uses a language with no configured blacklist, use default
This commit is contained in:
parent
2be66bb69f
commit
eb39a4f3af
|
@ -44,6 +44,15 @@ filterWords(L) ->
|
||||||
lists:map(fun censorWord/1, L).
|
lists:map(fun censorWord/1, L).
|
||||||
|
|
||||||
filterMessageText(Lang, MessageText) ->
|
filterMessageText(Lang, MessageText) ->
|
||||||
|
try filterMessageText2(Lang, MessageText) of
|
||||||
|
R ->
|
||||||
|
R
|
||||||
|
catch exit:{noproc,{gen_server,call,[_,_]}} ->
|
||||||
|
?DEBUG("Blacklist of language '~p' not found, using 'default' list.", [Lang]),
|
||||||
|
filterMessageText2(default, MessageText)
|
||||||
|
end.
|
||||||
|
|
||||||
|
filterMessageText2(Lang, MessageText) ->
|
||||||
% we want to token-ize utf8 'words'
|
% we want to token-ize utf8 'words'
|
||||||
MessageWords = string:tokens(unicode:characters_to_list(MessageText, utf8), " "),
|
MessageWords = string:tokens(unicode:characters_to_list(MessageText, utf8), " "),
|
||||||
MessageTerms = [{Lang, Word} || Word <- MessageWords],
|
MessageTerms = [{Lang, Word} || Word <- MessageWords],
|
||||||
|
|
Loading…
Reference in New Issue