70 lines
1.4 KiB
Plaintext
70 lines
1.4 KiB
Plaintext
note
|
|
description: "Summary description for {TEST_OPENID}."
|
|
author: ""
|
|
date: "$Date$"
|
|
revision: "$Revision$"
|
|
|
|
class
|
|
TEST_OPENID
|
|
|
|
create
|
|
make
|
|
|
|
feature
|
|
|
|
make
|
|
local
|
|
o: OPENID_CONSUMER
|
|
v: OPENID_CONSUMER_VALIDATION
|
|
id: READABLE_STRING_8
|
|
do
|
|
id := "https://www.google.com/accounts/o8/id"
|
|
create o.make ("http://localhost")
|
|
if attached o.auth_url (id) as l_url then
|
|
check o.error = Void end
|
|
get_openid_response_uri (l_url)
|
|
if attached openid_response_uri as u and then u.is_valid then
|
|
create v.make_from_uri (o, u)
|
|
v.validate
|
|
if v.is_valid then
|
|
print ("Succeed ...%N")
|
|
else
|
|
print ("Failed !!!%N")
|
|
end
|
|
else
|
|
print ("Failed !!!%N")
|
|
end
|
|
elseif attached o.error as l_err then
|
|
print (l_err)
|
|
else
|
|
print ("???")
|
|
end
|
|
end
|
|
|
|
get_openid_response_uri (a_auth_url: READABLE_STRING_8)
|
|
local
|
|
f: RAW_FILE
|
|
e: EXECUTION_ENVIRONMENT
|
|
do
|
|
openid_response_uri := Void
|
|
|
|
create f.make_create_read_write ("openid_tmp.html")
|
|
f.put_string ("<a href=%"" + a_auth_url + "%">Click to authenticate with openid</a>")
|
|
f.put_new_line
|
|
f.close
|
|
|
|
create e
|
|
e.system ("start " + f.name)
|
|
|
|
io.put_string ("Returned URL (copy/paste the url from your browser's address bar )?%N")
|
|
io.read_line
|
|
|
|
create openid_response_uri.make_from_string (io.last_string)
|
|
end
|
|
|
|
openid_response_uri: detachable URI
|
|
|
|
feature -- Access
|
|
|
|
end
|