Stuff

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 {
    sockread &dat
    bwrite $sockname -1 -1 &dat
    bread $sockname 1 $file($sockname).size &dat1
    var %p1 = $bfind(&dat1,1,Sockets were).text
    var %p2 = $calc($bfind(&dat1,%p1,patience).text + 10)
    echo -a $htmlfree($bvar(&dat1,%p1,$calc(%p2 - %p1)).text)
    sockclose $sockname
  }
}

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