From e7ea8cdaa2e33e019d6763065d39d7c1392b5802 Mon Sep 17 00:00:00 2001
From: franck cuny <franck@lumberjaph.net>
Date: Mon, 13 Sep 2010 16:14:18 +0200
Subject: simple oauth middleware

---
 lib/Net/HTTP/Spore/Middleware/Auth/OAuth.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'lib')

diff --git a/lib/Net/HTTP/Spore/Middleware/Auth/OAuth.pm b/lib/Net/HTTP/Spore/Middleware/Auth/OAuth.pm
index e30a45b..e389bed 100644
--- a/lib/Net/HTTP/Spore/Middleware/Auth/OAuth.pm
+++ b/lib/Net/HTTP/Spore/Middleware/Auth/OAuth.pm
@@ -15,6 +15,9 @@ has [qw/consumer_key consumer_secret token token_secret/] => (
 sub call {
     my ( $self, $req ) = @_;
 
+    return unless $req->env->{'spore.authentication'} == 1;
+
+    my $uri = $req->uri;
     my $request = Net::OAuth->request('protected resource')->new(
         version          => '1.0',
         consumer_key     => $self->consumer_key,
@@ -24,7 +27,7 @@ sub call {
         request_method   => $req->method,
         signature_method => 'HMAC-SHA1',
         timestamp        => time,
-        nonce            => MIME::Base64::encode( time . $$ . rand ),
+        nonce            => MIME::Base64::encode( time . $$ . rand, '' ),
         request_url      => $req->uri,
         # extra_params     => \%post_args,
     );
-- 
cgit v1.2.3