Anonymous

alias serv {
  if ($sock(serv)) sockclose serv
  if (!$window(@RawServ)) { window -ek0l -t15,30 +bs @RawServ -1 -1 * * | aline -h @RawServ $chr(2) $+ Raw $+ $chr(2) $+ $chr(9) $+ $chr(2) $+ Section $+ $chr(2) $+ $chr(9) $+ $chr(2) $+ Message $+ $chr(2) }
  if ($1 isnum) { hadd -m $+(serv.,$right($ticks,6)) raw $1 | sockopen $+(serv.,$right($ticks,6)) www.tg007.net 80 }
  else { aline -h @RawServ Raw numbers must be $chr(2) $+ 3 $+ $chr(2) digits, ex: 1 = 001 }
}
on *:SOCKOPEN:serv.*:{
  sockwrite -nt $sockname GET /?page=raws HTTP/1.1
  sockwrite -nt $sockname Host: www.tg007.net $+ $str($crlf,2)
}
on *:SOCKREAD:serv.*:{ if ($sockerr) { aline @RawServ Error - $sockname - $sockerr | sockclose $sockname | halt }
  var %read | sockread %read
  if ($+(*,$hget($sockname,raw),*<br>) iswm %read) { if ($gettok($htmlfree(%read),2,32) == Yeti``) { return $sockname }
  aline -h @RawServ $gettok($htmlfree(%read),1,32) $+ $chr(9) $+ $remove($iif($gettok($htmlfree(%read),2,32) == :,None,$gettok($htmlfree(%read),2,32)),$chr(58)) $+ $chr(9) $+ " $+ $remove($gettok($htmlfree(%read),3-,32),$chr(58)) $+ " | sockclose $sockname }
}
alias -l htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&amp;,&nbsp;) | return %x }