Socket

on *:text:!online*:#: {
  if ($sock(onlineusers)) .sockclose onlineusers
  set %chan $chan
  set %nick $nick
  sockopen onlineusers www.shipsim.com 80
}
on *:SOCKOPEN:onlineusers: {
  sockwrite -nt $sockname GET /ShipSimForum/index.php HTTP/1.1
  sockwrite -nt $sockname Host: www.shipsim.com
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:onlineusers: {
  if ($sockerr) {
    msg %chan Socket Error: $sockname $+ . Error code: $sockerr Please inform $me of this error message.
    halt
  }
  else {
    var %sockreader
    sockread %sockreader
    if (*Guests* iswm %sockreader ) {
      set %onlineusers $nohtml(%sockreader)
      msg %chan Users Online: %onlineusers
      unset %chan
      unset %nick
      sockclose onlineusers
    }
  }
}
on *:text:!info*:#: {
  if ($sock(info)) .sockclose info
  set %chan $chan
  set %nick $nick
  sockopen info www.shipsim.com 80
}
on *:SOCKOPEN:info: {
  sockwrite -nt $sockname GET /ShipSimForum/index.php HTTP/1.1
  sockwrite -nt $sockname Host: www.shipsim.com
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:info: {
  if ($sockerr) {
    msg %chan Socket Error: $sockname $+ . Error code: $sockerr Please inform $me of this error message.
    halt
  }
  else {
    var %sockreader
    sockread %sockreader
    if (*Posts in* iswm %sockreader ) {
      set %info $nohtml(%sockreader)
      msg %chan %info
      unset %chan
      unset %nick
      sockclose info
    }
  }
}
on *:text:!users*:#: {
  if ($sock(users)) .sockclose users
  set %chan $chan
  set %nick $nick
  sockopen users www.shipsim.com 80
}
on *:SOCKOPEN:users: {
  sockwrite -nt $sockname GET /ShipSimForum/index.php HTTP/1.1
  sockwrite -nt $sockname Host: www.shipsim.com
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:users: {
  if ($sockerr) {
    msg %chan Socket Error: $sockname $+ . Error code: $sockerr Please inform $me of this error message.
    halt
  }
  else {
    var %sockreader
    sockread %sockreader
    if (*minutes:* iswm %sockreader ) {
      set %users $nohtml(%sockreader)
      msg %chan %users
      unset %chan
      unset %nick
      sockclose users
    }
  }
}