[ SEA-GHOST MINI SHELL]

#!/usr/local/cpanel/3rdparty/bin/perl

# cpanel - scripts/eximstats_spam_check            Copyright 2022 cPanel, L.L.C.
#                                                           All rights reserved.
# copyright@cpanel.net                                         http://cpanel.net
# This code is subject to the cPanel license. Unauthorized copying is prohibited

package scripts::eximstats_spam_check;

use strict;
use warnings;

use Cpanel::EximStats::SpamCheck ();

=head1 NAME

scripts::eximstats_spam_check

=head1 SYNOPSIS

    /usr/local/cpanel/scripts/eximstats_spam_check

=head1 DESCRIPTION

This script is used to query the eximstats database, and report possible
spammers.

=cut

run() if !caller();

sub run {
    local $@;
    my $ok = eval { Cpanel::EximStats::SpamCheck::run_spammer_check() };
    die $@ if $@;
    exit 0 if ($ok);
    exit 1;
}

1;