Creating JSON variable that has a dash in the name

[CharlesParker]

SO I am looking to add a variable from an argument to this json txt

dim json as c = <<%json%
{
    "uri": "https://connect.squareupsandbox.com/v2/locations/",
    "headers": [
        "Square-Version: 2022-08-23",
        "Authorization: Bearer EAAAEDNhA6ou",
        "Content-Type: application/json"
    ]
}
%json%​

What I would like to do is replace the value "EAAAEDNhA6ou" with the value of a text field called authcode in my component
with another variable or argument, not sure, dont' care lol.

If I use header.square-version as c

as in

dim f as p
f.uri = "https://connect.squareupsandbox.com/v2/locations/"
dim f.headers as p
dim f.headers.Square-Version as c​

the xbasic editor just doesn't like the dash in the variable name "Square-Version" otherwise I think I could do it with json generate.

thanks in advance!

[CharlesParker]

OR if I can get the final destination to look like this that would be perfect:

dim slist1[0] as c = [ "Square-Version: 2022-08-23" , "Authorization: Bearer EAAAEDNhA6ou" , "Content-Type: application/json" ]

again, I want to be able to swap out the value of "EAAAEDNhA6ou" by inserting a value from a text field, so I guess it's an array...ticking me off that I can't figure out how to do this, lol

[madtowng]

When working with arrays (which I do a lot), I like to use the for each loop
to work with each element.
As I remember working with apis, I combine that with the a5_extract_advance()
function.

K2kcc has been working on his project with square for about a year now.
You might be able to collaborate with him on some of the insanity known as square.
The biggest difference you'll find is that he's using V11.

for each ele in slist 1
strtran(ele.value,"EAAAEDNhA6ou", <replacement text>)
next

[mikeallenbrown]

Your example in the first post is just a string to Alpha. It's nothing special even when organized in a json format. Since it's a string you could simply use the function strtran() and replace what you need with what you want.

dim authCode as c = "TEST 1 2 3 4"
    dim json as c = <<%json%
        {
            "uri": "https://connect.squareupsandbox.com/v2/locations/",
            "headers": [
                "Square-Version: 2022-08-23",
                "Authorization: Bearer EAAAEDNhA6ou",
                "Content-Type: application/json"
            ]
        }
        %json%

    json = strtran(json,"EAAAEDNhA6ou",authCode)​

Another option is a little more fancy and that's to parse your string and then set the value of one of the elements...

dim authCode as c = "TEST 1 2 3 4"
    dim json as c = <<%json%
        {
            "uri": "https://connect.squareupsandbox.com/v2/locations/",
            "headers": [
                "Square-Version: 2022-08-23",
                "Authorization: Bearer EAAAEDNhA6ou",
                "Content-Type: application/json"
            ]
        }
        %json%

    dim result as p = json_parse(json)

    result.headers[2] = "Authorization: " + authCode​

[CharlesParker]

Ok got it and it was even easier than I thought, lol. Took me a minute to get it right in my head. So what this xbasic does is retrieve the location_id of the seller you would already have the access token at this point which I would have stored in my DB (encrypted of course)

function getloc as c (e as p)
    debug(1)
dim getloc as c
dim cf_1 as extension::CurlFile
dim flag_1 as l
dim ce as extension::Curl
dim jso as extension::JSON

'from the curl command in the api explorer where you can enter a known access token to return the location id
'dim slist1[0] as c = [ "Square-Version: 2022-08-23" , "Authorization: Bearer EAAAEDNhA6ou-editedtohidetheactualvalue" , "Content-Type: application/json" ]
'to recreate this array I did the following to use the access token from my db for a user who connected their square account

dim one as c = "Square-Version: 2022-08-23"
dim two as c = "Authorization: Bearer " + e._currentRowDataNew.mytoken
dim three as c = "Content-Type: application/json"

dim names[3] as c
names[1] = one
names[2] = two
names[3] = three






ce = extension::Curl.Init()
ce.setOpt("BUFFERSIZE",102400)
ce.setOpt("URL","https://connect.squareupsandbox.com/v2/locations/main")
ce.setOpt("HTTPHEADER",names)
ce.setOpt("USERAGENT","curl/7.81.0")
ce.setOpt("MAXREDIRS",50)
ce.setOpt("CAINFO",a5.Get_Exe_Path()+"\caroot\ca-cert.pem")
ce.setOpt("CAPATH",a5.Get_Exe_Path()+"\caroot")
ce.setOpt("PROXY_CAPATH", a5.get_exe_path() + "\caroot")
ce.setOpt("FTP_SKIP_PASV_IP",1)
ce.setOpt("TCP_KEEPALIVE",1)
ce.SetOpt("FILE",cf_1)
flag_1 = ce.Exec()
if flag_1 then

    dim headers as c
    dim contents as c
    headers = cf_1.GetHeaders()
    contents = cf_1.GetContent()

    'BE SURE TO COMMENT OUT THIS CODE IN A WEB APPLICATION AS showVar() CANNOT BE USED IN WEB APPLICATIONS
    dim msg as c
    msg = "Headers: " + crlf() + headers + crlf() + "Content: " + contents


else
    dim errors as c
    errors = ce.error()


end if

jso.setJson(contents)
    dim locid as c
    locid = jso.getProperty("location.id")
    'gets and sets the value
    e._set.location_id.value = locid

ce.close()

end function
​