alias read { 
  var %send = $iif($left($1,1) == @,msg $chan,notice $nick)
  sockopen tut www.tg007.net 80 
}

on *:SOCKOPEN:tut: {
  sockwrite -nt $sockname GET /forum/lofiversion/index.php?t2544.html HTTP/1.0
  sockwrite -nt $sockname Host: www.tg007.net
  sockwrite -t $sockname $str($crlf,2)
}

on *:SOCKREAD:tut: {
  if ($sockerr) {
    echo -a Socket error
    sockclose $sockname
  }
  else {
    var %read | sockread %read
    if ($sockbr == 0) return
    if ($regex(%read,/<br>Sockets(.*)patience./)) {
      %send $htmlfree($regml(1))
      sockclose $sockname
    }
  }
}

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