840f749d7454 — Tero Koskinen 10 years ago 
Use POST instead of GET.

Also, raise exception if getting 403 code.
patch browse 
1 files changed, 8 insertions(+), 2 deletions(-)

M src/twitter.adb

M src/twitter.adb +8 -2
@@ 75,15 75,21 @@ package body Twitter is
       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),