是否有簡單的Net :: OpenID :: Consumer :: Lite CGI腳本的工作示例？

Question

我在CPAN上看到了Net::OpenID::Consumer::Lite的例子，但是我希望得到一個使用POST方法的腳本。如果沒有人有這個比我會解決我的解決方案後，一旦我得到它的工作。

Answer 1

這似乎是在清單中僅適用於測試，它似乎並沒有太大的用處 http://cpansearch.perl.org/src/TOKUHIROM/Net-OpenID-Consumer-Lite-0.02/xt/001_mixi.tApache2::AuthMixi also uses it a bit

這個模塊只是委託給LWP::UserAgent。我不喜歡它，它應該繼承LWP :: UserAgent而不是委託。你可以找到的文檔爲LWP::UserAgent CPAN上，並通過隱藏的方法_ua訪問基本副本（不過，按照慣例，前面的下劃線告訴你，不支持它，它應該是保密的）

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

看起來好像你應該只使用handle_server_response()，其中調用_check_authentication()，其調用_get()，其代表->_ua->get()。

check_authentication（）想要的HashRef跳轉表與not_openid，setup_required，cancelled，verified和error 5個事件。另外我相信它需要一堆關鍵字（openid.）前綴的東西和值。

根據代碼，對於要發送的請求$request->{'openid.mode'}必須存在於$request中並且被設置（優選爲）check_authentication，並且未設置爲「取消」。 openid.user_setup_url鍵必須在邏輯上不被設置，否則它只會調用相應的回調。它還必須有一個op_endpoint.endpoint密鑰集，這是請求註定去的地方。

這段代碼不難看，I'd suggesting taking a look這個author also seems to have a bunch of modules這是個好兆頭。我不喜歡這樣的數據跳轉表，從UI的角度來看似乎很奇怪。