fix(SUPPORT-14907): log errors when page token lookup fails

Previously, exceptions during page token lookup were silently swallowed,
causing the component to fall back to user token without any indication
of what went wrong. This led to confusing 403 Forbidden errors when the
user token lacked permissions for page insights.

Changes:
- Replace swallow-exceptions macro with try-with-warning that logs errors
- Add detailed error message when both /me/accounts and page details fail
- Only attempt page details API if accounts list lookup didn't find token
- Improve logging to help diagnose token permission issues

Co-Authored-By: Zora Jelínková <zora.jelinkova@keboola.com>

Author: devin-ai-integration[bot]

src/keboola/facebook/extractor/query.clj

@@ -23,17 +23,29 @@
         all-rows (apply concat nested-data)]
     (output/write-rows all-rows out-dir prefix false (incremental? query))))
 
-(defmacro swallow-exceptions [& body]
-  `(try ~@body (catch Exception e#)))
+(defmacro try-with-warning [context & body]
+  `(try ~@body
+        (catch Exception e#
+          (runtime/log-error (str "Warning: " ~context " failed: " (.getMessage e#)))
+          nil)))
 
 (defn retrieve-page-access-token [id token version]
-  (let [accounts (swallow-exceptions (request/get-accounts token :version version))
-        page-token-from-accounts-list (if (some? accounts) (:access_token (first (filter #(= id (:id %)) accounts))))
-        page-token-from-page-details (swallow-exceptions (request/get-page-token-via-page-details token id))
+  (let [accounts (try-with-warning (str "fetching accounts list for page " id)
+                                   (request/get-accounts token :version version))
+        page-token-from-accounts-list (when (some? accounts)
+                                        (:access_token (first (filter #(= id (:id %)) accounts))))
+        page-token-from-page-details (when (nil? page-token-from-accounts-list)
+                                       (try-with-warning (str "fetching page token via page details for " id)
+                                                         (request/get-page-token-via-page-details token id)))
         page-token (or page-token-from-accounts-list page-token-from-page-details)]
-    (if (nil? page-token)
-      (runtime/log-strings "Could not find page access token for" id ". Token from the configuration will be used instead.")
-      (runtime/log-strings "Using page access token to retrieve data for" id))
+    (cond
+      (some? page-token)
+      (runtime/log-strings "Using page access token to retrieve data for" id)
+      (and (nil? accounts) (nil? page-token-from-page-details))
+      (runtime/log-error (str "Page token failed for " id ": both /me/accounts and page details API failed. "
+                              "The user token will be used but may lack permissions for insights queries."))
+      :else
+      (runtime/log-strings "Could not find page access token for" id ". Token from the configuration will be used instead."))
     page-token))
 
 (defn choose-token [id user-token version]