package RPS::Import::DownloadCentric;

use strict;

use Date::Calc qw(Days_in_Month Decode_Month);

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

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 => {
        album        => 3,
        upc          => 4,
        price        => 11,
        retail_price => 5,
        units        => 6,
    },
    2 => {
        album        => 3,
        upc          => 4,
        price        => 11,
        retail_price => 5,
        units        => 6,
    },
);

#public methods

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

    # This importer appears to be pulling the date from the filename not the data
    # Is this still correct?  last used 2008-05-06
    die "Importer no longer valid";

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

    my $offsets = $field_map{$version};

    my $dateBegin;
    my $dateEnd;
    $lines = $sheets->[1] if ( $version == 1 );
    $lines = $sheets->[2] if ( $version == 2 );
    $lines = $sheets->[0] if ( $version == 2 && $sheets->[1] eq "" && $sheets->[2] eq "" );
    ( $dateBegin, $dateEnd ) = $self->_getDates($fileName);

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

    my $linenum = 1;
    foreach my $line (@$lines) {
        my $album         = $line->[ $offsets->{'album'} ];
        my $artist        = $line->[ $offsets->{'artist'} ] if ( defined $offsets->{artist} );
        my $prodtype      = RPS::File::Sale::TYPE_CD;
        my ($sales)       = $line->[ $offsets->{'units'} ] =~ m/^(-?\d+)$/;
        my ($sales_price) = $line->[ $offsets->{'price'} ] =~ m/^(-?\d*\.?\d*)$/;
        my $upc           = $line->[ $offsets->{'upc'} ];
        my $retail_price  = $line->[ $offsets->{'retail_price'} ];
        my $total         = $sales_price;

        if ( $prodtype && $sales && $album && $album !~ /^name/i ) {
            my $sale = RPS::Import::SaleRec->new();

            $sale->productType($prodtype);
            $sale->dateBegin($dateBegin);
            $sale->dateEnd($dateEnd);
            $sale->artistName($artist) if ( defined $offsets->{artist} );
            $sale->albumName($album);
            $sale->upc($upc);
            if ( $sales > 0 ) {
                if ( $sales_price >= 0 ) {
                    $sale->sales($sales);

                    #                   $sales_price /= $sales;
                    $sale->salesRevenue($sales_price);
                } else {
                    $sale->returns($sales);
                    $sale->returnsRevenue( -1 * $sales_price );
                }
            } elsif ( $sales < 0 ) {
                $sales *= -1 if ( $sales < 0 );
                $sale->returns($sales);

                #                $sales_price /= ($sales*-1);
                $sale->returnsRevenue($sales_price);
            }
            $sale->channel(RPS::File::Sale::CHANNEL_RETAIL);
            $sale->retailPrice($retail_price);
            $sale->priceLevel(RPS::File::Sale::PLEVEL_FULL);
            $sale->totalRevenue($total);
            $sale->countryCode('US');
            $sale->lineNum($linenum);

            ##$args{dumper}($sale);  ## for cmd-line testing
            $self->_insertSale( sale => $sale );
        }

        #else { print STDERR "skip l:".$linenum." p:".$prodtype." s:". $sales." a:".$album."\n"; }
        $linenum++;
    }
    return $linenum;
}

#
# Private methods
#

sub _getDates {
    my $self = shift;
    my $date = shift;
    my ( $dateBegin, $dateEnd );

    $date =~ m/(\d{4})\D(\d+)/;

    my $month = $2;
    my $year  = $1;

    $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.
###