use strict;

use Data::Dumper;
use Getopt::Std;

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

use lib '/app/tools/job/lib';
use Job::Queue;
use Job::Job;
use Job::TestJob;

my $gVerbosityLevel = 1;

# Parse the command-line options.
#
my %options;
_parseCommandLine( \%options );

# Instantiate the application singleton object.
#
my $appSingleton = Common::RSApp->new( clientID => 60 );

# Do the stuff we want to do :)
#
my $job = Job::TestJob->new();
$job->enqueue();

sub _usage {
    print "\nusage: $0 [-V <N>]\n";
    print "\n";
    print "Arguments:\n";
    print "\t-V <N>\t\t\tVerbosity level - 0 means no output\n";
}

sub _report {
    my ( $string, $verbosity ) = @_;
    $verbosity = 1 unless defined $verbosity;

    if ( $gVerbosityLevel >= $verbosity ) {
        print $string . "\n";
    }
}

# Pass dates in 'yyyy-mm-dd' format.
#
sub _parseCommandLine {
    my ($settings) = @_;

    my %opt;
    getopts( 'V:', \%opt );

    if ( defined $opt{V} ) {
        $gVerbosityLevel = $opt{V};
    }
}