#!/usr/bin/perl

use strict;

use Sys::Hostname;

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

use lib '/app/tools/bookpub/lib';
use BookPub::Stats::Job::Build;

# grab list of bookpub client_ids for THIS host or the one specified as $ARGV[0]

my $hostName = $ARGV[0] || hostname();
$hostName = lc $hostName;
$hostName =~ s/^(.+?)\..*$/$1/;

foreach my $clientID ( Common::RSDB::GetBookPubClientIDsByHost($hostName) ) {
    my $appSingleton = Common::RSApp->new_temporary( clientID => $clientID );
    my $jobArgs = BookPub::Stats::Job::Build->new( clientID => $clientID );
    my $job = $jobArgs->enqueue();
}