alcoolog: fix ets

1 files changed, 9 insertions, 0 deletions

diff --git a/lib/lsg_irc/alcolog_plugin.ex b/lib/lsg_irc/alcolog_plugin.ex
index 8360b3c..1fc67f0 100644
--- a/lib/lsg_irc/alcolog_plugin.ex
+++ b/lib/lsg_irc/alcolog_plugin.ex
@@ -64,6 +64,15 @@ defmodule LSG.IRC.AlcoologPlugin do
     ets = :ets.new(__MODULE__.ETS, [:ordered_set, :named_table, :protected, {:read_concurrency, true}])
     dets_meta_filename = (LSG.data_path() <> "/" <> "alcoolisme_meta.dets") |> String.to_charlist
     {:ok, meta} = :dets.open_file(dets_meta_filename, [{:type,:set}])
+    traverse_fun = fn(obj, dets) ->
+      case obj do
+        object = {nick, date, volumes, active, cl, deg, name, comment, meta} ->
+          :ets.insert(ets, {{nick, date}, volumes, active, cl, deg, name, comment, meta})
+          dets
+      end
+      dets
+    end
+    :dets.foldl(traverse_fun, dets, dets)
     state = %{dets: dets, meta: meta, ets: ets}
     {:ok, state}
   end