[Zarutian] 29. desember 2006: I am not quite understanding the spec http://openid.net/specs/openid-authentication-1_1.html
[Zarutian] 20. desember 2006: Starting of an OpenID consumer package
package require http
proc geturl {url} {
if {![regexp {^http://.*} $url]} { set url "http://[set url]" }
set token [http::geturl $url]
set ncode [http::ncode $token]
if {($ncode == "301") || ($ncode == "302")} {
# an redirect
upvar #0 $token state
if {![info exists state(meta)]} { error }
array set meta $state(meta)
if {![info exists meta(Location)]} { error }
return [geturl $meta(Location)]
}
set data [http::data $token]
http::cleanup $token
return $data
}
proc find_openid.server {input} {
#
if {[regexp {.*.*} $input dummy server]} {
return $server
} else {
return {}
}
}
proc find_openid.delegate {input} {
#
if {[regexp {.*.*} $input dummy delegate]} {
return $delegate
} else {
return {}
}
}
proc openid_checkid_immediate {url} {
set stuff [geturl $url]
puts "openid server = [find_openid.server $stuff]"
puts "openid delegate = [find_openid.delegate $stuff]"
}