#!/usr/bin/perl

use strict;

$| = 1;

use Getopt::Long;
use Data::Dumper;
use POSIX; 

use lib '/app/tools/common/lib';
use Common::Assert;
use Common::DB::Item::Client;
use Common::DB::Item::MapFaceFile;
use Common::RSDB;
use Common::RSApp;

use lib '/app/tools/appuser/lib';
use AppUser::DB::Item::User;

use lib '/app/tools/data_classes/lib';
use Client::Service;

my %args = ();
parseCommandLine(\%args);

my $startDate = $args{startDate};
my $endDate   = $args{endDate};


# This isn't really client specific, but it seems like we need the singleton anyway...
my $appSingleton = Common::RSApp->new( clientID => 202 );



binmode STDOUT, ":utf8";


my $fileName = "MapFace_Completed_Files";

if ($startDate) {
    $fileName .= "_From_$startDate";    
} 

if ($endDate) {
    $fileName .= "_Up_To_$endDate"; 
} else {
    my $now = strftime("%Y-%m-%d", localtime(time)); 
    $fileName .= "_Up_To_$now";
}

$fileName .= ".txt";

open FILE, ">$fileName" or die $!;
binmode FILE, ":utf8";


#------------------------------------------------------------------
# Build the header
#------------------------------------------------------------------
my $header;
my $header = join("\t",
   "Customer", "Service", "File Name", "Received", "# of Errors", "Errors Mapped",
   "Errors Approved", "Resolving User", "Approving User"
);

_writeln("$header\n");



my %clientNames;
my %serviceNames;
my %userNames;

# We need to set the end date time right at the end, so that we can include everything from that date.
if ($endDate) {
    $endDate .= " 23:59:59";   
}

my $files = Common::DB::Item::MapFaceFile->GetAllCompleted(startDate => $startDate, endDate => $endDate);

while ($files->hasNext()) {

    my $file = $files->next();

    my $clientName;
    if ($clientNames{$file->client_id})
    {
        $clientName = $clientNames{$file->client_id};
    }
    else
    {
        my $client = Common::DB::Item::Client->Lookup(client_id => $file->client_id);
        $clientName = $client->client_name;
        $clientNames{$file->client_id} = $clientName;
    }

    my $serviceName;
    if ($serviceNames{$file->service_id})
    {
        $serviceName = $serviceNames{$file->service_id};
    }
    else
    {
        $serviceName = Client::Service::GetDefaultServiceName(service_id => $file->service_id);
        $serviceNames{$file->service_id} = $serviceName;
    }

    my $fileName = $file->orig_file_name;
    
    my $dateCreated = $file->date_created;
    
    my $initialErrors = $file->initial_errors;
    
    my $mappedErrors = $initialErrors - $file->remaining_errors;
    
    my $approvedErrors = $file->approved_mappings;

    my $resolvingUser;
    if ($file->resolving_user_id) 
    {
        if ($userNames{$file->resolving_user_id})
        {
            $resolvingUser = $userNames{$file->resolving_user_id};
        }
        else
        {       
    		my $user = AppUser::DB::Item::User->Lookup(user_id => $file->resolving_user_id);
    		$resolvingUser = $user->first_name . " " . $user->last_name;	               
            $userNames{$file->resolving_user_id} = $resolvingUser;
        }
    }

    my $approvingUser;
    if ($file->approving_user_id)
    {
        if ($userNames{$file->approving_user_id})
        {
            $approvingUser = $userNames{$file->approving_user_id};
        }
        else
        {       
    		my $user = AppUser::DB::Item::User->Lookup(user_id => $file->approving_user_id);
    		$approvingUser = $user->first_name . " " . $user->last_name;	               
            $userNames{$file->approving_user_id} = $approvingUser;
        }
    }

    my $dataRow = join("\t", $clientName, $serviceName, $fileName, $dateCreated, $initialErrors,
                             $mappedErrors, $approvedErrors, $resolvingUser, $approvingUser,
    );


    _writeln( "$dataRow\n" ); 
}# file loop

close FILE if ( $fileName );

#==============
#
# Subroutines
#
#==============

sub _writeln {
   my($s) = @_;
   if ( $fileName ) {
      print FILE $s;
   } else {
      print $s;
   }
}

sub parseCommandLine {
   my( $a ) = @_;
   my $startDate;
   my $endDate;
   GetOptions(
      's|start_date=s' => \$startDate,
      'e|end_date=s' => \$endDate,
   );

   ${_[0]}{startDate} = $startDate;
   ${_[0]}{endDate} = $endDate;

}#parseCommandLine

sub usage {
   my $errstr = shift;
   my $text = ($errstr) ? "ERROR: $errstr\n" : '';
   $text .= "Usage $0 -s <startDate> (YYYY-MM-DD format)\n";
   $text .= "Usage $0 -e <endDate> (YYYY-MM-DD format)\n";
   return $text;
}