fix: Make sure variables are populated correctly
This commit is contained in:
parent
986b3bc1ba
commit
e22ab5ec1b
1 changed files with 7 additions and 3 deletions
|
|
@ -7,20 +7,24 @@ use File::Find::Rule; # find all the subdirectories of a given directory
|
|||
use File::Path qw(make_path remove_tree);
|
||||
use File::Copy;
|
||||
|
||||
## Need to look at this and see what its doing
|
||||
# These days can just archive taxes for last year during this year
|
||||
# ex archive 2023 taxes if running in 2024
|
||||
# Also think this is doing double work with archive_statements
|
||||
|
||||
my $now = localtime;
|
||||
my $year = $now->year;
|
||||
print "Year is $year\n";
|
||||
|
||||
# Get year to archive from current year
|
||||
my $lastyear = $now->add_years(-1)->year;
|
||||
my $lasttaxyear = $now->add_years(-2)->year;
|
||||
|
||||
print("Last year was $lastyear and tax year was $lasttaxyear\n");
|
||||
print("Processing taxes for year $lastyear\n");
|
||||
|
||||
# Define and create folders
|
||||
my ( $financial_folder, $financial_archive_folder, $lastyear_folder, $lasttaxyear_folder );
|
||||
$financial_folder = '/home/tracey/Documents/financial/current_year/';
|
||||
$financial_archive_folder = '/home//Documents/financial/1_financial_archives/';
|
||||
$financial_archive_folder = '/home/tracey/Documents/financial/1_financial_archives/';
|
||||
$lastyear_folder = $financial_archive_folder . $lastyear . 'FinancialArchives';
|
||||
$lasttaxyear_folder = $financial_archive_folder . $lasttaxyear . 'TaxArchives';
|
||||
my @folders = ( $financial_folder, $financial_archive_folder, $lastyear_folder, $lasttaxyear_folder );
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue