TCP Object (torque getting website lines)

$MAX_HTTP_QUERY_STRING = 255;

function httpPage::get(%this, %url)
{
   %this.Buffer = "";
   %this.doBuffer = false;
   %host = "";
   %page = "";
   
   if(strpos(%url, "http://") == 0)
   {
      %host = getSubStr(%url, 7, strpos(%url, "/", 8) - 7);
      %page = getSubStr(%url, strpos(%url, "/", 8), $MAX_HTTP_QUERY_STRING);
   }
   else
   {
      %host = getSubStr(%url, 0, strpos(%url, "/", 8));
      %page = getSubStr(%url, strpos(%url, "/"));
   }
   
   if(strpos(%host, ":") < 0) %host = %host @ ":" @ "80";
   %this.Address = %host;
   %this.Page = %page;
   warn("Connecting to: " @ %this.Address @ %this.Page);
   %this.connect(%this.Address);
}

function httpPage::onConnected(%this)
{
   warn("Connected ...");
   %query = "GET " @ %this.page @ " HTTP/1.0\nHost: " @ %this.Address @ "\n\n";
   %this.send(%query);
}

function httpPage::onLine(%this, %line)
{
   echo("LINE: " @ %line);
   if(!%this.doBuffer && %line $= "") { %this.doBuffer = true; return; }
   if(%this.doBuffer)
   {
      error("BUFFER: " @ %line);
      if(%this.Buffer !$= "") %this.Buffer = %this.Buffer @ "\n";
      %this.Buffer = %this.Buffer @ %line;
   }
}

function httpPage::getResult(%this)
{
   return %this.Buffer;
}

function httpPage::onDisconnect(%this)
{
}

function httpPage::onConnectFailed(%this)
{
   error("Connection Failed: " @ %this.Address);
}

/////////////////////////////////////////////////////////////////////////////////////////////////////////////
//$RSSFeed::serverURL  = "http://braveskin.com/index.php";
//$HTTPPath="/clansdata.php?meth=get&tbl=clans_userbase&wat=name&wat2="@%logonname@"&wat3=password";

function connecttoweb()
{
new TCPObject(httpPage) { };
httpPage.get("http://braveskin.com/index.php");
echo(httpPage.getResult());
}