feat(3ds): three DS SDK - adding logs to track milestone events

src/ThreeDSAuth.res

@@ -5,7 +5,7 @@ let make = () => {
   let (openModal, setOpenModal) = React.useState(_ => false)
   let (loader, setloader) = React.useState(_ => true)
 
-  let logger = Recoil.useRecoilValueFromAtom(RecoilAtoms.loggerAtom)
+  let logger = OrcaLogger.make()
 
   React.useEffect0(() => {
     handlePostMessage([("iframeMountedCallback", true->JSON.Encode.bool)])
@@ -16,6 +16,9 @@ let make = () => {
         let metadata = dict->getJsonObjectFromDict("metadata")
         let metaDataDict = metadata->JSON.Decode.object->Option.getOr(Dict.make())
         let paymentIntentId = metaDataDict->getString("paymentIntentId", "")
+        let publishableKey = metaDataDict->getString("publishableKey", "")
+        logger.setClientSecret(paymentIntentId)
+        logger.setMerchantId(publishableKey)
         let headersDict =
           metaDataDict
           ->getJsonObjectFromDict("headers")
@@ -51,6 +54,14 @@ let make = () => {
 
           let ele = Window.querySelector("#threeDsAuthDiv")
 
+          LoggerUtils.handleLogging(
+            ~optLogger=Some(logger),
+            ~eventName=DISPLAY_THREE_DS_SDK,
+            ~value=transStatus,
+            ~paymentMethod="CARD",
+            (),
+          )
+
           switch ele->Nullable.toOption {
           | Some(elem) =>
             if transStatus === "C" {
@@ -63,13 +74,25 @@ let make = () => {
               form.appendChild(input)
               form.submit()
             } else {
-              let form1 = elem->OrcaUtils.makeForm(threeDsAuthoriseUrl, "3dsFrintionLess")
+              let form1 = elem->OrcaUtils.makeForm(threeDsAuthoriseUrl, "3dsFrictionLess")
               form1.submit()
             }
           | None => ()
           }
           resolve(json)
         })
+        ->catch(err => {
+          let exceptionMessage = err->Utils.formatException
+          LoggerUtils.handleLogging(
+            ~optLogger=Some(logger),
+            ~eventName=DISPLAY_THREE_DS_SDK,
+            ~value=exceptionMessage->JSON.stringify,
+            ~paymentMethod="CARD",
+            ~logType=ERROR,
+            (),
+          )
+          JSON.Encode.null->resolve
+        })
         ->ignore
       }
     }

src/ThreeDSMethod.res

@@ -1,7 +1,7 @@
 open Utils
 @react.component
 let make = () => {
-  let logger = Recoil.useRecoilValueFromAtom(RecoilAtoms.loggerAtom)
+  let logger = OrcaLogger.make()
 
   let mountToInnerHTML = innerHTML => {
     let ele = Window.querySelector("#threeDsInvisibleIframe")
@@ -40,33 +40,55 @@ let make = () => {
           ->Belt.Option.flatMap(JSON.Decode.object)
           ->Belt.Option.flatMap(x => x->Dict.get("three_ds_method_data"))
           ->Option.getOr(Dict.make()->JSON.Encode.object)
+        let paymentIntentId = metaDataDict->Utils.getString("paymentIntentId", "")
+        let publishableKey = metaDataDict->Utils.getString("publishableKey", "")
         let iframeId = metaDataDict->getString("iframeId", "")
 
+        logger.setClientSecret(paymentIntentId)
+        logger.setMerchantId(publishableKey)
+
         open Promise
         PaymentHelpers.threeDsMethod(threeDsUrl, threeDsMethodData, ~optLogger=Some(logger))
         ->then(res => {
-          mountToInnerHTML(res)
-          resolve(res)
-        })
-        ->then(res => {
-          metadata->Utils.getDictFromJson->Dict.set("3dsMethodComp", "Y"->JSON.Encode.string)
-          handlePostMessage([
-            ("fullscreen", true->JSON.Encode.bool),
-            ("param", `3dsAuth`->JSON.Encode.string),
-            ("iframeId", iframeId->JSON.Encode.string),
-            ("metadata", metadata),
-          ])
-          resolve(res)
+          if res == "" {
+            Exn.raiseError("Empty response from threeDsMethod")->reject
+          } else {
+            LoggerUtils.handleLogging(
+              ~optLogger=Some(logger),
+              ~eventName=THREE_DS_METHOD_RESULT,
+              ~value="Y",
+              ~paymentMethod="CARD",
+              (),
+            )
+            mountToInnerHTML(res)
+            metadata->Utils.getDictFromJson->Dict.set("3dsMethodComp", "Y"->JSON.Encode.string)
+            handlePostMessage([
+              ("fullscreen", true->JSON.Encode.bool),
+              ("param", `3dsAuth`->JSON.Encode.string),
+              ("iframeId", iframeId->JSON.Encode.string),
+              ("metadata", metadata),
+            ])
+            resolve(res)
+          }
         })
-        ->catch(e => {
+        ->catch(err => {
+          let exceptionMessage = err->Utils.formatException
           metadata->Utils.getDictFromJson->Dict.set("3dsMethodComp", "N"->JSON.Encode.string)
           handlePostMessage([
             ("fullscreen", true->JSON.Encode.bool),
             ("param", `3dsAuth`->JSON.Encode.string),
             ("iframeId", iframeId->JSON.Encode.string),
             ("metadata", metadata),
           ])
-          reject(e)
+          LoggerUtils.handleLogging(
+            ~optLogger=Some(logger),
+            ~eventName=THREE_DS_METHOD_RESULT,
+            ~value=exceptionMessage->JSON.stringify,
+            ~paymentMethod="CARD",
+            ~logType=ERROR,
+            (),
+          )
+          reject(err)
         })
         ->ignore
 

src/Utilities/LoggerUtils.res

@@ -1,19 +1,8 @@
-type logType = Request | Response | NoResponse | Method | Err
-let getLogtype = val => {
-  switch val {
-  | "request" => Request
-  | "response" => Response
-  | "no_response" => NoResponse
-  | "method" => Method
-  | "err" => Err
-  | _ => Err
-  }
-}
 let logApi = (
   ~eventName,
   ~statusCode="",
   ~data: JSON.t=Dict.make()->JSON.Encode.object,
-  ~type_,
+  ~apiLogType: OrcaLogger.apiLogType,
   ~url="",
   ~paymentMethod="",
   ~result: JSON.t=Dict.make()->JSON.Encode.object,
@@ -22,8 +11,7 @@ let logApi = (
   ~logCategory: OrcaLogger.logCategory=API,
   (),
 ) => {
-  let logtype = getLogtype(type_)
-  let (value, internalMetadata) = switch logtype {
+  let (value, internalMetadata) = switch apiLogType {
   | Request => ([("url", url->JSON.Encode.string)], [])
   | Response => (
       [("url", url->JSON.Encode.string), ("statusCode", statusCode->JSON.Encode.string)],
@@ -55,7 +43,7 @@ let logApi = (
       ~internalMetadata=ArrayType(internalMetadata),
       ~logType,
       ~logCategory,
-      ~type_,
+      ~apiLogType,
       (),
     )
   | None => ()