hwk

package require http

bind join - * kickcheck


proc kickcheck {unick uh hand chan} {
  global userlist

if {![string equal $chan "#channel"]} {return 0;}

        ::http::config -useragent "Mozilla/5.0 ; Gecko"
        set http_req [::http::geturl "http://www.extremebits.org/irc-userdrop.php?search=$user" -timeout 2000]
        set data [::http::data $http_req]
        ::http::cleanup $http_req


if {[string match "No*such*user" $data]} {
        putserv "PRIVMSG $chan :You are not a registered user. Please use your site nick, or try joining #extremebits-invites!"
        putserv "KICK $chan $unick :($Not Registered User. Change to your XB site nick or get an invite at #extremebits-invites)"
}