add support for WEBMACHINE_PORT environment variable

basho · Oct 23, 2012 · bcab56a · bcab56a
1 parent 67025db
commit bcab56a
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/priv/templates/src/wmskel_sup.erl b/priv/templates/src/wmskel_sup.erl
@@ -45,9 +45,13 @@ init([]) ->
     {ok, App} = application:get_application(?MODULE),
     {ok, Dispatch} = file:consult(filename:join([priv_dir(App),
                                                  "dispatch.conf"])),
+    Port = case os:getenv("WEBMACHINE_PORT") of
+            false -> 8000;
+            AnyPort -> AnyPort
+          end,
     WebConfig = [
                  {ip, Ip},
-                 {port, 8000},
+                 {port, Port},
                  {log_dir, "priv/log"},
                  {dispatch, Dispatch}],
     Web = {webmachine_mochiweb,