Pass port to start webserver on via app-args

kpx · Nov 8, 2010 · 7e9ad65 · 7e9ad65
1 parent 395048f
commit 7e9ad65
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 6 deletions.
diff --git a/site/ebin/umts.app b/site/ebin/umts.app
@@ -1,4 +1,7 @@
+
+
 {application, umts, [
 	{description,  "the Ultimate Magic Trading System"},
-	{mod, {umts_app, []}}
+		{applications, [sasl, nprocreg]},
+		{mod, {umts_app, 8000}}
 ]}.
diff --git a/site/src/umts_app.erl b/site/src/umts_app.erl
@@ -1,14 +1,12 @@
 -module (umts_app).
 -export ([start/2, stop/0, do/1]).
 -include_lib ("nitrogen/include/wf.hrl").
--define(PORT, 8000).
 
-
-start(_, _) ->
+start(_, Port) ->
     inets:start(),
     umts_db:init(),
     {ok, Pid} = inets:start(httpd, [
-        {port, ?PORT},
+        {port, Port},
         {server_name, "UMTS"},
         {server_root, "."},
         {document_root, "./static"},
@@ -19,7 +17,7 @@ start(_, _) ->
     {ok, Pid}.
 
 stop() ->
-    httpd:stop_service({any, ?PORT}),
+    inets:stop(),
     ok.
 
 do(Info) ->