diff options
| author | Alexey Shchepin <alexey@process-one.net> | 2003-07-20 20:35:35 +0000 |
|---|---|---|
| committer | Alexey Shchepin <alexey@process-one.net> | 2003-07-20 20:35:35 +0000 |
| commit | ca5d88c36856b004f72c1eeb5a3d18e0b6f4236e (patch) | |
| tree | 79f6e211accdc1247c5c04b3b42bb64953273da5 /src/jlib.erl | |
| parent | * src/ejabberd_s2s_out.erl: Close connection after key (diff) | |
* (all): Reorganized supervision tree
SVN Revision: 125
Diffstat (limited to 'src/jlib.erl')
| -rw-r--r-- | src/jlib.erl | 17 |
1 files changed, 14 insertions, 3 deletions
diff --git a/src/jlib.erl b/src/jlib.erl index 91fd5f076..4992bb516 100644 --- a/src/jlib.erl +++ b/src/jlib.erl @@ -238,13 +238,24 @@ is_nodename1([]) -> % [?LOWER(Char) || Char <- S]. % Not tail-recursive but it seems works faster than variants above -tolower([C | Cs]) when C >= $A, C =< $Z -> - [C + 32 | tolower(Cs)]; tolower([C | Cs]) -> - [C | tolower(Cs)]; + if + C >= $A, C =< $Z -> + [C + 32 | tolower(Cs)]; + true -> + [C | tolower(Cs)] + end; tolower([]) -> []. +%tolower([C | Cs]) when C >= $A, C =< $Z -> +% [C + 32 | tolower(Cs)]; +%tolower([C | Cs]) -> +% [C | tolower(Cs)]; +%tolower([]) -> +% []. + + jid_tolower({U, S, R}) -> {tolower(U), tolower(S), R}. |