#!/usr/bin/perl
use strict;
use LWP;
use DBI;
my @currency;
my  $ua = new LWP::UserAgent;
my $req = new HTTP::Request GET => 'http://quote.yahoo.com/m3?u';
my $res = $ua->request($req);

if ($res->is_success){
	my ($match) =  ($res->content =~ m#U\.S\. \$</th>(.*?)</tr>#s);
	@currency = split("\n",$match);
	@currency = grep (s/<[^<>]*>//g, @currency);
	if ($currency[0] == 1){
		my $dbh = DBI->connect("dbi:Pg:dbname=auction", "", "",
				{RaiseError=>1, AutoCommit=>1});
		my $query = "UPDATE currency SET
		\"AUD\" = ".$currency[1].",
		\"GBP\" = ".$currency[2].",
		\"CAD\" = ".$currency[3].",
		\"DEM\" = ".$currency[4].",
		\"FRF\" = ".$currency[5].",
		\"JPY\" = ".$currency[6].",
		\"CHF\" = ".$currency[7].",
		\"EUR\" = ".$currency[8]."
		WHERE \"USD\" = 1";
		$dbh->do($query);					
		$dbh->disconnect;					
	}
} else {
	print "Bad luck this time\n";
}