CodeZine：OpenIDを使ã£ã¦ã¿ã‚ˆã†ï¼ˆopenid, èªè¨¼æ–¹æ³•, Perl）ã¯ã˜ã‚ã«ã€€OpenIDã¯æœ€è¿‘éžå¸¸ã«æ³¨ç›®ãŒé«˜ã¾ã£ã¦ã„ã‚‹èªè¨¼æŠ€è¡“ã®ä¸€ã¤ã§ã™ã€‚ã“ã“ã§ã¯ã€OpenIDを利用ã—ãŸPerlã®ã‚µãƒ³ãƒ—ルを通ã˜ã¦OpenIDã®ãƒ¡ã‚«ãƒ‹ã‚ºãƒ ã«è§¦ã‚Œã¦ã„ããŸã„ã¨æ€ã„ã¾ã™ã€‚å¿…è¦ãªç’°å¢ƒã€€Perl 5.8以上ãŒå‹•ä½œã™ã‚‹ç’°å¢ƒãŒè‰¯ã„ã¨æ€ã„ã¾ã™ã€‚基本動作ã®ç¢ºèªã¯Mac OS Xを利用ã—ã¾ã—ãŸã‚µãƒ³ãƒ—ルã®ç´¹ä»‹ã€€æ—©é€Ÿã‚µãƒ³ãƒ—ルコードã®ã€Œopenid-test.cgiã€ã‚’見るã“ã¨ã«ã—ã¾ã—ょã†ã€‚ã“ã®ã‚µãƒ³ãƒ—ルã¯OpenIDを利用ã—ãŸç°¡æ˜“ãƒã‚°ã‚¤ãƒ³ãƒšãƒ¼ã‚¸ã§ã™ã€‚ #!/usr/bin/perl use strict; use warnings; use CGI; use Net::OpenID::Consumer; #use LWPx::ParanoidAgent; use LWP::UserAgent; my $query = CGI->new; $query->charset('utf-8
TCP/113 AUTH/IDENT ã«é–¢ã—ã¦
{{#tags}}- {{label}}
{{/tags}}