#!/usr/bin/perl
# cpanel - killmysqlwildcard                      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'; }

use strict;
use warnings;

use Cpanel::Config::Users ();
use Cpanel::MysqlUtils    ();
use Cpanel::Logger        ();
use Cpanel::DB::Map       ();

my $logger = Cpanel::Logger->new();

my @cpusers = Cpanel::Config::Users::getcpusers();

foreach my $cpuser (@cpusers) {
    my $map = Cpanel::DB::Map->new( { cpuser => $cpuser, db => 'MYSQL' } );
    next if !ref $map;

    my $dbowner = $map->get_owner();
    my $dbowner_name = $dbowner->name();

    Cpanel::MysqlUtils::sqlcmd("DELETE FROM mysql.db WHERE db = '$dbowner_name\\_%';");
    $logger->info("Removing mysql wildcard grant from $cpuser");
}

Cpanel::MysqlUtils::sqlcmd('FLUSH PRIVILEGES;');