#!/usr/bin/env perl
use Modern::Perl;

use FindBin qw($Bin);
use lib "$Bin/lib";
use ProcessDirectories;

# Script to archive the financial data from the previous year
use Carp qw( croak );
# use File::Basename;
# use File::Find::Rule;
# use File::Copy::Recursive qw(dircopy);
# use File::DirCompare;
# use Getopt::Long qw(GetOptionsFromArray);
use Time::Piece qw/localtime/;

my $now      = localtime;
my $year     = $now->year;
my $lastyear = $now->add_years(-1)->year;
print("Current year: $year   Last year: $lastyear\n");

# Define and create folders
my $financial_folder         = '/home/tracey/Documents/financial/current_year/';
my $financial_archive_folder = '/home/tracey/Documents/financial/1_financial_archives/';
my $lastyear_folder          = $financial_archive_folder . $lastyear . '_FinancialArchives';


ProcessDirectories::create_archive_dirs ( $financial_folder, $lastyear_folder );

# Make sure contents match before we do any deleting
# croak on errors to guard against data loss
# my $same_result = compare_dirs( $financial_folder, $lastyear_folder );
croak "Error: The source and destintion folder contents are not the same!" unless ( ProcessDirectories::compare_dirs( $financial_folder, $lastyear_folder ) );

# Delete all files from current year from archive folders
# Also delete files from last year in current year folder
ProcessDirectories::clean_dirs( $financial_folder, $lastyear_folder, $year, $lastyear );