Unnamed

alias parserinit { 
  if ($1 == open) socklisten parserconn 4783 
  else sockclose parserconn 
} 
on *:socklisten:parserconn:sockaccept parserlisten. $+ $ticks 
on *:sockread:parserlisten.*:{ 
  var %s 
  sockread %s 
  echo $color(info) -s * Connection from $sock($sockname).ip on port $sock($sockname).port 
  if TEST* iswm %s {
    sockwrite -n $sockname TEST 
    tokenize 32 %s 
    msg ano $1-
    msg ano %s
  }
  sockclose $sockname 
}