use utf8;
use strict;
use lib './lib';
use Net::OpenID::Consumer;
use LWP::UserAgent;
use Cache::File;
use CGI;
use CGI::Carp qw/fatalsToBrowser/;
{
print "Content-Type:text/html\n\n";
print "";
my $q = CGI->new();
my $csr = Net::OpenID::Consumer->new(
ua => LWP::UserAgent->new,
cache => Cache::File->new(
cache_root => '/virtual/pmint/public_html/openid.pmint.name/tmp',
default_expires => '600 sec'
),
consumer_secret => 'x',
args => CGI->new(),
required_root => 'http://openid.pmint.name/',
debug => 1,
);
if (my $cident = $csr->claimed_identity($q->param('openid.identifier'))) {
my $check_url = $cident->check_url(
return_to => "http://openid.pmint.name/suggest.html",
trust_root => "http://openid.pmint.name/",
delayed_return => 0
);
if ($check_url =~ m{^([^?]+)\??}){
my $server = $1;
my $identifier = $q->param('openid.identifier');
print <<__OUT__;
<html>
<head>
<link rel="openid.server" href="$server" />
<link rel="openid.delegate" href="$identifier" />
</head>
</html>
__OUT__
}
else {
print qq{＊おおっと＊};
}
}
else {
print 'invalid OpenID.';
}
}
print "";
__END__