Show
Ignore:
Timestamp:
11/06/07 23:33:22 (13 months ago)
Author:
lopnor
Message:

lang/perl/Filesys-Virtual-Flickr: first release

Location:
lang/perl/Apache2-AuthenOpenID/trunk
Files:
2 modified

Legend:

Unmodified
Added
Removed

  • lang/perl/Apache2-AuthenOpenID/trunk/Changes

    r485 r1196  
    11Revision history for Perl extension Apache2::AuthenOpenID. 
    22 
     30.03  Mon Oct 16 09:30:00 2007 
     4    - add identity check 
     5 
    360.02  Mon Oct 15 10:40:00 2007 
    4         - made HTML tidy 
     7    - made HTML tidy 
    58    - modify variable names 
    69    - add configuration check 
    710 
    8110.01  Sun Oct 14 09:30:07 2007 
    9         - original version; created by h2xs 1.23 with options 
    10                 -X -A Apache2::AuthenOpenID 
     12    - original version; created by h2xs 1.23 with options 
     13        -X -A Apache2::AuthenOpenID 
    1114 

  • lang/perl/Apache2-AuthenOpenID/trunk/lib/Apache2/AuthenOpenID.pm

    r485 r1196  
    1717use LWPx::ParanoidAgent; 
    1818 
    19 our $VERSION = '0.02'; 
     19our $VERSION = '0.03'; 
    2020 
    2121my @directives = ( 
    … …  
    5555    if ($arg =~ /^OpenID$/i) { 
    5656        Apache2::ServerUtil->server->push_handlers( 
    57             PerlAuthenHandler => \&handler 
     57            PerlAuthenHandler => __PACKAGE__, 
    5858        ); 
    5959    } 
    … …  
    7878} 
    7979 
    80 sub handler { 
    81     my $r = shift; 
    82  
     80sub handler : method { 
     81    my ($self, $r) = @_; 
     82warn $self; 
     83warn __PACKAGE__; 
    8384    $r->auth_type =~ m{^OpenID$}i or return Apache2::Const::DECLINED; 
    8485 
    … …  
    9192    (my $cookie_name = __PACKAGE__."-".$r->auth_name) =~ s/(::|\s+)/-/g; 
    9293    my $cookie_dest_name = $cookie_name.'-destination'; 
    93     &set_custom_response($r); 
     94    $self->set_custom_response($r); 
    9495 
    9596    $r->err_headers_out->set('Pragma' => 'no-chache'); 
    … …  
    113114    if ($request_url eq $cf->{'return_to'}) { 
    114115        if (my $identity = $q->param('identity')) { 
    115             my $claimed_identity = $csr->claimed_identity($identity); 
     116            my $claimed_identity = $csr->claimed_identity($identity) 
     117                or return Apache2::Const::HTTP_UNAUTHORIZED; 
    116118            my $check_url = $claimed_identity->check_url( 
    117119                return_to => $cf->{'return_to'}, 
    … …  
    129131            $url =~ s{(^https?://|/$)}{}g; 
    130132            my $time = time(); 
    131             my $token = &calc_token($url, $time, $cf->{'consumer_secret'}); 
     133            my $token = $self->calc_token($url, $time, $cf->{'consumer_secret'}); 
    132134            my $cookie_out = CGI::Cookie->new( 
    133135                -name => $cookie_name, 
    … …  
    153155    if (%cookie_in && $cookie_in{$cookie_name}){ 
    154156        my ($url, $time, $token) = $cookie_in{$cookie_name}->value; 
    155         if (&calc_token($url, $time, $cf->{'consumer_secret'}) eq $token) { 
     157        if ($self->calc_token($url, $time, $cf->{'consumer_secret'}) eq $token) { 
    156158            $r->user($url); 
    157159            return Apache2::Const::OK; 
    … …  
    170172 
    171173sub set_custom_response { 
     174    my $self = shift; 
    172175    my $r = shift; 
    173176    my $cf = Apache2::Module::get_config(__PACKAGE__, $r->server);