AWS.Session test

gistfile1.adb

with AWS.Session;
with AWS.Templates;

package body View.Session_Test is

   ---------------
   --  Generate --
   ---------------

   function Generate
     (Request : in AWS.Status.Data)
      return AWS.Response.Data
   is
      use AWS.Session;
      use AWS.Templates;

      Counter    : Natural := 0;
      Session_Id : Id;
      T          : Translate_Set;
   begin
      if AWS.Status.Has_Session (Request) then
         Insert (T, Assoc ("SESSION_ENABLED", True));

         Session_Id := AWS.Status.Session (Request);

         Insert (T, Assoc ("HAS_SESSION_ID", True));
         Insert (T, Assoc ("SESSION_ID", Image (Session_Id)));

         Counter := Get (Session_Id, "counter");
         Insert (T, Assoc ("SESSION_COUNTER", Counter));
         Counter := Counter + 1;
         Set (Session_Id, "counter", Counter);
      end if;

      return Build_Response
        (Status_Data   => Request,
         Template_File => Template_Session_Test,
         Translations  => T);
   end Generate;

end View.Session_Test;