#!/usr/bin/perl -w

# getstock.pl nate (mrtg@aphroland.org) http://howto.aphroland.de/HOWTO/MRTG
#
# This script connects to finance.yahoo.com and gets a stock quote for the
# ticker symbol specified on the command line. The result is multiplied by
# 100 so MRTG can deal with it.
#

use LWP;

$stock = $ARGV[0];
$browser_agent = "Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.2b) Gecko/20021029 Phoenix/0.4";

unless ( $stock ) {
	die "Please specify a stock ticker symbol!\n";
	}

$url = "http://finance.yahoo.com/d/quotes.csv?s=$stock&f=nl1d1t1c1vw&e=.csv";

$browser = LWP::UserAgent->new();
$browser->agent("$browser_agent");
$stock_quote = $browser->request(HTTP::Request->new(GET => $url));
if ($stock_quote->is_success) {
	@quote = split(/,/,$stock_quote->content);
	} else {
	die "Could not retrieve quote, exiting!\n";
	}

print $quote[1] * 100 . "\n";
print $quote[1] * 100 . "\n";