#!/usr/bin/perl -w

use strict;
use Getopt::Std;
use File::Basename;

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

use lib '/app/tools/rps/lib';
use RPS::RoyaltyRun::RoyaltyRunStatusList;


MAIN: {
    my %opts  =  parseCommandLine();

    Common::Log::Debug( "Starting Royalty Run Status Check" );

    my $appSingleton = new Common::RSApp( clientID => $opts{clientID} );
    my $rrList       = RPS::RoyaltyRun::RoyaltyRunStatusList->new( payorID => $opts{payorID}, usMechanical => 1 );

    print Common::WriteXML::GetXMLString($rrList, undef, skip_array_indexing => 1 );

    print "\nValid: ";
    print $rrList->validate() ? "yes\n" : "no\n";
}

sub parseCommandLine {
    my %opt;
    my %config;
    my $infile;

    getopts('p:c:d', \%opt ) || usage();

    #
    # Check for options and validate them
    #

    # Client ID
    usage( "ClientID Required" ) unless( $opt{c} );
    usage( "ClientID must be numeric" ) unless( $opt{c} =~ /^\d+$/ );

    $config{clientID} = $opt{c};

    # Payor ID
    usage( "PlientID must be numeric" ) if( defined($opt{p}) && $opt{p} !~ /^\d+$/ );
    $config{payorID} = $opt{p};


    $ENV{CLIENT_ID}   = $ENV{DEBUG} = $config{clientID};
    $ENV{DEBUG}       = 0 unless( $opt{d} );

    return %config;
}


sub usage {
   my $errstr = shift;
   printf STDERR "%s%s",  
      $errstr ? "ERROR: $errstr\n" : "",
      "USAGE: " . basename($0) . " -c <clientID> [-d]\n" .
      "   -c - Client ID (required)\n" .
      "   -p - Payor ID\n" .
      "   -d - enable debugging\n";
   
   exit 1;
}