package RPS::Import::XRinger;

use strict;


use Date::Calc qw(Days_in_Month);

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

use lib '/app/tools/data_classes/lib';

use lib '/app/tools/rps/lib';
use RPS::File::Sale;
use RPS::Import::Importer;
use base 'RPS::Import::Importer';

my %field_map = (
    1 => {
        country  => 0,
        vendorid => 1,
        label    => 2,
        isrc     => 3,
        track    => 4,
        artist   => 5,
        price1   => 6,
        units1   => 7,
        price2   => 9,
        units2   => 10,
        price3   => 12,
        units3   => 13,
    },
    2 => {
        country  => 0,
        vendorid => 1,
        label    => 2,
        track    => 3,
        artist   => 4,
        price1   => 5,
        units1   => 7,
        price2   => 9,
        units2   => 11,
        price3   => 13,
        units3   => 15,
    },
);

#
# public methods
#

sub _importLines
{
    my $self = shift;
    my %args = @_;
    my $lines = $args{lines};
    my $fileObj = $args{file};
    my $fileName = $fileObj->OrigFileName;
    my $version = $args{file}->VersionNum();
    #my $fileName = $args{OrigFileName}; ## for cmd-line testing
    #my $version = $args{version}; # for cmd-line testing

    my $offsets = $field_map{$version};

    return undef unless ($lines);

    my ($dateBegin, $dateEnd) = _get_dates($fileName);

    unless ($dateBegin && $dateEnd)
    {
        $self->errstr("couldn't get dates from $fileName");
        print STDERR "couldn't get dates from $fileName\n";
        return undef;
    }

    my $linenum = 1;

    foreach my $line (@$lines)
    {
        my $prodtype    = RPS::File::Sale::TYPE_TRACK;
        my $format      = RPS::File::Sale::FORMAT_RINGTONE;

        my $vendor_id   = $line->[$offsets->{'vendorid'}];
        my $country     = $line->[$offsets->{'country'}];
        my $artist      = $line->[$offsets->{'artist'}];
        my $track       = $line->[$offsets->{'track'}];
        my $label       = $line->[$offsets->{'label'}];
        my $isrc        = $line->[$offsets->{'isrc'}] if ($version == 1);
        my ($units1)    = $line->[$offsets->{'units1'}] =~ m/^(\d+)$/;
        my ($price1)    = $line->[$offsets->{'price1'}] =~ m/^(\d+\.?\d*)$/;
        my ($units2)    = $line->[$offsets->{'units2'}] =~ m/^(\d+)$/;
        my ($price2)    = $line->[$offsets->{'price2'}] =~ m/^(\d+\.?\d*)$/;
        my ($units3)    = $line->[$offsets->{'units3'}] =~ m/^(\d+)$/;
        my ($price3)    = $line->[$offsets->{'price3'}] =~ m/^(\d+\.?\d*)$/;

        if ($country eq "United States") {
            $country = "US";
        } elsif ($country eq "Romania") {
            $country = "RO";
        } else {
            $country = "";
        }

        if ($artist && $track && $country) {

                ### try to calculate this instead later......
                $price1 /= 5;
                $price2 /= 5;
                $price3 /= 5;

                my $sale = RPS::Import::SaleRec->new();

                $sale->productType($prodtype);
                $sale->formatType($format);
                $sale->serviceProductID($vendor_id);
                $sale->dateBegin($dateBegin);
                $sale->dateEnd($dateEnd);
                $sale->artistName($artist);
                $sale->trackName($track);
                $sale->labelName($label);
                $sale->isrc($isrc) if ($version == 1);
                $sale->countryCode($country);
                $sale->lineNum($linenum);

                if ($units1 != 0 && $price1 != 0) {
                    $sale->units($units1);
                    $sale->price($price1);
                    #$args{dumper}($sale); ## for cmd-line testing
                    $self->_insertSale(sale => $sale);
                }

                if ($units2 != 0 && $price2 != 0) {
                    $sale->units($units2);
                    $sale->price($price2);
                    #$args{dumper}($sale); ## for cmd-line testing
                    $self->_insertSale(sale => $sale);
                }

                if ($units3 != 0 && $price3 != 0) {
                    $sale->units($units3);
                    $sale->price($price3);
                    #$args{dumper}($sale); ## for cmd-line testing
                    $self->_insertSale(sale => $sale);
                }
        }
        $linenum++;
    }
    return $linenum;
}

#
# Private methods
#

sub _get_dates
{
    my $date = shift;

    return undef unless ($date =~ m/^(\d)Q(\d\d)/);
    my ($qtr, $year) = ($1, $2);
    $year += 2000;

    my ($dateBegin, $dateEnd);

    if ($qtr == 1) {
        $dateBegin = $year."-01-01";
        $dateEnd   = $year."-03-".Days_in_Month($year, 3);
    } elsif ($qtr == 2) {
        $dateBegin = $year."-04-01";
        $dateEnd   = $year."-06-".Days_in_Month($year, 6);
    } elsif ($qtr == 3) {
        $dateBegin = $year."-07-01";
        $dateEnd   = $year."-09-".Days_in_Month($year, 9);
    } elsif ($qtr == 4) {
        $dateBegin = $year."-10-01";
        $dateEnd   = $year."-12-".Days_in_Month($year, 12);
    } else {
        return undef;
    }

    return ($dateBegin, $dateEnd);
}

###
1;# Play nicely.
###