(PureBasic) Walmart - Get All Feed Statuses

Note: This is an older example for the Walmart v2 API. You should instead use the Walmart v3 API.

Demonstrates how to send a Walmart REST API request to get all feed statuses.

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkXml.pb"
IncludeFile "CkHttp.pb"
IncludeFile "CkAuthUtil.pb"
IncludeFile "CkJsonObject.pb"

Procedure ChilkatExample()

    ; --------------------------------------------------------------------
    ; This example is for the older and deprecated Walmart v2 API.
    ; 
    ; Use the v3 API instead: Walmart v3 Get All Feed Statuses
    ; --------------------------------------------------------------------

    ; This example requires the Chilkat API to have been previously unlocked.
    ; See Global Unlock Sample for sample code.

    ; Demonstrates how to send a request such as the following to get all feed statuses:
    ; Also demonstrates how to parse the results.

    ; GET /v2/feeds HTTP/1.1
    ; WM_SVC.NAME: Walmart Marketplace
    ; WM_QOS.CORRELATION_ID: 123456abcdef
    ; WM_SEC.TIMESTAMP: 1438147839
    ; WM_SEC.AUTH_SIGNATURE: 9khb0lPeRt0WSGbXNGGj4kSQ9L6PMBX/q+ovdy9bDQfvdhYs8NoEsjRX4fD7UNIHTddgkmSVqAqeIIHlaLcRIl0Y4DcJqQYHL27LiWlsm91nYodGssWTKsOq6dJfUHEy95M4zXFGWDDhbHYCor28SCV/g/JdEQybGkcX9Zj5aDyg=
    ; WM_CONSUMER.ID: a20ac266-9add-4fc7-9392-fec303f5155c
    ; Accept: application/xml
    ; Host: https://marketplace.walmartapis.com

    requestUrl.s = "https://marketplace.walmartapis.com/v2/feeds"
    requestMethod.s = "GET"

    ; First we need to generate a signature for our request.
    ; The signature needs to be re-generated for each new Walmart HTTP request.
    authUtil.i = CkAuthUtil::ckCreate()
    If authUtil.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    wmConsumerId.s = "WALMART_CONSUMER_ID"
    wmPrivateKey.s = "WALMART_PRIVATE_KEY"
    jsonStr.s = CkAuthUtil::ckWalmartSignature(authUtil,requestUrl,wmConsumerId,wmPrivateKey,requestMethod)
    If CkAuthUtil::ckLastMethodSuccess(authUtil) <> 1
        Debug CkAuthUtil::ckLastErrorText(authUtil)
        CkAuthUtil::ckDispose(authUtil)
        ProcedureReturn
    EndIf

    ; The JSON returned by WalmartSignature contains the values to be used in the following
    ; header fields: WM_SEC.AUTH_SIGNATURE, WM_SEC.TIMESTAMP, and WM_QOS.CORRELATION_ID
    json.i = CkJsonObject::ckCreate()
    If json.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkJsonObject::ckLoad(json,jsonStr)

    http.i = CkHttp::ckCreate()
    If http.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkHttp::ckSetRequestHeader(http,"WM_SVC.NAME","Walmart Marketplace")
    CkHttp::ckSetRequestHeader(http,"WM_QOS.CORRELATION_ID",CkJsonObject::ckStringOf(json,"correlation_id"))
    CkHttp::ckSetRequestHeader(http,"WM_SEC.TIMESTAMP",CkJsonObject::ckStringOf(json,"timestamp"))
    CkHttp::ckSetRequestHeader(http,"WM_SEC.AUTH_SIGNATURE",CkJsonObject::ckStringOf(json,"signature"))
    CkHttp::ckSetRequestHeader(http,"WM_CONSUMER.ID",wmConsumerId)
    CkHttp::setCkAccept(http, "application/xml")

    ; Note: Do not explicitly set the "Host" header.  Chilkat will set it automatically.

    xmlStr.s = CkHttp::ckQuickGetStr(http,requestUrl)
    If CkHttp::ckLastMethodSuccess(http) <> 1
        Debug CkHttp::ckLastErrorText(http)
        CkAuthUtil::ckDispose(authUtil)
        CkJsonObject::ckDispose(json)
        CkHttp::ckDispose(http)
        ProcedureReturn
    EndIf

    xml.i = CkXml::ckCreate()
    If xml.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkXml::ckLoadXml(xml,xmlStr)

    ; A successful response should have a 200 response status
    If CkHttp::ckLastStatus(http) <> 200
        Debug CkXml::ckGetXml(xml)
        Debug "Response Status Code: " + Str(CkHttp::ckLastStatus(http))
        Debug "Failed."
        CkAuthUtil::ckDispose(authUtil)
        CkJsonObject::ckDispose(json)
        CkHttp::ckDispose(http)
        CkXml::ckDispose(xml)
        ProcedureReturn
    EndIf

    ; A sample XML response is shown below..

    ; To iterate over the Walmart feeds:
    numFeeds.i = CkXml::ckNumChildrenAt(xml,"ns2:results")
    i.i = 0
    While i < numFeeds
        CkXml::setCkI(xml, i)

        Debug "Feed ID: " + CkXml::ckGetChildContent(xml,"ns2:results|ns2:feed[i]|ns2:feedId")
        Debug "Feed Type: " + CkXml::ckGetChildContent(xml,"ns2:results|ns2:feed[i]|ns2:feedType")
        Debug "Num Items Recieved: " + Str(CkXml::ckGetChildIntValue(xml,"ns2:results|ns2:feed[i]|ns2:itemsReceived"))
        Debug "Feed Status: " + CkXml::ckGetChildContent(xml,"ns2:results|ns2:feed[i]|ns2:feedStatus")
        Debug "--"

        i = i + 1
    Wend

    Debug "Success."

    ; ---------------------------------------
    ; Sample XML response
    ; ---------------------------------------

    ; <?xml version="1.0" encoding="UTF-8" standalone="yes" ?>
    ; <ns2:list xmlns:ns2="http://walmart.com/">
    ;     <ns2:totalResults>1293</ns2:totalResults>
    ;     <ns2:offset>0</ns2:offset>
    ;     <ns2:limit>50</ns2:limit>
    ;     <ns2:results>
    ;         <ns2:feed>
    ;             <ns2:feedId>AAAA7F0345E9403C91223F7139FFC341@AQsBAQA</ns2:feedId>
    ;             <ns2:feedType>inventory</ns2:feedType>
    ;             <ns2:partnerId>10000999999</ns2:partnerId>
    ;             <ns2:itemsReceived>130088</ns2:itemsReceived>
    ;             <ns2:itemsSucceeded>113154</ns2:itemsSucceeded>
    ;             <ns2:itemsFailed>16934</ns2:itemsFailed>
    ;             <ns2:itemsProcessing>0</ns2:itemsProcessing>
    ;             <ns2:feedStatus>PROCESSED</ns2:feedStatus>
    ;             <ns2:feedDate>2017-04-27T17:05:42.078Z</ns2:feedDate>
    ;             <ns2:modifiedDtm>2017-04-27T18:06:10.795Z</ns2:modifiedDtm>
    ;         </ns2:feed>
    ;         <ns2:feed>
    ;             <ns2:feedId>AAAAF1F402CD407FA363AD2929593FFF@AQsBAQA</ns2:feedId>
    ;             <ns2:feedType>inventory</ns2:feedType>
    ;             <ns2:partnerId>10000999999</ns2:partnerId>
    ;             <ns2:itemsReceived>39594</ns2:itemsReceived>
    ;             <ns2:itemsSucceeded>34533</ns2:itemsSucceeded>
    ;             <ns2:itemsFailed>5061</ns2:itemsFailed>
    ;             <ns2:itemsProcessing>0</ns2:itemsProcessing>
    ;             <ns2:feedStatus>PROCESSED</ns2:feedStatus>
    ;             <ns2:feedDate>2017-04-27T05:18:59.739Z</ns2:feedDate>
    ;             <ns2:modifiedDtm>2017-04-27T05:20:30.192Z</ns2:modifiedDtm>
    ;         </ns2:feed>
    ; ...
    ;     </ns2:results>
    ; </ns2:list>


    CkAuthUtil::ckDispose(authUtil)
    CkJsonObject::ckDispose(json)
    CkHttp::ckDispose(http)
    CkXml::ckDispose(xml)


    ProcedureReturn
EndProcedure