#!/usr/bin/perl
#------------------------------------------------------------ 
# Copyright (C) 2009 RoyaltyShare, Inc.   All Rights Reserved
#------------------------------------------------------------ 
use strict;

use Data::Dumper;
use Getopt::Std;

use lib '/app/tools/common/lib';
use Common::Assert;
use Common::Log;

use lib '/app/tools/rps/lib';
use RPS::Mechanical::UK::Process::RunController;


# Allow tuning of the verbosity of our output.
#
my $gVerbosityLevel = 1;


# Parse the command-line options.
#
my %gOptions;
_parseCommandLine(\%gOptions);


# Install a signal handler to catch ctrl-c
#
$SIG{INT} = \&CTRL_C;
$SIG{TERM} = \&KILL_TERM;

    
# Instantiate the application singleton object.
#
my $appSingleton = Common::RSApp->new(clientID => $gOptions{clientID});


# Instantiate the run controller object, then let 'er rip.
#
my $gController = RPS::Mechanical::UK::Process::RunController->new(runID => $gOptions{runID}, logLevel => $gVerbosityLevel);
$gController->execute();


sub CTRL_C
{
    Common::Log::Print("caught a ctrl-c, aborting");
    $gController->interupt();
    exit(1);
}

sub KILL_TERM
{
    Common::Log::Print("caught a term signal, aborting");
    $gController->interupt();
    exit(1);
}


# Pass dates in 'yyyy-mm-dd' format.
#
sub _parseCommandLine
{
    my ($settings) = @_;

    my %opt;
    getopts('r:c:V:', \%opt);

    if (! $opt{r} || ! $opt{c})
    {
        _usage();
        exit(1);
    }
    $settings->{runID} = $opt{r};
    $settings->{clientID} = $opt{c};

    if (defined $opt{V})
    {
        $gVerbosityLevel = $opt{V};
    }
}


sub _usage
{
    print "\nusage: $0 -c client_id -r run_id [-V n]\n";
    print "\n";
    print "Arguments:\n";
    print "\t-c <client_id>\t\tThe client_id of the client to process\n";
    print "\t-r <run_id>\t\tThe id of the artist royalty run to process\n";
    print "\t-V <N>\t\t\tVerbosity level - 0 means no output\n";
}