; fwho by Mats Lindh (snill@fisk.net), bugfixed by Henning Kristiansen (mail@marle.no)
; supposed to be used mainly on #fredrikstad
; version 0.0.6

alias fwho {
  echo $active - - -- - ---fwho--( $+ $$1 $+ )- - -- ---- - - --    -----
  set %fwho.reqnick $$1
  sockopen http fredrikstad.ircaddicted.com 80
}

on 1:sockopen:http:{
  sockwrite -n http GET http://fredrikstad.ircaddicted.com/irc-bruker.php?nick= $+ %fwho.reqnick $+ $chr(10) $+ $chr(10)
}

on 1:sockread:http:{
  if ($sockerr > 0) return
  set %fwho.data 0
  :nextread
  .sockread %fwho.tmp
  if ($sockbr == 0) {
    sockclose http
    unset %fwho.*
    return
  }
  echo $active %fwho.tmp
  goto nextread
}

menu nicklist {
  fwho: fwho $$1
}