• File: killspamkeys
  • Full Path: /home/masbinta/public_html/admin/installer/css/sass/sym404/root/scripts/killspamkeys
  • File size: 937 bytes
  • MIME-type: text/x-perl
  • Charset: utf-8
#!/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";
    }
}