View | Details | Raw Unified | Return to bug 23260
Collapse All | Expand All

(-)a/misc/cronjobs/anonymize_last_borrowers.pl (-2 / +9 lines)
Lines 36-41 use C4::Log; Link Here
36
sub usage {
36
sub usage {
37
    print STDERR <<USAGE;
37
    print STDERR <<USAGE;
38
Usage: $0  [-h|--help]
38
Usage: $0  [-h|--help]
39
   -c --confirm       required to actually perform the anonymization
39
   -v --verbose       gives a little more information
40
   -v --verbose       gives a little more information
40
   -h --help          prints this help message, and exits, ignoring all
41
   -h --help          prints this help message, and exits, ignoring all
41
                      other options
42
                      other options
Lines 44-54 USAGE Link Here
44
    exit $_[0];
45
    exit $_[0];
45
}
46
}
46
47
47
my ( $help, $verbose );
48
my ( $help, $verbose, $confirm );
48
49
49
GetOptions(
50
GetOptions(
50
    'h|help'    => \$help,
51
    'h|help'    => \$help,
51
    'v|verbose' => \$verbose,
52
    'v|verbose' => \$verbose,
53
    'c|confirm' => \$confirm,
52
) || usage(1);
54
) || usage(1);
53
55
54
if ($help) {
56
if ($help) {
Lines 62-67 if ( !$pref ) { Link Here
62
    usage(1);
64
    usage(1);
63
}
65
}
64
66
67
unless ($confirm) {
68
    print STDERR "You must use the --confirm flag to run this script.\n";
69
    print STDERR "Add --confirm to actually perform the anonymization.\n";
70
    exit(1);
71
}
72
65
cronlogaction();
73
cronlogaction();
66
74
67
my $rows = Koha::Patrons->anonymize_last_borrowers();
75
my $rows = Koha::Patrons->anonymize_last_borrowers();
68
- 

Return to bug 23260