Untitled

on *:TEXT:!post:#jmyeom: {
  sockopen post alandal.net 80
  set %post.chan $chan
}

on *:SOCKOPEN:post: {
  set %y 0
  sockwrite -n $sockname GET /jmyeom/chat.php HTTP/1.1
  sockwrite -n $sockname Host: alandal.net
  sockwrite -n $sockname $crlf
}


on *:SOCKREAD:post: {
  sockread %read
  if (%read == <chat>) {
    set %y 1
    halt
  }
  if (%read == </chat>) {
    set %y 0
  }
  if (%y == 1) {
    msg %post.chan %read
  }
}