#!/usr/bin/perl

use strict;

use Getopt::Std;

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

use lib '/app/tools/bookpub/lib';
use BookPub::Tracker::File;

my %opt;
getopts( 'c:f:', \%opt );

my $client_id = $opt{c} || die "missin client_id!\n";
my $file_id   = $opt{f} || die "missin file_id!\n";

usage() unless ( $client_id =~ /^\d+$/
    && $client_id > 0
    && $file_id =~ /^\d+$/
    && $file_id > 0 );

print "update file summary for client_id $client_id, file_id $file_id\n";

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

my $file = BookPub::Tracker::File->new( fileID => $file_id );
die "Invalid file_id?\n" unless ( defined $file );

$file->updateSummary();
$file->save();

sub usage {
    die "Usage: $0 -c <client_id> -f <file_id>\n";
}