#!/usr/bin/perl -w

# File: get-data.pl
# Desc: gets temperature data from a web site and builds a javasript array
# Auth: Alexandros Labrinidis (labrinid@cs.pitt.edu)
# Date: Tue Nov 20 14:33:47 EST 2012

use LWP::Simple;
use Switch;

my $data_string = get("http://academic.udayton.edu/kissock/http/Weather/gsod95-current/PAPITTSB.txt");

my @data_array = split(" ", $data_string);

$last_month = 0;
$last_year  = 0;

### Javascript START ###
print <<EOJ;

// bigarray initialization
var bigarray = [];

EOJ


$rowcount = 0;
$fieldcnt = 0;
$month = $day = $year = $temp = 0;

foreach $one (@data_array) {
	if ($fieldcnt==0) {
		$month = $one; $fieldcnt++;
		 
	} elsif ($fieldcnt==1) { 
		$day   = $one; $fieldcnt++;
		
	} elsif ($fieldcnt==2) {
		$year  = $one; $fieldcnt++; 
		
	} elsif ($fieldcnt==3) {
		$temp  = $one; $fieldcnt=0; $rowcount++; 
		record_temps($month, $day, $year, $temp);
		
	} else { 
		die("ERROR: fieldcnt out of range($fieldcnt)");	
	}
}


sub record_temps {
	my ($n_month, $n_day, $n_year, $n_temp) = @_;
	
	return unless ($n_year==2011);
	
	# make sure javascript 3-d array is initialized 
	if ($last_year != $n_year) {
		print "bigarray[$n_year] = [];\n";
		$last_year = $n_year;	
	} 
	
	if ($last_month != $n_month) {
		print "bigarray[$n_year][$n_month] = [];\n";
		$last_month = $n_month;
	}
	
	print "bigarray[$n_year][$n_month][$n_day] = $temp;\n";
}


### Javascript END ###
print <<EOJ;

EOJ