#!/usr/bin/perl -w 
#
use strict;
use Data::Dumper;

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

use lib '/app/tools/job/lib';
use Job::RuleList;

# Enable Debugging
$ENV{DEV_SERVER} = 1;

my $singleton = new Common::RSApp( clientID => 0 );

my $status = Job::RuleList->new( hostname => Common::RSApp::GetHostname() );

$status->refresh();