GIF89a;
Direktori : /proc/self/root/scripts/ |
Current File : //proc/self/root/scripts/eximstats_spam_check |
#!/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;