Code:

bind pub - "% !*" checkid;proc checkid {n u h c t} {   set id [string range $t 1 end];   if {[string is digit -stict $id]} {get_projects2 $c $id} {putcmdlog "$id isnt a valid id"}}set url "www.sensiblesoccer.de"proc get_projects2 {channel id} {   global url   set sock [socket $url 80]   fconfigure $sock -buffering line -buffersize 1000   puts $sock "GET /index.php?site=online_segastatpers&uid=$id HTTP/1.0"   puts $sock "Host: www.sensiblesoccer.de"   puts $sock ""   puts $sock "User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"   flush $sock   while {![eof $sock]} {      gets $sock body      regexp -all {<td width="65%" class="medium">(.*?)</td><td} $body _ served   }   if {[eof $sock]} { close $sock }   regsub -all {(<.+?>)} $served "" served   puthelp "PRIVMSG $channel :[lindex $served]"}