#!/usr/bin/perl

use lib '_opals_www_/module';
use Opals::Context('/etc/opals/conf/_sample_');

use strict;

use Opals::Mail qw(
    mail_sendQueuedMail
);
use Opals::Marc21 qw(
    mc21_import
    mc21_export
);
use Opals::MarcXml qw(
    mxml_processReplaceItemType
    mxml_processGE852
);
use Opals::Session qw(
    SessionHdl_clean
);
use Opals::Tb_Import qw(
    tb_m21_import
    tb_csv_import
);
use Opals::Template qw(
    tmpl_preference
);
use Opals::WebServiceClient qw(
    wsc_sendNextUpdateRequest2Union
    wsc_sendCircData
);

############################################################
my $scriptname = `basename $0`;
chomp $scriptname;

my $isRunning = `ps -ef | grep '/etc/opals/script/site/$scriptname' | grep perl | grep -v grep | /usr/bin/wc | /bin/gawk '{print \$1}'`;
chomp($isRunning);
if ($isRunning > 1) {
    print "is running...\n";
    exit 1;
}
############################################################

my $dbh = Opals::Context->dbh();
END { $dbh->disconnect(); }


mc21_import($dbh);
mc21_export($dbh);
tb_m21_import($dbh);
tb_csv_import($dbh);
mxml_processReplaceItemType($dbh);
mxml_processGE852($dbh);
SessionHdl_clean($dbh,24*60);
wsc_sendNextUpdateRequest2Union($dbh);
wsc_sendCircData($dbh);

my $pref    = tmpl_preference($dbh);
mail_sendQueuedMail($dbh,$pref);


exit 0;