Add Error codes for Server Error from 520 to 526 (core/aws-messages)

Author: ax-hack

src/core/aws-messages.adb

@@ -103,6 +103,13 @@ package body AWS.Messages is
    S508_Message : aliased constant String := "Loop Detected";
    S510_Message : aliased constant String := "Not Extended";
    S511_Message : aliased constant String := "Network Authentication Required";
+   S520_Message : aliased constant String := "Unknown Error";
+   S521_Message : aliased constant String := "Web Server Is Down";
+   S522_Message : aliased constant String := "Connection Timed Out";
+   S523_Message : aliased constant String := "Origin Is Unreachable";
+   S524_Message : aliased constant String := "A timeout occurred";
+   S525_Message : aliased constant String := "SSL Handshake Failed";
+   S526_Message : aliased constant String := "Invalid SSL Certificate";
 
    Status_Messages : constant array (Status_Code) of access constant String :=
                        (S100 => S100_Message'Access,
@@ -166,7 +173,14 @@ package body AWS.Messages is
                         S507 => S507_Message'Access,
                         S508 => S508_Message'Access,
                         S510 => S510_Message'Access,
-                        S511 => S511_Message'Access);
+                        S511 => S511_Message'Access,
+                        S520 => S520_Message'Access,
+                        S521 => S521_Message'Access,
+                        S522 => S522_Message'Access,
+                        S523 => S523_Message'Access,
+                        S524 => S524_Message'Access,
+                        S525 => S525_Message'Access,
+                        S526 => S526_Message'Access);
 
    Month_Name : constant array (Calendar.Month_Number) of String (1 .. 3) :=
                   ("Jan", "Feb", "Mar", "Apr", "May", "Jun",

src/core/aws-messages.ads

@@ -203,7 +203,8 @@ package AWS.Messages is
       --  4xx : Client Error - The request contains bad syntax or cannot be
       --  fulfilled
 
-      S500, S501, S502, S503, S504, S505, S506, S507, S508, S510, S511
+      S500, S501, S502, S503, S504, S505, S506, S507, S508, S510, S511, S520,
+      S521, S522, S523, S524, S525, S526
       --  5xx : Server Error - The server failed to fulfill an apparently
       --  valid request
       );
@@ -212,7 +213,7 @@ package AWS.Messages is
    subtype Success       is Status_Code range S200 .. S226;
    subtype Redirection   is Status_Code range S300 .. S308;
    subtype Client_Error  is Status_Code range S400 .. S451;
-   subtype Server_Error  is Status_Code range S500 .. S511;
+   subtype Server_Error  is Status_Code range S500 .. S526;
 
    function Image (S : Status_Code) return String;
    --  Returns Status_Code image. This value does not contain the leading S