From f31b96d541305bd47f582ac1df45af623b1cd50f Mon Sep 17 00:00:00 2001
From: Rodrigo Rodriguez <me@rodrigorodriguez.com>
Date: Mon, 8 Jan 2024 20:09:02 -0300
Subject: [PATCH] fix(basic.gblib): Allow MERGE keyword in storage #380.
 @othonlima

---
 packages/basic.gblib/services/SystemKeywords.ts | 14 ++++++++++++--
 1 file changed, 12 insertions(+), 2 deletions(-)

diff --git a/packages/basic.gblib/services/SystemKeywords.ts b/packages/basic.gblib/services/SystemKeywords.ts
index 5642b269..78b3386c 100644
--- a/packages/basic.gblib/services/SystemKeywords.ts
+++ b/packages/basic.gblib/services/SystemKeywords.ts
@@ -1736,11 +1736,21 @@ export class SystemKeywords {
           });
         };
 
-        if (result.status === 429 || result.status === 401) {
-          GBLog.info(`Waiting 1min. before retrynig GET: ${url}.`);
+        if (result.status === 401) {
+          GBLog.info(`Waiting 5 secs. before retrynig HTTP 401 GET: ${url}`);
+          await sleep(5 * 1000);
+          throw new Error(`BASIC: HTTP:${result.status} retry: ${result.statusText}.`);
+        }
+        if (result.status === 429) {
+          GBLog.info(`Waiting 1min. before retrying HTTP 429 GET: ${url}`);
           await sleep(60 * 1000);
           throw new Error(`BASIC: HTTP:${result.status} retry: ${result.statusText}.`);
         }
+        if (result.status === 503) {
+          GBLog.info(`Waiting 1h before retrynig GET 503: ${url}`);
+          await sleep(60 * 60 * 1000);
+          throw new Error(`BASIC: HTTP:${result.status} retry: ${result.statusText}.`);
+        }
 
         if (result.status === 2000) {