From 9facbac62227248e7345ff8a966c05f0abe26c7e Mon Sep 17 00:00:00 2001 From: Fridolin Somers Date: Mon, 19 Nov 2018 15:45:49 +0100 Subject: [PATCH] Bug 21865: add confirm to remove_unused_authorities.pl script Like in most scripts in misc, add confirm argument to ensure script is not run without knowing what it does. Test plan: 1) Run misc/migration_tools/remove_unused_authorities.pl -h 2) You see help line for confirm 3) Run misc/migration_tools/remove_unused_authorities.pl 4) You see help and script does nothing 5) Run misc/migration_tools/remove_unused_authorities.pl -c 6) Script runs like wanted --- misc/migration_tools/remove_unused_authorities.pl | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/misc/migration_tools/remove_unused_authorities.pl b/misc/migration_tools/remove_unused_authorities.pl index 41697a0f08..cbde6dd8d4 100755 --- a/misc/migration_tools/remove_unused_authorities.pl +++ b/misc/migration_tools/remove_unused_authorities.pl @@ -29,15 +29,15 @@ use Getopt::Long; use Koha::SearchEngine::Search; my @authtypes; -my $want_help = 0; -my $test = 0; +my ($confirm, $test, $want_help); GetOptions( 'aut|authtypecode:s' => \@authtypes, + 'c|confirm' => \$confirm, 't|test' => \$test, - 'h|help' => \$want_help + 'h|help' => \$want_help, ); -if ($want_help) { +if ( $want_help || !$confirm ) { print_usage(); exit 0; } @@ -128,11 +128,14 @@ particular type will be checked for usage. --aut can be repeated. If --aut is not supplied, all authority records will be checked. +Use --confirm Confirms you want to really run this script, otherwise prints this help. + Use --test to perform a test run. This script does not ask the operator to confirm the deletion of each authority record. parameters --aut|authtypecode TYPE the list of authtypes to check + --confirm or -c confirm running of script --test or -t test mode, don't delete really, just count --help or -h show this message. -- 2.17.1