view release on metacpan or  search on metacpan

bin/koha-ark  view on Meta::CPAN

#!/usr/bin/perl

package Main;
$Main::VERSION = '1.1.2';
# PODNAME: koha-ark
# ABSTRACT: Manage ARK identifiers in a Koha Catalog

use Modern::Perl;
use Pod::Usage;
use Getopt::Long;
use Koha::Contrib::ARK;

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

my ($help, $verbose, $where, $doit, $debug) = (0, 1, '', 0, 0);
GetOptions( 
    'verbose!' => \$verbose,
    'doit'     => \$doit,
    'where=s'  => \$where,
    'help|h'   => \$help,
    'debug'    => \$debug,
);

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


usage() if $help || @ARGV != 1;

my $cmd = shift @ARGV;
usage() if $cmd !~ /clear|update|fix|check/;

my $ark = Koha::Contrib::ARK->new(
    cmd          => $cmd,
    fromwhere    => $where,
    debug        => $debug,
    verbose      => $verbose,
    doit         => $doit,
);
$ark->run();

__END__

=pod

=encoding UTF-8

=head1 NAME

koha-ark - Manage ARK identifiers in a Koha Catalog

=head1 VERSION

version 1.1.2

=head1 DESCRIPTION

Process biblio records from a Koha Catalog in order to update its ARK
identifiers. See L<The ARK Identifier
Scheme|https://tools.ietf.org/id/draft-kunze-ark-15.txt>. The processing is
driven by ARK_CONF Koha system preference. It's a json variable. For example:

 {
   "ark": {
     "NMHA": "myspecial.institution.fr",
     "NAAN": "12345",