#!/usr/bin/perl

if (! -e "/var/cpanel/version") {
   mkdir("/var/cpanel",0755);
   mkdir("/var/cpanel/version","0755");
}

$mysql = `rpm -q MySQL-server 2>&1`;

open(MYCNF,"/root/.my.cnf");
while(<MYCNF>) {
	if (/^pass=(\S+)/) {
		$mypass = $1;
	}
}
$mypass =~ s/^\"|\"$//g;
close(MYCNF);

if (! -e "/var/cpanel/version") {
	mkdir("/var/cpanel/version",0755);
}



if (! -e "/var/cpanel/version/mysql4pplfix") {
   
   if ($mysql =~ /4\.0\./) {
      
	   system("/usr/bin/mysql_fix_privilege_tables","$mypass");

	   open(MYSQL,"|/usr/bin/mysql mysql");
      print MYSQL <<'EOM';
update user set Create_tmp_table_priv = 'N' where Create_tmp_table_priv = 'Y' and User != 'root';
update user set Lock_tables_priv = 'N' where Lock_tables_priv = 'Y' and User != 'root';
update db set Create_tmp_table_priv = 'Y' where Create_tmp_table_priv = 'N' and User != 'root';
update db set Lock_tables_priv = 'Y' where Lock_tables_priv = 'N' and User != 'root';
EOM
	   close(MYSQL);

		system("/scripts/checkccompiler");
		system("/scripts/perlinstaller","Bundle::DBD::mysql");
		open(M4,">/var/cpanel/version/mysql4pplfix");
		close(M4);
	}
}

if (! -e "/var/cpanel/version/mysql4perlc") {
	#please please don't chattr +i /etc/chkserv.d
	system("chattr","-Ri","/etc/chkserv.d");
	system("/scripts/checkccompiler");
	system("/scripts/perlinstaller","Bundle::DBD::mysql");

	open(M4,">/var/cpanel/version/mysql4perlc");
	close(M4);
}



exit();