#!/usr/bin/perl
#
# runModule.pl
# Run a DexNet module in the Integreation Environment
# Usage: ./runModule.pl PROPERTY_FILE
# Create the property file to mimic PTM/PTM_205_Properties.txt


use lib ('/home/matlab/Build/Scheduler/Perl/lib');
use DBI;
use Util::Scheduler;
use Util::Runner;
use Symbol;

eval {
    die "Usage: $0 [SQL_SERVER_PROPERTIES_FILE] [APPLICATION_ID] [APPLICATION_NAME]\n" unless $ARGV[2];

    my $properties_file = $ARGV[0];
    my $id = $ARGV[1];
    my $name = $ARGV[2];
    my $ADNET = Util::Helper->readPropertiesFromFile($properties_file);
    my $properties = Util::Helper->readPropertiesFromDatabase($ADNET, $id);
    my $runner = Util::Runner->new($ADNET, $id, $name);
    my $wait_timeout = $properties->{'wait.timeout'};
    my $lock_timeout = $properties->{'lock.timeout'};

    Util::Scheduler->begin($ADNET, $id, $wait_timeout, $lock_timeout);
    $runner->initialize;
    $runner->runAll;
    Util::Scheduler->end($ADNET, $id);
};

if ($@) {
    exit(1);
} else {
    exit(0);
}