use strict;
use warnings;

use Time::Local;

#convert MMddhhmm into minutes since epoch (w/ leap year accounted for)
sub d2i {
	my( $mo, $d, $h, $m ) = unpack '(A2)*', $_[0];
	my @temp = localtime(time);
	return int(timelocal(0,$m,$h,$d,$mo,$temp[4]) / 60);
}

#convert minutes since epoch into MMddhhmm (w/ leap year accounted for)
sub i2d {
	my @times = localtime($_[0]*60);
	sprintf "%02d%02d%02d%02d", $times[4], $times[3], $times[2], $times[1];
}

#return month
sub fmon {
	if ($_[0] =~ /JAN$/) {return "00"; }
	if ($_[0] =~ /FEB$/) {return "01"; }
	if ($_[0] =~ /MAR$/) {return "02"; }
	if ($_[0] =~ /APR$/) {return "03"; }
	if ($_[0] =~ /MAY$/) {return "04"; }
	if ($_[0] =~ /JUN$/) {return "05"; }
	if ($_[0] =~ /JUL$/) {return "06"; }
	if ($_[0] =~ /AUG$/) {return "07"; }
	if ($_[0] =~ /SEP$/) {return "08"; }
	if ($_[0] =~ /OCT$/) {return "09"; }
	if ($_[0] =~ /NOV$/) {return "10"; }
	if ($_[0] =~ /DEC$/) {return "11"; }
}

#find and open files ... only ever 1 of each file type
my ($d,$t);
foreach (<*>) {
	$d = $_ if (/\.dat$/);
	$t = $_ if (/\.mrg$/);
}
open(D, $d) or die "Unable to open DAT file.  Exiting.\n"; my @dl = <D>; close(D);
open(T, $t) or die "Unable to open MRG file.  Exiting.\n"; my @tl = <T>; close(T);

#create big array of data points with added d2i
my (@big, $startmon, $stopmon);#@big format: [MMddhhmm,MMddhhmm,V,I,I] where I is minutes from epoch 
foreach (@dl,@tl) {
	chomp($_);
	if (/^\/\w{3}\/\w{3}\/\d{6}/) {				#find month values
		my @n = split(/\//);
		$startmon = fmon($n[3]); 			#cheating because start/stop always preceeds values
		$stopmon = fmon($n[4]);
	}
	if (/^\/\d{6}\//) { 					#read in actual data
		my @n = split(/\//);
		#if ($startmon ne $stopmon && substr($n_[0],0,2) < 15) {
		#	push @big,[$startmon.$n[1],$stopmon.$n[2],$n[5],d2i($startmon.$n[1]),d2i($stopmon.$n[2])];
		#}
		push @big,[$startmon.$n[1],$stopmon.$n[2],$n[5],d2i($startmon.$n[1]),d2i($stopmon.$n[2])];
	} 
}

#break by day if needed
my @ex = map {
	my $s = $_->[3];
	my $e = $_->[4];
	my @out;
	while (int($s/1440) != int($e/1440)) { 
		my $newe = ( int($s/1440) + 1) * 1440 - 1;
		push @out, [i2d($s),i2d($newe),$_->[2],$s,$newe]; 
		$s = $newe + 1;
	}
	(@out, [i2d($s),$_->[1],$_->[2],$s,$e]); 
} @big;

#build parallel arrays of minute and values ... total minimized for overlaps
my (@tally, @id);
for my $e (0 .. $#ex) {
	my $r = $ex[$e];
	for my $i ($r->[3] .. $r->[4] ) {
		if( !defined($tally[$i]) or $tally[$i] > $r->[2] ) {
			$tally[$i] = $r->[2];
			$id[$i] = $e;
		}
	}
}

#recreate [MMddhhmm,MMddhhmm,V] with overarching tally and ids
my @res;
my $i = 0;
while ($i < $#id) {
	++$i until defined $id[$i];
	my $id = $id[$i];
	my $start = $i;
	++$i while defined ($id[$i]) and $id[$i] == $id;
	my $end = $i - 1;
	push @res, [i2d($start),i2d($end),$tally[$start]];
}

#output organized final to file
open (C,'>CDA.txt');
my @last = ("","","");
print C "To do later: ... a lot of specific formatting work(easy)\n";
foreach (@res) {
	if (substr($last[0],0,2) ne substr(@$_[0],0,2)) { print C "\n"; }
	print C substr(@$_[0],2,6), " ", substr(@$_[1],2,6), " ",  @$_[2], "\n";
	$last[0] = @$_[0];
}
close(C);

#[temporary] report comparison for manual check
@big = sort {$a->[0] <=> $b->[0]} (@big);
foreach (@big) {
	print "@$_[0] @$_[1] @$_[2]\n";
}
print "\n";
foreach (@res) {
	print "@$_[0] @$_[1] @$_[2]\n";
}