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_items (o, u.decoded_query_items) 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 ("Click to authenticate with openid") 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