#!/usr/bin/perl

# Copyright (C) 2006  RoyaltyShare, Inc.   All Rights Reserved
# $Id$

use strict;

use lib '/app/tools/common/lib';
use Common::RSApp;



# Use a global hash to hold application settings.
#
my %gSettings;


# Set default settings
#
_setDefaultSettings(\%gSettings);


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


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


# We'll use STDOUT for output.
#
my $fh = \*STDOUT;


# Create the mechanical run object.
# (XXX) This will update the database.
# jpk - the point of the MechanicalRun object is to provide an abstraction around
# all the state (i.e. the data) of this run.  Rather than going to the database directly
# for the mechanical_statement-related stuff, we'll go through this class.
#
my $run = MechanicalRun->new
(
    clientID => $gSettings{clientID},
    startDate => $gSettings{startDate},
    endDate => $gSettings{endDate},
    dryRun => $gSettings{dryRun},       # pass 1 if you want to skip writing anything out to the db
    verbosity => $gSettings{verbosity},
    showProgress => $gSettings{showProgress},
    outputFileHandle => $fh,
);


# So... let's run some mechanicals!
#
$run->calculateMechanicals();

$run->commitToDB();

$run->writeCache();


# --------------------------------------------------------------------



sub _setDefaultSetings
{
    my ($settings) = @_;

    $settings->{verbosity} = 1;
    $settings->{showProgress} = 1;
}



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

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

    if (! $opt{s} || ! $opt{e} || ! $opt{c})
    {
        _usage();
        exit(1);
    }
    $settings->{startDate} = $opt{s};
    $settings->{endDate} = $opt{e};
    $settings->{clientID} = $opt{c};

    if (defined $opt{V})
    {
        $settings->{verbosity} = $opt{V};
    }
}


sub _usage
{
    print "\nusage: $0 -c client_id -s start_date -e end_date [-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-s <date>\t\tThe first day of the period to process, in YYYY-MM-DD format\n";
    print "\t-e <date>\t\tThe last day of the period to process, in YYYY-MM-DD format\n";
    print "\t-V <N>\t\t\tVerbosity level - 0 means no output\n";
}