package RPS::Import::Verizon;

use strict;


use Date::Calc qw(Days_in_Month);

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

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

#private constants
use constant FIELD_LABEL		=> 1;
use constant FIELD_TRACK		=> 2;
use constant FIELD_ARTIST		=> 3;
use constant FIELD_ISRC			=> 4;
use constant FIELD_UNITS		=> 5;

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

#public methods

sub _importLines
{
	my $self = shift;
	my %args = @_;

	my $retval = undef;
	my $lines = $args{lines};
	my $sheets = $args{sheets};
    my $fileObj = $args{file};
    my $version = $fileObj->VersionNum;

    if ($version == 2) {
        $lines = $sheets->[1];
    }

    return 0 unless $lines;
    my ($dateBegin, $dateEnd) = $self->_getDates($lines->[0][1]);

    unless ($dateBegin && $dateEnd)
    {
        $self->errstr("couldn't get dates");
        print STDERR "date: $lines->[0][1]\n";
        return 0;
    }

    my $prodtype = RPS::File::Sale::TYPE_TRACK;
    my $formatTypeDefault = RPS::File::Sale::FORMAT_RINGTONE;
    my $formatNameDefault = 'realtone';
    my $priceTypeDefault;

    if ($self->{clientID} == RPS::Import::Importer::WMG) # warner
    {
        $formatTypeDefault = RPS::File::Sale::FORMAT_RINGTONE; # was FORMAT_MASTERTONE (FB1324)
        # check for warner specific stuff
        require RPS::Import::WMG::Util;
     
        my @billTo = RPS::Import::WMG::Util::getWirelessBillto($self->{fileServiceID});
        if ($billTo[0])
        {
            unless (RPS::Import::WMG::Util::getWirelessSellto($self->{fileServiceID}, $billTo[0]))
            {
                $self->warning();
                print STDERR "unknown sellto mapping: $billTo[0]\n";
            }
        }
        else
        {
            $self->warning();
            print STDERR "unknown billto mapping: $self->{fileServiceID}\n";
        }

        unless ($priceTypeDefault = RPS::Import::WMG::Util::getWirelessPriceType($formatNameDefault))
        {
            $self->warning();
            print STDERR "unknown format mapping: $formatNameDefault\n";
        }

        $fileObj->Atomic(1);
        $fileObj->Save();
    }

    my $linenum = 1;
    my $seenHeader;
    my %errors = ();
    foreach my $line(@$lines)
    {
        if ($seenHeader)
        {
            my $format      = $formatTypeDefault;
            my $priceType   = $priceTypeDefault;
            my $isrc		= Common::Util::normalize_isrc($line->[FIELD_ISRC]);
            my $artist		= $line->[FIELD_ARTIST];
            my $track		= $line->[FIELD_TRACK];
            my $label		= $line->[FIELD_LABEL];
            my ($units)		= $line->[FIELD_UNITS] =~ m/^(-?\d*,*\d,*\d*)$/;
            $units =~ s/,//g;

            if ($units && $artist && $track)
            {
                if ($track =~ m/voice\s*ringer/i) # voice ringers mixed in
                {
                    $format = RPS::File::Sale::FORMAT_RINGTONE; # was FORMAT_VOICERINGER (FB1324)
                    if ($self->{clientID} == RPS::Import::Importer::WMG) # warner
                    {
                        unless ($priceType = RPS::Import::WMG::Util::getWirelessPriceType('voiceringer'))
                        {
                            unless ($errors{$format})
                            {
                                $self->warning();
                                print STDERR "unknown format mapping: $format\n";
                                $errors{$format} = 1;
                            }
                        }
                    }
                }

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

                $sale->productType($prodtype);
                $sale->formatType($format);
                $sale->dateBegin($dateBegin);
                $sale->dateEnd($dateEnd);
                $sale->isrc($isrc);
                $sale->artistName($artist);
                $sale->trackName($track);
                $sale->labelName($label);
                $sale->units($units);
                $sale->lineNum($linenum);
                $sale->priceType($priceType);

                $self->_insertSale(sale => $sale);
            }
        }
        else
        {
            if ($line->[FIELD_LABEL] =~ m/LBL/i &&
                $line->[FIELD_TRACK] =~ m/TITLE/i &&
                $line->[FIELD_ARTIST] =~ m/ARTIST/i &&
                $line->[FIELD_ISRC] =~ m/ISRC/i)
            {
                $seenHeader = 1;
            }
        }
        $linenum++;
    }

	return $linenum;
}

#
# Private methods
#


sub _getDates
{
	my $self = shift;
	my $dateCell = shift;

	my $dateBegin;
	my $dateEnd;

	my %months = (Jan => 1, Feb => 2, Mar => 3, Apr => 4, May => 5, Jun => 6,
				  Jul => 7, Aug => 8, Sep => 8, Oct => 10, Nov => 11, Dec => 12); 

	my ($month, $year) = $dateCell =~ m/(Jan|Feb|Mar|Apr|May|Jun|Jul|Aug|Sep|Oct|Nov|Dec)\w* (20\d\d)/i;

	if ($year && $month)
	{
		$month = $months{$month};

		$dateBegin = sprintf("%04d-%02d-%02d", $year, $month, 1);
		$dateEnd = sprintf("%04d-%02d-%02d", $year, $month, Days_in_Month($year, $month));
	}

	return ($dateBegin, $dateEnd);
}

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