Show
Ignore:
Timestamp:
05/12/08 12:40:56 (6 months ago)
Author:
lopnor
Message:

lang/perl/Apache2-AuthHatena?: removed harmful code for AuthType? directives.

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

Legend:

Unmodified
Added
Removed

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

    r11425 r11428  
    11Revision history for Perl extension Apache2::AuthHatena. 
     2 
     30.04  Mon May 12 12:37:18 JST 2007 
     4    - removed harmful code for AuthType directive. 
    25 
    360.03  Sun Jun 10 22:45:30 2007 
    … …  
    811 
    9120.01  Fri Jun  8 00:13:01 2007 
    10         - original version; created by h2xs 1.23 with options 
    11                 -X -A -n Apache2::AuthHatena 
     13    - original version; created by h2xs 1.23 with options 
     14        -X -A -n Apache2::AuthHatena 
    1215 

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

    r11425 r11428  
    44README 
    55t/Apache2-AuthHatena.t 
     6t/TEST.PL 
     7t/conf/extra.last.conf.in 
    68lib/Apache2/AuthHatena.pm 
    79META.yml                                 Module meta-data (added by MakeMaker) 

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

    r11425 r11428  
    11use 5.008; 
    22use ExtUtils::MakeMaker; 
     3use Apache::TestMM qw(test clean); 
    34 
     5Apache::TestMM::filter_args(); 
     6Apache::TestMM::generate_script('t/TEST'); 
    47 
    58# See lib/ExtUtils/MakeMaker.pm for details of how to influence 
    … …  
    912    VERSION_FROM      => 'lib/Apache2/AuthHatena.pm', # finds $VERSION 
    1013    PREREQ_PM         => { 
     14        Test::MOre => 0.32, 
    1115        mod_perl2 => 2.000001, 
    1216        Class::Accessor::Fast => 0, 

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

    r11425 r11428  
    2020use Hatena::API::Auth; 
    2121 
    22 our $VERSION = '0.03'; 
     22our $VERSION = '0.04'; 
    2323 
    2424my @directives = ( 
    … …  
    4444        errmsg       => 'HatenaAuthCallback http://sample.com/yourcallback', 
    4545    }, 
    46     { 
    47         name => 'AuthType', 
    48         func => __PACKAGE__ . '::AuthType', 
    49         req_override => Apache2::Const::OR_AUTHCFG, 
    50         args_how     => Apache2::Const::TAKE1, 
    51         errmsg       => 'AuthType Hatena', 
    52     }, 
    5346); 
    5447 
    55 eval { Apache2::Module::add(__PACKAGE__, \@directives); }; 
     48eval { 
     49    Apache2::Module::add(__PACKAGE__, \@directives); 
     50    Apache2::ServerUtil->server->push_handlers( 
     51        PerlAuthenHandler => \&authen_handler 
     52    ); 
     53}; 
    5654 
    5755sub HatenaAuthKey { 
    … …  
    7068    $i = Apache2::Module::get_config( __PACKAGE__, $params->server); 
    7169    $i->{'callback'} = $arg; 
    72 } 
    73  
    74 sub AuthType { 
    75     my ($i, $params, $arg) = @_; 
    76     if ($arg eq 'Hatena') { 
    77         Apache2::ServerUtil->server->push_handlers(PerlAuthenHandler => \&authen_handler); 
    78     } 
    7970} 
    8071