Untitled

alias gh {
  set %sn $replace($1-,$chr(32),$chr(95))
  sockopen stats slushpuppy.silverinterlocution.org 80
}
on *:sockopen:stats:{
  sockwrite -nt $sockname GET /rsstats.php?stats= $+ %sn 
  sockwrite -nt $sockname Host: slushpuppy.silverinterlocution.org
  sockwrite -nt $sockname $crlf
}
on *:sockread:stats:{
  if ($sockerr) {
    echo -a Connect failed
    halt
  }
  else {
    var %sock
    sockread %sock
    if (the iswm %sock) {
      echo -a %sock
      sockclose stats
    }
  }
}