- Remove debugging messages

- Set session timeout back to 30 minutes

diff --git a/src/handlers/handler_check_answer.adb b/src/handlers/handler_check_answer.adb
index 386f1212d310c1c11767938153c9d1a3d02b4d03..168e518f29a9c31205b38008a942f2866573e65e 100644 (file)
--- a/src/handlers/handler_check_answer.adb
+++ b/src/handlers/handler_check_answer.adb
@@ -23,8 +23,6 @@ package body Handler_Check_Answer is
     UID: Unique_ID;
     HTML: HTML_Code;
   begin
-    Ada.Text_IO.Put_Line("Handling /check_answer");
-
     case Req_Type is
       when AWS.Status.POST =>
        declare

diff --git a/src/handlers/handler_start.adb b/src/handlers/handler_start.adb
index 976b640b1b0fd9f83f333d892846a612ae14bd3f..bda113c657d16aa0bb46125d0cb0b5dacf2179ab 100644 (file)
--- a/src/handlers/handler_start.adb
+++ b/src/handlers/handler_start.adb
@@ -18,7 +18,6 @@ package body Handler_Start is
     Raw_UID: constant String := AWS.Session.Get(SID, "UID");
     HTML: HTML_Code;
   begin
-    --Ada.Text_IO.Put_Line("Handling /start");
 
     case Req_Type is
       when AWS.Status.GET =>

diff --git a/src/nine_q.adb b/src/nine_q.adb
index 688f18f4f1ae6f3f4693616890aae20d54f37683..30632211d2bdb49f1e2651ad5b7c9951a592ffeb 100644 (file)
--- a/src/nine_q.adb
+++ b/src/nine_q.adb
@@ -15,8 +15,8 @@ begin
   AWS.Config.Set.Server_Host(Server_Config, "localhost");
   AWS.Config.Set.Server_Port(Server_Config, 18400);
 
-  AWS.Config.Set.Session_Lifetime(90.0);
-  AWS.Config.Set.Session_Cleanup_Interval(180.0);
+  AWS.Config.Set.Session_Lifetime(1800.0);
+  AWS.Config.Set.Session_Cleanup_Interval(3600.0);
 
   Ada.Text_IO.Put_Line("Starting server...");
   AWS.Server.Start(Web_Server => Web_Server,

diff --git a/src/problem_generators/problem_generator-acidobazic_suite.adb b/src/problem_generators/problem_generator-acidobazic_suite.adb
index 21f6c3b86e5f99e8298bf54a00d69f06f1543936..e174066cb395933373afd81dfc6c8d7fd4648819 100644 (file)
--- a/src/problem_generators/problem_generator-acidobazic_suite.adb
+++ b/src/problem_generators/problem_generator-acidobazic_suite.adb
@@ -62,7 +62,6 @@ package body Acidobazic_Suite is
     declare
       Simplification_Str: constant String := Answer.Element(ANSWER_SIMPLIFICATION_KEY);
     begin
-      Ada.Text_IO.Put_Line("SS : " & Simplification_Str & " SI : " & Simplification'Image(Problem.Simpl));
       if Simplification_Str /= Simplification'Image(Problem.Simpl) then
        Message := To_UB_Text("Nesprávné zanedbání");
        return Wrong_Answer;
@@ -276,7 +275,6 @@ package body Acidobazic_Suite is
       Min := Correct_Up(Min);
     end if;
     Max := Correct_Down(Max);
-    --Ada.Text_IO.Put_Line("Min: " & pH_Float'Image(Min) & " Max: " & pH_Float'Image(Max) & " Simpl: " & Simplification'Image(S));
   end Calculate_Concentration_Limits;
 
   function Calculate_Solution(Problem: in Acidobazic_Problem) return pH_Float is
@@ -287,24 +285,12 @@ package body Acidobazic_Suite is
     use pH_Float_IO;
     use Ada.Text_IO;
   begin
-    -- DEBUG Dump
-    --Put("* Kx = "); Put(Problem.Kx);
-    --Put(" | cX = "); Put(Problem.cX);
-    --case Problem.Subst_Type is
-    --  when Acid =>
-    -- Put_Line(" | ACID");
-    --  when Base =>
-    -- Put_Line(" | BASE");
-    -- end case;
-    -- END DEBUG Dump
-
     case Problem.Simpl is
       -- We are ignoring everything
       when Both =>
        declare
          pH: constant pH_Float := X_To_pX(Sqrt(Problem.Kx * Problem.cX));
        begin
-         --Ada.Text_IO.Put_Line("Both simplifications");
          case Problem.Subst_Type is
            when Acid =>
              return pH;
@@ -320,7 +306,6 @@ package body Acidobazic_Suite is
          X_2: pH_Float;
          pH: pH_Float;
        begin
-         --Ada.Text_IO.Put_Line("Taking only dissociation into account");
          -- Solve the quadratic equation
          D := (Problem.Kx ** 2.0) + (4.0 * Problem.Kx * Problem.cX);
          if D < 0.0 then
@@ -341,7 +326,6 @@ package body Acidobazic_Suite is
        declare
          pH: constant pH_Float := X_To_pX(Sqrt(Problem.Kx * Problem.cX + K_W));
        begin
-         --Ada.Text_IO.Put_Line("Taking only autoprotolysis into account");
          case Problem.Subst_Type is
            when Acid =>
              return pH;

diff --git a/src/problem_generators/problem_generator-solubility_suite.adb b/src/problem_generators/problem_generator-solubility_suite.adb
index a7db2031e336ea1e3f47b5738248d598a5783baf..e0fe2202fcb02438ac34e6a8d924938e73e1022f 100644 (file)
--- a/src/problem_generators/problem_generator-solubility_suite.adb
+++ b/src/problem_generators/problem_generator-solubility_suite.adb
@@ -380,7 +380,6 @@ package body Solubility_Suite is
        GM := Calculate_Activity_Coefficient(Prob_Data.N, I);
        GN := Calculate_Activity_Coefficient(Prob_Data.M, I);
 
-       Ada.Text_IO.Put_Line("IS, AC");
        SS_IO.Put(I); Ada.Text_IO.New_Line;
        SS_IO.Put(GM); Ada.Text_IO.New_Line;
        SS_IO.Put(GN); Ada.Text_IO.New_Line;

diff --git a/src/problem_manager.adb b/src/problem_manager.adb
index 34dd9508f93d601cf2893b9439e075e1a33ca9a4..c517b7788f7a3ee9a4a97fdd7d540f5e4e9c0d0f 100644 (file)
--- a/src/problem_manager.adb
+++ b/src/problem_manager.adb
@@ -113,7 +113,6 @@ package body Problem_Manager is
     -- Initialize problem
     if Parameters.Is_Empty = False then
       Success := Problem.Set_Parameters(Parameters);
-      Ada.Text_IO.Put_Line("Setting problem parameters");
       if Success = False then
        Free_Chem_Problem(Problem);
        return False;