parent
a4d2a5557e
commit
cadb92e440
|
@ -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) ->
|
||||||
|
|
Loading…
Reference in New Issue