#!/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="
"; #| Volume | "; changed Jan 2008 because yahoo changed the package.
$output=$output."| ".$parts[0]." | ".$parts[1]." | ".$parts[2]." | ".$parts[3]." | ".$parts[4]." | ".$parts[5]." | ".$parts[6]." |
"; #".$parts[7]." | ";
$output2="";
$output2=$output2."| ".$parts[0]." | ".$parts[1]." | ".$parts[3]." |
";
$output2=$output2."";
$output2=$output2."| ".$parts[4]." | ".$parts[5]." | ".$parts[6]." |
";
$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\"))";