[Bps-public-commit] jifty-plugin-authentication-twitter branch, master, updated. 5c90d1e569ee649a699fc45564eda4b7e6092dd4

[Shawn Moore]

The branch, master has been updated
       via  5c90d1e569ee649a699fc45564eda4b7e6092dd4 (commit)
      from  9ea31f103f68dee623c25fe65b05f06324491d9e (commit)

Summary of changes:
 .../Plugin/Authentication/Twitter/Dispatcher.pm    |   13 +++++++++++++
 1 files changed, 13 insertions(+), 0 deletions(-)

- Log -----------------------------------------------------------------
commit 5c90d1e569ee649a699fc45564eda4b7e6092dd4
Author: Shawn M Moore <sartak at gmail.com>
Date:   Fri Jun 4 09:12:40 2010 -0400

    Post the request token request to twitter

diff --git a/lib/Jifty/Plugin/Authentication/Twitter/Dispatcher.pm b/lib/Jifty/Plugin/Authentication/Twitter/Dispatcher.pm
index 2e348cb..b4d4d0a 100644
--- a/lib/Jifty/Plugin/Authentication/Twitter/Dispatcher.pm
+++ b/lib/Jifty/Plugin/Authentication/Twitter/Dispatcher.pm
@@ -4,6 +4,7 @@ use warnings;
 package Jifty::Plugin::Authentication::Twitter::Dispatcher;
 use Jifty::Dispatcher -base;
 use Net::OAuth;
+use HTTP::Request::Common ();
 
 =head1 NAME
 
@@ -43,6 +44,18 @@ on '/twitter/login' => run {
         timestamp        => time,
         nonce            => $$ * rand,
     );
+    $request_token_request->sign;
+
+    my $ua = LWP::UserAgent->new;
+
+    my $res = $ua->request(HTTP::Request::Common::POST $request_token_request->to_url);
+    if (!$res->is_success) {
+        die "Something went wrong";
+    }
+
+    my $response = Net::OAuth->response('request token')->from_post_body($res->content);
+    # $response->token;
+    # $response->token_secret;
 };
 
 1;

-----------------------------------------------------------------------