#!/usr/bin/perl
open (MYSQLFILE, "/etc/virtualhosting/filelists/apache.sh") || die ("Could not open a file!!");
	@mysql_read = <MYSQLFILE>;
close (MYSQLFILE);

open (MYSQLFILE, ">/etc/virtualhosting/filelists/apache.sh") || die ("Could not open a file!!");
foreach $mysql_read (@mysql_read)
{
	if (!($mysql_read =~/php-mysql/))
	{
		print MYSQLFILE "$mysql_read";	
	}
}
close (MYSQLFILE);

open (PHPFILE, "/etc/virtualhosting/filelists/mysql.sh") || die ("Could not open a file!!");
	@php_read = <PHPFILE>;
close (PHPFILE);

open (PHPFILE, ">/etc/virtualhosting/filelists/mysql.sh") || die ("Could not open a file!!");
foreach $php_read (@php_read)
{
	if ($php_read =~/MySQL-shared-standard/)
	{
		print PHPFILE "$php_read";
		print PHPFILE "N:S,rpm:php-mysql\n";
	}else {print PHPFILE "$php_read";}
}
close (PHPFILE);
