TraceyC/shell-scripts
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

fix: Make sure variables are populated correctly

Browse source
This commit is contained in:
Tracey Clark 2025-12-07 17:23:46 -06:00
commit e22ab5ec1b
1 changed files with 7 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

10
file_processing/archive_taxes.pl
View file

@ -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::Path qw(make_path remove_tree);
use File::Copy; 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 $now = localtime;
my $year = $now->year; my $year = $now->year;
print "Year is $year\n";
# Get year to archive from current year # Get year to archive from current year
my $lastyear = $now->add_years(-1)->year; my $lastyear = $now->add_years(-1)->year;
my $lasttaxyear = $now->add_years(-2)->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 # Define and create folders
my ( $financial_folder, $financial_archive_folder, $lastyear_folder, $lasttaxyear_folder ); my ( $financial_folder, $financial_archive_folder, $lastyear_folder, $lasttaxyear_folder );
$financial_folder = '/home/tracey/Documents/financial/current_year/'; $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'; $lastyear_folder = $financial_archive_folder . $lastyear . 'FinancialArchives';
$lasttaxyear_folder = $financial_archive_folder . $lasttaxyear . 'TaxArchives'; $lasttaxyear_folder = $financial_archive_folder . $lasttaxyear . 'TaxArchives';
my @folders = ( $financial_folder, $financial_archive_folder, $lastyear_folder, $lasttaxyear_folder ); my @folders = ( $financial_folder, $financial_archive_folder, $lastyear_folder, $lasttaxyear_folder );