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 {
    var %read | sockread -fn &dat
    var %p1 $bfind(&dat,1,Sockets were introduced).text
    var %p2 $calc($bfind(&dat,1,patience.).text + 10)
    echo -a $htmlfree($bvar(&dat,%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
}