package RPS::Import::DownloadPunk;

use strict;

use Spreadsheet::ParseExcel::Utility;

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

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

#private constants
use constant FIELD_DATEBEGIN => 2;
use constant FIELD_DATEEND   => 4;

#standard record as of downloadpunk version 3
use constant FIELD_LABEL      => 0;
use constant FIELD_AGGREGATOR => 1;
use constant FIELD_DATE       => 2;
use constant FIELD_ISRC       => 3;
use constant FIELD_UPC        => 4;
use constant FIELD_UNITS      => 5;
use constant FIELD_PRICE      => 6;
use constant FIELD_EXTPRICE   => 7;
use constant FIELD_RETAIL     => 8;
use constant FIELD_ARTIST     => 9;
use constant FIELD_TITLE      => 10;
use constant FIELD_PRODTYPE   => 11;

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 $fileObj = $args{file};
    my $version = $fileObj->VersionNum;

    #my $version = $args{version};

    if ( $lines && $version ) {
        my $offsetISRC   = FIELD_ISRC;
        my $offsetUPC    = FIELD_UPC;
        my $offsetUnits  = FIELD_UNITS;
        my $offsetPrice  = FIELD_PRICE;
        my $offsetArtist = FIELD_ARTIST;
        my $offsetTitle  = FIELD_TITLE;
        my $offsetType   = FIELD_PRODTYPE;

        if ( $version == 1 ) {
            $offsetPrice--;
            $offsetArtist -= 2;
            $offsetTitle  -= 2;
            $offsetType   -= 2;
        } elsif ( $version == 2 ) {
            $offsetISRC--;
            $offsetUPC--;
            $offsetUnits--;
            $offsetPrice--;
            $offsetArtist--;
            $offsetTitle--;
            $offsetType--;
        } elsif ( $version == 4 ) {
            $offsetArtist++;
            $offsetTitle++;
            $offsetType++;
        } elsif ( $version == 5 ) {
            $offsetArtist += 2;
            $offsetTitle  += 2;
            $offsetType   += 2;
        } elsif ( $version == 6 ) {
            $offsetArtist += 2;
            $offsetTitle  += 2;
            $offsetType   += 2;
        }

        my $dateBegin;
        my $dateEnd;
        my $linenum = 1;
        foreach my $line (@$lines) {
            if ( $linenum == 1 ) {
                $dateBegin = _parseDate( $line->[FIELD_DATEBEGIN] );
                $dateEnd   = _parseDate( $line->[FIELD_DATEEND] );
                unless ( $dateBegin && $dateEnd ) {
                    $self->errstr("couldn't get dates");
                    return undef;
                }
            } elsif ( $linenum > 4 || ( $linenum > 3 && $version == 6 ) ) {
                my $prodtype;
                if ( $line->[$offsetType] eq 'A' ) {
                    $prodtype = RPS::File::Sale::TYPE_ALBUM;
                } elsif ( $line->[$offsetType] eq 'S' ) {
                    $prodtype = RPS::File::Sale::TYPE_TRACK;
                }
                my $upc    = Common::Util::normalize_upc( $line->[$offsetUPC] );
                my $isrc   = Common::Util::normalize_isrc( $line->[$offsetISRC] );
                my $artist = $line->[$offsetArtist];
                my $album;
                my $track;
                my $title = $line->[$offsetTitle];
                if ( $prodtype eq RPS::File::Sale::TYPE_ALBUM ) {
                    $album = $title;
                } elsif ( $prodtype eq RPS::File::Sale::TYPE_TRACK ) {
                    $track = $title;
                }
                my $label  = $line->[FIELD_LABEL];
                my $format = RPS::File::Sale::FORMAT_DOWNLOAD;
                my $units;
                if ( $version == 1 ) {
                    $units = 1;
                } else {
                    ($units) = $line->[$offsetUnits] =~ m/^(-?\d+)$/;
                }
                my ($price) = $line->[$offsetPrice] =~ m/^-?(\d*\.?\d*)$/;    # we don't want the minus sign

                if ( $prodtype && $title && $units && $price ) {
                    my $sale = RPS::Import::SaleRec->new();

                    $sale->productType($prodtype);
                    $sale->formatType($format);
                    $sale->dateBegin($dateBegin);
                    $sale->dateEnd($dateEnd);
                    $sale->upc($upc);
                    $sale->isrc($isrc);
                    $sale->artistName($artist);
                    $sale->albumName($album);
                    $sale->trackName($track);
                    $sale->labelName($label);
                    $sale->units($units);
                    $sale->price($price);
                    $sale->lineNum($linenum);
                    $sale->countryCode('US');

                    $self->_insertSale( sale => $sale );
                }
            }
            $linenum++;
        }
        $retval = $linenum;
    }

    return $retval;
}

sub _parseDate {
    my $d = shift;

    # we have seen some files dated after 1/1/06 where the date is NOT identified
    # as a date type field but it's still stored as days-since-1-1-1900
    # 38716 is the number of days from 1-1-1900 to 1-1-2006
    if ( $d =~ m/(\d{4})\D(\d+)\D(\d+)/ ) {
        return $1 . "-" . sprintf( "%02d", $2 ) . "-" . sprintf( "%02d", $3 );
    } elsif ( $d =~ /^\d+$/ and $d > 38716 ) {
        $d = Spreadsheet::ParseExcel::Utility::ExcelFmt( "yyyy-mm-dd", $d );
        return Common::Util::normalize_date($d);
    }
}

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