#!/usr/bin/perl

use strict;

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

use lib '/app/tools/bookpub/lib';
use BookPub::Sale::Report::Royalty::Hachette;

use constant CLIENT_ID => 308;

die "\nusage:$0 <period_id>\n" unless ( scalar(@ARGV) == 1 );

my $periodID = $ARGV[0];

my $appSingleton = Common::RSApp->new( clientID => CLIENT_ID );

my $report = BookPub::Sale::Report::Royalty::Hachette->new( clientID => CLIENT_ID, periodID => $periodID );

$report->create();

Common::Log::Print( $report->fileName() );