From 6112735318dd5b6cde4bfb6e9382569bbc3c3fdc Mon Sep 17 00:00:00 2001
From: Marc <marc.biedermann@econ.uzh.ch>
Date: Fri, 10 Nov 2023 14:34:04 +0100
Subject: [PATCH] skip api key verification in non productive environments
 (#255)

* skip api key verification in non productive environments

* fix message string
---
 pool/app/text_message/text_message_service.ml | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

diff --git a/pool/app/text_message/text_message_service.ml b/pool/app/text_message/text_message_service.ml
index b015666ae..c4097f3e3 100644
--- a/pool/app/text_message/text_message_service.ml
+++ b/pool/app/text_message/text_message_service.ml
@@ -215,9 +215,14 @@ let test_api_key ~tags api_key cell_phone tenant_title =
            body_string);
        Lwt.return_ok api_key)
   | false ->
-    Pool_common.Message.TextMessageInterceptionError
-      "Sending text message intercepted"
-    |> Lwt.return_error
+    let (_ : Pool_common.Message.error) =
+      Pool_common.Utils.with_log_error
+        ~level:Logs.Warning
+        (Pool_common.Message.TextMessageInterceptionError
+           "Verifying API Key: Skip validation due to non production \
+            environment!")
+    in
+    api_key |> Lwt.return_ok
 ;;
 
 module Job = struct