Take "Stock" in Torque

$info::stock::echo = true;

function GetStock(%symbol)
{
   //$url = sprintf("http://finance.yahoo.com/d/quotes.csv?s=%s&f=sl1c1" ,$symbol);

   %obj = new TCPObject(GetStock);
   //%host = "finance.yahoo.com:80";
   //%host = "download.finance.yahoo.com:80";
   %host = "ichart.finance.yahoo.com:80";
   %obj.connect(%host);

   // remember
   %obj.symbol = %symbol;
   %obj.host = %host;
   %obj.commands = new SimSet();
}

function GetStock::onConnected(%this)
{
   echo("sending");

   // yahoo path
   // symbol(s), last trade price(l1), change(c1)
   //%uri = "/d/quotes.csv?s="@ %this.symbol @"&f=sl1c1";
   // symbol(s), last trade price & time (l)
   //%uri = "/d/quotes.csv?s="@ %this.symbol @"&f=sl";
   // symbol(s),last date(d1),last time(t1),last price(l1)
   // w = 52 week range
   //%uri = "/d/quotes.csv?s="@ %this.symbol @"&f=snd1t1l1w&e=.csv";
   %uri = "/table.csv?s="@ %this.symbol @"&d=0&e=00&f=2008&g=d&a=00&b=00&c=1900&ignore=.csv";

   //"download.finance.yahoo.com/d/quotes.csv?s=MSFT&f=sl1d1t1c1ohgv&e=.csv"

   //"download.finance.yahoo.com/d/quotes.csv?s=RHT&f=sl1d1t1c1ohgv&e=.csv"
   // s  = symbol
   // l1 = last price
   // d1 = last date
   // t1 = last time
   // c1 = change
   // o  = open
   // h  = day's high
   // g  = day's low
   // &e=.csv =  ?

   //ichart.finance.yahoo.com/table.csv?s=RHT&d=2&e=11&f=2007&g=d&a=7&b=11&c=1999&ignore=.csv

   %getstr = "GET" SPC %uri;
   
   // What is this crap for?
      //SPC "HTTP/1.0\nHost:" SPC %this.host SPC "\n";

   echo(%getstr);

   %this.send(%getstr SPC "\r\n");

   echo("sent");
}

function GetStock::onConnectFailed(%this)
{
   echo("Connection Failed");
}

function GetStock::onLine(%this, %line)
{
   if(%line !$= "")
   {
      // parse return data
      if($info::stock::echo)
         echo(%line);

      // run any commands put in the queue
      while(%this.commands.getCount())
      {
         %command = %this.commands.getObject(0);
         eval(%command.text);
         %command.delete();
      }
   }
}

function GetStock::onDisconnect(%this)
{
   %this.commands.delete();
   %this.delete();
}

getStock("RHT");
getStock("MSFT");