if {[catch { http::geturl $url -timeout 3000 -headers [list Authorization "Basic [::base64::encode $login:$pass]"]} token]} {
	putserv "privmsg $nick :$url - $token"
        return
} else {
	putserv "privmsg $nick :$url - [::http::code $token]"

	
}
putserv "privmsg $nick :Please wait while your site is verified"
if {[::http::ncode $token]==200} { putserv "privmsg $nick :Url verified working" }
if {[::http::ncode $token]==401} { putserv "privmsg $nick :Url already Not working or login and pass have died";::http::cleanup $token; return 0 }
if {[::http::ncode $token]==403} { putserv "privmsg $nick :Url already Not working";::http::cleanup $token; return 0 }
::http::cleanup $token