#!/usr/bin/perl

use strict;
use warnings;
use open ':std', ':encoding(UTF-8)';

use JSON::XS;
use FileHandle;
use Spreadsheet::Write;
use Text::CSV::Easy(qw/csv_build csv_parse/);
use Getopt::Long::Descriptive(qw/describe_options/);

use lib '/var/app/orchard/collab/jgetter/perllib';
use Orchard::Period;
use Orchard::Session;
use Orchard::DB::Connect;
use Orchard::ETL::Extract::CSV;

my $deals;
my $file      = shift @ARGV;
my $sales_tsv = Orchard::ETL::Extract::CSV->new( $file, 1, undef, "\t" );
$sales_tsv->csv->quote_char(undef);
$sales_tsv->csv->escape_char(undef);
my $list;
while ( my $row = $sales_tsv->getrow() ) {
    my $awalid  = $row->{'ASSIGNOR_ID'};
    my $agreeid = $row->{'AGREEMENT_ID'};
    my $md5     = $sales_tsv->getmd5($row);
    logMessage( 'info', "$awalid : $md5" );
    $list->{$awalid}->{$agreeid}->{$md5}++;
}
my $x;