Mini Shell
#!/usr/local/cpanel/3rdparty/bin/perl
# cpanel - scripts/killspamkeys 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
# Attention: This script is called during SpamAssassin installation.
use strict;
$| = 1;
use Cpanel::PwCache::Helpers ();
use Cpanel::PwCache::Build ();
Cpanel::PwCache::Helpers::no_uid_cache(); #uid cache only needed if we are going to make lots of getpwuid calls
Cpanel::PwCache::Build::init_passwdless_pwcache();
my $pwcache_ref = Cpanel::PwCache::Build::fetch_pwcache();
foreach my $pw (@$pwcache_ref) {
if ( -f "$pw->[7]/.spamkey" ) {
print "Removing spamkey for $pw->[0]...";
unlink("$pw->[7]/.spamkey");
print "Done\n";
}
}
Zerion Mini Shell 1.0