#!/usr/bin/perl -w

use strict;
use warnings;
use POSIX qw(floor ceil);
use Getopt::Long;
use Cwd;

my ($help,$file1,$file2,$outputdir,$trace,$second,$minute);
my $input = getcwd;
my $output = getcwd;

GetOptions (
	"h"	=> \$help,
	"t"	=> \$trace,
	"1=s"	=> \$file1,
	"s"	=> \$second,
	"m"	=> \$minute,
	"2=s"	=> \$file2,
	"o=s"	=> \$outputdir
) or usage();

sub usage {
	exit;
}

my ($nm,$dt,$ext1,$ext2);
my ($match,$tdate,$ttime,$tanum,$tbnum,$tdur,$tamount,$tremarks,$tstd,$th,$tm,$ts,$tt);
my ($cdate,$ctime,$canum,$cbnum,$cdur,$camount,$cremarks,$cstd,$ch,$cm,$cs,$ct);

if (defined($outputdir)) {
	my @tmp = split(/_/, $file1);
	@tmp = reverse(@tmp);
	my $match_file = "$outputdir/DATA_MATCH_$tmp[1]_$tmp[0]";
	my $diff_file = "$outputdir/DATA_MISS_$tmp[1]_$tmp[0]";

	open (MATCH, ">> $match_file") or die ("Can't open $match_file\n");
	open (MISS, ">> $diff_file") or die ("Can't open $diff_file\n");
}

my %status = ();
my ($tk,$ta);

open (FILE1, "$file1") or die ("Can't open $file1\n");
while (my $data = <FILE1>) {
	chomp($data);
	$data =~ s/\"//g;
	($tdate,$ttime,$tanum,$tbnum,$tdur,$tamount,$tremarks,$tstd) = (split(/\,/, $data))[0,1,2,3,4,5,6,7];
	($th,$tm,$ts) = (split(/:/, $ttime))[0,1,2];

	if (defined($minute)) {
		#$tk = floor("$tm" / 10 + 0.5)*10;
		$tk = floor("$tm" / 10)*10;
		if ($tk eq 60) {
			$th++;
			if ($th eq 24) {
				$tt = sprintf ("%02s%02s00","00","00");
			} else {
				$tt = sprintf ("%02s%02s00",$th,"00");
			}
		} else {
			$tt = sprintf ("%02s%02s00",$th,$tk);
		}

	} else {
		#$tk = floor("$tm.$ts" + 0.5);
		$tk = floor("$tm.$ts");
		$tt = sprintf ("%02s%02s00\n",$th,$tk);
	}

	$tanum = substr($tanum,1) if ($tanum =~ /^6/);
	$status{$tanum.$tt} = 1;

}
close(FILE1);

open (FILE2, "$file2") or die ("Can't open $file2\n");
while (my $cdata = <FILE2>) {
	chomp($cdata);
	my $xx;
	$cdata =~ s/\"//g;

	($cdate,$ctime,$canum,$cbnum,$cdur,$camount,$cremarks,$cstd) = (split(/\,/, $cdata))[0,1,2,3,4,5,6,7];
	($th,$tm,$ts) = (split(/:/, $ctime))[0,1,2];

	if (defined($minute)) {
		#$tk = floor("$tm" / 10 + 0.5)*10;
		$tk = floor("$tm" / 10)*10;
		if ($tk eq 60) {
			$th++;
			if ($th eq 24) {
				$tt = sprintf ("%02s%02s00","00","00");
			} else {
				$tt = sprintf ("%02s%02s00",$th,"00");
			}
		} else {
			$tt = sprintf ("%02s%02s00",$th,$tk);
		}

	} else {
		#$tk = floor("$tm.$ts" + 0.5);
		$tk = floor("$tm.$ts");
		$tt = sprintf ("%02s%02s00\n",$th,$tk);
	}

	$xx = $status{$canum.$tt};
			
	if (defined($xx)) {
		print "MATCH,$file1,$file2,$cdate,$ctime,$canum,$cbnum,$cdur,$camount,$cremarks,$cstd\n" if (defined($trace));
		print MATCH "$file1,$file2,$cdate,$ctime,$canum,$cbnum,$cdur,$camount,$cremarks,$cstd\n" if (defined($outputdir));
	} else {
		print "MISS,$file1,$file2,$cdate,$ctime,$canum,$cbnum,$cdur,$camount,$cremarks,$cstd\n" if (defined($trace));
		print MISS "$file1,$file2,$cdate,$ctime,$canum,$cbnum,$cdur,$camount,$cremarks,$cstd\n" if (defined($outputdir));
	}
}
close(FILE2);

close (MATCH) if (defined($outputdir));
close (MISS) if (defined($outputdir));