#!/usr/bin/perl -w
use LWP::Simple;
use strict;
my $times = 1;
my $oldday = 0;
my $oldmin = 0;
my $oldmon = 0;
my $pagesource;
my @pagesource;
my $index;
open(OUT, ">/Documents/Applesauce/Scripts/cumulative.csv") || die;
while ($times != 0){
    my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime time;
    if ($min >= $oldmin+5 || $oldmin-$min >= 54){
	if ($mday != $oldday){
	    print "Day over!\n";
	    close DAY;
	    open(DAY, ">/Documents/Applesauce/Scripts/$mday.csv") || die;
	    $oldday = $mday;
	}
	if ($mon != $oldmon){
	    print "Month over!\n";
	    close MONTH;
	    open(MONTH, ">/Documents/Applesauce/Scripts/$mon.csv") || die;
	    $oldmon = $mon;
	}


	$pagesource = get('http://fxtrade.oanda.com') || die;
	print "Got website!\n";
	@pagesource = split(/\n/, $pagesource);



	$index=0;
	while ($index < @pagesource){
	    if ($pagesource[$index] =~ /EUR\/USD/)}
	print OUT "EUR\/USD," || die;
	print DAY "EUR\/USD," || die;
	print MONTH "EUR\/USD," || die;

	print OUT "$mon:$mday:$year:$hour:min," || die;
	print DAY "$mday:$hour:$min," || die;
	print MONTH "$mday:$hour:$min," || die;

	$pagesource[$index+1] =~ /color=\#666666>(.+)<\/font>/;
	print "$1\n" || die;
	print OUT "$1," || die;
	print DAY "$1," || die;
	print MONTH "$1," || die;

	$pagesource[$index+2] =~ /color=\#666666>(.+)<\/font>/;
	print "$1\n" || die;
	print OUT "$1\n" || die;
	print DAY "$1\n" || die;
	print MONTH "$1\n" || die;
    }
    $index++;
}
print "$hour:$min\n";
$oldmin = $min;
}
}