#!/usr/local/bin/perl
use LWP::UserAgent;
use HTTP::Request::Common;

# This is from Finance::YahooQuote ... It couldn't do proxy servers neatly,
# so I had to steal the code. 8|
#
# BTW: This was written by Theo Van Dinter (tvd@chrysalis.com)
#
@list = @ARGV ? @ARGV : qw/ AVNT RHAT NTAP POCI SPLI GLW CERO LNUX VRTS /;
# CMGI

map { $l = length if ( length > $l ) } @list;

$timeout = 5;
$url = "http://quote.yahoo.com/d?f=snl1d1t1c1p2va2bapomwerr1dyj1x&s=".
	join(",",@list);
$ua = new LWP::UserAgent;
#$ua->proxy(http  => 'http://dilbert.kluge.net:8080') unless ( @ARGV );
$ua->timeout($timeout);

foreach (split('\015?\012',$ua->request(GET $url)->content)) {
	@{$ret{shift @list}} = grep { s/^"?(.*?)\s*"?\s*$/$1/; } split(',');
}

foreach ( sort keys %ret ) {
	@avnt = @{$ret{$_}};
	printf "%-${l}s: %8.4f ($avnt[3] @ $avnt[4]), $avnt[13] day, $avnt[14] year\n",$_,$avnt[2];
}
# 0 Symbol
# 1 Company Name
# 2 Last Price
# 3 Last Trade Date
# 4 Last Trade Time
# 5 Change
# 6 Percent Change
# 7 Volume
# 8 Average Daily Vol
# 9 Bid
# 10 Ask
# 11 Previous Close
# 12 Today's Open
# 13 Day's Range
# 14 52-Week Range
# 15 Earnings per Share
# 16 P/E Ratio
# 17 Dividend Pay Date
# 18 Dividend per Share
# 19 Dividend Yield
# 20 Market Capitalization
# 21 Stock Exchange