#!/usr/bin/perl

use strict;
use Getopt::Std;

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

use lib '/app/tools/rps/lib';
use RPS::DB::Item::ArtistPayee;

$| = 1;

# Parse the command-line.
#
my ($clientID, $inputFile) =  parseCommandLine();

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

open(F, $inputFile) or die "oops: $!\n";
while (<F>)
{
    chop;
    my ($acctID, undef, $balance) = split /\t/;
    next if ($balance == 0);
    $acctID =~ s/[^\d-]+//g;
    #$name =~ s/"//g;

    my $coll = RPS::DB::Item::ArtistPayee->Match($acctID);
    unless ($coll->hasNext())
    {
        print "no match: $_\n";
        next;
    }

    if ($coll->size() > 1)
    {
        print "multi-match: $_\n";
        next;
    }

    my $match = $coll->next();
    $match->opening_balance($balance);
    $match->save();
}

# -------------------------------------------------------------
# Subroutines
# -------------------------------------------------------------


sub parseCommandLine
{
    my %opt;
    getopts('c:f:M:', \%opt);

    my $inputFile = $opt{f};
    my $clientID = $opt{c};

    unless ($clientID =~ /^\d+$/ && $clientID > 0)
    {
	    die usage("You must specify a valid client ID");
    }

    unless ($inputFile)
    {
	    die usage("You must specify a catalog file to import");
    }

    unless (-e $inputFile)
    {
	    die usage("The specified catalog file does not exist");
    }

    return ($clientID, $inputFile);
}


sub usage
{
	my $errstr = shift;
	my $text = ($errstr) ? "ERROR: $errstr\n" : '';
	$text .= "Usage: $0 -c <clientID> -f <inputFile>\n";
	return $text;
}