#!/usr/bin/perl
require LWP::UserAgent;
#########################################################################################
# Written by James Ault
# March 30, 2005
#
# This program simply makes a request to the Yahoo Investment site for a specified symbol
# then formats the results for disply with Javascript and CSS
#########################################################################################
#set the symbol of the stock you would like to track
$symbol='alba.l';
#create a user agent
$ua = new LWP::UserAgent;
#make request
#$res = $ua->request(HTTP::Request->new(GET => "http://quote.yahoo.com/d/quotes.csv?s=".$symbol."&d=t&f=sl1d1t1c1ohgv"));
$res = $ua->request(HTTP::Request->new(GET => "http://uk.finance.yahoo.com/d/quotes.csv?s=".$symbol."&d=t&f=sl1d1t1c1ohgv"));
#grab content
$content=$res->content;

@parts = split(/,/,$content);
$output="<div class=\"ticker\"><table class=\"ticker\"><tr class=\"tickerHeader\"><td>Symbol</td><td>Last p</td><td>Time</td><td>Change</td><td>Open</td><td>High</td><td>Low</td></tr>"; #<td>Volume</td></tr>"; changed Jan 2008 because yahoo changed the package.
$output=$output."<tr class=\"ticker\"><td>".$parts[0]."</td><td>".$parts[1]."</td><td>".$parts[2]."</td><td>".$parts[3]."</td><td>".$parts[4]."</td><td>".$parts[5]."</td><td>".$parts[6]."</td></tr></table></div>"; #<td>".$parts[7]."</td></tr></table></div>";
$output2="<div class=\"ticker2\"><table class=\"ticker2\"><tr class=\"tickerHeader2\"><td>Symbol</td><td>Last</td><td>Change</td></tr>";
$output2=$output2."<tr class=\"ticker2\"><td>".$parts[0]."</td><td>".$parts[1]."</td><td>".$parts[3]."</td></tr>";
$output2=$output2."<tr class=\"tickerHeader2\"><td>Open</td><td>High</td><td>Low</td></tr>";
$output2=$output2."<tr class=\"ticker2\"><td>".$parts[4]."</td><td>".$parts[5]."</td><td>".$parts[6]."</td></tr></table></div>";
$output=$output.$output2;
$output=~ s/\"//gs;
$output=~ s/([^A-Za-z0-9])/sprintf("%%%02X", ord($1))/seg;
print "Content-Type: text/html\n\n";
print "document.write(unescape(\"$output\"))";