view release on metacpan or  search on metacpan

bin/koha-overdue  view on Meta::CPAN

#!/usr/bin/perl

package Main;
$Main::VERSION = '0.074';
# PODNAME: koha-overdue
# ABSTRACT: Claim overdues each day, grouping same overdues


use Modern::Perl;
use Koha::Contrib::Tamil::Overdue;
use Pod::Usage;
use Getopt::Long;


binmode(STDOUT, ':encoding(utf8)');


my ($verbose, $help, $doit) = (0, 0, 0);
GetOptions( 
    'verbose' => \$verbose,
    'help'    => \$help,
    'doit'    => \$doit,
);


sub usage {
    pod2usage( -verbose => 2 );
    exit;  
}

usage()  if @ARGV == 0 || $help;

my $overdue = Koha::Contrib::Tamil::Overdue->new( doit => $doit, verbose => $verbose );

no strict "refs";
for (@ARGV) {
    usage()  unless /process|clear|email|print/;
    $overdue->meta->get_method($_)->($overdue);
}

__END__

=pod

=encoding UTF-8

=head1 NAME

koha-overdue - Claim overdues each day, grouping same overdues

=head1 VERSION

version 0.074

=head1 DESCRIPTION

Process Koha overdues.

The script requires to operate a configuration file (config.yaml) located in
Koha etc/overdue directory. 

=head1 USAGE

=over

=item koha-overdue [--verbose|--help|--doit] process|clear|email|print 

=back