#------------------------------------------------------------
# Copyright (C) 2009 RoyaltyShare, Inc.   All Rights Reserved
#------------------------------------------------------------
package Support::BookPub::Command::POSRetry;
use strict;
use warnings;
use Data::Dumper;

use lib '/app/tools/common/lib';
use Common::Assert;
use RSApache::Response::Redirect;

use lib '/app/tools/bookpub/lib';
use BookPub::RDAS::Job::FetchPOSFile;

use BookPub::RDAS::Request::POSData;
use BookPub::POS::Tracker::File;

use lib '/app/tools/support/lib';

use base 'Support::Command';

sub cmd  { return 'pos_retry' }
sub area { return 'bookpub'; }

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

    my $response = $self->SUPER::execute();
    return $response if $response;

    my $posFileID = $self->getParam('posFileID');
    assert($posFileID);

    my $file = new BookPub::POS::Tracker::File( posFileID => $posFileID );
    $file->setStatusFetching();

    my $job = new BookPub::RDAS::Job::FetchPOSFile( args => { client_id => Common::RSApp::GetClientID, retry => $posFileID } );

    $job->enqueue();

    return RSApache::Response::Redirect->new("/support/bookpub?c=pos_feed");
}

1;