#------------------------------------------------------------
# Copyright (C) 2006 RoyaltyShare, Inc.   All Rights Reserved
# $Id$
#------------------------------------------------------------
package RPS::Mechanical::Job::RunMechanicalRoyalties;

use strict;
use warnings;

use Sys::Hostname;

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

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

use lib '/app/tools/job/lib';
use Job::Job;
use Job::DB::Item::Job;

use base 'RPS::Mechanical::Job::Base';


sub _generateCommandLine
{
    my ($self) = @_;

    my $runID = $self->getCommandLineArg('runID');
    assert($runID);

    my $clientID = $self->clientID();
    assert($clientID);

    my $logLevel = $self->getCommandLineArg('logLevel');
    $logLevel = 1 unless $logLevel;

    # !!! Use the 'config' system to get the path to the royalty scripts.
    #
    my $rpsConfig = RPS::Config->new();
    my $scriptPath = $rpsConfig->get('royalty_script_dir');


    # !!! Note that this is a linux-only command line.
    # !!! If we end up wanting to run these on windows <shudder>, we'd have
    # !!! to create a 'Win32' subclass and override this method.
    # !!! Actually, we'd need to create a 'linux' subclass as well.
    #
    my $commandLine = "nice $scriptPath/" . $self->_scriptName() . " -c $clientID -r $runID -V $logLevel";

    return $commandLine;
}

sub _scriptName         { assert(0, 'override this'); }
sub _defaultSubclass    { assert(0, 'override this'); }
sub _defaultClass       { return 'RunController'; }

sub _defaultLogFile
{
    my ($self) = @_;

    return 'run_controller';
}

sub _defaultPriority
{
    my $self = shift;
    my $clientID = Common::RSApp::GetClientID();
    my $count = Job::DB::Item::Job->GetActiveJobCount( $clientID, $self->_defaultSubclass() );
    
    
    return Job::Job::kPriorityNormal - $count * 50;
}


###
1;#
###