#---------------------------------------------------------------
# ____                   _ _         ____  _
#|  _ \ ___  _   _  __ _| | |_ _   _/ ___|| |__   __ _ _ __ ___
#| |_) / _ \| | | |/ _` | | __| | | \___ \| '_ \ / _` | '__/ _ \
#|  _ < (_) | |_| | (_| | | |_| |_| |___) | | | | (_| | | |  __/
#|_| \_\___/ \__, |\__,_|_|\__|\__, |____/|_| |_|\__,_|_|  \___|
#            |___/             |___/
#
# Copyright (C) 2012 RoyaltyShare, Inc.   All Rights Reserved
#---------------------------------------------------------------

package RPS::LabelRoyalty::Fast::Script::MapPayees;

use strict;
use Data::Dumper;
use File::Path;

use lib '/app/tools/common/lib';
use lib '/app/tools/rps/lib';
use lib '/app/tools/raptor/lib';

use DB_File;

use Common::Util;
use Common::Log;
use Common::Parser;
use Common::WriteXML;

use RPS::LabelRoyalty::Fast::Static::LabelPayeeAccounts;
use RPS::LabelRoyalty::Fast::Mapped::Data;

use base 'Common::Script';

sub _options {
    {
        client_id => {
            short       => 'c',
            required    => 1,
            description => 'Limit to this client id',
            parameter   => 'i'
        },
        data_path => {
            short       => 'd',
            required    => 1,
            description => 'path to directory containing static data',
            parameter   => 's'
        },
        output_path => {
            short       => 'o',
            required    => 1,
            description => 'path to directory to write output files',
            parameter   => 's'
        },
    };
}

sub _process {
    my ($self) = @_;

    my $dataPath = $self->param('data_path');

    my $outputDirectory = $self->param('output_path');

    # JPK - Should it be the responsibility of this process to create the directory if
    # it doesn't already exist?   It's a bit of a stretch, but then again it's convenient...
    #
    if ( !-d $outputDirectory ) {

        # !!! Might want to make this behavior optional...
        #
        mkpath($outputDirectory);
    }

    # Ok, what is the point of this mapper?
    #

    Log->info("Getting Payee IDs");
    my $accounts = RPS::LabelRoyalty::Fast::Static::LabelPayeeAccounts->GetLabelPayeeAccounts($dataPath);

    my $fd = $self->_openFileDescriptor($outputDirectory);

    while ( my ( $labelPayeeID, $dataString ) = each %$accounts ) {
        $self->_outputLine( $fd, $labelPayeeID, $dataString );
    }
}

sub _openFileDescriptor {
    my ( $self, $outputDirectory ) = @_;

    open OUTPUT, "> $outputDirectory/" . RPS::LabelRoyalty::Fast::Mapped::Data->FileName() . "_$$.unsorted" or die "ERROR: $!";

    return *OUTPUT;
}

sub _outputLine {
    my ( $self, $outFD, $labelPayeeID, $dataString ) = @_;

    my ( $minPayment, $balance, $onHold ) = split( "\t", $dataString );

    # This data will look like a regular sale data line, except most of the columns will be blank.
    #
    my @outData;
    push @outData, $labelPayeeID;
    push @outData, RPS::LabelRoyalty::Fast::Mapped::Data::kDataPayee;
    push @outData, 0;
    push @outData, 0;
    push @outData, 0;
    push @outData, 0;
    push @outData, 0;
    push @outData, 0;
    push @outData, 0;
    push @outData, 0;
    push @outData, 0;
    push @outData, 0;
    push @outData, 0;
    push @outData, 0;
    push @outData, 0;
    push @outData, 0;
    push @outData, 0;
    push @outData, 0;
    push @outData, 0;
    push @outData, 0;
    push @outData, 0;
    push @outData, 0;
    push @outData, 0;
    push @outData, 0;
    push @outData, 0;
    push @outData, $minPayment;
    push @outData, $balance;
    push @outData, $onHold;

    print $outFD join( "\t", @outData ) . "\n";

}

1;