From 406fba57f2b053a8ed93e84fe003776b7d802c88 Mon Sep 17 00:00:00 2001
From: arkdro <arkdro@gmail.com>
Date: Wed, 13 Feb 2013 00:46:56 +0400
Subject: [PATCH] use env for tzdata_dir

---
 src/ezic.app.src    | 2 +-
 src/ezic_loader.erl | 7 ++++++-
 2 files changed, 7 insertions(+), 2 deletions(-)

diff --git a/src/ezic.app.src b/src/ezic.app.src
index 2f54ff1..99ec395 100644
--- a/src/ezic.app.src
+++ b/src/ezic.app.src
@@ -7,5 +7,5 @@
                   stdlib
                  ]},
   {mod, {ezic_app, ezic_db_ets}},
-  {env, [{db_dir, "db"}]}
+  {env, [{db_dir, "db"}, {tzdata_dir, "priv/tzdata"}]}
  ]}.
\ No newline at end of file
diff --git a/src/ezic_loader.erl b/src/ezic_loader.erl
index f0fdc6a..451346f 100644
--- a/src/ezic_loader.erl
+++ b/src/ezic_loader.erl
@@ -7,7 +7,12 @@
 
 
 load() ->
-    load(?TZDIR).
+    case application:get_env(tzdata_dir) of
+        undefined ->
+            load(?TZDIR);
+        {ok, Dir} ->
+            load(Dir)
+    end.
 
 %% returns all records, parsed from the tzdata files in directory Dir.
 load(Dir) ->