Step 2 - find the users 'claimed' identity

make a new 'Net::OpenID::Consumer'

my $consumer = Net::OpenID::Consumer->new(
    ua => LWP::UserAgent->new,
    cache => undef,
    args => $r,
    consumer_secret => \&mysecret,
    required_root => "http://staging.kapiti.geek.nz/"
);

ua - should use LWPx::ParanoidAgent

cache - something like File::Cache

args - something which gives the GET parameters (like a HASH, or object)

consumer_secret - come to this later

required_root - the root of the 'asking' page

Table of Contents