Show
Ignore:
Timestamp:
07/18/08 11:53:50 (4 months ago)
Author:
lopnor
Message:

lang/perl/Apache2-AuthenOpenID: switch to Module::Install

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

Legend:

Unmodified
Added
Removed

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

    r11424 r15979  
    11Revision history for Perl extension Apache2::AuthenOpenID. 
     2 
     30.07  Tue Jul 16 00:36:00 JST 2008 
     4    - merged patch from fujiwara, now get config with per_dir_config 
     5    - now you can logout accessing return_to url with query string 'logout'. 
    26 
    370.06  Mon May 12 11:15:00 JST 2008 

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

    r11424 r15979  
    11Changes 
     2inc/Module/Install.pm 
     3inc/Module/Install/Base.pm 
     4inc/Module/Install/Can.pm 
     5inc/Module/Install/Fetch.pm 
     6inc/Module/Install/Include.pm 
     7inc/Module/Install/Makefile.pm 
     8inc/Module/Install/Metadata.pm 
     9inc/Module/Install/Win32.pm 
     10inc/Module/Install/WriteAll.pm 
     11inc/Test/More.pm 
    212lib/Apache2/AuthenOpenID.pm 
    313Makefile.PL 
    414MANIFEST 
     15META.yml 
    516README 
    617t/Apache2-AuthenOpenID.t 

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

    r11426 r15979  
    11use strict; 
    2 use ExtUtils::MakeMaker; 
    3 use Apache::TestMM qw(test clean); 
     2use inc::Module::Install; 
     3 
     4BEGIN { 
     5    eval { 
     6        require ModPerl::MM; 
     7        require Apache::TestMM; 
     8    }; 
     9    if ( $@ ) { 
     10        exit 0; 
     11    } 
     12    Apache::TestMM->import( qw(test clean) ); 
     13} 
     14 
     15 
     16name 'Apache2-AuthenOpenID'; 
     17all_from 'lib/Apache2/AuthenOpenID.pm'; 
     18requires  'CGI' => 0; 
     19requires  'Net::OpenID::Consumer' => 0.14; 
     20requires  'Digest::HMAC_SHA1' => 1.01; 
     21requires  'LWPx::ParanoidAgent' => 1.03; 
     22requires  'Class::Data::Inheritable' => 0; 
    423 
    524Apache::TestMM::filter_args(); 
    625Apache::TestMM::generate_script('t/TEST'); 
     26tests('t/*.t'); 
    727 
    8 WriteMakefile( 
    9     NAME              => 'Apache2::AuthenOpenID', 
    10     VERSION_FROM      => 'lib/Apache2/AuthenOpenID.pm', # finds $VERSION 
    11     PREREQ_PM         => { 
    12         'Test::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, 
    20     }, # e.g., Module::Name => 1.1 
    21     ($] >= 5.005 ?     ## Add these new keywords supported since 5.005 
    22       (ABSTRACT_FROM  => 'lib/Apache2/AuthenOpenID.pm', # retrieve abstract from module 
    23        AUTHOR         => 'Nobuo Danjou <nobuo.danjou@gmail.com>') : ()), 
    24 ); 
     28build_requires 'Test::More'; 
     29 
     30auto_include; 
     31WriteAll; 

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

    r485 r15979  
    2222    Nobuo Danjou, nobuo.danjou@gmail.com 
    2323 
    24 COPYRIGHT AND LICENSE 
    25     Copyright (C) 2007 by Nobuo Danjou 
    26  
    27     This library is free software; you can redistribute it and/or modify it 
    28     under the same terms as Perl itself, either Perl version 5.8.8 or, at 
    29     your option, any later version of Perl 5 you may have available. 
    30  

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

    r15866 r15979  
    2020use base qw( Class::Data::Inheritable ); 
    2121 
    22 our $VERSION = '0.06'; 
     22our $VERSION = '0.07'; 
    2323 
    2424__PACKAGE__->mk_classdata( auth_type => 'openid' ); 
    … …  
    110110 
    111111        $r->log->debug("$request_url is return_to"); 
    112         if (my $identity = $q->param('identity')) { 
     112        if ($r->args eq 'logout') { 
     113            $r->log->debug("remove cookies to logout."); 
     114            my $cookie_out = CGI::Cookie->new( 
     115                -name => $cookie_name, 
     116                -value => 'erase', 
     117                -expires => '-1d', 
     118            ); 
     119            $r->err_headers_out->add('Set-Cookie' => $cookie_out); 
     120            $r->headers_out->set('Location' => $cf->{'trust_root'}); 
     121            return Apache2::Const::REDIRECT; 
     122        } elsif (my $identity = $q->param('identity')) { 
    113123            my $claimed_identity = $csr->claimed_identity($identity) 
    114124                or return Apache2::Const::HTTP_UNAUTHORIZED; 
    … …  
    264274Nobuo Danjou, L<nobuo.danjou@gmail.com> 
    265275 
    266 =head1 COPYRIGHT AND LICENSE 
    267  
    268 Copyright (C) 2007 by Nobuo Danjou 
    269  
    270 This library is free software; you can redistribute it and/or modify 
    271 it under the same terms as Perl itself, either Perl version 5.8.8 or, 
    272 at your option, any later version of Perl 5 you may have available. 
    273  
    274  
    275276=cut