source: trunk/LATMOS-Accounts/bin/la-sync-process @ 1806

#!/usr/bin/perl

use strict;
use warnings;
use Getopt::Long;
use Pod::Usage;
use Config::IniFiles;
use LATMOS::Accounts;
use LATMOS::Accounts::SyncManager;
use LATMOS::Accounts::Log;
use LATMOS::Accounts::Task;

GetOptions(
    'c|config=s'   => \my $config,
    'help'         => sub { pod2usage(0) },
) or pod2usage();

my $needsync = 2;

my $syncm = LATMOS::Accounts::SyncManager->new($config) or do {
    la_log LA_ERR, "Cannot instanciate Sync Manager";
    exit(1);
};


foreach my $run (@ARGV) {
    my $res = $syncm->process_module($run);
}