Anonymous

alias serv { 
  if ($sock(serv)) sockclose serv
  if (!$window(@RawServ)) { window -el -t15,30 @RawServ -1 -1 * * | aline @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 raw $1 | sockopen serv www.tg007.net 80 }
  else { aline @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 @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 }