From: Michal Malý <madcatxster@devoid-pointer.net>
Date: Sat, 20 Dec 2014 00:21:01 +0000 (+0100)
Subject: Load settings from config INI file instead of using hardcoded values
X-Git-Url: https://gitweb.devoid-pointer.net/?a=commitdiff_plain;h=2414a023332b32f29ba6d3086ead2d2a34a0401a;p=Nine-Q.git

Load settings from config INI file instead of using hardcoded values
---

diff --git a/src/nine_q.adb b/src/nine_q.adb
index 361c016..004df67 100644
--- a/src/nine_q.adb
+++ b/src/nine_q.adb
@@ -1,5 +1,5 @@
 with AWS.Config;
-with AWS.Config.Set;
+with AWS.Config.Ini;
 with AWS.Server;
 
 with Handlers;
@@ -8,13 +8,7 @@ procedure Nine_Q is
   Server_Config: AWS.Config.Object;
   Web_Server: AWS.Server.HTTP;
 begin
-  Server_Config := AWS.Config.Get_Current;
-  AWS.Config.Set.Session(Server_Config, True);
-  AWS.Config.Set.Server_Host(Server_Config, "localhost");
-  AWS.Config.Set.Server_Port(Server_Config, 18400);
-
-  AWS.Config.Set.Session_Lifetime(1800.0);
-  AWS.Config.Set.Session_Cleanup_Interval(3600.0);
+  AWS.Config.Ini.Read(Server_Config, "nine_q_config.ini");
 
   AWS.Server.Start(Web_Server => Web_Server,
 		   Dispatcher => Handlers.Get_Dispatchers,