3 # Copyright 2009-2010 Kyle Hall
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>.
25 # find Koha's Perl modules
26 # test carefully before changing this
28 eval { my $lib = "$FindBin::Bin/../kohalib.pl"; require $lib };
32 use C4
::Members qw
/ DelMember /;
40 'c|confirm' => \
$confirm,
41 't|time=i' => \
$hours,
43 my $usage = << 'ENDUSAGE';
45 IMPORTANT
: You should
no longer call this script
. Please
use
46 cleanup_database
.pl with parameter
--del
-unv
-selfreg
.
48 This script removes unconfirmed OPAC based patron registrations
49 that have
not been confirmed within the required
time period
.
51 This script has the following parameters
:
52 -h
--help
: This message
54 -t
--time: The
length in hours to
wait before removing an unconfirmed registration
.
55 Defaults to
24 hours
if not set
.
57 -c
--confirm
: Without this flag set
, this script will
do nothing
.
60 if ( $help || !$confirm ) {
65 my $d= $hours>=24?
int($hours/24): 1;
66 my $c= "$FindBin::Bin/cleanup_database.pl -del-unv-selfreg $d";