Changeset 2966

Timestamp:

12/10/07 13:21:08 (5 years ago)

Author:

lopnor

Message:

lang/perl/Net-OAuth-Consumer: fix access_token request errors

Files:

• lang/perl/Net-OAuth-Consumer/lib/Net/OAuth/Consumer.pm (modified) (3 diffs)

lang/perl/Net-OAuth-Consumer/lib/Net/OAuth/Consumer.pm

@@ -24 +24 @@
 
 __PACKAGE__->mk_accessors(qw(
+    query
     ua
+    nonce
     consumer_key
     consumer_secret
     request_token_url
     access_token_url
+    authorization_url
     request_token
     access_token
@@ -38 +41 @@
     unless ($self->ua) {
         $self->ua(LWP::UserAgent->new(
-            agent => "Net-OAuth-Client/$VERSION",
+            agent => "Perl-Net-OAuth-Consumer/$VERSION",
         ));
     }
     unless ($self->nonce) {
-        $self->nonce(\&nonce);
+        $self->nonce(\&_nonce);
     }
     return $self;
 }
 
-sub nonce {
+sub _nonce {
     return String::Random->new->randregex("[a-zA-Z0-9]{32}");
 }
@@ -71 +74 @@
     );
     return $self->request_token;
+}
+
+sub authorize {
+    my ($self, $args) = @_;
+    my $token = $args->{oauth_token} || $self->request_token->oauth_token;
+    print $self->query->redirect($self->authorization_url.'?oauth_token='.$token);
 }