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

Fix calls to subs in module

Browse source
This commit is contained in:
Tracey Clark 2024-03-28 22:12:14 -05:00
commit ef0a2367eb
2 changed files with 8 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

11
file_processing/archive_statements.pl
View file

@ -1,5 +1,8 @@
#!/usr/bin/perl
#!/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
@ -22,14 +25,14 @@ my $financial_archive_folder = '/home/tracey/Documents/financial/1_financial_arc
my $lastyear_folder = $financial_archive_folder . $lastyear . '_FinancialArchives';
create_archive_dirs ( $financial_folder, $lastyear_folder );
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 ( 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
clean_dirs( $financial_folder, $lastyear_folder, $year, $lastyear );
ProcessDirectories::clean_dirs( $financial_folder, $lastyear_folder, $year, $lastyear );