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 {\.*ga$} $domain {};  if {[first $result] == 302} { return 1 }; return 0 }