Edit: /usr/local/cpanel/bin/dkim_keys_uninstall (1182B)
#!/usr/local/cpanel/3rdparty/bin/perl
# cpanel - bin/dkim_keys_uninstall 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
#
use strict;
use warnings;
use Cpanel::DKIM ();
use Cpanel::DKIM::Transaction ();
use Cpanel::AcctUtils::Account ();
use Cpanel::Config::CpUserGuard ();
my $user = $ARGV[0] or die "$0: usage: $0
";
if ( !Cpanel::AcctUtils::Account::accountexists($user) ) {
die "“$user” is not a cPanel user on this system.\n";
}
if ( !Cpanel::DKIM::mta_has_dkim() ) {
die 'DKIM is not installed on this machine.';
}
my $cpuser_guard = Cpanel::Config::CpUserGuard->new($user);
my $cpuser_data = $cpuser_guard->{'data'};
$cpuser_data->{'HASDKIM'} = 0;
$cpuser_guard->save();
my $dkim = Cpanel::DKIM::Transaction->new();
my $status = $dkim->tear_down_user($user);
$dkim->commit();
# The transaction already warn()ed about any problems.
exit 1 if !$status || !$status->was_total_success();