function Xbasic module

[bob9145]

Re: function Xbasic module

Thanks guys I'll keep trying. Keep you posted

[bob9145]

Re: function Xbasic module

The curl code genie works fine in the xbasics module I just need to turn it into a function and figure out how
to call and digest the API response in a UX. The show var works fine just change the plan name and ID and you’ll see the response, or leave it the same and you’ll see the error. use my posted code. Working in the Xbasic module and running the request from there. Stripes create plan code is above as well use my test account you can’t hurt anything.

[bob9145]

Re: function Xbasic module

Baby Steps
Lol

[bob9145]

Re: function Xbasic module

Sign me up Alex!

[Davidk]

Re: function Xbasic module

Trying to turn this code created by the curl genie into a function that can be called from the browser like this video explains https://www.youtube.com/watch?v=BOUrEhYfZBk&t=186s
not sure how you would code?
Function plan as c ()
Plan = ?
end Function

exports.create_plan = plan

Alpha cURL to XBasic Genie is extremely sensitive to extra spaces and other stuff. Make sure your cURL command is all on one line and is clean. This cURL command goes through the genie cleanly...

curl https://api.stripe.com/v1/plans -u sk_test_4444: -d currency=usd -d interval=month -d product=prod_4444 -d nickname="Pro Plan" -d amount=3000

Then comment out the showvar lines... and add this line into the ending if section...

flag_1 = ce.Exec()
if flag_1 then

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

	'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
	'showvar( msg)


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

	'BE SURE TO COMMENT OUT THIS CODE IN A WEB APPLICATION AS showVar() CANNOT BE USED IN WEB APPLICATIONS
	'showvar("error: " + errors)
	
end if

Your XBasic Module function name is Plan... so you're assigning whatever Plan details (or error) Stripe returns to the function name Plan.

Your Ajax Callback function to call the Module function would be...

function xbm_stripeCreatePlan as c (e as p)
	
	debug(1)
	
	dim xb1 as p
	xb1 = require("stripeFunctions")
	
	dim stripePlan as c
	stripePlan = xb1.create_plan()
	
end function

You didn't mention what your XBasic Function Module was named. In this case my Module name is "stripeFunctions".

Then you make your callback from, for example, a button...

{dialog.Object}.ajaxCallback('','','xbm_stripeCreatePlan','');

[bob9145]

Re: function Xbasic module

Cool! will try it tonight.

[bob9145]

Re: function Xbasic module

I'll say the curl genie is touchy, had to put the text on one line the carriage return in my text editor was causing it to create redundant flags. Also the / in Stripe's example code does similar things at least that' s the way it seems.

[Davidk]

Re: function Xbasic module

Right... that's what I was saying... the cURL command needs to be all on one line and free of any extraneous characters. Many companies who supply cURL (bless their hearts) shove carriage returns, line connectors etc. into their commands. Everything needs to be stripped out or the XBasic cURL genies loses its mind. A Stripe cURL I had cleaned still created 4x the XBasic commands... and it was just some spaces as far as I could see - probably non-printable something.

[bob9145]

Re: function Xbasic module

Ok this is some combination of the above suggestions and the hello example. I simplified the then / else to test the response of the script. Either "True", or "False". The problem I'm having is that even though I submit a duplicate plan to produce a intentional error the script returns "True" . If flag_1 then is executed whether their is an error or not.

function stripecreateplan as c ()
dim cf_1 as extension::CurlFile
dim flag_1 as l
dim ce as extension::Curl

ce = extension::Curl.Init()
ce.setOpt("URL","https://api.stripe.com/v1/plans")
ce.setOpt("NOPROGRESS",1)
ce.setOpt("USERPWD","sk_test_sometestnumber:")
dim posted_fields as c = ("amount=40000&interval=month&product[name]=seven&currency=usd&id=seven")
ce.setOpt("POSTFIELDS",posted_fields)
ce.setOpt("POSTFIELDSIZE_LARGE", len(posted_fields) )
ce.setOpt("USERAGENT","curl/7.34.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("SSH_KNOWNHOSTS","C:\Users\Robert Senski\AppData\Roaming/_ssh/known_hosts")
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
'dim msg as c
'headers = cf_1.GetHeaders()
'contents = cf_1.GetContent()
'msg = "Headers: " + crlf() + headers + crlf() + "Content: " + contents
stripecreateplan = "True"
else
'dim errors as c
'errors = ce.error()
stripecreateplan = "False"

end if
ce.close()
end Function
exports.createplan = stripecreateplan

Calling Function

function f1 as c (e as p)
debug (1)
dim xb1 as p
xb1 = require("module1")

f1 = "alert ('"+xb1.createplan() +" ');"
end function

Don't understand how the logical test is suppose to work at

flag_1 = ce.Exec()
if flag_1 then

[Davidk]

Re: function Xbasic module

There are 2 levels of errors we're dealing with here. flag_1 = ce.Exec() checks to see if ce.Exec() itself ran without error... not if the Stripe command it is executing was successful or not. Here's how to test...

Change https://api.stripe.com/v1/plans to https://api.stripeyyyyyyy.com/v1/plans. This will return false to flag_1. ce.Exec() as a call will now fail.

The Stripe plan error you're looking for is in the true section of the flag_1 test... within the Contents variable. That's where you'll get the Stripe message that something is wrong. ce.Exec() is a successful call... but the Stripe API command executed isn't successful.

[bob9145]

Re: function Xbasic module

Gotcha Thanks!

[bob9145]

Re: function Xbasic module

Parsing a successful response using
dim response as p
response = json_parse(contents)
reponse.product
response.ect....
That works well but it doesn't include response.error, or response.type. However the error message is in the contents variable.

{ "error": { "type": "invalid_request_error", "message": "Plan already exists." } }

How can I parse out type, and message? Seems the script generated by the curl genie, doesn't address an error returned by stripe. only as Dave points out a uncompleted curl.

[Davidk]

Re: function Xbasic module

You've got either a good response or an error response. You know the contents of both. Just check for an error first...

	if variable_exists("response.error") then
		'we know we have an error
		dim errType as c = response.error.type
		dim errMsg as c = response.error.message
	else
		'all good		
	end if

[bob9145]

Re: function Xbasic module

I was trying that, must of had a typo. Trying to return the response pass, fail, or unsuccessful back to controls in the ux . Almost there! "All Good" ? not yet someday maybe lol

[bob9145]

Re: function Xbasic module

Getting some strange behavior from variable_exists() it is doing it's job but is throwing an error. Check out the attached jing. It works if the variable exists and is true, but it throws an error when it is false.variable_exists.swf