alcoolog: time migration

2 files changed, 16 insertions, 0 deletions

diff --git a/lib/lsg.ex b/lib/lsg.ex
index cf1e50e..dc0f641 100644
--- a/lib/lsg.ex
+++ b/lib/lsg.ex
@@ -8,4 +8,8 @@ defmodule LSG do
     Application.get_env(:lsg, :data_path)
   end
 
+  def version do
+    Application.spec(:lsg)[:vsn]
+  end
+
 end
diff --git a/lib/lsg_irc/alcolog_plugin.ex b/lib/lsg_irc/alcolog_plugin.ex
index f00f7f4..8a7bcb9 100644
--- a/lib/lsg_irc/alcolog_plugin.ex
+++ b/lib/lsg_irc/alcolog_plugin.ex
@@ -66,14 +66,26 @@ defmodule LSG.IRC.AlcoologPlugin do
     {:ok, meta} = :dets.open_file(dets_meta_filename, [{:type,:set}])
     traverse_fun = fn(obj, dets) ->
       case obj do
+        object = {nick, naive = %NaiveDateTime{}, volumes, active, cl, deg, name, comment, meta} ->
+          date = naive
+          |> DateTime.from_naive!("Etc/UTC")
+          |> DateTime.to_unix()
+          new = {nick, date, volumes, active, cl, deg, name, comment, Map.new()}
+          :dets.delete_object(dets, object)
+          :dets.insert(dets, new)
+          :ets.insert(ets, {{nick, date}, volumes, active, cl, deg, name, comment, Map.new()})
+          dets
+
         object = {nick, date, volumes, active, cl, deg, name, comment, meta} ->
           :ets.insert(ets, {{nick, date}, volumes, active, cl, deg, name, comment, meta})
           dets
+
         _ ->
           dets
       end
     end
     :dets.foldl(traverse_fun, dets, dets)
+    :dets.sync(dets)
     state = %{dets: dets, meta: meta, ets: ets}
     {:ok, state}
   end