# HG changeset patch # User Tero Koskinen # Date 1404748639 -10800 # Mon Jul 07 18:57:19 2014 +0300 # Node ID 840f749d7454db6db71d553fa4e24eda589b370d # Parent a622e3d1300c2a934dade228dd57817c49a83f8a Use POST instead of GET. Also, raise exception if getting 403 code. diff --git a/src/twitter.adb b/src/twitter.adb --- a/src/twitter.adb +++ b/src/twitter.adb @@ -75,15 +75,21 @@ OAuth.Tokens.Access_Token_Header (Context => Manager.C, URL => Access_Token_URL (Microblog), - Method => "GET", + Method => "POST", Parameters => Extra_Params, Header => OAuth_Header); - HTTP.Get_Page + HTTP.Post_Page (URL => Access_Token_URL (Microblog), Header_Key => "Authorization", Header_Value => To_String (OAuth_Header), + Fields => "oauth_verifier=" & PIN, Contents => Result, Response_Code => R_Code); + + if R_Code = 401 or R_Code = 403 then + raise Authorization_Error; + end if; + Put_Line ("Access_Token: " & Charbuf.To_String (Result)); OAuth.Tokens.Parse_Access_Token (Input => Charbuf.To_String (Result),