#!/usr/bin/perl

use strict;
use warnings;
  
use Net::eBay;
use Data::Dumper;

my $eBay = new Net::eBay;

sub getStats {
  my ($days) = @_;
  my $result = $eBay->submitPaginatedRequest( "GetMyeBaySelling",
                                              {
                                               SoldList =>
                                               {
                                                DurationInDays => $days,
                                               },
                                              },
                                              "Transaction",
                                              100
                                            );

  #print Dumper( $result );

  my $transactions = $result->{SoldList}->{OrderTransactionArray}->{OrderTransaction};
  $transactions = [$transactions] unless ref $transactions eq 'ARRAY';
  
  #print Dumper( $transactions );
  
  my $count = 0;
  my $total = 0.0;
  
  foreach my $t (@$transactions) {
    my @tr1 = ();
    if ( $t->{Order} && $t->{Order}->{TransactionArray} ) {
      @tr1 = (@{$t->{Order}->{TransactionArray}->{Transaction} });
    } else {
      @tr1 = ($t->{Transaction});
    }
    foreach my $t1 (@tr1) {
      my $price = $t1->{Item}->{SellingStatus}->{CurrentPrice}->{content};
      my $title = $t1->{Item}->{Title};
      my $quantity = $t1->{QuantityPurchased};
      $count += $quantity || 1;
      $total += $price*$quantity;
      print Dumper( $t1 ) unless $title;
      #print "$quantity $price $title\n";
    }
  }
  return {
          count => $count,
          total => $total,
         };
}

my $h7 = getStats( 7 );
print "LAST       WEEK: $h7->{count} items sold for $h7->{total}\n";

my $h31 = getStats( 31 );
print "LAST      MONTH: $h31->{count} items sold for $h31->{total}\n";

my $h60 = getStats( 60 );
print "LAST TWO MONTHS: $h60->{count} items sold for $h60->{total}\n";