간단한 Net :: OpenID :: Consumer :: Lite CGI 스크립트의 실제 예제가 있습니까?

Question

CPAN에서 Net::OpenID::Consumer::Lite의 예를 보았지만 POST 메서드를 사용하는 단일 스크립트를 얻길 바랬습니다. 아무도 내가이 솔루션을 다시 게시하지 않으면이 솔루션을 게시 할 것입니다.

Answer 1

이 매니페스트에서 유일하게 적용 시험 것으로 보인다 그것은 LWP::UserAgent 단순히 http://cpansearch.perl.org/src/TOKUHIROM/Net-OpenID-Consumer-Lite-0.02/xt/001_mixi.tApache2::AuthMixi also uses it a bit

이 모듈 대표단을 너무 유용하지 않는 것 같습니다. 나는 그것을 좋아하지 않는다. 위임 대신에 LWP :: UserAgent를 서브 클래 싱해야한다. 당신은

my $csr = Net::OpenID::Consumer::Lite->new(); 
$csr->_ua->post(); # same as LWP::UserAgent::post() 

CPAN에 LWP::UserAgent의 문서를 발견하고 숨겨진 방법 _ua을 통해 기본 사본에 액세스 (이 지원되지 않습니다하지만, 관례, 앞의 밑줄을 알려줍니다 비밀 유지하도록되어) 수

handle_server_response() 만 사용하면 _check_authentication()을 호출하는 것으로 보이며 을 호출하여 ->_ua->get()에 위임 한 것처럼 보입니다.

반드시 check_authentication()는 not_openid, setup_required, cancelled, verified 및 error 5 이벤트와 함께 HashRef 점프 테이블을 원한다. 또한 나는 많은 키 (openid.) 접두사와 값을 원한다고 생각한다. 요청이 존재해야 $request$request->{'openid.mode'} 발송하고 (바람직하게는) 설정을 위해 코드 당

, check_authentication 아닌는 '취소'로 설정. openid.user_setup_url 키를 논리적으로 설정하지 않거나 각각의 콜백을 호출합니다. 또한 요청의 목적지 인 op_endpoint.endpoint 키 세트가 있어야합니다.

이 코드는 읽기가 어렵지 않습니다. I'd suggesting taking a lookauthor also seems to have a bunch of modules 좋은 표지입니다. 나는 그런 식의 점프 테이블을 좋아하지 않는다. 그것은 UI 관점에서 이상하게 보인다.