Changeset 11424

Show
Ignore:
Timestamp:
05/12/08 12:06:38 (5 years ago)
Author:
lopnor
Message:

lang/perl/Apache2-AuthenOpenID: removed harmful code for AuthType? directive

Location:
lang/perl/Apache2-AuthenOpenID/trunk
Files:
3 added
4 modified

Legend:

Unmodified
Added
Removed

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

    r7366 r11424  
    11Revision history for Perl extension Apache2::AuthenOpenID. 
    22 
     30.06  Mon May 12 11:15:00 JST 2008 
     4    - removed harmful code for AuthType directive. 
     5 
    360.05  Sun Mar 02 12:45:00 JST 2008 
    4         - added missing use lines 
     7    - added missing use lines 
    58 
    690.04  Sat Nov 10 12:21:00 JST 2007 

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

    r476 r11424  
    11Changes 
     2lib/Apache2/AuthenOpenID.pm 
    23Makefile.PL 
    34MANIFEST 
    45README 
    56t/Apache2-AuthenOpenID.t 
    6 lib/Apache2/AuthenOpenID.pm 
     7t/conf/extra.last.conf.in 
     8t/TEST.PL 

  • lang/perl/Apache2-AuthenOpenID/trunk/Makefile.PL

    r1263 r11424  
    1 use 5.008; 
     1use strict; 
    22use ExtUtils::MakeMaker; 
    3 # See lib/ExtUtils/MakeMaker.pm for details of how to influence 
    4 # the contents of the Makefile that is written. 
     3use Apache::TestMM qw(test clean); 
     4 
     5Apache::TestMM::filter_args(); 
     6Apache::TestMM::generate_script('t/TEST'); 
     7 
    58WriteMakefile( 
    69    NAME              => 'Apache2::AuthenOpenID', 
    710    VERSION_FROM      => 'lib/Apache2/AuthenOpenID.pm', # finds $VERSION 
    811    PREREQ_PM         => { 
    9         mod_perl2 => 2.000001, 
    10         CGI => 0, 
    11         Net::OpenID::Consumer => 0.14, 
    12         Digest::HMAC_SHA1 => 1.01, 
    13         LWPx::ParanoidAgent => 1.03, 
    14         Class::Data::Inheritable => 0, 
     12        'Text::More' => 0.32, 
     13        'mod_perl2' => 2.000001, 
     14        'Apache::Test' => 0, 
     15        'CGI' => 0, 
     16        'Net::OpenID::Consumer' => 0.14, 
     17        'Digest::HMAC_SHA1' => 1.01, 
     18        'LWPx::ParanoidAgent' => 1.03, 
     19        'Class::Data::Inheritable' => 0, 
    1520    }, # e.g., Module::Name => 1.1 
    1621    ($] >= 5.005 ?     ## Add these new keywords supported since 5.005 

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

    r7368 r11424  
    2020use base qw( Class::Data::Inheritable ); 
    2121 
    22 our $VERSION = '0.05'; 
     22our $VERSION = '0.06'; 
    2323 
    2424__PACKAGE__->mk_classdata( auth_type => 'openid' ); 
    … …  
    3030 
    3131    my @directives = ( 
    32         { 
    33             name            => 'AuthType', 
    34             req_override    => Apache2::Const::OR_AUTHCFG, 
    35             args_how        => Apache2::Const::TAKE1, 
    36         }, 
    3732        { 
    3833            name            => 'return_to', 
    … …  
    5752    eval {  
    5853        Apache2::Module::add($self, \@directives);  
     54        Apache2::ServerUtil->server->push_handlers( 
     55            PerlAuthenHandler => $self, 
     56        ); 
    5957    }; 
    60 } 
    61  
    62 sub AuthType { 
    63     my ($self, $params, $arg) = @_; 
    64     my $class = ref $self; 
    65     if (lc $arg eq lc $self->auth_type) { 
    66         Apache2::ServerUtil->server->push_handlers( 
    67             PerlAuthenHandler => $class, 
    68         ); 
    69     } 
    7058} 
    7159