alias forum { var \%s = $+(forum.,$md5($+($ticks,$ctime))) | sockopen \%s 217.211.65.249 80 | sockmark \%s 0 }
on *:SOCKOPEN:forum.*: {
  sockwrite -nt $sockname GET http://217.211.65.249/test.php HTTP/1.0
  sockwrite -nt $sockname Accept-Language: en-us
  sockwrite -nt $sockname User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.7) Gecko/20040803 Firefox/0.9.3
  sockwrite -nt $sockname Host: 217.211.65.249
  sockwrite -nt $sockname Connection: Close
  sockwrite -t $sockname $str($crlf,2)
}
on *:SOCKREAD:forum.*: { var \%v | sockread -f \%v | if (!\%v) { sockmark $sockname 1 } | elseif ($sock($sockname).mark == 1) && (\%v) { echo -a \%v } }