3 # Copyright 2010 Biblibre SARL
5 # This file is part of Koha.
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.
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.
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>.
23 # find Koha's Perl modules
24 # test carefully before changing this
26 eval { require "$FindBin::Bin/../kohalib.pl" };
29 use Getopt::Long qw( GetOptions );
31 use Koha::Script -cron;
33 use C4::Log qw( cronlogaction );
36 my ( $help, $days, $confirm );
41 'confirm'=> \$confirm,
44 my $usage = << 'ENDUSAGE';
45 This script deletes old suggestions
48 -days TTT to define the age of suggestions to delete
49 -confirm flag needed to confirm purge operation
51 The days parameter falls back to the value of system preference
52 PurgeSuggestionsOlderThan. Suggestions are deleted only for a positive
57 $usage .= $0 . " -confirm -days 30\n";
59 # If this script is called without the 'days' parameter, we use the system preferences value instead.
60 $days = C4::Context->preference('PurgeSuggestionsOlderThan') if !defined($days);
62 # If this script is called with the 'help' parameter, we show up the help message and we leave the script without doing anything.
63 if( !$confirm || $help || !defined($days) ) {
64 print "No confirm parameter passed!\n\n" if !$confirm && !$help;
66 } elsif( $days and $days > 0 ) {
67 cronlogaction( " ( days: $days )");
68 DelSuggestionsOlderThan($days);
70 warn "This script requires a positive number of days. Aborted.\n";