misc/cronjobs/batch_anonymise.pl

   1 #!/usr/bin/perl
   2
   3 # Copyright 2011, ByWater Solutions.
   4 #
   5 # This file is part of Koha.
   6 #
   7 # Koha is free software; you can redistribute it and/or modify it
   8 # under the terms of the GNU General Public License as published by
   9 # the Free Software Foundation; either version 3 of the License, or
  10 # (at your option) any later version.
  11 #
  12 # Koha is distributed in the hope that it will be useful, but
  13 # WITHOUT ANY WARRANTY; without even the implied warranty of
  14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  15 # GNU General Public License for more details.
  16 #
  17 # You should have received a copy of the GNU General Public License
  18 # along with Koha; if not, see <http://www.gnu.org/licenses>.
  19
  20 use Modern::Perl;
  21
  22 use Koha::Script -cron;
  23
  24 use C4::Context;
  25 use C4::Log qw( cronlogaction );
  26
  27 use Koha::Database;
  28 use Koha::DateUtils qw(dt_from_string output_pref);
  29 use Koha::Old::Checkouts;
  30 use Koha::Old::Holds;
  31
  32 use Getopt::Long qw( GetOptions );
  33
  34 sub usage {
  35     print STDERR <<USAGE;
  36 Usage: $0  --days DAYS  [-h|--help]
  37    --days DAYS        (MANDATORY) anonymise patron history that is older than DAYS days.
  38    -v --verbose       gives a little more information
  39    -h --help          prints this help message, and exits, ignoring all
  40                       other options
  41 Note: If the system preference 'AnonymousPatron' is not defined, NULL will be used.
  42 USAGE
  43     exit $_[0];
  44 }
  45
  46 my $command_line_options = join(" ",@ARGV);
  47
  48 my ( $help, $days, $verbose );
  49
  50 GetOptions(
  51     'h|help'       => \$help,
  52     'days:i'       => \$days,
  53     'v|verbose'    => \$verbose,
  54 ) || usage(1);
  55
  56 if ($help) {
  57     usage(0);
  58 }
  59
  60 if ( !$days  ) {
  61     print "The days parameter is mandatory.\n\n";
  62     usage(1);
  63 }
  64
  65 cronlogaction({ info => $command_line_options });
  66
  67 my $date = dt_from_string->subtract( days => $days );
  68
  69 print "Checkouts and holds before " . output_pref( { dt => $date, dateformat => 'iso', dateonly => 1 } ) . " will be anonymised.\n"
  70   if $verbose;
  71
  72 my $rows = Koha::Old::Checkouts
  73           ->filter_by_anonymizable
  74           ->filter_by_last_update( { days => $days, timestamp_column_name => 'returndate' })
  75           ->anonymize;
  76
  77 $verbose and print int($rows) . " checkouts anonymised.\n";
  78
  79 $rows = Koha::Old::Holds
  80           ->filter_by_anonymizable
  81           ->filter_by_last_update( { days => $days } )
  82           ->anonymize;
  83
  84 $verbose and print int($rows) . " holds anonymised.\n";
  85
  86 cronlogaction({ action => 'End', info => "COMPLETED" });
  87
  88 exit(0);