#!/usr/local/cpanel/3rdparty/bin/perl
# cpanel - scripts/expunge_expired_transfer_sessions      Copyright(c) 2014 cPanel, Inc.
#                                                           All rights Reserved.
# copyright@cpanel.net                                         http://cpanel.net
# This code is subject to the cpanel license. Unauthorized copying is prohibited

use strict;

package scripts::expunge_expired_transfer_sessions;

use Cpanel::Exception                  ();
use Whostmgr::Transfers::SessionDB     ();
use Whostmgr::Transfers::Session::Logs ();

if ( !caller() ) {
    run(@ARGV);

    exit 0;
}

sub run {
    my (@args) = @_;

    my $expunge = scripts::expunge_expired_transfer_sessions->new();
    return $expunge->script();
}

sub new {
    my ( $package, %opts ) = @_;
    my $self = bless {}, __PACKAGE__;

    return $self;
}

sub script {
    my (@args) = @_;

    my $session_db = Whostmgr::Transfers::SessionDB->new();
    $session_db->expunge_expired_sessions();
    $session_db->disconnect();    # TP TASK 20767 disconnect before global destruct

    Whostmgr::Transfers::Session::Logs::expunge_expired_logs();

    return 1;
}

1;