Ada tasking and timeouts

gistfile1.adb

task body AMI_Action
is
begin
   select
      accept Start do
         select
            delay 2.0;
            raise AMI_Action_Error with Connect_Timed_Out_Message;
         then abort
            AWS.Net.Std.Connect (Socket => Action_Socket,
                                 Host   => Config.Get (PBX_Host),
                                 Port   => Config.Get (PBX_Port));
         end select;
      end Start;
   or
      delay 3.0;
      raise AMI_Action_Error with No_Call_On_Start_Received;
   end select;

   loop
      --  Mad socket action!
   end loop;
exception
   --  Catch exceptions, log issue and complete.
end AMI_Action;