Very basic socket example

; In the client running this script, type /stats to activate

alias stats {
  sockclose stats
  sockopen stats www.solanit.nl 80
  if (!$window(@Stats)) window -e @Stats
}

on *:SOCKOPEN:stats: {
  sockwrite -n stats GET /statistieken.php HTTP/1.1
  sockwrite -n stats Host: www.solanit.nl
  sockwrite -n stats $crlf $crlf
}

on *:SOCKREAD:stats: {
  sockread %s.read
  echo @Stats $+(,%s.read,)
}

; ---

; NOTES:
; You can get specific text from the on *:SOCKREAD: event by using if statements:
; example:

/*
on *:SOCKREAD:stats: {
  sockread %s.read
  if (Jouw totale * iswm %s.read) echo @stats $+(,%s.read,)
}
*/