#!/usr/bin/perl

use strict;

$| = 1;

use Getopt::Long;
use Data::Dumper;
use File::Path;

use lib '/app/tools/common/lib';
use Common::Assert;
use Common::RSDB;
use Common::RSApp;
use Common::Util qw(formatFixedPoint);

use lib '/app/tools/rps/lib';
use RPS::DB::Item::LabelContract;
use RPS::DB::Item::LabelContractTerm;
use RPS::DB::Item::LabelContractGroupTerm;
use RPS::DB::Item::LabelContractGroupTermLabel;

my %args = ();
parseCommandLine( \%args );

my @clientIDs;
if ( $args{clientID} ) {
    push @clientIDs, $args{clientID};
} else {
    @clientIDs = Common::RSDB::GetAllRPSClientIDs();

    #@clientIDs = Common::RSDB::GetLocalRPSClientIDs();
}

foreach my $clientID (@clientIDs) {
    print STDERR "processing client ID $clientID\n";
    my $appSingleton = Common::RSApp->new( clientID => $clientID );
    my $dbo          = Common::RSApp::GetClientDB();
    my $dbh          = $dbo->DBH;

    my $cdbo = Common::RSApp::GetCommonDB();
    my $cdbh = $cdbo->DBH;

    # Convert the label contract terms
    my $contracts = RPS::DB::Item::LabelContract->GetAll();
    while ( $contracts->hasNext() ) {
        my $contract = $contracts->next();
        processContract( $contract->label_contract_id );
    }

    # Rename the old table
    $dbo->DoCmd('RENAME TABLE label_contract_term TO old_label_contract_term');
}

#==============
#
# Subroutines
#
#==============

sub processContract {
    my $contractID = shift;
    my $terms      = RPS::DB::Item::LabelContractTerm->GetByLabelContractID($contractID);
    while ( $terms->hasNext() ) {
        my $term = $terms->next();
        my $groupTermID;
        my $distFee = $term->distribution_fee;
        my $labelID = $term->label_id;

        # Let's check for an existing group term with the same dist fee and label contract id
        my $existingGroupTerms = RPS::DB::Item::LabelContractGroupTerm->GetByLabelContractID($contractID);
        while ( $existingGroupTerms->hasNext() ) {
            my $existingGroupTerm = $existingGroupTerms->next();
            if ( $existingGroupTerm->distribution_fee == $distFee ) {
                $groupTermID = $existingGroupTerm->label_contract_group_term_id;
            }
        }

        # If we don't find a match, we'll have to add a new group term
        if ( !$groupTermID ) {
            my $newGroupTerm = RPS::DB::Item::LabelContractGroupTerm->Create(
                label_contract_id => $contractID,
                distribution_fee  => $distFee,
            );
            $newGroupTerm->save();
            $groupTermID = $newGroupTerm->label_contract_group_term_id;
        }

        # If we don't have a group term ID at this point, something has gone horribly wrong.
        if ( !$groupTermID ) {
            die "Missing group term id!";
        }

        # Now all that's left is to add the entry for this label
        my $newGroupTermLabel = RPS::DB::Item::LabelContractGroupTermLabel->Create(
            label_contract_group_term_id => $groupTermID,
            label_id                     => $labelID,
        );
        $newGroupTermLabel->save();
    }
}

sub parseCommandLine {
    my ($a) = @_;
    my $clientID;
    my $labelContractID;
    GetOptions( 'c|client_id=i' => \$clientID, );
    ${ _ [0] }{clientID} = $clientID;

}    #parseCommandLine

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

1;