From 444f3d8badcec9c4679507cfdb92d7e8a08bc97c Mon Sep 17 00:00:00 2001 From: Nick Clemens Date: Sat, 23 Mar 2024 16:24:52 +0000 Subject: [PATCH] Bug 37181: Add --confirm option to pseudonymize_statistics.pl To test: 1 - Perform some transactions 2 - Enable Pseudonymization 3 - perl misc/maintenance/pseudonymize_statistics.pl -v 4 - Confirm test run an nothing changed 5 - perl misc/maintenance/pseudonymize_statistics.pl -v -c 6 - Confirm statistics are pseudonymized Signed-off-by: Tomas Cohen Arazi Amend: tidied the changes [tcohen] Signed-off-by: Katrin Fischer --- misc/maintenance/pseudonymize_statistics.pl | 13 +++++++++++-- 1 file changed, 11 insertions(+), 2 deletions(-) diff --git a/misc/maintenance/pseudonymize_statistics.pl b/misc/maintenance/pseudonymize_statistics.pl index 2f950b5c6d..1e51a1b498 100755 --- a/misc/maintenance/pseudonymize_statistics.pl +++ b/misc/maintenance/pseudonymize_statistics.pl @@ -26,12 +26,13 @@ use Koha::PseudonymizedTransactions; use C4::Context; -my ( $help, $verbose, $before ); +my ( $help, $verbose, $before, $confirm ); my $result = GetOptions( 'h|help' => \$help, 'v|verbose' => \$verbose, 'b|before:s' => \$before, -) || pod2usage(1); + 'c|confirm' => \$confirm, +) || pod2usage(0); if ($help) { pod2usage(0); @@ -60,6 +61,10 @@ if ( $statistics->count && $existing_pseudo_stats ) { exit unless uc($continue) eq 'Y'; } +if ( !$confirm ) { + print $statistics->count() . " statistics would have been pseudonymized\n" if $verbose; + exit 1; +} while ( my $statistic = $statistics->next ) { $statistic->pseudonymize(); @@ -94,6 +99,10 @@ Verbose mode. This option allows for specifying a date to pseudonmyize before. Useful if you have enabled pseudonymization and want to pseudonymize transactions before that date. If not passed all statistics before current time will be pseudonymized. +=item B<-c|--confirm> + +Without this parameter the script will be run in test mode and no changes will be made. + =back =head1 AUTHOR