#!/usr/bin/perl
# cpanel - fixcommonproblems                      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 Cpanel::Sys::OS ();

print "Repairing Mailbox Permissions....";
system("/scripts/mailperm --skiplocaldomains");
print "Done\n";

if ( -e "/etc/redhat-release" ) {
    my ($version) = Cpanel::Sys::OS::getversionfromfile('/etc/redhat-release');
    if ( $version eq "7.2" ) {
        print "Removing NDBM_File......";
        system("/scripts/killndbm | /scripts/dotbuffer 60");
        print "Done\n";
    }
}

if ( -e "/usr/local/apache/bin/suexec" ) {

    #resetmailmanurls <--check mailman
    print "Fixing mailman list urls.....";
    system("/scripts/resetmailmanurls");
    print "Done\n";
    print "Fixing permissions on cgi scripts.....";
    system("/scripts/fixsuexeccgiscripts");
    print "Done\n";
}

system("/scripts/fixmailman");
print "Reparing Nameserver Config....";
system("/scripts/fixndc");
print "Done\n";

#system("/scripts/fixquotas");