ocrtask

#!/usr/bin/env perl

use strict;
use warnings;
use FindBin;
use lib "$FindBin::RealBin/../lib";
use Getopt::Long;
use CIHM::Meta::Ocrtask;
use Fcntl qw(:DEFAULT :flock);
use Try::Tiny;
use Log::Log4perl;

Log::Log4perl->init_once("/etc/canadiana/tdr/log4perl.conf");
my $logger = Log::Log4perl::get_logger("CIHM::TDR");

my $lockfile = '/var/lock/tdr/ocrtask';
$lockfile = $ENV{ocrtask_lockfile} if ( exists $ENV{ocrtask_lockfile} );

my $ocrdir = '/crkn-nas-wip/_OCR/';
$lockfile = $ENV{ocrtask_ocrdir} if ( exists $ENV{ocrtask_ocrdir} );

my $maxprocs = 4;
$maxprocs = $ENV{ocrtask_maxprocs} if ( exists $ENV{ocrtask_maxprocs} );

my $swift_server;
$swift_server = $ENV{SWIFT_server} if ( exists $ENV{SWIFT_server} );

my $swift_user;
$swift_user = $ENV{SWIFT_user} if ( exists $ENV{SWIFT_user} );

my $swift_password;
$swift_password = $ENV{SWIFT_password} if ( exists $ENV{SWIFT_password} );

my $swift_account;
$swift_account = $ENV{SWIFT_account} if ( exists $ENV{SWIFT_account} );

my $swift_access_metadata;
$swift_access_metadata = $ENV{SWIFT_access_metadata}
  if ( exists $ENV{SWIFT_access_metadata} );

my $swift_access_files;
$swift_access_files = $ENV{SWIFT_access_files}
  if ( exists $ENV{SWIFT_access_files} );

my $swift_retries = 5;
$swift_retries = $ENV{SWIFT_retries}
  if ( exists $ENV{SWIFT_retries} );

my $couchdb_ocrtask;
$couchdb_ocrtask = $ENV{COUCHDB_OCRTASK} if ( exists $ENV{COUCHDB_OCRTASK} );

my $couchdb_canvas;
$couchdb_canvas = $ENV{COUCHDB_CANVAS} if ( exists $ENV{COUCHDB_CANVAS} );

my $couchdb_access;
$couchdb_access = $ENV{COUCHDB_ACCESS} if ( exists $ENV{COUCHDB_ACCESS} );

GetOptions(
    'couchdb_ocrtask:s'       => \$couchdb_ocrtask,
    'couchdb_access:s'        => \$couchdb_access,
    'couchdb_canvas:s'        => \$couchdb_canvas,
    'lockfile:s'              => \$lockfile,
    'ocrdir:s'                => \$ocrdir,
    'maxprocs:i'              => \$maxprocs,
    'swift_server:s'          => \$swift_server,
    'swift_user:s'            => \$swift_user,
    'swift_password:s'        => \$swift_password,
    'swift_account:s'         => \$swift_account,
    'swift_access_metadata:s' => \$swift_access_metadata,
    'swift_access_files:s'    => \$swift_access_files,
    'swift_retries:i'         => \$swift_retries,
);

# Only allow one instance to run at a time..
sysopen( FH, $lockfile, O_WRONLY | O_CREAT )
  or die "can't open lockfile=$lockfile: $!\n";
flock( FH, LOCK_EX | LOCK_NB )
  or exit 0;

$swift_retries = int($swift_retries);
die "swift_retries must be a positive integer\n" if ( $swift_retries < 1 );

die "couchdb_ocrtask is mandatory (environment or parameter)\n"
  if ( !$couchdb_ocrtask );
$couchdb_ocrtask = noEndSlash($couchdb_ocrtask);

die "couchdb_canvas is mandatory (environment or parameter)\n"
  if ( !$couchdb_canvas );
$couchdb_canvas = noEndSlash($couchdb_canvas);

die "couchdb_access is mandatory (environment or parameter)\n"
  if ( !$couchdb_access );
$couchdb_access = noEndSlash($couchdb_access);

try {
    CIHM::Meta::Ocrtask->new(
        {
            maxprocs              => $maxprocs,
            swift_server          => $swift_server,
            swift_user            => $swift_user,
            swift_password        => $swift_password,
            swift_account         => $swift_account,
            swift_access_metadata => $swift_access_metadata,
            swift_access_files    => $swift_access_files,
            swift_retries         => $swift_retries,
            couchdb_access        => $couchdb_access,
            couchdb_canvas        => $couchdb_canvas,
            couchdb_ocrtask       => $couchdb_ocrtask,
            logger                => $logger,
            ocrdir                => $ocrdir,
        }
    )->ocrtask;
}
catch { $logger->error("$_"); };

sub noEndSlash {
    my ($url) = @_;

    $url =~ s|/*$||;
    return $url;
}

1;
__END__