view release on metacpan or  search on metacpan

bin/koha-authoritize  view on Meta::CPAN

#!/usr/bin/perl 

package Main;
$Main::VERSION = '0.074';
use Modern::Perl;
use utf8;
use Pod::Usage;
use Koha::Contrib::Tamil::Koha;
use MARC::Moose::Reader::File::Iso2709;
use MARC::Moose::Writer;
use MARC::Moose::Parser::Iso2709;
use Koha::Contrib::Tamil::Authority::FromFile;


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


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


sub run {
    my ($from, $to, $authority) = (shift, shift, shift);
    my $equival = @_ ? shift : '';

    open my $fh, ">:encoding(utf8)", $to;
    my $fp = Koha::Contrib::Tamil::Authority::FromFile->new(
        koha      => Koha::Contrib::Tamil::Koha->new(),
        authority => $authority,
        reader    => MARC::Moose::Reader::File::Iso2709->new(
            file => $from,
        ),
        writer    => MARC::Moose::Writer->new(
            fh       => $fh,
            formater => MARC::Moose::Formater::Iso2709->new() ),
        verbose   => 1,
        log_filename => "./authoritize.log",
    );
    $fp->equivalence($equival) if $equival;
    $fp->log->info(
        "AUTORITISATION\n" .
        "  fichier source          : $from\n" .
        "  fichier destination     : $to\n" .
        "  fichier des candidats   : $authority\n" .
        ( $equival ?
        "  fichier des équivalence : $equival\n" :
        "" ) .
        "\n"
    );
    $fp->run();
}


usage() if $#ARGV != 2 and $#ARGV != 3;
run(@ARGV);

__END__

=pod

=encoding UTF-8