#!/usr/bin/perl
use strict;

use lib '/app/tools/rps/lib';
use RPS::File::File;

process_import_queue();

sub process_import_queue {
    my $client_id = $ARGV[0] || return usage("missing client id");

    my $files = RPS::File::Files->new( client_id => $client_id );
    $files->GetImportQueue();

    my $import_script = "/app/tools/sale_import/bin/import_sales_file.pl";

    my $count = 0;
    while ( my $file = $files->GetNext() ) {
        my $file_id = $file->FileID;

        if ( !$file_id || !$client_id ) {
            print "an error occurred, going to next\n";
            next;
        }

        print "importing '" . $file->OrigFileName . "' (id=$file_id)\n";

        `$import_script $client_id $file_id`;

        print "done!\n\n";
        $count++;
    }
    print "processed $count files.\n";
}

sub usage {
    my $err = shift;

    print "ERROR: $err\n";
    print "Usage: $0 CLIENT_ID \n";

    return 1;
}