mirror of
https://github.com/processone/ejabberd.git
synced 2024-10-13 15:16:49 +02:00
*** empty log message ***
SVN Revision: 31
This commit is contained in:
parent
a4d2a5557e
commit
cadb92e440
@ -25,7 +25,13 @@ load_dir(Dir) ->
|
||||
{ok, Files} = file:list_dir(Dir),
|
||||
MsgFiles = lists:filter(
|
||||
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),
|
||||
lists:foreach(
|
||||
fun(FN) ->
|
||||
|
Loading…
Reference in New Issue
Block a user