#!/usr/bin/perl
use strict;
use warnings;

use Path::Class;
use autodie;
use Text::CSV;

#-----VARIABLES-----
my @OUTPUT;
my $sp = " ";
my $seq_num = 0;
my ($prev_amt_due, $payment_rec) = 0;
my ($return_1, $return_2, $return_3, $return_4);
my ($mail_to_1, $mail_to_2, $mail_to_3, $mail_to_4);
my ($service_1, $service_2, $service_3, $service_4);
my ($due_date, $bill_date, $amt_due, $t_amt_due, $past_amt, $cur_amt, $phone); 
my ($cur_temp, $prev_temp, $ly_temp);
my ($cur_days, $prev_days, $ly_days);
my ($cur_usage, $prev_usage, $ly_usage);


#-----MAIN-----
my $dir = dir("C:/perl"); #Set the working directory
my $file = $dir->file("c2_sample_file.txt"); #Set the working file
open my $fh, '<:encoding(UTF-8)', $file; #Open the input file

local $/ = "\014"; #Set Input Record Separator to line break

#Loop through reading on record at a time

while (<$fh>) {
		chomp;  #Removes the control character
		my @LINES = split(/\n/, $_, -1); #Split on line break creating array
		my @RECORDS = formatC2(@LINES);
		
		$OUTPUT[$seq_num] = [@RECORDS];	
}
close $fh;

#Currently for checking data conversion accuracy
for my $i ( 1 .. $#OUTPUT ) {
		for my $j ( 0 .. $#{ $OUTPUT[$i] } ) {
				print "elt $i $j is $OUTPUT[$i][$j]\n";
        sleep 1;
    }
}



#-----SUBROUTINES-----
sub ltrim { my $s = shift; $s =~ s/^\s+//;       return $s };
sub rtrim { my $s = shift; $s =~ s/\s+$//;       return $s };
sub  trim { my $s = shift; $s =~ s/^\s+|\s+$//g; return $s };

sub writeCSV {}

sub formatC2 {
	$seq_num += 1; #Increment for seq_num
	my @RECORD = @_; #Dereference the array
	my $needs_bre = 1; #Default to True for each record
	my $is_budget = 0; #Default to False for each record 
				
	#Misc + Account Number
	$RECORD[0] = trim($RECORD[0]); #Trim line 1 -> L1
	$RECORD[2] = trim($RECORD[2]); #Trim line 3 -> L3
	$RECORD[5] = trim($RECORD[5]); #Trim line 6 -> Account Number
	
	#Return Address Block
	$return_1 = trim(substr $RECORD[7], 0, 38);
	$return_2 = trim(substr $RECORD[8], 0, 38);
	$return_3 = trim(substr $RECORD[9], 0, 38);
	$return_4 = trim(substr $RECORD[10], 0, 38);
		
	#Service Address Block
	$service_1 = trim(substr $RECORD[23], 0, 36); 
	$service_2 = trim(substr $RECORD[24], 0, 36); 
	$service_3 = trim(substr $RECORD[25], 0, 36); 
	$service_4 = trim(substr $RECORD[26], 0, 36); 
		
	#-------------------------------------------------------------
	#Conditions used to protect against short lines due to no data
	#--------------------------------------------------------------
		
	#Mail To Address Block
	if (length($RECORD[7])>38)  {$mail_to_1 = trim(substr $RECORD[7], 38,  length($RECORD[7])-38); }
	if (length($RECORD[8])>38)  {$mail_to_2 = trim(substr $RECORD[8], 38,  length($RECORD[8])-38); }
	if (length($RECORD[9])>38)  {$mail_to_3 = trim(substr $RECORD[9], 38,  length($RECORD[9])-38); }
	if (length($RECORD[10])>38) {$mail_to_4 = trim(substr $RECORD[10], 38, length($RECORD[10])-38); } 
		
	#Bill and Due Date
	if (length($RECORD[23])>59) { $due_date = trim(substr $RECORD[23], 58, 10); } 
	if (length($RECORD[24])>59) { $bill_date = trim(substr $RECORD[24], 58, 10); } 
		
	#Amount Due
	if (length($RECORD[25])>59) { $amt_due = trim(substr $RECORD[25], 58, 10); } 
			
	#Total Amount Due
	if (length($RECORD[19])>56) { $t_amt_due = trim(substr $RECORD[19], 55, 15); } 
		
	#Phone Number
	if (length($RECORD[55]) > 21) { $phone = trim(substr $RECORD[55], 21, 14); }
		
	#Temperature - Current, Previous, Last Year
	if (length($RECORD[55]) > 49) { $cur_temp = trim(substr $RECORD[55], 49, 5); }
	if (length($RECORD[56]) > 49) { $prev_temp = trim(substr $RECORD[56], 49, 5); }
	if (length($RECORD[57]) > 49) { $ly_temp = trim(substr $RECORD[57], 49, 5); }
		
	#Days - Current, Previous, Last Year
	if (length($RECORD[55]) > 56) { $cur_days = trim(substr $RECORD[55], 56, 2); } 
	if (length($RECORD[56]) > 56) { $prev_days = trim(substr $RECORD[56], 56, 2); } 
	if (length($RECORD[57]) > 56) { $ly_days = trim(substr $RECORD[57], 56, 2); } 
		
	#Usage - Current, Previous, Last Year
	if (length($RECORD[55]) > 64) { $cur_usage = trim(substr $RECORD[55], 64, 6); } 
	if (length($RECORD[56]) > 64) { $prev_usage = trim(substr $RECORD[56], 64, 6); } 
	if (length($RECORD[57]) > 64) { $ly_usage = trim(substr $RECORD[57], 64, 6); }
		
	#Detail Lines
	my $det_line = 29; #Set to first detail line
		
	while ($det_line <= 54) {
	        local $_ = $RECORD[$det_line];
			
		my $chkr = "This bill will be automatically drafted from your bank account.";
		if(trim($_) eq $chkr) { $needs_bre = 0; } #No BRE if auto draft
				
		#If pattern match is true set $past_amt to "X"
		if (m/\s+.+\sbudget\s/) { 
			$past_amt = "X";
			 $is_budget = 1;
				 						 		
			 	#Change message if both pattern and needs_bre conditions are met
			 	if ($needs_bre == 0) {
			 		my $t_budg_amt = substr($RECORD[$det_line], 39, 15); #Extract budget amount for new message
				 				
			 		$RECORD[$det_line-3] = "    Your budget amount of $t_budg_amt will be automatically drafted";
			 		$RECORD[$det_line-2] = "    from your bank account";
			 		$RECORD[$det_line-1] = "";
			 		$RECORD[$det_line] = "";
			 		$det_line +=1; next;
			 	}
			}
			 if (length($_) > 34){$chkr = substr($_, 34, 1);}
			 my $chkr2 = substr($_, 0, 32);
				 
			#Use Regex to check for pattern
			if ($chkr eq ".") { 
				#Pad with additional spaces
				 $RECORD[$det_line] = $sp x 4 .substr($_, 1, 4).$sp x 5 .substr($_, 7, 5).$sp x 8 .substr($_, 14, 5).$sp x 7 .				  substr($_, 22, 1).$sp x 4 .substr($_, 26, 10).$sp x 9 .substr($_, 36,10).$sp.substr($_, 47, 10).$sp x 2 .
				  substr($_, 57, 11);
				  $det_line +=1; next;
			}
			elsif (m/^\sMeter\s#.+\.\d\d$/) { 
				#Pad with additional spaces
				 $RECORD[$det_line] = $sp x 4 .substr($_, 1, 18).$sp x 53 .substr($_, 47, 10).substr($_, 57, 11);
				 $det_line +=1; next;
			}
			elsif ($chkr2 =~ /^\s*$/){
			 	 if (m/^\s+Current\sCharges\s+\d+\.\d+$/) { $cur_amt = trim(substr $RECORD[$det_line], 56, 12); }
				 if (m/^\s+Previous\sAmount\sDue\s+\d+\.\d+$/){
				 		$prev_amt_due = trim(substr $RECORD[$det_line], 56,12);		
				 		$prev_amt_due =~ s/,//g;
				 }
				 if (m/^\s+Payment\sReceived\s/){
				 		$payment_rec = trim(substr $RECORD[$det_line], 56,12);
				 		$payment_rec =~ s/,//g;
				 }			 	
				 $RECORD[$det_line] = $sp x 26 .$RECORD[$det_line];
			}
			else {
				$RECORD[$det_line] = $sp x 4 .ltrim(substr($_, 0, 56).$sp x 26 .substr($_, 57, 14));
			}
			
			if ($det_line == 54){
			 	my $result = $prev_amt_due - $payment_rec; #See if last payment covered amt due
				if ($result > 0 and $is_budget == 0) { $past_amt = sprintf("%.2f", $result); }	
			}
				 
			$det_line += 1;
	}
		
		
		
	#Create Return Array
	$det_line = 29;
	my @TEMP = sprintf "%05d", $seq_num; #Pad the seq_num
	push @TEMP, sprintf("%05d", $seq_num)."1".$needs_bre."1"; #Create Barcode field
	push @TEMP, $RECORD[0], $RECORD[2], $RECORD[5];
	push @TEMP, $return_1, $return_2, $return_3, $return_4;
	push @TEMP, $mail_to_1, $mail_to_2, $mail_to_3, $mail_to_4;
	push @TEMP, $service_1, $service_2, $service_3, $service_4;
	push @TEMP, $due_date, $bill_date, $amt_due, $t_amt_due, $phone;
	push @TEMP, $cur_temp, $prev_temp, $ly_temp;
	push @TEMP, $cur_days, $prev_days, $ly_days;
	push @TEMP, $cur_usage, $prev_usage, $ly_usage;
	push @TEMP, $cur_amt, $past_amt;
	while ($det_line <= 54) {
		push @TEMP, $RECORD[$det_line];
		$det_line += 1;
	}
		
		
		
	
	@TEMP #Pass back array
}