#!/usr/bin/perl
use strict;

# -----------------------------------------
# input params:
#
# 	- client_id
# 	- file_id
#
# -----------------------------------------
# what it does:
#
# - deletes all db records (file/sale)
# - removes file from disk
#
# -----------------------------------------

use lib '/app/tools/rps/lib';
use RPS::File::File;

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

delete_sales_file();

sub delete_sales_file {
    my $client_id = $ARGV[0] or return usage("no client id passed");
    my $file_id   = $ARGV[1] or return usage("no file id passed");

    my $file = RPS::File::File->new( file_id => $file_id, client_id => $client_id );
    return usage("no file found for $file_id") if ( !defined $file );

    my $file_path = $file->FileDir . "/" . $file->FileName;

    if ( -s $file_path ) {
        `rm $file_path`;
    }

    my $dbo = new Common::RSDB( client_id => $client_id );

    my $sql = "DELETE FROM file where file_id=$file_id";
    $dbo->DoCmd($sql);

    $sql = "DELETE FROM sale where file_id=$file_id";
    $dbo->DoCmd($sql);

    print "File '$file_path' has been deleted\n";
}

sub usage {
    my $err = shift;

    print "ERROR: $err\n";
    print "Usage: import_sales_file.pl CLIENT_ID FILE_ID\n";

    return 1;
}