with AWS.Client;
with AWS.Response;
with Ada.Strings.Fixed;
with Ada.Strings.Unbounded;
with Ada.Command_Line;

with Config;
with Html_Processor;

procedure Http_Request is

   package String_U renames Ada.Strings.Unbounded;
   package CL renames Ada.Command_Line;
   Res           : AWS.Response.Data;
   Page_Raw_Data : String_U.Unbounded_String;

   CL_Config : Config.Config_Maps.Map;

begin

   if (CL.Argument_Count > 0) then

      for I in 2 .. CL.Argument_Count loop

         Config.Add_Param (CL_Config, CL.Argument (I));

      end loop;

      Res           := AWS.Client.Get (URL => CL.Argument (1));
      Page_Raw_Data := AWS.Response.Message_Body (Res);
      Html_Processor.Process_Request (CL_Config, Page_Raw_Data);
   end if;

end Http_Request;