Show
Ignore:
Timestamp:
07/15/08 19:05:28 (4 months ago)
Author:
fujiwara
Message:

return_to 以外のアクセスでは CGI->new() しない. POSTデータが無くなるので

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • lang/perl/Apache2-AuthenOpenID/branches/per_dir_config/lib/Apache2/AuthenOpenID.pm

    r15796 r15854  
    9999        . $r->uri; 
    100100 
    101     my $q = CGI->new($r); 
    102101    my %cookie_in = CGI::Cookie->parse($r->headers_in->{Cookie}); 
    103102 
    104     my $csr = Net::OpenID::Consumer->new( 
    105         args => $q, 
    106         ua => LWPx::ParanoidAgent->new, 
    107         consumer_secret => $cf->{'consumer_secret'}, 
    108     ); 
    109103    if ($request_url eq $cf->{'return_to'}) { 
     104        my $q = CGI->new($r); 
     105        my $csr = Net::OpenID::Consumer->new( 
     106            args            => $q, 
     107            ua              => LWPx::ParanoidAgent->new, 
     108            consumer_secret => $cf->{'consumer_secret'}, 
     109        ); 
     110 
    110111        $r->log->debug("$request_url is return_to"); 
    111112        if (my $identity = $q->param('identity')) {