From 5b025a79d7c15d7209da23ef1941add8f228371a Mon Sep 17 00:00:00 2001 From: Paul Poulain Date: Wed, 19 Jan 2011 21:58:53 +0100 Subject: [PATCH] BZ5636 MT#4916 permit tools/cleanborrowers.pl to be used by command line This patchs adds the possibility to run the script by command line. Signed-off-by: Chris Cormack --- tools/cleanborrowers.pl | 69 +++++++++++++++++++++++++++++++++++++++++++++++ 1 files changed, 69 insertions(+), 0 deletions(-) diff --git a/tools/cleanborrowers.pl b/tools/cleanborrowers.pl index 4fde0f2..cd99190 100755 --- a/tools/cleanborrowers.pl +++ b/tools/cleanborrowers.pl @@ -41,6 +41,75 @@ use C4::Dates qw/format_date format_date_in_iso/; use C4::Members; # GetBorrowersWhoHavexxxBorrowed. use C4::Circulation; # AnonymiseIssueHistory. use Date::Calc qw/Today Add_Delta_YM/; +use Getopt::Long; + +if ( scalar @ARGV > 0 ) { + my ($untildate, $delete, $full, $anonymize, $help, $test); + my ($totalDel, $totalAno, $membersToDelete, $membersToAnonymize) = (0,0,0,0); + GetOptions( 'until=s' => \$untildate, + 'delete' => \$delete, + 'anonymize' => \$anonymize, + 'full' => \$full, + 'help|h' => \$help, + 'test|t' => \$test, + ); + + if($help or not $untildate){ + print <{'borrowernumber'} ); + } + }else{ + foreach my $member (@$membersToDelete){ + MoveMemberToDeleted( $member->{'borrowernumber'} ); + DelMember( $member->{'borrowernumber'} ); + } + } + } + + if($anonymize){ + print "Anonimyzing check-out history...\n"; + AnonymiseIssueHistory($untildate); + } + + print "Cleaning borrowers successfully finished.\n"; + exit; +} my $cgi = new CGI; -- 1.7.4.1