Evaluated proc .ga_ domain { set result [http get http://admin.my.ga/registration/registerpaid?domainname=[regsub {\.*ga$} $domain {}].ga "Referer: http://admin.my.ga/registration/registerpaid?domainname=oeuoeuoe.ga"]; . [regsub -inline {\.*ga$} $domain {}]; if {[first $result] == 302} { return 1 }; return 0 }