JSON Acknowledgement Script

Homepage Clovertech Forums Cloverleaf JSON Acknowledgement Script

Tagged: 

  • Creator
    Topic
  • #119424
    David Speare
    Participant

    Does anyone have a json acknowledgment script they are using that they would be kind enough to share?

Viewing 0 reply threads
  • Author
    Replies
    • #119425

      proc tps_bounce_response_json { args } {
      set module tps_bounce_response_json
      set debug 0
      keylget args MODE mode
      set dispList {}

      switch -exact — $mode {
      start {}

      run {
      keylget args MSGID mh
      set userData [msgmetaget $mh USERDATA]
      set requestInfo [keylget userData httpRequestInfo]
      set requestPath [keylget requestInfo “path”]
      set httpResponseHeaders {}

      set response {
      {
      “response”: “Success”
      }
      }

      set mhReply [msgcreate -class protocol -recover -type reply $response]
      set driverCtl [msgmetaget $mh DRIVERCTL]
      msgmetaset $mhReply DRIVERCTL $driverCtl
      set userData {}
      keylset userData httpResponseHeaders $httpResponseHeaders
      msgmetaset $mhReply USERDATA $userData
      lappend dispList “OVER $mhReply” “CONTINUE $mh”
      }

      time {}
      shutdown {}
      }

      return $dispList
      }

      -- Max Drown (Infor)

Viewing 0 reply threads
  • You must be logged in to reply to this topic.

Forum Statistics

Registered Users
4,978
Forums
28
Topics
9,052
Replies
33,408
Topic Tags
238