#!/usr/bin/perl
use strict;
use warnings;
# Imports
use LWPx::ParanoidAgent;
use Net::OpenID::Consumer;
use CGI;
#------------------------------------------------------------------------------
# Init
my $cgi = new CGI;
my ($check_url);
my $openIdMode = $cgi->param('openid.mode');
my $csr = Net::OpenID::Consumer->new(
ua => LWPx::ParanoidAgent->new(timeout => 5),
args => $cgi,
required_root => "http://www.imx.net/",
consumer_secret => 'xYZabC0123',
debug => 1
);
my $verifiedId = undef;
# Get id server info from canonicalized URL
my $claimed_identity = $csr->claimed_identity("https://www.google.com/accounts/o8/id");
if ($claimed_identity) {
$check_url = $claimed_identity->check_url(
return_to => "http://www.imx.net/test_openid_response.pl",
trust_root => "http://www.imx.net/",
);
my $sregNs = "openid.ns.sreg=http://openid.net/extensions/sreg/1.1";
my $sregParams = "openid.sreg.optional=nickname,fullname,dob,country";
print $cgi->redirect("$check_url&$sregNs&$sregParams&openid.ax.mode=fetch_request");
}
if ($openIdMode) {
# Returning from id server
if ($csr->user_cancel()) {
# User cancelled
print 'errOidCancel';
}
elsif (my $setupUrl = $csr->user_setup_url(post_grant => 'return')) {
# This shouldn't happen since we're not using immediate mode
# Print header
print $cgi->header, $cgi->start_html();
print $setupUrl;
}
elsif ($verifiedId = $csr->verified_identity()) {
}
}
# Print header
print $cgi->header, $cgi->start_html();
print $check_url, "\n";
my $a= qq~
OpenId transaction in progress
~;
exit;