feat: three_ds polling part2 (#334)

Author: prafulkoppalkar

src/Utilities/PaymentHelpers.res

@@ -245,7 +245,7 @@ let retrieveStatus = (~headers, ~switchToCustomPod, pollID) => {
   })
 }
 
-let rec pollStatus = (~headers, ~switchToCustomPod, ~pollId, ~interval, ~count) => {
+let rec pollStatus = (~headers, ~switchToCustomPod, ~pollId, ~interval, ~count, ~returnUrl) => {
   open Promise
   retrieveStatus(~headers, ~switchToCustomPod, pollId)
   ->then(json => {
@@ -254,14 +254,21 @@ let rec pollStatus = (~headers, ~switchToCustomPod, ~pollId, ~interval, ~count)
     Promise.make((resolve, _) => {
       if status === "completed" {
         resolve(json)
-      } else if !(count > 0) {
+      } else if count === 0 {
         handlePostMessage([("fullscreen", false->JSON.Encode.bool)])
-        postFailedSubmitResponse(~errortype="server_error", ~message="Something went wrong") // redirect to return url
+        openUrl(returnUrl)
       } else {
         delay(interval)
         ->then(
           _ => {
-            pollStatus(~headers, ~switchToCustomPod, ~pollId, ~interval, ~count=count - 1)
+            pollStatus(
+              ~headers,
+              ~switchToCustomPod,
+              ~pollId,
+              ~interval,
+              ~count=count - 1,
+              ~returnUrl,
+            )
           },
         )
         ->ignore
@@ -270,7 +277,7 @@ let rec pollStatus = (~headers, ~switchToCustomPod, ~pollId, ~interval, ~count)
   })
   ->catch(e => {
     Console.log2("Unable to retrieve payment due to following error", e)
-    pollStatus(~headers, ~switchToCustomPod, ~pollId, ~interval, ~count=count - 1)
+    pollStatus(~headers, ~switchToCustomPod, ~pollId, ~interval, ~count=count - 1, ~returnUrl)
   })
 }
 

src/orca-loader/Elements.res

@@ -439,20 +439,39 @@ let make = (
                 dict->getString("delay_in_secs", "")->Int.fromString->Option.getOr(1) * 1000
               let count = dict->getString("frequency", "")->Int.fromString->Option.getOr(5)
               let url = dict->getString("return_url_with_query_params", "")
-              PaymentHelpers.pollStatus(~headers, ~switchToCustomPod, ~pollId, ~interval, ~count)
-              ->then(res => {
-                let dict = res->JSON.Decode.object->Option.getOr(Dict.make())
-                let status = dict->getString("status", "")
-                if status === "completed" {
-                  Window.Location.replace(url)->ignore // retrive status
-                }->resolve
-              })
-              ->catch(_e =>
-                postFailedSubmitResponse(
-                  ~errortype="Server_error",
-                  ~message="Something went Wrong",
-                )->resolve
+              PaymentHelpers.pollStatus(
+                ~headers,
+                ~switchToCustomPod,
+                ~pollId,
+                ~interval,
+                ~count,
+                ~returnUrl=url,
               )
+              ->then(_ => {
+                PaymentHelpers.retrievePaymentIntent(
+                  clientSecret,
+                  headers,
+                  ~optLogger=Some(logger),
+                  ~switchToCustomPod,
+                  ~isForceSync=true,
+                )
+                ->then(json => {
+                  let dict = json->JSON.Decode.object->Option.getOr(Dict.make())
+                  let status = dict->getString("status", "")
+                  let returnUrl = dict->getString("return_url", "")
+                  Window.Location.replace(
+                    `${returnUrl}?payment_intent_client_secret=${clientSecret}&status=${status}`,
+                  )
+                  resolve()
+                })
+                ->catch(_ => {
+                  Window.Location.replace(url)
+                  resolve()
+                })
+                ->ignore
+                ->resolve
+              })
+              ->catch(e => Console.log2("POLL_STATUS ERROR -", e)->resolve)
               ->ignore
             }
           | None => ()