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

BEGIN { unshift @INC, '/usr/local/cpanel'; }

$| = 1;

use Cpanel::PwCache ();

Cpanel::PwCache::no_uid_cache(); #uid cache only needed if we are going to make lots of getpwuid calls
Cpanel::PwCache::init_passwdless_pwcache();

my $pwcache_ref = Cpanel::PwCache::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";
	}
}