Stuff

on *:TEXT:!grs staff*:#:{
  set %grsstaff.display msg $chan
  set %grsname $3
  if ($sock(grsstaff)) {
    sockclose grsstaff
  }
  sockopen grsstaff global-rs.com 80
}
on *:SOCKOPEN:grsstaff:{
  sockwrite -nt $sockname GET /site/team/site.php HTTP/1.1
  sockwrite -nt $sockname Host: global-rs.com
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:grsstaff:{
  if ($sockerr) {
    %grsstaff.display Socket error
    unset %grsstaff.*
    unset %grsname
  }
  else {
    var %read
    while (1) {
      sockread -f %read
      if (!$sockbr) { break }
      if (* $+ %grsname $+ * iswm %read) {
        %grsstaff.display $striptags(%read)
      }
    }
  }
}
alias striptags { var %x,%y = $regsub($1-,/(<[^>]+>)/g,$null,%x) | return $remove(%x,&nbsp;) }