Descrição
Classe para consumir serviços do Fluig através do oAuth 1.0. Herda da classe FWoAuthClient
Sintaxe FWOAUTH1FLUIG():NEW( <cConsumerKey> , <cConsumerSecret> , <cHost> , <cCallback> )->self Descrição Método construtor da classe Parâmetros
|
Sintaxe FWOAUTH1FLUIG():GetUsers( )->cRet Descrição Retorna lista de usuários do ambiente fluig (limitado a 250 registros). Mount Point: /public/social/user Retorno cRet (caracteres)
|
Sintaxe FWOAUTH1FLUIG():CommentPost( )->cRet Descrição Efetuta um comentário em um post Mount Point: /public/sociable/comment Parâmetros
Retorno cRet (caracteres)
|
Sintaxe FWOAUTH1FLUIG():GetComments( cPostID )->cRet Descrição Retorna os comentários de um post Mount Point: /public/sociable/comments/{sociableId} Parâmetros
Retorno cRet (caracteres)
|
Sintaxe FWOAUTH1FLUIG():GetListSortedPost( cAliasCommunity, cLastPostID, nLimit, cOrderingType )->cRet Descrição Retorna os posts de uma comunidade Mount Point: /public/social/post/listSortedPost/{alias} Parâmetros
Retorno cRet (caracteres)
|
User Function tstFluig()
Local cRet
Local oClientFluig
//-----------------------------------------------------------------------------------------------------------------------
//Monta o client.
//Os tokens utilizados neste exemplo são fictícios. Para gerar tokens válidos utilize o procedimento documentado em
//http://tdn.totvs.com/display/public/fluig/Fluig+API#FluigAPI-Cadastraraplicativonofluig
//-----------------------------------------------------------------------------------------------------------------------
oClientFluig := FWoAuth1Fluig():New("ck_post_token",;
"cs_post_token",;
"http://fluig.totvs.com",;
"")
//-------------------------------------------------------
//Define o Token e o SecretToken.
//-------------------------------------------------------
oClientFluig:SetToken("b8asds9-2d23-4342-8sdf63-1ee0d34dfa1")
oClientFluig:SetSecretToken("c345fsdff-4545-4453452-bfsdfsf-sdedf8f7-3435-434-b125-545345sdf1")
//----------------------------
//Consome um serviço do Fluig
//----------------------------
cRet := oClientFluig:GetUsers()
varinfo("cRet", cRet)
Return |