Changeset 336
- Timestamp:
- 02/26/08 14:55:46 (2 months ago)
- Files:
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
trunk/src/plugins/fmerges/Kwiki-OpenID/lib/Kwiki/OpenID.pm
r335 r336 54 54 my $nonce_pattern = $self->config->consumer_secret; 55 55 my $nonce = md5(sprintf($nonce_pattern, time, (stat $0)[9], -s _, $session->id)); 56 warn "NONCE : [$nonce]";57 56 $session->param('nonce', $nonce); 58 57 trunk/src/plugins/fmerges/Kwiki-OpenID/lib/Kwiki/Users/OpenID.pm
r335 r336 2 2 use strict; 3 3 4 our $VERSION = '0.0 1';4 our $VERSION = '0.02'; 5 5 6 6 use Kwiki::Users '-Base'; … … 41 41 return unless $self->is_in_cgi; 42 42 my $cookie = $self->hub->cookie->jar->{openid}; 43 $cookie && $cookie->{oi_url} or return; 43 unless($cookie && $cookie->{oi_url}) { 44 $self->name($self->hub->config->user_default_name); 45 # without authentication... 46 return; 47 } 44 48 for my $key (qw/oi_url url icon name email nickname fn/) { 45 49 $self->$key($cookie->{$key});
