ãOpenIDã®æ¥çå£ä½ã4æã«æ¥æ¬æ¯é¨è¨ç«ã¸ - ITmedia ã¨ã³ã¿ã¼ãã©ã¤ãºãã¨ãã§ä½ãã¨OpenIDã話é¡ã«ãªã£ã¦ããã®ã§ãä»æ´ãªããOpenID Consumerã®ãµã³ãã«ã³ã¼ããæ¸ãã¦ã¿ã(ãããããã«ä»æ´ãªãã OpenID 1.1 対å¿)ã Perlã«ã¯ Net::OpenID::Consumer ã¨ãã©ã¤ãã©ãªãããã®ã§ãæ¬æ¥ã¯ããã使ãã°ãããã ãããã©ãOpenIDã®åä½åçã確èªãããã£ãã®ã§ãå®å ¨ã«æä½ãã #!/usr/bin/perl -T use strict; use CGI; use CGI::Carp qw(fatalsToBrowser); use LWP::UserAgent; use HTTP::Request::Common qw(GET POST); use vars qw($UA); sub get_idp { my ($openid_u
{{#tags}}- {{label}}
{{/tags}}