#!/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); }