From d0d8156529e6c5bb3b3f84f3b0645cd1bc7c0829 Mon Sep 17 00:00:00 2001
From: Sergej Jurecko <sergej.jurecko@wpn.tv>
Date: Fri, 24 Jul 2015 13:14:49 +0200
Subject: [PATCH] mkconsole

---
 .gitignore             |  1 -
 priv/mkconsole.escript | 43 ++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 43 insertions(+), 1 deletion(-)
 create mode 100755 priv/mkconsole.escript

diff --git a/.gitignore b/.gitignore
index ea62840..87927e1 100644
--- a/.gitignore
+++ b/.gitignore
@@ -1,5 +1,4 @@
 /deps
 /distdir
 /log
-/priv
 
diff --git a/priv/mkconsole.escript b/priv/mkconsole.escript
new file mode 100755
index 0000000..750d823
--- /dev/null
+++ b/priv/mkconsole.escript
@@ -0,0 +1,43 @@
+#!/usr/bin/env escript
+
+
+main(BinFiles1) ->
+  BinFiles = ["deps/bkdcore/ebin/butil.beam",
+    "deps/actordb_core/ebin/actordb_sql.beam",
+    "ebin/actordb_console.beam"] ++ BinFiles1,
+  Apps = [thrift,lager,poolboy, actordb_client],
+
+  %% Add ebin paths to our path
+  true = code:add_path("ebin"),
+  ok = code:add_paths(filelib:wildcard("deps/*/ebin")),
+
+  %% Read the contents of the files in ebin(s)
+  Files1 = [begin
+    FileList = filelib:wildcard("deps/"++atom_to_list(Dir)++"/ebin/*.*") ++ filelib:wildcard("ebin/*.*"),
+    [{filename:basename(Nm),element(2,file:read_file(Nm))} || Nm <- FileList]
+  end || Dir <- Apps],
+
+  Files = [{filename:basename(Fn),element(2,file:read_file(Fn))} || Fn <- BinFiles]++lists:flatten(Files1),
+
+  case zip:create("mem", Files, [memory]) of
+    {ok, {"mem", ZipBin}} ->
+      Script = <<"#!/usr/bin/env escript\n%%! +Bc \n", ZipBin/binary>>,
+      case file:write_file("priv/actordb_console", Script) of
+        ok -> ok;
+        {error, WriteError} ->
+          io:format("Failed to write actordb_console: ~p\n", [WriteError]),
+          halt(1)
+      end;
+    {error, ZipError} ->
+      io:format("Failed to construct actordb_console archive: ~p\n", [ZipError]),
+      halt(1)
+  end,
+
+  %% Finally, update executable perms for our script
+  case os:type() of
+    {unix,_} ->
+      [] = os:cmd("chmod a+x actordb_console"),
+      ok;
+    _ ->
+      ok
+  end.