Changeset 335

Show
Ignore:
Timestamp:
02/26/08 14:36:28 (2 months ago)
Author:
fmerges
Message:
Uploaded version 0.02 of Kwiki::OpenID.

ingy++
Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/src/plugins/fmerges/Kwiki-OpenID/Changes

    r322 r335  
    11Revision history for Perl extension Kwiki::OpenID 
    22     
     30.02  Wed Feb 27 02:31:23 2008 
     4    - Small modifications. 
     5    - Using Digest::MD5 instead of Digest::SHA1. 
     6 
    370.01  Mon Feb 25 03:12:42 2008 

  • trunk/src/plugins/fmerges/Kwiki-OpenID/Makefile.PL

    r323 r335  
    1111requires        ('Kwiki::Session'  => 0.01); 
    1212requires        ('Net::OpenID::Consumer' => 0.14); 
     13requires        ('LWPx::ParanoidAgent' => 1.03); 
    1314requires        ('Text::Microformat' => 0.02); 
    14 requires        ('Digest::SHA1' => 2.11); 
    1515  
    1616build_requires  ('Test::More'); 

  • trunk/src/plugins/fmerges/Kwiki-OpenID/README

    r322 r335  
    1 Kwiki::OpenID version 0.01 
     1Kwiki::OpenID version 0.02 
    22======================================= 
    33 
    …… 
    2424  Net::OpenID::Consumer 
    2525  Text::Microformat 
    26   Digest::SHA1 
    2726 
    2827COPYRIGHT AND LICENCE 

  • trunk/src/plugins/fmerges/Kwiki-OpenID/lib/Kwiki/Edit/OpenIDRequired.pm

    r322 r335  
    22use strict; 
    33 
    4 our $VERSION = 0.01; 
     4our $VERSION = '0.01'; 
    55 
    66use Kwiki::Plugin '-Base'; 
    77use mixin 'Kwiki::Installer'; 
    88 
    9 const class_id => 'EditOpenIDRequired'; 
     9const class_id    => 'EditOpenIDRequired'; 
    1010const class_title => 'Require OpenID to edit'; 
    1111 
    …… 
    2323        my $page_uri = $page->uri; 
    2424        $hook->cancel; 
    25         return $self->redirect("action=edit_noOpenID&page=$page_uri"); 
     25        return $self->redirect("action=edit_noOpenID&page_name=$page_uri"); 
    2626    } 
    2727} 
    …… 
    4848<p> 
    4949This web site does not allow anonymous editing. 
    50 Please <a href="[% script_name _ "?action=login_openid;page=" _ hub.cgi.page %]">login via OpenID</a> first. 
     50Please <a href="[% script_name _ "?action=login_openid;page_name=" _ hub.cgi.page %]">login via OpenID</a> first. 
    5151</p> 
    5252<p> 

  • trunk/src/plugins/fmerges/Kwiki-OpenID/lib/Kwiki/OpenID.pm

    r322 r335  
    88use Net::OpenID::Consumer; 
    99use LWPx::ParanoidAgent; 
    10 use Digest::SHA1 qw(sha1); 
     10use Digest::MD5 qw(md5); 
    1111use Text::Microformat; 
    1212use CGI; 
    1313 
    14 our $VERSION = 0.01; 
     14our $VERSION = '0.02'; 
    1515 
    1616const class_id    => 'user_name'; 
    …… 
    4848 
    4949sub login_openid { 
    50     my $oi_referer = $self->cgi->page; 
    51     my $ci         = $self->cgi->oi_url; 
    52     if ($ci) { 
     50    if (my $ci = $self->cgi->oi_url) { 
    5351        my $session = $self->hub->session->load; 
    54         $session->param('oi_referer', $oi_referer); # Safe for later 
     52        $session->param('oi_referer', $self->cgi->page); # Safe for later 
    5553 
    5654        my $nonce_pattern = $self->config->consumer_secret; 
    57         my $nonce = sha1(sprintf($nonce_pattern, time, (stat $0)[9], -s _, $session->id)); 
     55        my $nonce = md5(sprintf($nonce_pattern, time, (stat $0)[9], -s _, $session->id)); 
     56        warn "NONCE : [$nonce]"; 
    5857        $session->param('nonce', $nonce); 
    5958 
    …… 
    7170 
    7271        unless (defined $claimed_identity) { 
    73             warn "Can't determine claimed identity for: [$ci]"; 
    74             return $self->redirect('action=login_openid;oi_error=Wrong identity'); 
     72            return $self->redirect('action=login_openid&oi_error=Wrong identity'); 
    7573        } 
    7674        my $check_url = $claimed_identity->check_url( 
    …… 
    7977        $self->redirect($check_url);    # Now we send the user to authenticate 
    8078    } 
    81     $self->render_screen( 
    82         content_pane => 'login_openid.html', page => $oi_referer); 
     79    $self->render_screen(content_pane => 'login_openid.html'); 
    8380} 
    8481 
    …… 
    104101    } 
    105102    elsif ($csr->user_cancel) { 
    106         $self->redirect('action=login_openid;oi_error=User cancel'); 
     103        $self->redirect('action=login_openid&oi_error=User cancel'); 
    107104    } 
    108105    elsif (my $vident = $csr->verified_identity) { 
    …… 
    112109    }  
    113110    else { 
    114         $self->redirect('action=login_openid;oi_error=Service temporarily unavailable'); 
     111        $self->redirect('action=login_openid&oi_error=Service temporarily unavailable'); 
    115112    } 
    116113} 
    …… 
    152149use Kwiki::CGI '-Base'; 
    153150 
     151cgi 'oi_error'; 
    154152cgi 'oi_url'; 
    155153cgi 'page'; 
    …… 
    194192__template/tt2/login_openid.html__ 
    195193<!-- BEGIN login_openid.html --> 
    196 [% IF hub.cgi.oi_error %] 
    197 <div class="error">Error: [% hub.cgi.oi_error %]</div> 
     194[% IF self.cgi.oi_error %] 
     195<div class="error"><p>Error: [% self.cgi.oi_error %]</p></div> 
    198196[% END %] 
    199197<form action="[% script_name %]" method="get"> 
    200 <input type="hidden" name="page" value="[% page %]"> 
     198<input type="hidden" name="page" value="[% self.cgi.page %]"> 
    201199<input type="hidden" name="action" value="login_openid"> 
    202200<b>Your OpenID URL:</b> <input type="text" class="openid_input" name="oi_url" size="30"> 

  • trunk/src/plugins/fmerges/Kwiki-OpenID/lib/Kwiki/Users/OpenID.pm

    r322 r335  
    22use strict; 
    33 
    4 our $VERSION = 0.01; 
     4our $VERSION = '0.01'; 
    55 
    66use Kwiki::Users '-Base';