Chapril/xmpp.chapril.org-ejabberd
25
1
Fork 0
mirror of https://github.com/processone/ejabberd.git synced 2024-11-20 16:15:59 +01:00
Code Releases Activity

*** empty log message ***

Browse Source 
SVN Revision: 31
This commit is contained in:
Alexey Shchepin 2003-01-06 20:05:48 +00:00
parent a4d2a5557e
commit cadb92e440
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/translate.erl
View File

@ -25,7 +25,13 @@ load_dir(Dir) ->
{ok, Files} = file:list_dir(Dir), {ok, Files} = file:list_dir(Dir),
MsgFiles = lists:filter( MsgFiles = lists:filter(
fun(FN) -> fun(FN) ->
string:substr(FN, string:len(FN) - 3) == ".msg" case string:len(FN) > 4 of
true ->
string:substr(FN,
string:len(FN) - 3) == ".msg";
_ ->
false
end
end, Files), end, Files),
lists:foreach( lists:foreach(
fun(FN) -> fun(FN) ->