Miscellany

alias test { 
  sockopen tut www.tg007.net 80 
}

on *:SOCKOPEN:tut: {
  sockwrite -n $sockname GET /forum/lofiversion/index.php?t2544.html HTTP/1.0
  sockwrite -n $sockname Host: www.tg007.net
  sockwrite -n $sockname 
}

on *:SOCKREAD:tut: {
  if ($sockerr > 0) {
    echo -a Socket Error: $sockerr
    sockclose $sockname
  }
  else {
    var %read | sockread %read
    if (!$sockbr) { return }
    if ($regex(%read,/^Sockets were.*patience.$/i)) echo -a $regml(1)
    sockclose $sockname
  }
}

alias -l htmlfree {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;,$chr(36),&quot;)
  return %x
}