valid-user? ( user api-key -- ? )


Vocabulary
bitly

Inputs
useran object
api-keyan object


Outputs
?an object


Definition
USING: assocs bitly.private kernel urls ;

IN: bitly

: valid-user? ( user api-key -- ? )
"validate" <bitly-url> swap "x_apiKey" set-query-param
swap "x_login" set-query-param json-data "valid" of 1 = ;