#!/usr/local/psa/admin/bin/php
<?php
/**
 * Due to the changes in business model in PP10 release, not all previous accounts settings 
 * will be portable from the previous Plesk releases. Some business schemas will be lost for hosters 
 * and their clients. This tool could be launched prior to upgrade for the purpose of getting 
 * a report on potential problems with the upgrade. Based on the report a hoster can decide 
 * whether upgrade to PP10 is suitable for him.
 *
 * Requirements: script supports PHP4/PHP5 in case where installed PHP4 only
 */

define('APP_PATH', dirname(__FILE__));
define('DEBUG', 0); // allow to dump sql logs to output
define('PRE_UPGRADE_SCRIPT_VERSION', '11.0.9.12'); //script version
define('PLESK_VERSION', '11.0.9'); // latest Plesk version
define('AI_VERSION', '3.12.0'); // latest autoinstaller version
@date_default_timezone_set(@date_default_timezone_get());

if (!defined('PHP_EOL')) {
    define('PHP_EOL', "\n", true);
}

$phpType = php_sapi_name();
if (substr($phpType, 0, 3) == 'cgi') {
    //:INFO: set max execution time 1hr
    @set_time_limit(3600);
}

class Plesk10BusinessModel
{
    function validate()
    {
        if (!PleskInstallation::isInstalled()) {
            //:INFO: Plesk installation is not found. You will have no problems with upgrade, go on and install Plesk Panel 10
            return;
        }
        
        if (PleskVersion::is8x() || PleskVersion::is9x()) {
            //:INFO: Clients owned by Administrator (Client control over domain resources)
            $this->_diagnoseClientsHaveMoreDomainsThanOneOwnedByAdmin();
            $this->_diagnoseClientsHaveDomainAdministratorsOwnedByAdmin();
            $this->_diagnoseClientsHaveNoDomainsOwnedByAdmin();
            $this->_diagnoseClientPermissions();
        }
        
        if (PleskVersion::is9x()) {
            //:INFO: Clients owned by Resellers (Client control over domain resources)
            $this->_diagnoseClientsHaveMoreDomainsThanOneOwnedByReseller();
            $this->_diagnoseClientsHaveDomainAdministratorsOwnedByReseller();
            $this->_diagnoseClientsHaveNoDomainsOwnedByReseller();
            
            //:INFO: Domain Administrators owned by Admin
            $this->_diagnoseDomainAdmsOwnedByAdministrator();
            
            //:INFO: Domain Administrators owned by Resellers
            $this->_diagnoseDomainAdmsOwnedByResellers();

            //:INFO: Domain owned by non-existent Clients
            $this->_diagnoseDomainOwnersDontExist();
        }
    }
    
    /**
     * Domain Administrators owned by Hoster
     */
    function _diagnoseDomainAdmsOwnedByAdministrator()
    {
        //:INFO: Admin can create own domains since Plesk 9.x
        Log::step('Calculate domains belonging to admin with defined domain administrators', true);
        
        $domains = $this->_getAdminDomains();
        
        $details = 'The following domains have domain administrator: ' . PHP_EOL . PHP_EOL;
        foreach ($domains as $domainOwnedByAdmin) {
            $details .= "'{$domainOwnedByAdmin['name']}'" . PHP_EOL;
        }
        
        if (sizeof($domains)>0) {
            $logPath = APP_PATH.'/admin_domains_with_dom_admins.log';
            Log::write($logPath, $details, 'w');
            
            $warn = 'You have '.sizeof($domains).' domains with separate Domain Administrators. ';
            $warn .= 'In Plesk 10.x these users will see all your domains. ';
            $warn .= 'You should consider converting them to Customers after upgrade to avoid security problem.';
            Log::warning($warn);
            
            Log::warning('See details in log ' . $logPath);
            Log::resultWarning();
            
            return;
        }
        Log::resultOk();
    }
    
    /**
     * Domain Administrators owned by Resellers
     */
    function _diagnoseDomainAdmsOwnedByResellers()
    {
        //:INFO: Reseller role was defined since 9.0
        Log::step('Calculate domains belonging to resellers with defined domain administrators', true);
        
        $resellerDomains = $this->_getResellerDomains();
        $details = '';
        $totalDomains = 0;
        foreach ($resellerDomains as $reseller => $domains) {
            $details .= "Reseller '{$reseller}' has " . sizeof($domains) . " domain administrators" . PHP_EOL . PHP_EOL;
            $totalDomains += sizeof($domains);
        }
        
        if (sizeof($resellerDomains)>0) {
            $logPath = APP_PATH.'/reseller_domains_with_dom_admins.log';
            Log::write($logPath, $details, 'w');
            
            $warn = 'You have '.sizeof($resellerDomains).' resellers with '.$totalDomains.' domains with separate domain administrators. ';
            $warn .= 'In Plesk 10.x these users will see all your domains of their Resellers. ';
            $warn .= 'You should consider converting them to customers after upgrade to avoid security problem.';
            Log::warning($warn);
            
            Log::warning('See details in log ' . $logPath);
            Log::resultWarning();
            
            return;
        }
        Log::resultOk();
    }
    
    /**
     * The diagnosed situation is:
     * Client limit has more than 1 domain
     * Client can create domains
     * Client can manage domain limits
     */
    function _diagnoseClientsHaveMoreDomainsThanOneOwnedByAdmin()
    {
        Log::step('Calculate clients owned by administrator who have more than a one domain', true);
        
        $clientsOwnedByAdmin = $this->_getClientsOwnedByAdmin();
        $total = sizeof($clientsOwnedByAdmin);
        $details = '';
        
        foreach ($clientsOwnedByAdmin as $clientOwnedByAdmin) {
            $details .= "Client '{$clientOwnedByAdmin['pname']}' has {$clientOwnedByAdmin['count_dom']} domains" . PHP_EOL . PHP_EOL;
        }
        
        //:INFO: count of clients > 0
        if ($total) {
            $logPath = APP_PATH.'/admin_clients_have_domains.log';
            Log::write($logPath, $details, 'w');
            
            $warn = 'You have '.$total.' clients who are free to manage resources on their domains themselves within the resource limits that you gave them.';
            $warn.= ' In Plesk 10.x the resources are defined in a subscription.';
            $warn.= ' The Customer cannot redistribute resources between his/her subscriptions.';
            $warn.= ' If you want to leave the same degree of flexibility for these Customers, you should consider converting them to Resellers after upgrade.';
            Log::warning($warn);
            
            Log::warning('See details in log ' . $logPath);
            Log::resultWarning();
            
            return;
        }
        
        Log::resultOk();
    }
    
    /**
     * The diagnosed situation is:
     * Client has created Domain Administrators for several domains
     */    
    function _diagnoseClientsHaveDomainAdministratorsOwnedByAdmin()
    {
        Log::step('Calculate clients owned by administrator who have domain administrators', true);
        
        $clients = $this->_getClientsHaveDomAdminsOwnedByAdmin();
        
        $details = '';
        foreach ($clients as $client) {
            $details .= "Client '{$client['pname']}' has {$client['count_dom_adm']} domain administrators" . PHP_EOL . PHP_EOL;
        }
        
        if (sizeof($clients)) {
            $logPath = APP_PATH.'/admin_clients_have_domain_administators.log';
            Log::write($logPath, $details, 'w');
            
            $warn = 'Your have '.sizeof($clients).' clients with Domain Administrators defined on more than one domain.';
            $warn.= ' After transitions these Clients will have problems, because in Plesk 10.x users belonging to a Customer have access to all Customer’s subscriptions.';
            $warn.= ' You will avoid the problem if after upgrade the Clients will be upgraded to Resellers and Domain Administrators to the Customers.';
            Log::warning($warn);
            
            Log::warning('See details in log ' . $logPath);
            Log::resultWarning();
            
            return;
        }
        Log::resultOk();
    }
    
    /**
     * The diagnosed situation is:
     * Client has no domains
     */
    function _diagnoseClientsHaveNoDomainsOwnedByAdmin()
    {
        Log::step('Calculate clients owned by administrator who have no domains', true);
        
        $clients = $this->_getClientsHaveNoDomainsOwnedByAdmin();
        
        $details = '';
        foreach ($clients as $client) {
            $details .= "Client '{$client['pname']}' has no domains" . PHP_EOL . PHP_EOL;
        }
        
        if (sizeof($clients)) {
            $logPath = APP_PATH.'/admin_clients_have_no_domains.log';
            Log::write($logPath, $details, 'w');
            
            $warn  = 'Your have ' . sizeof($clients) . ' clients with no domains defined.';
            $warn .= ' After transitions these Clients will not be able to login into the control panel until you create a subscription for them.';
            $warn .= ' An alternative solution is upgrading them to resellers after conversion.';
            Log::warning($warn);
            
            Log::warning('See details in log ' . $logPath);
            Log::resultWarning();
            
            return;
        }
        Log::resultOk();
    }
    
    /**
     * The diagnosed situation is:
     * Client has default permissions
     */
    function _diagnoseClientPermissions()
    {
        Log::step('Calculate clients who have default permissions', true);
        
        $db = PleskDb::getInstance();
        
        $where = 'WHERE perm_id is NULL';
        if (PleskVersion::is9x()) {
            $where = "WHERE perm_id is NULL AND id<>".$this->_getAdminId();
        }
        //Get client list where perm_id is null. It means that client never modified permissions and have default permissions
        $sql = "SELECT clients.pname FROM clients {$where}";
        $clients = $db->fetchAll($sql);
        
        if (sizeof($clients)) {
            $details = 'Client list where perm_id is null. It means that client never modified permissions and has default permissions' . PHP_EOL . PHP_EOL;
            foreach ($clients as $client) {
                $details .= "Client '{$client['pname']}' has default permissions" . PHP_EOL . PHP_EOL;
            }
            $logPath = APP_PATH.'/clients_have_default_permissions.log';
            Log::write($logPath, $details, 'w');

            $warn = 'You have client '.sizeof($clients).' with default permissions.';
            $warn .= ' Due to the changes in business model in PP10 release, default permissions are different from other versions. ';
            $warn .= 'You should go to the Client/Reseller permission page and save changes in order to permission values were saved in database.';
            Log::warning($warn);
            
            Log::warning('See details in log ' . $logPath);
            Log::resultWarning();
            
            return;
        }
        Log::resultOk();
    }
    
    /**
     * The diagnosed situation is:
     * Client limit has more than 1 domain
     * Client can create domains
     * Client can manage domain limits
     */
    function _diagnoseClientsHaveMoreDomainsThanOneOwnedByReseller()
    {
        Log::step('Calculate clients owned by reseller who have more than a one domain', true);
        
        $resellers = $this->_getClientsOwnedByReseller();
        
        $totalResellers = sizeof($resellers);
        $totalClients = 0;
        $details = '';
        foreach ($resellers as $reseller => $clients) {
            $details .= "Reseller with login '{$reseller}' has " . sizeof($clients) . ' clients' . PHP_EOL;
            $totalClients += sizeof($clients);
            foreach ($clients as $client) {
                $details .= "----Client '{$client['pname']}' has {$client['count_dom']} domains" . PHP_EOL;
            }
        }
        
        if ($totalResellers) {
            $logPath = APP_PATH.'/reseller_clients_have_domains.log';
            Log::write($logPath, $details, 'w');
            
            $warn = 'You have '.$totalResellers.' resellers with '.$totalClients.' clients who are free to manage resources on their domains themselves within the resource limits that you gave them.';
            $warn.= ' In Plesk 10.x the resources are defined in a subscription.';
            $warn.= ' The Customer cannot redistribute resources between his/her subscriptions.';
            $warn.= ' After upgrade you will be suggested to redistribute Clients’ resources between the existing subscriptions (current domains).';
            Log::warning($warn);
            
            Log::warning('See details in log ' . $logPath);
            Log::resultWarning();
            
            return;
        }
        
        Log::resultOk();
    }
    
    /**
     * The diagnosed situation is:
     * Client has created Domain Administrators for several domains
     */    
    function _diagnoseClientsHaveDomainAdministratorsOwnedByReseller()
    {
        Log::step('Calculate clients owned by reseller who have domain administrators', true);
        
        $resellers = $this->_getClientsWithDomAdminsOwnedByReseller();

        $totalResellers = sizeof($resellers);
        $totalClients = 0;
        $details = '';
        foreach ($resellers as $reseller => $clients) {
            $details .= "Reseller with login '{$reseller}' has " . sizeof($clients) . ' clients' . PHP_EOL;
            $totalClients += sizeof($clients);
            foreach ($clients as $client) {
                $details .= "----Client '{$client['pname']}' has {$client['count_dom_adm']} domain administrators" . PHP_EOL;
            }
        }
        
        if ($totalResellers) {
            $logPath = APP_PATH.'/reseller_clients_have_domain_administators.log';
            Log::write($logPath, $details, 'w');
            
            $warn = 'You have '.$totalResellers.' resellers with '.$totalClients.' clients with Domain Administrators defined on more than one domain.';
            $warn.= ' After transitions these Clients will have problems, because in Plesk 10.x users belonging to a Customer have access to all Customer’s subscriptions.';
            $warn.= ' Probably you should consult with your resellers of the path forward for these customers.';
            Log::warning($warn);
            
            Log::warning('See details in log ' . $logPath);
            Log::resultWarning();
            
            return;
        }

        Log::resultOk();
    }
    
    /**
     * The diagnosed situation is:
     * Client has no domains
     */
    function _diagnoseClientsHaveNoDomainsOwnedByReseller()
    {
        Log::step('Calculate clients owned by reseller who have no domains', true);
        
        $resellers = $this->_getClientsHaveNoDomainsOwnedByReseller();
        
        $totalResellers = sizeof($resellers);
        $totalClients = 0;
        $details = '';
        foreach ($resellers as $reseller => $clients) {
            $details .= "Reseller with login '{$reseller}' has " . sizeof($clients) . ' clients' . PHP_EOL;
            $totalClients += sizeof($clients);
            foreach ($clients as $client) {
                $details .= "----Client '{$client['pname']}' has no domains" . PHP_EOL;
            }
        }
        
        if ($totalResellers) {
            $logPath = APP_PATH.'/reseller_clients_have_no_domains.log';
            Log::write($logPath, $details, 'w');
            
            $warn = 'You have '.$totalResellers.' resellers with '.$totalClients.' clients that have no domains defined.';
            $warn.= ' After transitions these Clients will not be able to login into the control panel until you or Reseller create a subscription for them.';
            Log::warning($warn);
            
            Log::warning('See details in log ' . $logPath);
            Log::resultWarning();
            
            return;
        }
        
        Log::resultOk();
    }
    
    function _diagnoseDomainOwnersDontExist()
    {
	Log::step('Checking if there are domains owned by non-existent users', true);
	$db = PleskDb::getInstance();
	$sql = 'SELECT name FROM domains AS d LEFT JOIN clients AS c ON c.id = d.cl_id WHERE c.id IS NULL;';
        $domains = $db->fetchAll($sql);

	$details = 0;
	$totalDomains = 0;
	foreach ($domains as $key => $domain)
	{
	    $details .= "----Domain '{$domain['name']}' belongs to owner that does not exist" . PHP_EOL;
	    $totalDomains++;
	}

	if ($totalDomains > 0)
	{
		$logPath = APP_PATH.'/domain_owners_dont_exists.log';
        Log::write($logPath, $details, 'w');
	    $warn = 'You have '.$totalDomains.' domains whose owners do not exist.';
	    Log::warning($warn);
        Log::warning('See details in log ' . $logPath);
        Log::resultWarning();
        return;
	}

        Log::resultOk();
    }

    function _getClientsOwnedByAdmin()
    {
        $db = PleskDb::getInstance();
        $filterOwnedByAdmin = '';
        if (PleskVersion::is9x()) {
            $filterOwnedByAdmin = "WHERE type='client' AND parent_id=".$this->_getAdminId();
        }
        $sql = 'SELECT clients.id, clients.pname, clients.perm_id, count(domains.id) as count_dom FROM clients 
            INNER JOIN domains ON(domains.cl_id = clients.id) 
            '.$filterOwnedByAdmin.' 
            GROUP BY clients.id, clients.pname, clients.perm_id
            HAVING count(domains.id) > 1
        ';
        $clients = $db->fetchAll($sql);
        
        foreach ($clients as $key => $client) {
            if (empty($client['perm_id'])) {
                //:INFO: client permissions based on default template
                unset($clients[$key]);
                continue;
            }
            
            $sql = "SELECT count(*) FROM Permissions 
                WHERE id={$client['perm_id']} AND value='true' AND 
                (permission = 'create_domains' OR permission = 'change_limits')
            ";
            $count = $db->fetchOne($sql);
            
            //:INFO: Client has no permissions and we unset him.
            if ($count != 2) {
                unset($clients[$key]);
            }
        }
        return $clients;
    }
    
    function _getClientsHaveDomAdminsOwnedByAdmin()
    {
        $filterOwnedByAdmin = '';
        if (PleskVersion::is9x()) {
            $filterOwnedByAdmin = "WHERE type='client' AND parent_id=".$this->_getAdminId();
        }
        
        $db = PleskDb::getInstance();
        $sql ='SELECT clients.id, clients.pname, count(domains.name) AS count_dom_adm  
            FROM ((clients 
            INNER JOIN domains ON (clients.id=domains.cl_id))
            INNER JOIN dom_level_usrs ON(domains.id=dom_level_usrs.dom_id))
            '.$filterOwnedByAdmin.' 
            GROUP BY clients.id, clients.pname
            HAVING count(domains.name) > 1
        ';
        $clients = $db->fetchAll($sql);
        
        return $clients;
    }
    
    function _getClientsHaveNoDomainsOwnedByAdmin()
    {
        $filterOwnedByAdmin = '';
        if (PleskVersion::is9x()) {
            $filterOwnedByAdmin = "AND type='client' AND parent_id=".$this->_getAdminId();
        }
        $db = PleskDb::getInstance();
        $sql = 'SELECT clients.id, clients.pname FROM clients 
            WHERE id NOT IN (SELECT cl_id FROM domains) '.$filterOwnedByAdmin.'
        ';
        $clients = $db->fetchAll($sql);
        return $clients;
    }
    
    function _getClientsOwnedByReseller()
    {
        $db = PleskDb::getInstance();
        $sql = "SELECT clients.id, clients.login, clients.pname FROM clients WHERE type='reseller'";
        $resellers = $db->fetchAll($sql);
        
        //:INFO: Get list of resellers with clients who have more than one domain
        $resellerMatched = array();
        foreach ($resellers as $reseller) {
            $sql = 'SELECT clients.id, clients.login, clients.perm_id, clients.pname, count(domains.id) as count_dom FROM clients 
                INNER JOIN domains ON(domains.cl_id = clients.id AND clients.parent_id = '.$reseller['id'].') 
                GROUP BY clients.id, clients.login, clients.perm_id, clients.pname
                HAVING count(domains.id) > 1
            ';
            $clients = $db->fetchAll($sql);
            if (sizeof($clients) > 0) {
                $resellerMatched[$reseller['login']] = $clients;
            }
        }

        //:INFO: Check that clients has permissions 'create_domains' and 'change_limits'
        foreach ($resellerMatched as $key => $clients) {
            foreach ($clients as $cl_key => $client) {
                if (empty($client['perm_id'])) {
                    //:INFO: client permissions based on default template
                    unset($resellerMatched[$key][$cl_key]);
                    continue;
                }
                
                $sql = "SELECT count(*) FROM Permissions 
                    WHERE id={$client['perm_id']} AND value='true' AND 
                    (permission = 'create_domains' OR permission = 'change_limits')
                ";
                $count = $db->fetchOne($sql);
                if ($count != 2) {
                    //:INFO: Client has no permissions and we unset him.
                    unset($resellerMatched[$key][$cl_key]);
                }
            }
            //:INFO: unset reseller if client list is empty
            if (!sizeof($resellerMatched[$key])) {
                unset($resellerMatched[$key]);
            }
        }
        
        return $resellerMatched;
    }
    
    function _getClientsWithDomAdminsOwnedByReseller()
    {
        $db = PleskDb::getInstance();
        $sql = "SELECT clients.id, clients.login, clients.pname FROM clients WHERE type='reseller'";
        $resellers = $db->fetchAll($sql);
        
        $resellerMatched = array();
        foreach ($resellers as $reseller) {
            $sql ='SELECT clients.id, clients.pname, count(domains.name) AS count_dom_adm
                FROM ((clients 
                INNER JOIN domains ON (clients.id=domains.cl_id AND clients.parent_id = '.$reseller['id'].')) 
                INNER JOIN dom_level_usrs ON(domains.id=dom_level_usrs.dom_id))
                GROUP BY clients.id, clients.pname
                HAVING count(domains.name) > 1
            ';
            $clients = $db->fetchAll($sql);
            
            if (sizeof($clients) > 0) {
                $resellerMatched[$reseller['login']] = $clients;
            }
        }

        return $resellerMatched;
    }
    
    function _getClientsHaveNoDomainsOwnedByReseller()
    {
        $db = PleskDb::getInstance();
        $sql = "SELECT clients.id, clients.login, clients.pname FROM clients WHERE type='reseller'";
        $resellers = $db->fetchAll($sql);
        
        $resellerMatched = array();
        foreach ($resellers as $reseller) {
            $sql = 'SELECT clients.id, clients.pname FROM clients 
                WHERE parent_id='.$reseller['id'].' AND id NOT IN (SELECT cl_id FROM domains)
            ';
            $clients = $db->fetchAll($sql);
            
            if (sizeof($clients) > 0) {
                $resellerMatched[$reseller['login']] = $clients;
            }
        }
        return $resellerMatched;
    }
    
    function _getAdminDomains()
    {
        $db = PleskDb::getInstance();
        $sql = 'SELECT domains.name FROM domains
            INNER JOIN dom_level_usrs ON(domains.id=dom_level_usrs.dom_id)
            WHERE domains.cl_id='.$this->_getAdminId()
        ;

        $domains = $db->fetchAll($sql);
        if (sizeof($domains) <= 1) {
            return array();
        }
        return $domains;
    }
    
    function _getResellerDomains()
    {
        $db = PleskDb::getInstance();
        $sql = "SELECT clients.id, clients.login FROM clients WHERE type='reseller'";
        $resellers = $db->fetchAll($sql);
        
        $resellerMatched = array();
        foreach ($resellers as $reseller) {
            $sql = "SELECT domains.name FROM domains
                INNER JOIN dom_level_usrs ON(domains.id=dom_level_usrs.dom_id)
                WHERE cl_id = {$reseller['id']}";
            $domains = $db->fetchAll($sql);
            
            if (sizeof($domains) > 1) {
                $resellerMatched[$reseller['login']] = $domains;
            }
        }
        return $resellerMatched;
    }
    
    function _getAdminId()
    {
        $db = PleskDb::getInstance();
        $sql = "SELECT id FROM clients WHERE type='admin'";
        $adminId = $db->fetchOne($sql);
        
        if (empty($adminId)) {
            Log::fatal('Unable to find Plesk administrator. Please check SQL: ' . $sql);
        }
        
        return $adminId;
    }
    
    function _getAdminEmail()
    {
    	$db = PleskDb::getInstance();
    	$sql = "SELECT val FROM misc WHERE param='admin_email'";
    	$adminEmail = $db->fetchOne($sql);

    	return $adminEmail;
    }
    
    //:INFO: Domain's type can be 'none','vrt_hst','std_fwd','frm_fwd'
    function _getDomainsByHostingType($type = 'vrt_hst')
    {
    	$db = PleskDb::getInstance();
    	$sql = 'SELECT name FROM domains WHERE htype="' . $type . '"';
    	$domains = $db->fetchAll($sql);
    
    	return $domains;
    }
}

class Plesk10Requirements
{
    function validate()
    {
        //:INFO: Make sure that offline management is switched off before upgrading to Plesk 10.x
        if (PleskInstallation::isInstalled() && (PleskVersion::is8x() || PleskVersion::is9x())) {
            $this->_checkOfflineManagement();
        }

        //:INFO: Check that Linux security module is swicthed off
        $this->_checkApparmorService();
        
        //:INFO: Server should have properly configured hostname and it should be resolved locally
        $this->_resolveHostname();
    }
    
    function _checkApparmorService()
    {
        if (Util::isLinux()) {
            Log::step('Detecting if the apparmor service is switched off...', true);
            
            $apparmorPath = '/etc/init.d/apparmor';
            if (file_exists($apparmorPath)) {
            	$apparmor_status = Util::exec('/etc/init.d/apparmor status', $code);
            	if (preg_match('/(complain|enforce)/', $apparmor_status)) {
                	$warn = 'The \'Apparmor\' security module for the Linux kernel is turned on. ';
                	$warn .= 'Turn the module off before continuing work with Parallels Plesk Panel. Please check http://kb.parallels.com/en/112903 for more details.';
                	Log::warning($warn);
                	Log::resultWarning();
                	return;
            	}
            }
            Log::resultOk();
        }
    }
    
    function _checkOfflineManagement()
    {
        Log::step('Detect virtualization', true);

        //:INFO: There is no ability to detect offline management inside VZ container
        if (Util::isVz()) {
            $warn = 'Virtuozzo is detected in your system. ';
            $warn .= 'Make sure that offline management is switched off for the container before installing or upgrading to ' . PleskVersion::getLatestPleskVersionAsString();
            Log::info($warn);
            
            return;
        }

        Log::resultOk();
    }
    
    function _resolveHostname()
    {
        Log::step('Validate hostname', true);
        
        $hostname = Util::getHostname();
        
        //Get the IPv address corresponding to a given Internet host name 
        $ip = gethostbyname($hostname);
        if (!PleskValidator::isValidIp($ip)) {
            $warn = "Hostname '{$hostname}' is not resolved locally.";
            $warn .= 'Make sure that server should have properly configured hostname and it should be resolved locally before installing or upgrading to Plesk Billing';
            Log::warning($warn);
            Log::resultWarning();
            
            return;
        }
        Log::resultOk();
    }
}

class Plesk10MailServer
{
    function validate()
    {
        if (!PleskInstallation::isInstalled()) {
            return;
        }
        
        $this->_checkPostfixDnsLookup();
    }
    
    function _checkPostfixDnsLookup()
    {
        if (Util::isLinux()) {
            Log::step('Detecting if mail server type is Postfix...', true);
            
            if ($this->_isPostfix()) {
                Log::info('Postfix is current mail server');
                $cmd = Util::lookupCommand('postconf') . ' disable_dns_lookups';
                $output = Util::exec($cmd, $code);
                if (preg_match('/disable_dns_lookups[\s]{0,}=[\s]{0,}yes/', $output)) {
                    $warn = "Parameter 'disable_dns_lookups' is disabled in Postfix configuration (/etc/postfix/main.cf). ";
                    $warn .= "By default this parameter is set to 'no' by Parallels Plesk. ";
                    $warn .= "Need to set param value disable_dns_lookups=yes";
                    Log::warning($warn);
                    Log::resultWarning();
                    
                    return;
                }
            } else {
                Log::info('Qmail is current mail server');
            }
        
            Log::resultOk();
        }
    }
    
    function _isPostfix()
    {
        $res = Util::lookupCommand(
            'postconf', 
            '/usr/bin:/usr/local/bin:/usr/sbin:/bin:/sbin:/usr/local/sbin', 
            false
        );
        
        return $res;
    }
    
    function CurrentWinMailServer()
    {    
    	if (Util::isWindows()) {
    		$currentMailServer = Util::regQuery('\PLESK\PSA Config\Config\Packages\mailserver', '/ve', true);
    		Log::info('Current mail server is: ' . $currentMailServer);    		
    		return $currentMailServer;
    	}
    }
    
}

class Plesk10Skin
{
    function validate()
    {
        if (!PleskInstallation::isInstalled()) {
            //:INFO: Plesk installation is not found. You will have no problems with upgrade, go on and install Plesk Panel 10
            return;
        }
        
        if (PleskVersion::is8x() || PleskVersion::is9x()) {
            Log::step('Notify about skins in ' . PleskVersion::getLatestPleskVersionAsString());
            
            $warn = 'Parallels Plesk Panel 10 is shipped with only one graphical user interface appearance theme, ';
            $warn .= 'so all the appearance settings will be ignored after upgrade and the default theme will be used for all users. ';
            $warn .= 'If you want to change the default Panel 10 appearance, create and use custom appearance themes as described ';
            $warn .= 'in the Guide to Customizing Panel Appearance and Branding (http://www.parallels.com/products/plesk/documentation/). ';
            $warn .= 'Deploying custom themes is available since Plesk 10.1.';
            Log::info($warn);
        }
    }
}

class Plesk10Permissions
{
    function validate()
    {
        $this->_validatePHPSessionDir();
    }
    
    function _validatePHPSessionDir()
    {
        if (Util::isLinux()) {
            Log::step('Validating permissions of the PHP session directory...', true);
			
            $phpbinary = Util::getSettingFromPsaConf('CLIENT_PHP_BIN');
            $cmd = $phpbinary . " -r 'echo ini_get(\"session.save_path\");'";
            $path = Util::exec($cmd, $code);

            $cmd = 'su nobody -m -c "' . $phpbinary . ' -r \'@session_start();\' 2>&1"';
            $realResult = `$cmd`;
                        
            Log::info("session.save_path = $path");
            
            if (!file_exists($path)) {
                // TODO no need to fail in this case, right?
                //Log::warning("No such directory {$path}");
                //Log::resultWarning();
                Log::info("No such directory '{$path}'");
                Log::resultOk();
                return;
            }
            
            $perms = (int)substr(decoct( fileperms($path) ), 2);
            Log::info('Permissions: '   . $perms);
            
            //:INFO: PHP on domains running via CGI/FastCGI can't use session by default http://kb.parallels.com/en/7056
            if (preg_match('/Permission\sdenied/', $realResult, $match)) {
            	$warn = "If a site uses default PHP settings and PHP is in CGI/FastCGI mode, site applications are unable to create user sessions. This is because the apps run on behalf of a subscription owner who does not have permissions to the directory which stores session files, " . $path . ". Please check http://kb.parallels.com/en/7056 for more details.";
            	Log::warning($warn);
            	Log::resultWarning();
            	return;
            }
            
            Log::resultOk();
        }
    }
}

class AutoinstallerKnownIssues
{
	function validate()
	{
		if (Util::isLinux()) {
			$this->_checkMixedPhpPackages();
		}
	}

	function _checkMixedPhpPackages()
	{
		if (PleskOS::isRedHatLike()) {
			Log::step("Checking that a mixed set of 'php' and 'php53' packages is not installed", true);

			$packages = PackageManager::listInstalled('php*', '/^php(53)?(-(common|devel|cli|mysql|sqlite2?|pdo|gd|imap|mbstring|xml))?$/');

			if ($packages === false) {
				Log::info("Failed to fetch php packages list from system package manager");
				return;
			}

			$hasPhp5 = $hasPhp53 = false;
			foreach ($packages as $package) {
				$name = $package['name'];
				$hasPhp5  |= ($name == 'php' || strpos($name, 'php-') === 0);
				$hasPhp53 |= (strpos($name, 'php53') === 0);
			}

			if ($hasPhp5 && $hasPhp53) {
				// We don't check for psa-php53?-configurator because a proper one will be installed depending on currently installed php(53)? package
				$warn = "You have a mixed set of 'php' and 'php53' packages installed. Installation or upgrade may fail or produce unexpected results. To resolve this issue run \"sed -i.bak -e '/^\s*skip-bdb\s*$/d' /etc/my.cnf ; yum update 'php*' 'mysql*'\".";
				Log::warning($warn);
				Log::resultWarning();
			} else {
				Log::resultOk();
			}
		}
	}
}

class Plesk10KnownIssues
{
    function validate()
    {
        if (!PleskInstallation::isInstalled()) {
            //:INFO: Plesk installation is not found. You will have no problems with upgrade, go on and install Plesk Panel 10
            return;
        }
                
        //:INFO: Validate known OS specific issues with recommendation to avoid bugs in Plesk
        if (Util::isLinux()
            && Util::isVz()
            && Util::getArch() == 'x86_64'
            && PleskOS::isSuse103() 
        ) {
            $this->_diagnoseKavOnPlesk10x();
        }
        
        //:INFO: Prevent potential problem with E: Couldn't configure pre-depend plesk-core for psa-firewall, probably a dependency cycle.
        if (PleskVersion::is8x()
            && Util::isLinux()
            && Util::isVz()
            && PleskOS::isUbuntu804()
        ) {
            $this->_diagnoseDependCycleOfModules();
        }
        
        if (Util::isLinux()) {
			
			$this->_checkMainIP(); //:INFO: Checking for main IP address http://kb.parallels.com/en/112417
			$this->_checkCBMrelayURL(); //:INFO: Checking for hostname in Customer & Business Manager relay URL http://kb.parallels.com/en/111500
			$this->_checkMySQLDatabaseUserRoot(); //:INFO: Plesk user "root" for MySQL database servers have not access to phpMyAdmin http://kb.parallels.com/en/112779
			$this->_checkPAMConfigsInclusionConsistency();  //:INFO: Check that non-existent PAM services are not referenced by other services, i.e. that PAM configuration array is consistent http://kb.parallels.com/en/112944
			//:INFO: FIXED in 11.0.0 $this->_checkZendExtensionsLoadingOrder(); //:INFO:#100253 Wrong order of loading Zend extensions ionCube declaraion in php.ini can cause to Apache fail http://kb.parallels.com/en/1520
			$this->_checkDumpTmpDvalue(); //:INFO: #101168 If DUMP_TMP_D in /etc/psa/psa.conf contains extra space character at the end of string backup procedure will fails permanently http://kb.parallels.com/113474
			$this->_checkProftpdIPv6(); //:INFO: #94489 FTP service proftpd cannot be started by xinetd if IPv6 is disabled http://kb.parallels.com/en/113504
			//:INFO: FIXED in 11.0.0 $this->_checkModificationOfCustomizedDNSzones(); //:INFO: # http://kb.parallels.com/en/113725
			//:INFO: FIXED in 11.0.0 $this->_checkBindInitScriptPermission(); //:INFO: #105806 If there is no execute permission on named(bind) init file upgrade will fail 
			$this->_checkMysqlclient15Release(); //:INFO: #105256 http://kb.parallels.com/en/113737
			$this->_checkNsRecordInDnsTemplate(); //:INFO: #94544  http://kb.parallels.com/en/113119
			$this->_checkMysqlOdbcConnectorVersion(); //:INFO: #102516 http://kb.parallels.com/en/113620
			$this->_checkSwCollectdIntervalSetting(); //:INFO: #105405 http://kb.parallels.com/en/113711
			$this->_checkObsoletedNginxParamsInMisc(); //:INFO: #108922  http://kb.parallels.com/en/114598
			$this->_checkCaseForMailAndDomainNames(); //:INFO: #107620 http://kb.parallels.com/en/5780
			$this->_checkBrokenHostingForwardingReferences(); //:INFO: #111908 http://kb.parallels.com/114632
			$this->_checkSymLinksForLastVhostConfigs(); //:INFO: #115700 http://kb.parallels.com/114556
			$this->_checkAdminIdAndMagicSpam(); //:INFO: #120801 http://kb.parallels.com/115001
			$this->_checkImmutableBitOnPleskFiles(); //:INFO: #128414 http://kb.parallels.com/115457
			
			if (PLeskVersion::is10x()) {
				$this->_checkIpAddressReferenceForForwardingDomains(); //:INFO: #72945 Checking for IP address references in Plesk database http://kb.parallels.com/en/113475
			}
			
			if (PleskVersion::is10_0()) {
				$this->_oldBackupsRestoringWarningAfterUpgradeTo11x(); //:INFO: #58303  http://kb.parallels.com/en/114041
			}
			
			if (PleskVersion::is10_1_or_below()) {
				$this->_checkCustomizedCnameRecordsInDnsTemplate(); //:INFO: Customized CNAME records in server's DNS template could lead to misconfiguration of BIND http://kb.parallels.com/en/113118
			}
			
			if (PleskVersion::is10_2_or_above()) {
				$this->_checkSsoStartScriptsPriority(); //:INFO: Checking for conflicting of SSO start-up scripts http://kb.parallels.com/en/112666
				$this->_checkIpcollectionReference(); //:INFO: #72751 http://kb.parallels.com/en/113826
			}
			
			if (PleskVersion::is10_3_or_above()) {
				$this->_checkApsApplicationContext(); //:INFO: Broken contexts of the APS applications can lead to errors at building Apache web server configuration  http://kb.parallels.com/en/112815
			}

			if (!PleskVersion::is10_4_or_above()) {
				$this->_checkCustomPhpIniOnDomains(); //:INFO: Check for custom php.ini on domains http://kb.parallels.com/en/111697
			}
			
        	if (PleskOS::isDebLike()) {
        		$this->_checkSymLinkToOptPsa(); //:INFO: Check that symbolic link /usr/local/psa actually exists on Debian-like OSes http://kb.parallels.com/en/112214
        		$this->_checkPleskPackagesStateOnDeb(); //:INFO: #113841  http://kb.parallels.com/en/114490
        	}
        	
        	if (PleskOS::isCentOS()) {
        		$this->_checkMySQLServerPackageFromRemiRepository(); //:INFO: #112065
        	}
        	
        	if (Util::isVz()) {
        		$this->_checkUserBeancounters(); //:INFO: Checking that limits are not exceeded in /proc/user_beancounters http://kb.parallels.com/en/112522
        	}
        }

		$this->_checkForCryptPasswords();
		$this->_checkAutoinstallerVersion(); //:INFO: Checking for old version of autoinstaller http://kb.parallels.com/en/112166
		$this->_checkMysqlServersTable(); //:INFO: Checking existing table mysql.servers
		$this->_checkUserHasSameEmailAsAdmin(); //:INFO: If user has the same address as the admin it should be changed to another http://kb.parallels.com/en/111985
		//:INFO: FIXED in 11.0.0 $this->_checkDefaultMySQLServerMode(); //:INFO:#66278,70525 Checking SQL mode of default client's MySQL server http://kb.parallels.com/en/112453
		//:INFO: FIXED in 10.4.4 MU#19 $this->_checkUserHasSameEmailAsEmailAccount(); //:INFO: Users with same e-mails as e-mail accounts will have problems with changing personal contact information http://kb.parallels.com/en/112032
		$this->_checkPleskTCPPorts(); //:INFO: Check the availability of Plesk Panel TCP ports http://kb.parallels.com/en/391
		$this->_checkFreeMemory(); //:INFO: Check for free memory http://kb.parallels.com/en/112522
		$this->_checkPanelAccessForLocalhost(); //:INFO: Upgrade of Customer & Business Manager failed in case of 127.0.0.1 is restricted for administrative access http://kb.parallels.com/en/113096
		//:INFO: FIXED in 11.0.0 $this->_checkCustomDNSrecordsEqualToExistedSubdomains(); //:INFO: Customized DNS records with host equal host of existing subdomain will lost after upgrade to Plesk version above 10.4.4 http://kb.parallels.com/en/113310
		//:INFO: FIXED in 11.0.0 $this->_checkForwardingURL(); //:INFO: Wrong GUI behavior if forwarding URL hasn't "http://" after upgrade to Plesk version above 10.4.4 http://kb.parallels.com/en/113359
		
		//:INFO:  
		if (PleskVersion::is9x()
			|| PleskVersion::is8x()
		) {
			//:INFO: FIXED in 11.0.0 $this->_notificationChangePasswordForEmailAccount(); //:INFO: Notification about how to change password for the mail account after upgrade http://kb.parallels.com/en/9454
			if (Util::isLinux()) {
				$this->_checkJkWorkersFileDirective(); //:INFO: JkWorkersFile directive in Apache configuration can lead to failed Apache configs re-generation during and after upgrade procedure http://kb.parallels.com/en/113210
			}
			if (Util::isWindows()) { 
				$this->_hMailServerWarningOnUpgradeTo10x(); //:INFO: Plesk 10 version does not support hMailserver http://kb.parallels.com/en/9609
				$this->_unsupportedFtpServersWarningOnUpgradeTo10x(); //:INFO: Plesk 10.2 version does not support Gene6 http://kb.parallels.com/en/111816
				//:INFO: Support has been added since 11.0.9 MU#39 $this->_unsupportedDNSServersWarningOnUpgradeTo10x(); //:INFO: Plesk 10.x version does not support SimpleDNS http://kb.parallels.com/en/112280
				$this->_mDaemonServerWarningOnUpgradeTo10x(); //:INFO: Plesk 10 version does not support MDaemon http://kb.parallels.com/en/112356
				
			}
		}
		
		if (PleskVersion::is10x()
			&& !PleskVersion::is10_2_or_above()
		) {
			$this->_checkCBMlicense(); //:INFO: Check for Customer and Business Manager license http://kb.parallels.com/en/111143
		}
		
		if (PleskVersion::is10_3_or_above()) {
			$this->_checkApsRegistryUid(); //:INFO: #97188 http://kb.parallels.com/112568
		}
		
		if (PleskVersion::is10_4()) {
			$this->_notificationSubDomainsHaveOwnDNSZoneSince104(); //:INFO: Notification about after upgrade all subdomains will have own DNS zone http://kb.parallels.com/en/112966
			if (Util::isLinux()) {
				$this->_checkDnsZonesSyncWithDnsTemplate(); //:INFO: #111927  http://kb.parallels.com/en/114324
			}
		}
		
		if (PleskVersion::is10_4_or_above()) {
			$this->_checkSubdomainsUpgraded(); //:INFO: #93114 http://kb.parallels.com/115285
		}
		
		if (Util::isWindows()) {
			//:INFO: #1501368 Disable check because of unstable work of wmic.exe  $this->_checkIisMetabaseAvailability();
			$this->_unknownISAPIfilters(); //:INFO: Checking for unknown ISAPI filters and show warning http://kb.parallels.com/en/111908
			$this->_checkMSVCR(); //:INFO: Just warning about possible issues related to Microsoft Visual C++ Redistributable Packages http://kb.parallels.com/en/111891
			$this->_checkConnectToClientMySQL(); //:INFO: Checking possibility to connect to client's MySQL server http://kb.parallels.com/en/111983
			$this->_checkIisFcgiDllVersion(); //:INFO: Check iisfcgi.dll file version http://kb.parallels.com/en/112606
			$this->_checkCDONTSmailrootFolder(); //:INFO: After upgrade Plesk change permissions on folder of Collaboration Data Objects (CDO) for NTS (CDONTS) to default, http://kb.parallels.com/en/111194
			$this->_checkWindowsAuthForPleskControlPanel(); //:INFO: Check windows authentication for PleskControlPanel web site http://kb.parallels.com/en/113253
			$this->_checkDefaultMySQLServerMode(); //:INFO:#1416291 Checking SQL mode of default client's MySQL server http://kb.parallels.com/en/114359
			
			if (Util::isVz()) {
				$this->_checkDotNetFrameworkIssue(); //:INFO: Check that .net framework installed properly http://kb.parallels.com/en/111448
			}
			
			if (PleskVersion::is9x_or_above()) {
				$this->_checkPermissionManageDrweb(); //:INFO: #67731 http://kb.parallels.com/111777
			}
			
			if (PleskVersion::is10x()) {
				$this->_checkSmarterMailOpenPorts(); //:INFO: #98549 Plesk doesn't bind Smartermail 8 ports on new IPs http://kb.parallels.com/en/113330
				$this->_checkDotNetNukeAndDotNetFrameworkCompatibility(); //:INFO: #89467 http://kb.parallels.com/112803
			}
			
			if (PleskVersion::is10_3_or_above()) {
				$this->_checkMySqlServerDataDirLocation(); //:INFO: #1415986 http://kb.parallels.com/114723
			}
		}		
    }
	
	//:INFO: #128414 http://kb.parallels.com/115457
    function _checkImmutableBitOnPleskFiles()
    {
    	Log::step("Checking for immutable bit on plesk files... ", true);
    	
    	$cmd = 'lsattr -R /usr/local/psa/ 2>/dev/null |awk \'{split($1, a, ""); if (a[5] == "i") {print;}}\'';
    	$output = Util::exec($cmd, $code);
    	$files = explode('\n', $output);
    	
    	if (!empty($output)) {
    		Log::info('Immutable attribute on following Plesk files can interrupt upgrade:');
    		foreach ($files as $file) {
    			Log::info($file);
    		}
    		Log::emergency('Immutable attribute on Plesk files detected. Please check http://kb.parallels.com/115457 for details.');
    		Log::resultWarning();
    		return;
    	}
    	
    	Log::resultOk();
    }
    
    //:INFO: #120801 http://kb.parallels.com/115001
    function _checkAdminIdAndMagicSpam()
    {
    	Log::step("Checking the value of the administrator's id in the 'clients' table... ", true);
    	
    	$db = PleskDb::getInstance();
    	$sql = "SELECT id FROM clients WHERE id = 1 AND login = 'admin'";
    	$id = $db->fetchOne($sql);
    	$magicSpam = '/etc/magicspam';

    	if (empty($id) && is_dir($magicSpam)) {
    		Log::warning("Administrator\'s id in the 'clients' table is not '1'. Please check http://kb.parallels.com/115001 for details.");
    		Log::resultWarning();
    		return;
    	}
    	Log::resultOk();
    }
    
    //:INFO: #93114 http://kb.parallels.com/115285
    function _checkSubdomainsUpgraded()
    {
    	Log::step("Checking that subdomains were correctly upgraded... ", true);
    	 
    	$db = PleskDb::getInstance();
    	$sql = "SELECT count(*) FROM subdomains";
    	$count = $db->fetchOne($sql);
    	 
    	if ($count <> '0') {
    		Log::warning('Some subdomains were not correctly upgraded during the upgrade to Panel 10.4.4. Please check http://kb.parallels.com/115285 for details.');
    		Log::resultWarning();
    		return;
    	}
    	
    	Log::resultOk();
    }
    
    //:INFO: #89467 http://kb.parallels.com/112803
    function _checkDotNetNukeAndDotNetFrameworkCompatibility()
    {
    	Log::step("Checking DotNetNuke instances... ", true);
    	
    	$db = PleskDb::getInstance();
    	$sql = "select 1 from smb_apspackages where name='DotNetNuke'";
    	$dotNetNuke = $db->fetchAll($sql);
    	
    	if (empty($dotNetNuke)) {
    		Log::resultOk();
    		return;
    	}
    	
    	Log::step("Checking the .NET Framework version... ", false);
    	 
    	$dotNetFrameworkRegKeys = array('\Microsoft\NET Framework Setup\NDP\v3.5', '\Microsoft\NET Framework Setup\NDP\v4\Client', '\Microsoft\NET Framework Setup\NDP\v4\Full');
    	foreach ($dotNetFrameworkRegKeys as $key) {
    		$val = Util::regQuery($key, '/v Install', true);
    		if (preg_match('/0x1/', $val)) {
    			Log::resultOk();
    			return;
    		}
    	}
    	
    	Log::warning('The DotNetNuke application used by one or more websites may not work because .NET Framework 3.5 or above is not installed on the system. Please check http://kb.parallels.com/112803 for details.');
    	Log::resultWarning();
    	return;
    }
    
    //:INFO: #67731 http://kb.parallels.com/111777
    function _checkPermissionManageDrweb()
    {
    	Log::step("Checking the name of the antivirus management permission... ", true);
    
    	$db = PleskDb::getInstance();
    	$sql = "SELECT 1 FROM Permissions WHERE permission = 'manage_drweb'";
    	$wrongPermission = $db->fetchAll($sql);
    	 
    	if ($wrongPermission) {
    		Log::warning('The name of the antivirus management permission in the Panel database is incorrect. Please check http://kb.parallels.com/111777 for details.');
    		Log::resultWarning();
    		return;
    	}
    
    	Log::resultOk();
    }    
    
    //:INFO: #97188 http://kb.parallels.com/112568
    function _checkApsRegistryUid()
    {
    	Log::step("Checking APS preferences... ", true);
    	 
    	$db = PleskDb::getInstance();	 
    	$sql = "SELECT 1 FROM smb_apsPackages WHERE registryUid IS NULL";
    	$brokenAps = $db->fetchAll($sql);
    	
    	if ($brokenAps) {
    		Log::warning('One or more APS packages are misconfigured: The value of the registryUid field is NULL. Please check http://kb.parallels.com/112568 for details.');
    		Log::resultWarning();
    		return;
    	}
    	 
    	Log::resultOk();
    }    
    
    //:INFO: #1415986 http://kb.parallels.com/114723
    function _checkMySqlServerDataDirLocation()
    {
    	Log::step("Checking the local MySQL server's datadir directory location... ", true);
    	
    	$mySqlServersRegKeys = array('\MySQL AB\MySQL Server 5.5', '\MySQL AB\MySQL Server 5.1', '\MySQL AB\MySQL Server 5.0');
    
    	foreach ($mySqlServersRegKeys as $key) {
    		if (Util::regQuery($key, '/v version', true)) {
    			$dataDirPath = Util::regQuery($key, '/v DataLocation', true);
    			if ($dataDirPath <> Util::regPleskQuery('PRODUCT_DATA_D', true) . "Databases\\MySQL\\") {
    				Log::warning('The datadir directory of a local MySQL server is located outside of %plesk_dir%\Databases\MySQL\Data. This may cause problems with this MySQL server after the upgrade. Please check http://kb.parallels.com/en/114723 for details.');
    				Log::resultWarning();
    				return;
    			}
    		}
    	}
    	
    	Log::resultOk();
    }
    
    //:INFO: #115700 http://kb.parallels.com/114556
    function _checkSymLinksForLastVhostConfigs()
    {
    	Log::step('Check symbolic links for latest virtual host config files... ', true);
    	
    	$domains = Plesk10BusinessModel::_getDomainsByHostingType('vrt_hst');
    	if (empty($domains)) {
    		Log::resultOk();
    		return;
    	}
    	$vhost = Util::getSettingFromPsaConf('HTTPD_VHOSTS_D');
    	if (empty($vhost)) {
    		$warn = 'Unable to read /etc/psa/psa.conf';
    		Log::warning($warn);
    		Log::resultWarning();
    		return;
    	}
    	
    	$warning = false;
    	foreach ($domains as $domain) {
    		$last_httpd = $vhost . '/' . $domain['name'] . '/conf/last_httpd.include';
    		$last_nginx = $vhost . '/' . $domain['name'] . '/conf/last_nginx.conf';
    		
    		if (file_exists($last_httpd)) {
	    		if (!is_link($last_httpd)) {
	    			Log::info('File ' . $last_httpd . ' is not symbolic link.');
	    			$warning = true;
	    		}
    		}
    		
    		if (file_exists($last_nginx)) {	
	    		if (!is_link($last_nginx)) {
	    			Log::info('File ' . $last_nginx . ' is not symbolic link.');
	    			$warning = true;
	    		}
    		}
    	}
    	
    	if ($warning) {
    		Log::warning('There are regular virtual host configuration files in the directories where the symbolic links to configuration files should be instead. In the future this will lead to failures in generation of webservers\' configuration files. Such files are generated, for example, each time hosting settings are changed. Please check http://kb.parallels.com/114556 for the solution and ' . APP_PATH . '/plesk11_preupgrade_checker.log for details.');
    		Log::resultWarning();
    		return;
    	}
    	
    	Log::resultOk();
    }    
   
    //:INFO: #111908 http://kb.parallels.com/114632
    function _checkBrokenHostingForwardingReferences()
    {
    	Log::step('Checking references between the "domains" and "hosting"/"forwarding" tables in the Panel database...', true);
    		
    	$db = PleskDb::getInstance();	 
    	$sql = "SELECT d.name, d.htype FROM domains d LEFT JOIN hosting h ON d.id = h.dom_id LEFT JOIN forwarding f ON d.id=f.dom_id WHERE h.dom_id IS NULL and f.dom_id is NULL and htype != 'none'";
    	$brokenDomains = $db->fetchAll($sql);
    	 
    	$warning = false;
    	 
    	foreach ($brokenDomains as $domain) {
    		Log::info('The reference in the database for the ' . $domain['name'] . ' domain with the hosting type ' . $domain['htype'] . ' is broken.');
    		$warning = true;
    	}
    	 
    	if ($warning) {
    		Log::warning('There are broken references in the database between the "domains" and "hosting"/"forwarding" tables. Please check http://kb.parallels.com/114632 for instructions and ' . APP_PATH . '/plesk11_preupgrade_checker.log for details.');
    		Log::resultWarning();
    		return;
    	}
    	 
    	Log::resultOk();
    }    
    
    //:INFO: #107620 #80483 #107601 http://kb.parallels.com/en/5780
    function _checkCaseForMailAndDomainNames()
    {
    	Log::step("Check case for mail and domain names... ", true);
    	    
        $db = PleskDb::getInstance();
        $sql = "SELECT mail_name, domains.name FROM mail, domains WHERE mail.dom_id = domains.id AND lcase(mail_name) <> binary(mail_name)";
        if (Util::isWindows()) {
        	$dbprovider = Util::regPleskQuery('PLESK_DATABASE_PROVIDER_NAME');
        	if ($dbprovider <> 'MySQL') {
        		$sql = "SELECT mail_name, domains.name FROM mail, domains WHERE mail.dom_id = domains.id AND CONVERT(BINARY, mail_name) <> CONVERT(BINARY, LOWER(mail_name))";
        	}
        }
    	$mailNames = $db->fetchAll($sql);
    	
    	$sql = "SELECT name FROM domains WHERE lcase(name) <> binary(name)";
    	if (Util::isWindows()) {
    		$dbprovider = Util::regPleskQuery('PLESK_DATABASE_PROVIDER_NAME');
    		if ($dbprovider <> 'MySQL') {
    			$sql = "SELECT name FROM domains WHERE CONVERT(BINARY, name) <> CONVERT(BINARY, LOWER(name))";
    		}
    	}    	
    	$domainNames = $db->fetchAll($sql);
    	
    	$warning = false;
    	
    	foreach ($mailNames as $mailname) {
   			Log::info('Name of mailbox ' . $mailname['mail_name'] . '@' . $mailname['name'] . ' contains characters in upper case.');
   			$warning = true;
    	}
    	
    	foreach ($domainNames as $domainname) {
    		Log::info('Name of domain ' . $domainname['name'] . ' contains characters in upper case.');
    		$warning = true;

    	}
    	
    	if ($warning) {
    		Log::warning('There are Panel entities with names stored not in lower case. Please check http://kb.parallels.com/en/5780 and ' . APP_PATH . '/plesk11_preupgrade_checker.log for details.');
    		Log::resultWarning();
    		return;
    	}
    	
    	Log::resultOk();
    }    
    
    //:INFO: #114037 http://kb.parallels.com/111729
    function _checkIisMetabaseAvailability()
    {
    	Log::step("Checking for IIS metabase availability... ", true);
    	Log::info("If the checking is frozen for a long time, it may be caused by the corrupted IIS metabase. Please check http://kb.parallels.com/111729 for a solution.", true);

    	$cmd = 'wmic.exe /Namespace:\\\\root\\WebAdministration Path Site Get Name';
    	$output = Util::exec($cmd, $code);
    	$iisWebSites = explode("\n", $output);
    	
    	if (count($iisWebSites) < 2) {
	   		Log::warning('Unable to get data from IIS. Please check the IIS configuration.');
	   		Log::resultWarning();
	   		return;
    	}
    	Log::resultOk();
    }
    
    //:INFO: #108922  http://kb.parallels.com/en/114598
    function _checkObsoletedNginxParamsInMisc()
    {
    	Log::step("Checking for Apache ports configuration parameters...", true);
    	
    	$db = PleskDb::getInstance();
    	$sql = "SELECT 1 FROM misc WHERE param='http_port' OR param='https_port'";
    	$oldParams = $db->fetchAll($sql);
    		
    	if (!empty($oldParams)) {
    		Log::warning('There is a custom configuration of Apache ports in the misc table. It may lead to problems if nginx is installed on the server. Please check http://kb.parallels.com/en/114598 for details.');
    		Log::resultWarning();
    		return;
    	}    	
    	
    	Log::resultOk();
    }    
    
    //:INFO: #113841  http://kb.parallels.com/en/114490
    function _checkPleskPackagesStateOnDeb()
    {
    	Log::step("Checking for Panel packages state...", true);
    	
    	$cmd = 'dpkg -l | grep "sw-\|psa"';
    	$output = Util::exec($cmd, $code);
    	
    	$lines = explode("\n", $output);
    	
    	foreach ($lines as $line) { 
    		if (!preg_match('/^ii.+/', $line)) {
    			preg_match('/\s\S+/', $line, $package);
    			$warning = true;
    			Log::info('The package ' . $package[0] . ' is not properly installed.');
    		}
    	}
    	
    	if ($warning) {
    		Log::warning('A number of Panel packages are not properly installed. Please check http://kb.parallels.com/en/114490 and ' . APP_PATH . '/plesk11_preupgrade_checker.log for details.');
    		Log::resultWarning();
    		return;
    	}
    	
    	Log::resultOk();
    }
    
    //:INFO: #111927  http://kb.parallels.com/en/114324
    function _checkDnsZonesSyncWithDnsTemplate()
    {
    	Log::step("Checking for DNS zones which will not be synced with the DNS template...", true);
    
    	$mysql = PleskDb::getInstance();
    	$sql = "select domainaliases.name, domainaliases.dns_zone_id FROM domainaliases, dns_zone where dns_zone.syncRecords = 'skip' AND domainaliases.dns_zone_id =  dns_zone.id";
    	$alias_zones = $mysql->fetchAll($sql);
    	$sql = "select domains.name, domains.dns_zone_id FROM domains, dns_zone WHERE domains.dns_zone_id =  dns_zone.id AND dns_zone.syncRecords = 'skip'";
    	$domain_zones = $mysql->fetchAll($sql);    	
    	$dns_zones = array_merge($alias_zones, $domain_zones);
    	
    	$warning = false;
    	foreach ($dns_zones as $zone) {
    		Log::info('DNS zone ' . $zone['name'] . ' with id ' . $zone['dns_zone_id'] . ' will get fixed references with DNS template.');
    		$warning = true;
    		
    	}
    	 
    	if ($warning) {
    		Log::warning('A number of DNS zones will not be synced with the DNS template. Please check http://kb.parallels.com/en/114324 and ' . APP_PATH . '/plesk11_preupgrade_checker.log for details.');
    		Log::resultWarning();
    		return;
    	}
    
    	Log::resultOk();
    }
    
    //:INFO: #112065 http://kb.parallels.com/en/114306
    function _checkMySQLServerPackageFromRemiRepository()
    {
    	Log::step("Checking the mysql-server package...", true);
    	 
    	$cmd = 'rpm -qa | grep mysqlclient | grep remi';
    	$output = Util::exec($cmd, $code);
    	if (!empty($output)) {
    		Log::warning('The mysql-server package on this server is installed from the REMI repository. This may lead to upgrade fail. Please see http://kb.parallels.com/en/114306 for the solution.');
    		Log::resultWarning();
    		return;
    	}
    	 
    	Log::resultOk();
    }
    
    //:INFO: #58303 http://kb.parallels.com/en/114041
    function _oldBackupsRestoringWarningAfterUpgradeTo11x()
    {
    	Log::warning('Error messages can appear at restoring backups created in Plesk 10.0.1. Please check http://kb.parallels.com/en/114041 for details.');
    	Log::resultWarning();
    }
    
    //:INFO: #105405 http://kb.parallels.com/en/113711
    function _checkSwCollectdIntervalSetting()
    {
    	Log::step("Checking 'Interval' setting in swcollectd config file...", true);
    
    	$collectd_config = '/etc/sw-collectd/collectd.conf';
    	if (file_exists($collectd_config)) {
    		if (!is_file($collectd_config) || !is_readable($collectd_config))
    		return;
    
    		$config_content = Util::readfileToArray($collectd_config);
    		if ($config_content) {
    			foreach ($config_content as $line) {
    				if (preg_match('/Interval\s*\d+$/', $line, $match)) {
    					if (preg_match('/Interval\s*10$/', $line, $match)) {
    						Log::warning('Much CPU time can be consumed if default value of "Interval" setting used in ' . $collectd_config . ' . Please check http://kb.parallels.com/en/113711 for details.');
    						Log::resultWarning();
    						return;
    					}
    					Log::resultOk();
    					return;
    				}
    			}
    			Log::warning('Much CPU time can be consumed if default value of "Interval" setting used in ' . $collectd_config . ' . Please check http://kb.parallels.com/en/113711 for details.');
    			Log::resultWarning();
    			return;
    		}
    	}
    }
    
    //:INFO: #94544  http://kb.parallels.com/en/113119
    function _checkNsRecordInDnsTemplate()
    {
    	Log::step("Checking for NS type record in server DNS template...", true);
    
    	$mysql = PleskDb::getInstance();
    	$sql = "SELECT 1 FROM dns_recs_t WHERE type='NS'";
    	$nsRecord = $mysql->fetchAll($sql);
    	    
    	if (empty($nsRecord)) {
    		Log::warning('There is no NS type record in server DNS template, it can break BIND server configuration. Please check http://kb.parallels.com/en/113119 for details.');
    		Log::resultWarning();
    		return;
    	}
    	 
    	Log::resultOk();
    }
    
    //:INFO: #102516 http://kb.parallels.com/en/113620
    function _checkMysqlOdbcConnectorVersion()
    {
    	Log::step("Checking for MySQL ODBC package version...", true);
    	if (PleskOS::isRedHatLike() || PleskOS::isSuseLike()) {
    		$package = 'mysql-connector-odbc';
    	} else {
    		$package = 'libmyodbc';
    	}
    	
    	$version = Package::getVersion($package);
    	
    	if ($version === false) {
    		return;
    	}
    
    	if (preg_match('/\d+\.\d+\.\d+/', $version, $match) && version_compare($match[0], '3.51.21', '<')) {
    		Log::warning('Old version of ' . $package . ' is installed. Please check http://kb.parallels.com/en/113620 for details.');
    		Log::resultWarning();
    		return;
    	}
    	
    	Log::resultOk();
    }
    
    //:INFO: #72751  http://kb.parallels.com/en/113826
    function _checkIpcollectionReference()
    {
    	Log::step("Checking for corrupted reference between IP collections and IP addresses...", true);
    
    	$mysql = PleskDb::getInstance();
    	$sql = "SELECT 1 FROM ip_pool, clients, IpAddressesCollections, domains, DomainServices, IP_Addresses WHERE DomainServices.ipCollectionId = IpAddressesCollections.ipCollectionId AND domains.id=DomainServices.dom_id AND clients.id=domains.cl_id AND ipAddressId NOT IN (select id from IP_Addresses) AND IP_Addresses.id = ip_pool.ip_address_id AND pool_id = ip_pool.id GROUP BY pool_id";
    	$brokenIps = $mysql->fetchAll($sql);
    	$sql = "select 1 from DomainServices, domains, clients, ip_pool where ipCollectionId not in (select IpAddressesCollections.ipCollectionId from IpAddressesCollections) and domains.id=DomainServices.dom_id and clients.id = domains.cl_id and ip_pool.id = clients.pool_id and DomainServices.type='web' group by ipCollectionId";
    	$brokenCollections = $mysql->fetchAll($sql);
    	 
    	if (!empty($brokenIps) || !empty($brokenCollections)) {
    		Log::warning('Reference between some IP collections and IP addresses has been broken. Please check http://kb.parallels.com/en/113826 for details.');
    		Log::resultWarning();
    		return;
    	}
    	
    	Log::resultOk();
    }

    //:INFO: #105256 http://kb.parallels.com/en/113737
    function _checkMysqlclient15Release()
    {
    	Log::step("Checking for mysqlclient15 package version...", true);
    	if (PleskOS::isRedHatLike()) {
    		$release = Package::getRelease('mysqlclient15');
    		
    		if ($release === false) {
    			return;
    		}
    		
    		if (preg_match('/1\.el5\.art/', $release)) {
    			Log::emergency('Old version of mysqlclient15 is installed, which can lead to upgrade fail. You can apply workaround from article http://kb.parallels.com/en/113737');
    			Log::resultWarning();
    			return;
    		}
    	}
    	Log::resultOk();
    }

    //:INFO: #105806 If there is no execute permission on named(bind) init file upgrade will fail
    function _checkBindInitScriptPermission()
    {
    	Log::step("Checking for permissions on BIND init script...", true);

    	$redhat = '/etc/init.d/named';
    	$debian = '/etc/init.d/bind9';
    	$suse = '/etc/init.d/named';
    	$bindInitFile = 'unknown';
    	
    	if (PleskOS::isRedHatLike()) {
    		$bindInitFile = $redhat;
    	}
    	if (PleskOS::isDebLike()) {
    		$bindInitFile = $debian;
    	}
    	if (PleskOS::isSuseLike()) {
    		$bindInitFile = $suse;
    	}
    	
    	$perms = Util::Exec('ls -l ' . $bindInitFile, $code);
    	
    	if (!preg_match('/^.+x.+\s/', $perms) 
    		&& $code === 0) {
    		Log::emergency('There is no execute permission on ' . $bindInitFile . ' file, which can lead to upgrade fail. You can apply workaround from article http://kb.parallels.com/en/113733');
    		Log::resultWarning();
    		return;
    	}
    	 
    	Log::resultOk();
    }
     
    //:INFO: #101351 #101690 #103125 #104527 #104528 http://kb.parallels.com/en/113725
    function _checkModificationOfCustomizedDNSzones()
    {
    	Log::step("Checking for customized DNS zones which will be modified during upgrade...", true);
    
    	$mysql = PleskDb::getInstance();
    	if (PleskVersion::is10_2_or_above()) {
    		$ipv4 = "SELECT dns_zone.id, dns_zone.name, dns_recs.val, ip_address from dns_zone, dns_recs, DomainServices, IpAddressesCollections, IP_Addresses, domains where domains.dns_zone_id = dns_zone.id AND dns_zone.id = dns_recs.dns_zone_id AND dns_recs.type = 'A' AND dns_recs.host = concat(domains.name,'.') AND domains.id = DomainServices.dom_id AND DomainServices.type = 'web' AND DomainServices.ipCollectionId = IpAddressesCollections.ipCollectionId AND IpAddressesCollections.ipAddressId = IP_Addresses.id AND IP_Addresses.ip_address not like '%:%' AND dns_recs.val not like '%:%' AND IP_Addresses.ip_address <> dns_recs.val";
    		$ipv6 = "SELECT dns_zone.id, dns_zone.name, dns_recs.val, ip_address from dns_zone, dns_recs, DomainServices, IpAddressesCollections, IP_Addresses, domains where domains.dns_zone_id = dns_zone.id AND dns_zone.id = dns_recs.dns_zone_id AND dns_recs.type = 'A' AND dns_recs.host = concat(domains.name,'.') AND domains.id = DomainServices.dom_id AND DomainServices.type = 'web' AND DomainServices.ipCollectionId = IpAddressesCollections.ipCollectionId AND IpAddressesCollections.ipAddressId = IP_Addresses.id AND IP_Addresses.ip_address like '%:%' AND dns_recs.val like '%:%'  AND IP_Addresses.ip_address <> dns_recs.val";
    		$ipv4_zones = $mysql->fetchAll($ipv4);
    		$ipv6_zones = $mysql->fetchAll($ipv6);
    		$dns_zones = array_merge($ipv4_zones, $ipv6_zones);
    	} else {
    		$fwd = "SELECT dns_zone.id, dns_zone.name, dns_recs.val, ip_address AS hosts from dns_zone, dns_recs, forwarding, IP_Addresses, domains where domains.dns_zone_id = dns_zone.id AND dns_zone.id = dns_recs.dns_zone_id AND dns_recs.type = 'A' AND dns_recs.host = concat(domains.name,'.') AND domains.id = forwarding.dom_id AND forwarding.ip_address_id = IP_Addresses.id AND IP_Addresses.ip_address <> dns_recs.val";
    		$hst = "SELECT dns_zone.id, dns_zone.name, dns_recs.val, ip_address AS hosts from dns_zone, dns_recs, hosting, IP_Addresses, domains where domains.dns_zone_id = dns_zone.id AND dns_zone.id = dns_recs.dns_zone_id AND dns_recs.type = 'A' AND dns_recs.host = concat(domains.name,'.') AND domains.id = hosting.dom_id AND hosting.ip_address_id = IP_Addresses.id AND IP_Addresses.ip_address <> dns_recs.val";
    		$fwd_zones = $mysql->fetchAll($fwd);
    		$hst_zones = $mysql->fetchAll($hst);
    		$dns_zones = array_merge($fwd_zones, $hst_zones);
    	}
    
    	$warning = false;
    	foreach ($dns_zones as $zone) {
    		$subdomains = $mysql->fetchAll('SELECT subdomains.name FROM domains, subdomains WHERE subdomains.dom_id = domains.id AND domains.dns_zone_id=' . $zone['id']);
    		if (!empty($subdomains)) {
    			Log::info('A or AAAA records in DNS zone ' . $zone['name'] . ' will be modified or deleted after upgrade.');
    			$warning = true;
    		}
    	}
    	 
    	if ($warning) {
    		Log::warning('A or AAAA records in DNS zones will be modified or deleted after upgrade. Please check http://kb.parallels.com/en/113725 and ' . APP_PATH . '/plesk11_preupgrade_checker.log for details.');
    		Log::resultWarning();
    		return;
    	}
    
    	Log::resultOk();
    }
  
    //:INFO: Broken contexts of the APS applications can lead to errors at building Apache web server configuration http://kb.parallels.com/en/112815
    function _checkApsApplicationContext()
    {
    	Log::step("Checking for links between APS applications and subscriptions...", true);
    	$mysql = PleskDb::getInstance();
    	$sql = "SELECT * FROM apsContexts WHERE (pleskType = 'hosting' OR pleskType = 'subdomain') AND subscriptionId = 0";
    	$brokenContexts = $mysql->fetchAll($sql);
    
    	if (!empty($brokenContexts)) {
    		Log::warning('Reference between several subscriptions and APS applications has been broken. Please check http://kb.parallels.com/en/112815 for details.');
    		Log::resultWarning();
    		return;
    	}
    	Log::resultOk();
    }
    
    //:INFO: #98549 Plesk doesn't bind Smartermail 8 ports on new IPs http://kb.parallels.com/en/113330
    function _checkSmarterMailOpenPorts()
    {
    	Log::step("Checking SmarterMail open ports...", true);
    	
    	if (Plesk10MailServer::CurrentWinMailServer() == 'smartermail') {
    		$ip_addresses = Util::getIPListOnWindows();
    		
    		$mysql = PleskDb::getInstance();
    		$sql = "select ip_address from IP_Addresses";
    		$ip_addresses = $mysql->fetchAll($sql);
    		
    		foreach ($ip_addresses as $ip) {
    			if (PleskValidator::validateIPv4($ip['ip_address'])) {
    				$fp = @fsockopen($ip['ip_address'], 25, $errno, $errstr, 1);
    			} elseif (PleskValidator::validateIPv6($ip['ip_address'])) {
    				$fp = @fsockopen('[' . $ip['ip_address'] . ']', 25, $errno, $errstr, 1);
    			} else {
    				Log::warning('The IP address is invalid: ' . $ip['ip_address']);
    				Log::resultWarning();
    				return;
    			}
    			if (!$fp) {
    				// $errno 110 means "timed out", 111 means "refused"
    				Log::info('Unable to connect to the SMTP port 25 on the IP address ' . $ip['ip_address'] . ': ' . $errstr);
    				$warning = true;
    			}
    		}
    		if ($warning) {
    			Log::warning('SmarterMail is unable to use some of the IP addresses because they are not associated with the SmarterMail ports. Please check http://kb.parallels.com/en/113330 for details.');
    			Log::resultWarning();
    			return;
    		}
    	}

    	Log::resultOk();
    }
    
    //:INFO: #94489 FTP service proftpd cannot be started by xinetd if IPv6 is disabled http://kb.parallels.com/en/113504
    function _checkProftpdIPv6()
    {
    	Log::step("Checking proftpd settings...", true);

    	$inet6 = '/proc/net/if_inet6';
    	if (!file_exists($inet6)) {
			$proftpd_config = '/etc/xinetd.d/ftp_psa';
    		if (!is_file($proftpd_config) || !is_readable($proftpd_config))
    			return null;
    		
    		$config_content = Util::readfileToArray($proftpd_config);
    		if ($config_content) {
    			for ($i=0; $i<=count($config_content)-1; $i++) {
    				if (preg_match('/flags.+IPv6$/', $config_content[$i], $match)) {
    					Log::warning('The proftpd FTP service will fail to start in case the support for IPv6 is disabled on the server. Please check http://kb.parallels.com/en/113504 for details.');
    					Log::resultWarning();
    					return;
    				}
    			}
    		}
    	}
    	Log::resultOk();
    }
    
    //:INFO: #72945 Checking for IP address references in Plesk database http://kb.parallels.com/en/113475
    function _checkIpAddressReferenceForForwardingDomains()
    {
    	Log::step("Checking associations between domains and IP addresses...", true);
    	$mysql = PleskDb::getInstance();
    	if (PleskVersion::is10_2_or_above()) {
    		$sql = "SELECT * FROM IpAddressesCollections WHERE ipAddressId = 0";
    	} else {
    		$sql = "SELECT * FROM forwarding WHERE ip_address_id = 0";
    	}
    	$domains = $mysql->fetchAll($sql);

    	if (!empty($domains)) {
    		Log::warning('There is a number of domains which are not associated with any IP address. This may be caused by an error in the IP address database. Please check http://kb.parallels.com/en/113475 for details.');
    		Log::resultWarning();
    		return;
    	}
    	Log::resultOk();
    }
    
    //:INFO: #101168 If DUMP_TMP_D in /etc/psa/psa.conf contains extra space character at the end of string backup procedure will fails permanently http://kb.parallels.com/113474 
    function _checkDumpTmpDvalue()
    {
    	Log::step("Checking the /etc/psa/psa.conf file for consistency...", true);

    	$file = '/etc/psa/psa.conf';
    	if (!is_file($file) || !is_readable($file))
    		return null;
    	$lines = file($file);
    	if ($lines === false)
    		return null;
    	foreach ($lines as $line) {
    		if (preg_match('/^DUMP_TMP_D\s.+\w $/', $line, $match_setting)) {
    			Log::warning('The DUMP_TMP_D variable in /etc/psa/psa.conf contains odd characters. This can cause backup tasks to fail on this server. Please check http://kb.parallels.com/113474 for details.');
    			Log::resultWarning();
    			return;
    		}
    	}
    	Log::resultOk();
    }
    
    //:INFO: Wrong order of loading Zend extensions ionCube declaraion in php.ini can cause to Apache fail http://kb.parallels.com/en/1520
    function _checkZendExtensionsLoadingOrder()
    {
    	Log::step("Checking for the Zend extension declaraion in php.ini...", true);
    	
    	$phpini = Util::getPhpIni();
    	if ($phpini) {
    		foreach ($phpini as $line) {
    			if (preg_match('/^\s*zend_extension(_debug)?(_ts)?\s*=/i', $line, $match)) {
    				Log::warning('The server-wide php.ini file contains the declaration of the Zend extension. As a result, the Apache server may fail to start after the upgrade. Please check http://kb.parallels.com/en/1520 for more details.');
    				Log::resultWarning();
    				return;
    			}
    		}
    	}
    	Log::resultOk();
    }
    
    //:INFO: JkWorkersFile directive in Apache configuration can lead to failed Apache configs re-generation during and after upgrade procedure http://kb.parallels.com/en/113210
    function _checkJkWorkersFileDirective()
    {
    	Log::step("Checking for the JkWorkersFile directive in the Apache configuration...", true);

        $httpd_include_d = Util::getSettingFromPsaConf('HTTPD_INCLUDE_D') . '/';
    	if (empty($httpd_include_d)) {
    		$warn = 'Unable to open /etc/psa/psa.conf';
    		Log::warning($warn);
    		Log::resultWarning();
    		return;
    	}
    	
    	$handle = @opendir($httpd_include_d);
    	if (!$handle) {
    		$warn = 'Unable to open dir ' . $httpd_include_d;
    		Log::warning($warn);
    		Log::resultWarning();
    		return;
    		}
    	
    	$configs = array();
    	while ( false !== ($file = readdir($handle)) ) {
    		if (preg_match('/^\./', $file) || preg_match('/zz0.+/i', $file) || is_dir($httpd_include_d . $file))
    		continue;
    		$configs[] = $file;
    	}
    	
    	closedir($handle);
    	$warning = false;

    	foreach ($configs as $config) {
    		$config_content = Util::readfileToArray($httpd_include_d . '/' . $config);
    		if ($config_content) {
    			for ($i=0; $i<=count($config_content)-1; $i++) {
    				if (preg_match('/^JkWorkersFile.+/', $config_content[$i], $match)) {
   						Log::warning('The Apache configuration file "' . $httpd_include_d . $config . '" contains the "' . $match[0] . '" directive.' );
    					$warning = true;
    				}
    			}
    		}
    	}
    
    	if ($warning) {
    		Log::warning('The JkWorkersFile directive may cause problems during the Apache reconfiguration after the upgrade. Please check http://kb.parallels.com/en/113210 for more details.');
    		Log::resultWarning();
    		return;
    	}
    	Log::resultOk();
    }
    
    
    
    //:INFO: Wrong GUI behavior if forwarding URL hasn't "http://" after upgrade to Plesk version above 10.4.4 http://kb.parallels.com/en/113359
    function _checkForwardingURL()
    {
    	Log::step("Checking domain URLs...", true);
    	
    	$mysql = PleskDb::getInstance();
    	$sql = "SELECT htype, redirect FROM domains, forwarding WHERE domains.id=forwarding.dom_id AND forwarding.redirect NOT LIKE 'https://%' AND forwarding.redirect NOT LIKE 'http://%'";
    	$domains_with_wrong_url = $mysql->fetchAll($sql);
    	 
    	if (count($domains_with_wrong_url)>0) {
    		Log::warning('There are domains registered in Panel which URL does not have the http:// prefix. Such domains will not be shown on the Domains page. Check http://kb.parallels.com/en/113359 for more details.');
    		Log::resultWarning();
    		return;
    	}
    	Log::resultOk();
    }
    
    //:INFO: Customized DNS records with host equal host of existing subdomain will lost after upgrade to Plesk version above 10.4.4 
    function _checkCustomDNSrecordsEqualToExistedSubdomains()
    {
    	Log::step("Checking DNS records of subdomains...", true);
    	 
    	$mysql = PleskDb::getInstance();
		
    	if (PleskVersion::is10_2_or_above()) {
    		$sql = "SELECT DISTINCT dns_recs.dns_zone_id, dns_recs.type, dns_recs.host, dns_recs.val, dns_recs.opt  FROM subdomains LEFT JOIN domains ON subdomains.dom_id = domains.id LEFT JOIN DomainServices ON domains.id = DomainServices.dom_id LEFT JOIN IpAddressesCollections ON DomainServices.ipCollectionId = IpAddressesCollections.ipCollectionId LEFT JOIN IP_Addresses ON IpAddressesCollections.ipAddressId = IP_Addresses.id LEFT JOIN dns_recs ON IP_Addresses.ip_address <> dns_recs.val WHERE DomainServices.type = 'web' AND host = concat(subdomains.name,'.', domains.name,'.')";
    	} else {
    		$sql = "SELECT DISTINCT dns_recs.dns_zone_id, dns_recs.type, host, val, opt FROM dns_recs, subdomains, domains WHERE host = concat(subdomains.name,'.', domains.name,'.') AND dns_recs.dns_zone_id IN ( SELECT dns_recs.dns_zone_id FROM dns_recs, subdomains, domains, hosting, IP_Addresses WHERE host = concat(subdomains.name,'.', domains.name,'.') AND subdomains.dom_id = domains.id AND domains.id = hosting.dom_id AND hosting.ip_address_id = IP_Addresses.id AND IP_Addresses.ip_address <> dns_recs.val)";
    	}
    	
    	if (Util::isWindows()) {
    		$dbprovider = Util::regPleskQuery('PLESK_DATABASE_PROVIDER_NAME');
    		if ($dbprovider <> 'MySQL') {
    			if (PleskVersion::is10_2_or_above()) {
    				$sql = "SELECT DISTINCT dns_recs.dns_zone_id, dns_recs.type, dns_recs.host, dns_recs.val, dns_recs.opt FROM dns_recs, subdomains, domains, hosting, IP_Addresses, DomainServices, IpAddressesCollections WHERE host = (subdomains.name + '.' + domains.name + '.') AND subdomains.dom_id = domains.id AND domains.id = DomainServices.dom_id AND DomainServices.type = 'web' AND DomainServices.ipCollectionId = IpAddressesCollections.ipCollectionId AND IpAddressesCollections.ipAddressId = IP_Addresses.id AND IP_Addresses.ip_address <> dns_recs.val";
    			} else {
    				$sql = "SELECT DISTINCT dns_recs.dns_zone_id, dns_recs.type, dns_recs.host, dns_recs.val, dns_recs.opt FROM dns_recs, subdomains, domains WHERE host = (subdomains.name + '.' + domains.name + '.') AND dns_recs.dns_zone_id IN ( SELECT dns_recs.dns_zone_id FROM dns_recs, subdomains, domains, hosting, IP_Addresses WHERE host = (subdomains.name + '.' + domains.name + '.') AND subdomains.dom_id = domains.id AND domains.id = hosting.dom_id AND hosting.ip_address_id = IP_Addresses.id AND IP_Addresses.ip_address <> dns_recs.val)";
    			}
    		}
    	}
    	$problem_dns_records = $mysql->fetchAll($sql);

    	if (count($problem_dns_records)>0) {
    		Log::warning('There is a number of DNS records for the subdomains that you manually added to domain DNS zones. If you upgrade to Panel 10.4.4, these records will be lost. Check http://kb.parallels.com/en/113310 for more details.');
    		Log::resultWarning();
    		return;
    	}
    	Log::resultOk();
    }
    
    //:INFO: Check windows authentication for PleskControlPanel web site http://kb.parallels.com/en/113253
    function _checkWindowsAuthForPleskControlPanel()
    {
    	Log::step('Checking the authentication settings of the PleskControlPanel website in IIS...', true);
    	
    	$PleskControlPanel = 'PleskControlPanel';
    	$cmd = 'wmic.exe /namespace:\\\\root\\MicrosoftIISv2 path IIsWebServerSetting where "ServerComment = \'' . $PleskControlPanel . '\'" get name /VALUE';
    	$output = Util::exec($cmd, $code);
    	if (preg_match_all('/Name=(.+)/', $output, $siteName)) {
    		$cmd = 'wmic.exe /namespace:\\\\root\\MicrosoftIISv2 path IIsWebVirtualDirSetting where "Name = \'' . $siteName[1][0] . '/ROOT\'" get AuthNTLM /VALUE';
    		$output = Util::exec($cmd, $code);
    		if (preg_match_all('/AuthNTLM=FALSE/', $output, $matches)) {
    			Log::warning('Windows authentication for the PleskControlPanel website in IIS is disabled. Check http://kb.parallels.com/en/113253 for more details.');
    			Log::resultWarning();
    			return;
    		}
    		
    	}
    	Log::resultOk();
    }
    
    //:INFO: Notification about after upgrade all subdomains will have own DNS zone http://kb.parallels.com/en/112966
    function _notificationSubDomainsHaveOwnDNSZoneSince104()
    {
    	Log::step('Checking for subdomains...', true);
    	$mysql = PleskDb::getInstance();
    	$sql = "select val from misc where param='subdomain_own_zones'";
    	$subdomain_own_zones = $mysql->fetchOne($sql);

    	if ($subdomain_own_zones == "true") {
    		Log::warning('Since Panel 10.4, all subdomains have their own DNS zone. Check http://kb.parallels.com/en/112966 for more details.');
    		Log::resultWarning();
    		return;
    	}
    	Log::resultOk();
    }
    
    //:INFO: Customized CNAME records in server's DNS template could lead to misconfiguration of BIND http://kb.parallels.com/en/113118
    function _checkCustomizedCnameRecordsInDnsTemplate()
    {
    	Log::step("Checking for CNAME records added to the initial Panel DNS template...", true);
    	
    	$mysql = PleskDb::getInstance();
    	$sql = "select * from dns_recs_t where type='CNAME' and host in ('<domain>.','ns.<domain>.','mail.<domain>.','ipv4.<domain>.','ipv6.<domain>.','webmail.<domain>.')";
    	$records = $mysql->fetchOne($sql);
    	if (!empty($records)) {
    		Log::warning("There are CNAME records that were added to the initial Panel DNS template. These records may cause incorrect BIND operation after upgrade. Please check http://kb.parallels.com/en/113118 for more details.");
    		Log::resultWarning();
    		return;
    	}
    	Log::resultOk();
    }
    
    //:INFO: Upgrade of Customer & Business Manager failed in case of 127.0.0.1 is restricted for administrative access http://kb.parallels.com/en/113096
    function _checkPanelAccessForLocalhost()
    {
    	Log::step('Checking for restriction policy...', true);

    	$mysql = PleskDb::getInstance();
    	$sql = "select val from cl_param where param='ppb-url'";
    	$url = $mysql->fetchOne($sql);
    	if (!empty($url)) {
    		$sql = "select val from misc where param='access_policy'";
    		$policy = $mysql->fetchOne($sql);
    		$sql = "select netaddr from misc m,cp_access c where m.param='access_policy' and m.val='allow' and c.netaddr='127.0.0.1' and c.type='allow';";
    		$allow = $mysql->fetchOne($sql);
    		$sql = "select netaddr from misc m,cp_access c where m.param='access_policy' and m.val='deny' and c.netaddr='127.0.0.1' and c.type='deny';";
    		$deny = $mysql->fetchOne($sql);
    		
    		if (!empty($allow)
    			|| (empty($deny) && $policy == 'deny')) {
    			Log::warning('The IP address 127.0.0.1 is restricted for administrative access. Upgrade of the Customer & Business Manager component will be impossible. Please check http://kb.parallels.com/en/113096 for more details.');
    			Log::resultWarning();
    			return;
    		}
    	}
    	Log::resultOk();
    }
    
    //:INFO: Checking that limits are not exceeded in /proc/user_beancounters
    function _checkUserBeancounters()
    {
    	Log::step("Checking that limits are not exceeded in /proc/user_beancounters ...", true);
    	$warning = false;
    	$user_beancounters = Util::readfileToArray('/proc/user_beancounters');
    	if ($user_beancounters) {
    		for ($i=2; $i<=count($user_beancounters)-1; $i++) {
    			if (preg_match('/\d{1,}$/', $user_beancounters[$i], $match)
    			&& $match[0]>0) {
    				if (preg_match('/^.+?:?.+?\b(\w+)\b/', $user_beancounters[$i], $limit_name)) {
    					Log::warning('Virtuozzo Container limit "' . trim($limit_name[1]) . '" was exceeded ' . $match[0] . ' times.');
    				}
    				$warning = true;
    			}
    		}
    	}
    
    	if ($warning) {
    		Log::warning('Limits set by Parallels Virtuozzo Container are exceeded. Please, check http://kb.parallels.com/en/112522 for more details.');
    		Log::resultWarning();
    		return;
    	}
    	
    	Log::resultOk();
    }
    
    //:INFO: Checking for available free memory for the upgrade procedure http://kb.parallels.com/en/112522
    function _checkFreeMemory()
    {
    	Log::step('Checking for available free memory for the upgrade procedure ...', true);
    	
    	$freeMem = Util::GetFreeSystemMemory();
    	if (!empty($freeMem) 
    		&& $freeMem < 200000) {
    		Log::warning('Not enough memory to perform the upgrade: You should have at least 200 megabytes free. The current amount of free memory is: ' . $freeMem . ' Kb');
    		Log::resultWarning();
    	}
    	Log::resultOk();
    }
    
    //:INFO: Check for Customer and Business Manager property in license key  http://kb.parallels.com/en/111143
    function _checkCBMlicense()
    {
    	Log::step('Checking if the license key includes support for Customer and Business Manager ...', true);
    	
    	$mysql = PleskDb::getInstance();
    	$sql = "select val from cl_param where param='ppb-url'";
    	$url = $mysql->fetchOne($sql);
    	$warning = false;
    	if (!empty($url)) {
    		if (Util::isLinux()) {
    			$license_folder = '/etc/sw/keys/keys/';
    		} else {
    			$license_folder = Util::getPleskRootPath() . 'admin\\repository\\keys\\';
    		}
    		$license_files = scandir($license_folder);
    		for ($i = 2; $i <= count($license_files) - 1; $i++) {
    			$file = file_get_contents($license_folder . $license_files[$i]);

    			if (preg_match('/modernbill.+\>(.+)\<.+modernbill/', $file, $accounts)) {
					if ($accounts[1] > 0) {
						Log::resultOk();
						return;
					}
    			}
    		}
    		
    		Log::warning('If you had not purchased the Customer and Business Manager License you can not use it after the upgrade. Check the article http://kb.parallels.com/en/111143 for more details.');
    		Log::resultWarning();
    	}
    	

    }
    
    //:INFO: Check the availability of Plesk Panel TCP ports
    function _checkPleskTCPPorts()
    {
    	Log::step('Checking the availability of Plesk Panel TCP ports...', true);
    	$plesk_ports = array('8880' => 'Plesk Panel non-secure HTTP port', '8443' => 'Plesk Panel secure HTTPS port');
    	 
    	 
    	$mysql = PleskDb::getInstance();
    	$sql = "select ip_address from IP_Addresses";
    	$ip_addresses = $mysql->fetchAll($sql);
    	$warning = false;
    	if (count($ip_addresses)>0) {
    		if (Util::isLinux()) {
    			$ipv4 = Util::getIPv4ListOnLinux();
    			$ipv6 = Util::getIPv6ListOnLinux();
    			if ($ipv6) {
    				$ipsInSystem = array_merge($ipv4, $ipv6);
    			} else {
    				$ipsInSystem = $ipv4;
    			}
    		} else {
    			$ipsInSystem = Util::getIPListOnWindows();
    		}
    		foreach ($ip_addresses as $ip) {
    			foreach ($plesk_ports as $port => $description) {
    				if (PleskValidator::validateIPv4($ip['ip_address']) && in_array($ip['ip_address'], $ipsInSystem)) {
    					$fp = @fsockopen($ip['ip_address'], $port, $errno, $errstr, 1);
    				} elseif (PleskValidator::validateIPv6($ip['ip_address']) && in_array($ip['ip_address'], $ipsInSystem)) {
    					$fp = @fsockopen('[' . $ip['ip_address'] . ']', $port, $errno, $errstr, 1);
    				} else {
    					Log::warning('IP address registered in Plesk is invalid or broken: ' . $ip['ip_address']);
    					Log::resultWarning();
    					return;
    				}
    				if (!$fp) {
    					// $errno 110 means "timed out", 111 means "refused"
    					Log::info('Unable to connect to IP address ' . $ip['ip_address'] . ' on ' . $description . ' ' . $port . ': ' . $errstr);
    					$warning = true;
    				}
    			}
    		}
    	}
    	if ($warning) {
    		Log::warning('Unable to connect to some Plesk ports. See ' . APP_PATH . '/plesk11_preupgrade_checker.log for details. Find the full list of the required open ports at http://kb.parallels.com/en/391 ');
    		Log::resultWarning();
    		return;
    	}
    	Log::resultOk();
    }
    
	function _getPAMServiceIncludes($serviceFile)
	{
		// Get array of PAM services that are included from a given PAM configuration file.
		$lines = file($serviceFile);
		$includes = array();
	
		foreach ($lines as $line) {
			// Note: we do not support here line continuations and syntax variants for old unsupported systems.
			$line = trim( preg_replace('/#.*$/', '', $line) );
			if (empty($line))
				continue;
	
			// See PAM installation script source for info on possible syntax variants.
			$tokens = preg_split('/\s+/', $line);
			$ref = null;
			if ($tokens[0] == '@include') {
				$ref = $tokens[1];
			} elseif ($tokens[1] == 'include' || $tokens[1] == 'substack') {
				$ref = $tokens[2];
			}
	
			if (!empty($ref)) {
				$includes[] = $ref;
			}
		}
	
		return $includes;
	}
	
	//:INFO: Check that non-existent PAM services are not referenced by other services, i.e. that PAM configuration array is consistent http://kb.parallels.com/en/112944
	function _checkPAMConfigsInclusionConsistency()
	{
		Log::step('Checking PAM configuration array consistency...', true);
	
		$pamDir = "/etc/pam.d/";
		$handle = @opendir($pamDir);
		if (!$handle) {
			$warn = 'Unable to open the PAM configuration directory "' . $pamDir . '". Check http://kb.parallels.com/en/112944 for more details.';
			Log::warning($warn);
			Log::resultWarning();
			return;
		}
	
		$services = array();
		while ( false !== ($file = readdir($handle)) ) {
			if (preg_match('/^\./', $file) || preg_match('/readme/i', $file) || is_dir($pamDir . $file))
				continue;
			$services[] = $file;
		}
	
		closedir($handle);
	
		$allIncludes = array();
		foreach ($services as $service) {
			$includes = $this->_getPamServiceIncludes($pamDir . $service);
			$allIncludes = array_unique(array_merge($allIncludes, $includes));
		}
	
		$missingIncludes = array_diff($allIncludes, $services);
	
		if (!empty($missingIncludes)) {
			$warn  = 'The PAM configuration is in inconsistent state. ';
			$warn .= 'If you proceed with the installation, the required PAM modules will not be installed. This will cause problems during the authentication. ';
			$warn .= 'Some PAM services reference the following nonexistent services: ' . implode(', ', $missingIncludes) . '. ';
			$warn .= 'Check http://kb.parallels.com/en/112944 for more details.';
	
			Log::warning($warn);
			Log::resultWarning();
			return;
		}
	
		Log::resultOk();
	}
    
    //:INFO: Plesk user "root" for MySQL database servers have not access to phpMyAdmin http://kb.parallels.com/en/112779
    function _checkMySQLDatabaseUserRoot()
    {
    	Log::step('Checking existence of Plesk user "root" for MySQL database servers ...', true);
    	
    	$psaroot = Util::getSettingFromPsaConf('PRODUCT_ROOT_D');
    	$phpMyAdminConfFile = $psaroot . '/admin/htdocs/domains/databases/phpMyAdmin/libraries/config.default.php'; 
    	if (file_exists($phpMyAdminConfFile)) {
    		$phpMyAdminConfFileContent = file_get_contents($phpMyAdminConfFile);
    		if (!preg_match("/\[\'AllowRoot\'\]\s*=\s*true\s*\;/", $phpMyAdminConfFileContent)) {
    			$mysql = PleskDb::getInstance();
    			$sql = "select login, data_bases.name as db_name, displayName as domain_name from db_users, data_bases, domains where db_users.db_id = data_bases.id and data_bases.dom_id = domains.id and data_bases.type = 'mysql' and login = 'root'";
    			$dbusers = $mysql->fetchAll($sql);
    			
    			foreach ($dbusers as $user) {
    				Log::warning('The database user "' . $user['login'] . '"  (database "' . $user['db_name'] . '" at "' . $user['domain_name'] . '") has no access to phpMyAdmin. Please check http://kb.parallels.com/en/112779 for more details.');
    				Log::resultWarning();
    				return;
    			}
    		}
    	}

    	Log::resultOk();
    }
    
    //:INFO: After upgrade Plesk change permissions on folder of Collaboration Data Objects (CDO) for NTS (CDONTS) to default, http://kb.parallels.com/en/111194
    function _checkCDONTSmailrootFolder()
    {
    	Log::step('Checking for CDONTS mailroot folder ...', true);
    	$mailroot = Util::getSystemDisk() . 'inetpub\mailroot\pickup';
    
    	if (is_dir($mailroot)) {
    		Log::warning('After upgrade you have to add write pemissions to psacln group on folder ' . $mailroot . '. Please, check http://kb.parallels.com/en/111194 for more details.');
    		Log::resultWarning();
    		return;
    	}
    	Log::resultOk();
    }
    
    //:INFO: Checking for conflicting of SSO start-up scripts http://kb.parallels.com/en/112666
    function _checkSsoStartScriptsPriority()
    {
    	Log::step('Checking for SSO start-up script priority ...', true);
    	$sso_script = '/etc/sw-cp-server/applications.d/00-sso-cpserver.conf';
    	$sso_folder = '/etc/sso';
    
    	if (!file_exists($sso_script)
    	&& is_dir($sso_folder)) {
    		Log::warning('SSO start-up script has wrong execution priority. Please, check http://kb.parallels.com/en/112666 for more details.');
    		Log::resultWarning();
    		return;
    	}
    	Log::resultOk();
    }
    
    //:INFO: Check iisfcgi.dll file version http://kb.parallels.com/en/112606
    function _checkIisFcgiDllVersion()
    {
    	Log::step("Checking the iisfcgi.dll file version ...", true);
    	$windir = Util::getSystemRoot();
		$iisfcgi = $windir . '\system32\inetsrv\iisfcgi.dll';
		if (file_exists($iisfcgi)) {
		  	$version = Util::getFileVersion($iisfcgi);
    		if (version_compare($version, '7.5.0', '>')
    			&& version_compare($version, '7.5.7600.16632', '<')) {
    			Log::warning('File iisfcgi.dll version ' . $version . ' is outdated. Please, check article http://kb.parallels.com/en/112606 for details');
    			return;
    		}
		}
		Log::resultOk();
    }
    
    //:INFO: Notification about how to change password for the mail account after upgrade http://kb.parallels.com/en/9454
    function _notificationChangePasswordForEmailAccount()
    {
    	Log::step("Checking for mailnames with access to Panel ...", true);
    	
    	$mysql = PleskDb::getInstance();
    	$sql = "select count(mail_name) as num from mail m, Permissions p where p.value='true' and p.id=m.perm_id and p.permission='cp_access'";
    	$mailnames = $mysql->fetchOne($sql);
    	if ($mailnames > 0) {
    		$warn = 'You have ' . $mailnames . ' mailbox users that will be converted to subscription-level auxiliary users after upgrading to Panel 10. Learn how to change passwords for such users in http://kb.parallels.com/en/9454';
    		Log::warning($warn);
    		return;
    	}
    	Log::resultOk();
    }

    //:INFO: Users with same e-mails as e-mail accounts will have problems with changing personal contact information http://kb.parallels.com/en/112032
    function _checkUserHasSameEmailAsEmailAccount()
    {
    	Log::step("Checking for users with same e-mail address as e-mail account ...", true);
    	
    	$mysql = PleskDb::getInstance();
    	$sql = "select login, email from clients where email in (select concat(m.mail_name, '@', d.displayName) from domains d, mail m, Permissions p where m.perm_id=p.id and (p.permission='cp_access' and value='true'))";
    	if (Util::isWindows()) {
    		$dbprovider = Util::regPleskQuery('PLESK_DATABASE_PROVIDER_NAME');
    		if ($dbprovider <> 'MySQL') {
    			$sql = "select login, email from clients where email in (select (m.mail_name + '@' + d.displayName) from domains d, mail m, Permissions p where m.perm_id=p.id and (p.permission='cp_access' and value='true'))";
    		}
    	}
    	if (PleskVersion::is10x()) {
    		$sql = "select count(login) users, email from smb_users where email in (select email from smb_users group by email having count(email)>1) and email != '' group by email";
    	}

    	$problem_clients = $mysql->fetchAll($sql);
    	
    	if (PleskVersion::is8x()
    		|| PleskVersion::is9x()) {
    		$sql = "select d.name domain_name, c.email domain_admin_email from domains d, dom_level_usrs dl, Cards c where c.id=dl.card_id and dl.dom_id=d.id and c.email in (select concat(m.mail_name, '@', d.displayName) from domains d, mail m, Permissions p where m.perm_id=p.id and (p.permission='cp_access' and value='true'))";
    		if (Util::isWindows()) {
    			$dbprovider = Util::regPleskQuery('PLESK_DATABASE_PROVIDER_NAME');
    			if ($dbprovider <> 'MySQL') {
    				$sql = "select d.name as domain_name, c.email as domain_admin_email from domains d, dom_level_usrs dl, Cards c where c.id=dl.card_id and dl.dom_id=d.id and c.email in (select (m.mail_name + '@' + d.displayName) from domains d, mail m, Permissions p where d.id=m.dom_id and m.perm_id=p.id and (p.permission='cp_access' and value='true'))";
    			}
    		}
    	}
    	$problem_domain_admins = $mysql->fetchAll($sql);
    	
    	if (count($problem_clients)>0
    		|| count($problem_domain_admins)>0) {
    		foreach ($problem_clients as $client) {
    			if (PleskVersion::is10x()) {
    				$info = 'There are ' . $client['users'] . ' users with the same contact e-mail address ' . $client['email'];
    			} else {
    				$info = 'User ' . $client['login'] . ' has contact mail address as e-mail account ' . $client['email'];
    			}
    			Log::info($info);
    		}
    		foreach ($problem_domain_admins as $domain_admin) {
    			$info = 'Domain administrator of domain ' . $domain_admin['domain_name'] . ' has contact mail address as e-mail account ' . $domain_admin['domain_admin_email'];
    			Log::info($info);
    		}
    		if (PleskVersion::is10x()) {
    			Log::warning('There are a number of Panel users that have the same contact email. See the ' . APP_PATH . '/plesk11_preupgrade_checker.log for details.  You will not be able to change personal information (including passwords) of these users. Learn more at http://kb.parallels.com/en/112032.');
    		} else {
    			Log::warning('There are some users found with email matches mailboxes with permission to access Control Panel. See the ' . APP_PATH . '/plesk11_preupgrade_checker.log for details.  If a client\'s or domain administrator\'s e-mail address (in the profile) matches a mailbox in Plesk and the mailbox has the permission to access Control Panel, the upgrade procedure will create two auxiliarily user accounts (with the same e-mail) for such customers and Panel will not allow to change personal information (including passwords) for them. Please, check http://kb.parallels.com/en/112032 for more details.');
    		}
    		
    		Log::resultWarning();
    		return;
    	}
    	
    	Log::resultOk();
    }
    
    //:INFO: Checking for main IP address http://kb.parallels.com/en/112417
    function _checkMainIP()
    {
    	Log::step("Checking for main IP address ...", true);
    	$mysql = PleskDb::getInstance();
    	$sql = 'select * from IP_Addresses';
    	$ips = $mysql->fetchAll($sql);
    	$mainexists = false;
    	foreach ($ips as $ip) {
    		if (isset($ip['main'])) {
    			if ($ip['main'] == 'true') {
    				$mainexists = true;
    			}
    		} else {
    			Log::info('No field "main" in table IP_Addresses.');
    			Log::resultOk();
    			return;
    		}
    	}
    	 
    	if (!$mainexists) {
    		$warn = 'Unable to find "main" IP address in psa database. Please, check http://kb.parallels.com/en/112417 for more details.';
    		Log::warning($warn);
    		Log::resultWarning();
    		return;
    	}
    	Log::resultOk();
    }
   
    //:INFO: Checking for hostname in Customer & Business Manager relay URL http://kb.parallels.com/en/111500
    function _checkCBMrelayURL()
    {
    	Log::step("Checking for hostname in Customer & Business Manager relay URL...", true);
    
    	$mysql = PleskDb::getInstance();
    	$sql = "select val from cl_param where param='ppb-url'";
    	$url = $mysql->fetchOne($sql);
    	if (preg_match("/\/\/(.*):/i", $url, $result)) {
    		if (!PleskValidator::isValidIp($result[1])) {
    			$ip = Util::resolveHostname($result[1]);
    			if (!Util::isFQDN($result[1])
    			|| !PleskValidator::isValidIp($ip)) {
    				$warn = 'In case you get the 404 error when trying to access Customer & Business Manager, refer to the article http://kb.parallels.com/en/111500 for resoultion details.';
    				Log::warning($warn);
    				Log::resultWarning();
    				return;
    			}
    		}
    	}
    	Log::resultOk();
    }
    
    //:INFO:#66278,70525,1416291 Checking SQL mode of default client's MySQL server http://kb.parallels.com/en/114359
    function _checkDefaultMySQLServerMode()
    {
    	Log::step("Checking SQL mode of default client's MySQL server...", true);
    
    	$credentials = Util::getDefaultClientMySQLServerCredentials();
    	if (!empty($credentials)) {
    		$mysql = new DbClientMysql('localhost', $credentials['admin_login'], $credentials['admin_password'] , 'mysql', 3306);
    		if (!$mysql->hasErrors()) {
    			$sql = 'SELECT @@sql_mode';
    			$sqlmode = $mysql->fetchOne($sql);
    			if (preg_match("/STRICT_/i", $sqlmode, $match)) {
    				$warn = 'Please, switch off strict mode for MySQL server. Read carefully article http://kb.parallels.com/en/112453 for details.';
    				Log::warning($warn);
    				Log::resultWarning();
    				return;
    			}
    		}
    	}
    
    	Log::resultOk();
    }
    
    //:INFO: If user has the same address as the admin it should be changed to another http://kb.parallels.com/en/111985
    function _checkUserHasSameEmailAsAdmin()
    {
    	Log::step('Checking for users with the same e-mail address as the administrator...', true);
    	$adminEmail = Plesk10BusinessModel::_getAdminEmail();
    	if (!empty($adminEmail)) { 
    		$db = PleskDb::getInstance();
    		if (PleskVersion::is10x_or_above()) {
    			$sql = "SELECT login, email FROM smb_users WHERE login<>'admin' and email='" . $adminEmail . "'";
    			$clients = $db->fetchAll($sql);
    		} else {
    			$sql = "SELECT login, email FROM clients WHERE login<>'admin' and email='" . $adminEmail . "'";
    			$clients = $db->fetchAll($sql);
    		}
    		if (!empty($clients)) {
    			foreach ($clients as $client) {
    				Log::info('The customer with the username ' . $client['login'] . ' has the same e-mail address as the Panel administrator: ' .  $client["email"]);
    			}
    			Log::warning('Some customers have e-mail addresses coinciding with the Panel administrator\'s e-mail address. See the ' . APP_PATH . '/plesk11_preupgrade_checker.log and check http://kb.parallels.com/en/111985 for details.');
    			Log::resultWarning();
    			return;
    		}
    	}
    	Log::resultOk();
    }
    
    //:INFO: Check that .net framework installed properly http://kb.parallels.com/en/111448
    function _checkDotNetFrameworkIssue()
    {
    	Log::step('Checking that .NET framework installed properly...', true);
    	$pleskCpProvider = Util::regPleskQuery('PLESKCP_PROVIDER_NAME', true);
    	if ($pleskCpProvider == 'iis') {
    		$cmd = '"' . Util::regPleskQuery('PRODUCT_ROOT_D', true) . 'admin\bin\websrvmng" --list-wdirs --vhost-name=pleskcontrolpanel';
    		$output = Util::exec($cmd, $code);
    		if (!preg_match("/wdirs/i", trim($output), $matches)) {
    			Log::warning('There is a problem with .NET framework.  Please, check http://kb.parallels.com/en/111448 for details.');
    			Log::resultWarning();
    			return;
    		}
    	}
    	Log::resultOk();
    	 
    }
    
    //:INFO: Check for custom php.ini on domains http://kb.parallels.com/en/111697
    function _checkCustomPhpIniOnDomains()
    {
    	Log::step('Checking for custom php.ini on domains...', true);
    	 
    	$domains = Plesk10BusinessModel::_getDomainsByHostingType('vrt_hst');
    	if (empty($domains)) {
    		Log::resultOk();
    		return;
    	}
    	$vhost = Util::getSettingFromPsaConf('HTTPD_VHOSTS_D');
    	if (empty($vhost)) {
    		$warn = 'Unable to read /etc/psa/psa.conf';
    		Log::warning($warn);
    		Log::resultWarning();
    		return;
    	}
    	$flag = false;
    	foreach ($domains as $domain) {
    		$filename = $vhost . '/' . $domain['name'] . '/conf/php.ini';
    		if (file_exists($filename)) {
    			$warn = 'Custom php.ini is used for domain ' . $domain['name'] . '.';
    			Log::warning($warn);
    			$flag = true;
    		}
    	}
    	 
    	if ($flag) {
    		$warn = 'After upgrade, Panel will not apply changes to certain website-level PHP settings due to they are predefined in /var/www/vhosts/DOMAINNAME/conf/php.ini. Please check http://kb.parallels.com/en/111697 for details.';
    		Log::warning($warn);
    		Log::resultWarning();
    		return;
    	}
    	 
    	Log::resultOk();
    }
    
    //:INFO: Plesk 10 version does not support Mdaemon mail server http://kb.parallels.com/en/112356
    function _mDaemonServerWarningOnUpgradeTo10x()
    {
    	Log::step('Checking for MDaemon mail server...', true);
    
    	if (Plesk10MailServer::CurrentWinMailServer() == 'mdaemon') {
    		$warn = 'Plesk 10 version does not support MDaemon. Please, check http://kb.parallels.com/en/112356 for more details.';
    		Log::warning($warn);
    		Log::resultWarning();
    
    		return;
    	}
    	Log::resultOk();
    }
    
    //:INFO: Checking existing table mysql.servers http://kb.parallels.com/en/112290
    function _checkMysqlServersTable()
    {
    	Log::step('Checking table "servers" in database "mysql"...', true);
    	$mySQLServerVersion = Util::getMySQLServerVersion();
    	if (version_compare($mySQLServerVersion, '5.1.0', '>=')) {
    		$credentials = Util::getDefaultClientMySQLServerCredentials();
    		
    		if (!Util::isLinux() && preg_match('/AES-128-CBC/', $credentials['admin_password'])) {
    			Log::info('Password for default MySQL server is encrypted.');
    			return;
    		}
    		
    		$mysql = new DbClientMysql('localhost', $credentials['admin_login'], $credentials['admin_password'] , 'information_schema', 3306);
    		if (!$mysql->hasErrors()) {
    			$sql = 'SELECT * FROM information_schema.TABLES  WHERE TABLE_SCHEMA="mysql" and TABLE_NAME="servers"';
    			$servers = $mysql->fetchAll($sql);
    			if (empty($servers)) {
    				$warn = 'Table "servers" in database "mysql" does not exists. Please, check  http://kb.parallels.com/en/112290 for more details.';
    				Log::warning($warn);
    				Log::resultWarning();
    				return;
    			}
    		}
    	}
    	Log::resultOk();
    }
    
    //:INFO: Plesk 10.x version does not support SimpleDNS http://kb.parallels.com/en/112280
    function _unsupportedDNSServersWarningOnUpgradeTo10x()
    {
    	Log::step('Detecting current DNS server...', true);
    	$dnsServer = PleskComponent::CurrentWinDNSServer();
    	if ($dnsServer == 'simpledns') {
    		$warn = 'Since Parallels Plesk Panel version 10 Simple DNS server is no longer supported. Please, check http://kb.parallels.com/en/112280 for more details.';
    		Log::warning($warn);
    		Log::resultWarning();
    
    		return;
    	}
    	Log::resultOk();
    }
    
    //:INFO: Check that there is symbolic link /usr/local/psa on /opt/psa on Debian-like Oses http://kb.parallels.com/en/112214
    function _checkSymLinkToOptPsa()
    {
    	Log::step('Checking symbolic link /usr/local/psa on /opt/psa...', true);

    	$link = @realpath('/usr/local/psa/version');
    	if (!preg_match('/\/opt\/psa\/version/', $link, $macthes)) {
    		$warn = "The symbolic link /usr/local/psa does not exists or has wrong destination. Read article http://kb.parallels.com/en/112214 to fix the issue.";
    		Log::warning($warn);
    		Log::resultWarning();
    		return;
    	}
    	Log::resultOk();
    }
    
    //:INFO: Checking for old version of autoinstaller http://kb.parallels.com/en/112166
    function _checkAutoinstallerVersion()
    {
    	Log::step('Checking autoinstaller version...', true);
    
    	if (getenv('AUTOINSTALLER_VERSION')) {
    		Log::resultOk();
    		return;
    	}
    	
    	if (Util::isWindows()) {
    		if	(PleskVersion::is9x()
    		|| PleskVersion::is8x()
    		) {
    			Log::resultOk();
    			return;
    		}
    	}
    
    	$installed_ai_version = Util::getAutoinstallerVersion();
    	if (version_compare($installed_ai_version, AI_VERSION, '<')) {
    		$warn = 'Your autoinstaller version '. $installed_ai_version .' is outdated. Please refer to article http://kb.parallels.com/en/112166 on how to obtain latest version of autoinstaller.';
    		Log::warning($warn);
    		return;
    	}
    	Log::resultOk();
    }
	
    //:INFO: Checking possibility to connect to client's MySQL server
    function _checkConnectToClientMySQL()
    {
    	Log::step('Checking connection to client MySQL server...', true);

    	$credentials = Util::getDefaultClientMySQLServerCredentials();

    	if ($credentials == NULL) {
    		$installedMySQLserver55 = Util::regQuery('\MySQL AB\MySQL Server 5.5', '/v version', true);
    		$installedMySQLserver51 = Util::regQuery('\MySQL AB\MySQL Server 5.1', '/v version', true);
    		$installedMySQLserver50 = Util::regQuery('\MySQL AB\MySQL Server 5.0', '/v version', true);
    		
    		if ($installedMySQLserver55
    		 	|| $installedMySQLserver51
    		 	|| $installedMySQLserver50 
    		) {
    			$warn = 'Default MySQL server is not registered in Parallels Plesk Panel. If you use custom MySQL instances you should register one at least according to article http://kb.parallels.com/en/111983.';
    			Log::warning($warn);
    			Log::resultWarning();
    			return;    				
    		}
    	}
    	
    	if (preg_match('/AES-128-CBC/', $credentials['admin_password'])) {
    		Log::info('Password for default MySQL server is encrypted.');
    		return;
    	}

    	$mysql = new DbClientMysql('localhost', $credentials['admin_login'], $credentials['admin_password'] , 'mysql', 3306);
    	if ($mysql->hasErrors()) {
            $warn = 'Unable to connect to local default MySQL server. Read carefully article http://kb.parallels.com/en/111983 for details.';
            Log::warning($warn);
            Log::resultWarning();
            return;
        }
    	Log::info('Connected sucessfully', true);
    	$result = $mysql->query('CREATE DATABASE IF NOT EXISTS pre_upgrade_checker_test_db');
    	
    	if (!$result) {
            $warn = 'User has not enough privileges. Read article http://kb.parallels.com/en/111983 for details.';
            Log::warning($warn);
            Log::resultWarning();    			
            return;
    	}	
    	$result = $mysql->query('DROP DATABASE IF EXISTS pre_upgrade_checker_test_db');
    	 
    	if (!$result) {
            $warn = 'User has not enough privileges. Read article http://kb.parallels.com/en/111983 for details.';
            Log::warning($warn);
            Log::resultWarning();
            return;
    	}
    	Log::resultOk();
    	
    }
    
    //:INFO: Checking for unknown ISAPI filters and show warning http://kb.parallels.com/en/111908
    function _unknownISAPIfilters()
    {
    	Log::step('Detecting installed ISAPI filters...', true);
    	if (Util::isUnknownISAPIfilters()) {
    		$warn = 'Please read carefully article http://kb.parallels.com/en/111908, for avoiding possible problems caused by unknown ISAPI filters.';
    		Log::warning($warn);
    		Log::resultWarning();
    
    		return;
    	}
    	Log::resultOk();
    }
    
    //:INFO: Warning about possible issues related to Microsoft Visual C++ Redistributable Packages ?http://kb.parallels.com/en/111891
    function _checkMSVCR()
    {
    	Log::step('Microsoft Visual C++ Redistributable Packages', true);
		$warn = 'Please read carefully article http://kb.parallels.com/en/111891, for avoiding possible problems caused by Microsoft Visual C++ Redistributable Packages.'; 
		Log::info($warn);
  
   		return;
    }    
    
    //:INFO: Plesk 10.x version does not support Gene6 and Serv-U http://kb.parallels.com/en/111816, http://kb.parallels.com/en/111894
    function _unsupportedFtpServersWarningOnUpgradeTo10x()
    {
    	Log::step('Detecting current FTP server...', true);
    	$ftpserver = PleskComponent::CurrentWinFtpServer(); 
    	if ( $ftpserver == 'gene6'
    		|| $ftpserver == 'servu'
    	) {
    		$warn = 'Since Parallels Plesk Panel version 10 Gene6 and Serv-U FTP servers are no longer supported. Please, check http://kb.parallels.com/en/111816 and http://kb.parallels.com/en/111894 for more details.';
    		Log::warning($warn);
    		Log::resultWarning();
    
    		return;
    	}
    	Log::resultOk();
    }    
    
    //:INFO: Plesk 10 version does not support hMailserver http://kb.parallels.com/en/9609
    function _hMailServerWarningOnUpgradeTo10x()
    {
    	Log::step('Detecting current mail server...', true);
    	
    	if (Plesk10MailServer::CurrentWinMailServer() == 'hmailserver') {
    		$warn = 'Plesk 10 version does not support hMailserver. Please, check http://kb.parallels.com/en/9609 for more details.';
    		Log::warning($warn);
    		Log::resultWarning();
    		
    		return;
    	}
    	Log::resultOk();
    }
    
    function _diagnoseKavOnPlesk10x()
    {
        Log::step('Detecting if antivirus is Kaspersky...', true);
        
        $pleskComponent = new PleskComponent();
        $isKavInstalled = $pleskComponent->isInstalledKav();
        
        Log::info('Kaspersky antivirus: ' . ($isKavInstalled ? ' installed' : ' not installed'));
        
        if (Util::isVz() && $isKavInstalled) {
            $warn = 'An old version of Kasperskiy antivirus is detected. ';
            $warn .= 'If you are upgrading to the Panel 10 using EZ templates, update the template of Kaspersky antivirus on hardware node to the latest version, and then upgrade the container.';
            Log::warning($warn);
            Log::resultWarning();
            
            return;
        }
        Log::resultOk();
    }
    
    function _diagnoseDependCycleOfModules()
    {
        //:INFO: Prevent potential problem with E: Couldn't configure pre-depend plesk-core for psa-firewall, probably a dependency cycle.
        Log::step('Detecting if Plesk modules are installed...', true);
        
        if (Util::isVz() 
            && PleskModule::isInstalledWatchdog()
            && PleskModule::isInstalledVpn()
            && PleskModule::isInstalledFileServer()
            && PleskModule::isInstalledFirewall()
        ) {
            $warn = 'Plesk modules "watchdog, fileserver, firewall, vpn" were installed on container. ';
            $warn .= 'If you are upgrading to the Panel 10 using EZ templates, remove the modules, and then upgrade the container.';
            Log::warning($warn);
            Log::resultWarning();
            
            return;
        }
        Log::resultOk();
    }

    function _checkForCryptPasswords()
    {
        //:INFO: Prevent potential problem with E: Couldn't configure pre-depend plesk-core for psa-firewall, probably a dependency cycle.
        Log::step('Detecting if encrypted passwords are used...', true);

        $db = PleskDb::getInstance();
        $sql = "SELECT COUNT(*) AS cnt FROM accounts WHERE type='crypt' AND password not like '$%';";
        $r = $db->fetchAll($sql);

	if ($r[0]['cnt'] != '0')
        {
            $warn = 'There are ' . $r[0]['cnt'] . ' accounts with passwords encrypted by the previously used algorithm, which are now invalid. Please refer to http://kb.parallels.com/en/112391 for how to change the passwords\' type to plain.';

            Log::warning($warn);
            Log::resultWarning();
            return;
        }
        Log::resultOk();
    }
}

class PleskComponent
{
    function isInstalledKav()
    {
        return $this->_isInstalled('kav');
    }
    
    function _isInstalled($component)
    {
        $sql = "SELECT * FROM Components WHERE name LIKE '%{$component}%'";

        $pleskDb = PleskDb::getInstance();
        $row = $pleskDb->fetchRow($sql);

        return (empty($row) ? false : true);
    }
    
    function CurrentWinFTPServer()
    {
    	if (Util::isWindows()) {
    		$currentFTPServer = Util::regQuery('\PLESK\PSA Config\Config\Packages\ftpserver', '/ve', true);
    		Log::info('Current FTP server is: ' . $currentFTPServer);
    		return $currentFTPServer;
    	}
    }
    
    function CurrentWinDNSServer()
    {
    	if (Util::isWindows()) {
    		$currentDNSServer = Util::regQuery('\PLESK\PSA Config\Config\Packages\dnsserver', '/ve', true);
    		Log::info('Current DNS server is: ' . $currentDNSServer);
    		return $currentDNSServer;
    	}
    }
    
    function getPackageVersion($package_name)
    {
    	if (Util::isWindows()) {
			$cmd = '"' . Util::getPleskRootPath() . 'admin\bin\packagemng" ' . $package_name;
    	} else {
    		if (PleskVersion::is10_4_or_above()) {
    			$cmd = '/usr/local/psa/admin/bin/packagemng -l';
    		} else {
    			$cmd = '/usr/local/psa/admin/bin/packagemng ' . $package_name . ' 2>/dev/null';
    		}
    	}
    	/* packagemng <package name> - returns "<package name>:<package version>" on Windows all versions and Unix till Plesk 10.4 versions 
    	 * since Plesk 10.4 on linux packagemng -l should be used to return list of all packages
    	 * if <package name> doesn't exists OR not installed on Windows output will be "<package name>:"
    	 * if <package name> doesn't installed on Linux output will be "<package name>:not_installed"
    	 * if <package name> doesn't exists on Linux output will be "packagemng: Package <package name> is not found in Components table"
    	 */ 
    	$output = Util::exec($cmd, $code);
    	if (preg_match('/' . $package_name .  '\:(.+)/', $output, $version)) {
    		if ($version[1] <> 'not_installed') {
    			return $version[1];
    		}
    	} 
    	return null;
    }
}

class PleskModule
{
    function isInstalledWatchdog()
    {
        return PleskModule::_isInstalled('watchdog');
    }
    
    function isInstalledFileServer()
    {
        return PleskModule::_isInstalled('fileserver');
    }

    function isInstalledFirewall()
    {
        return PleskModule::_isInstalled('firewall');
    }

    function isInstalledVpn()
    {
        return PleskModule::_isInstalled('vpn');
    }
    
    function _isInstalled($module)
    {
        $sql = "SELECT * FROM Modules WHERE name = '{$module}'";

        $pleskDb = PleskDb::getInstance();
        $row = $pleskDb->fetchRow($sql);

        return (empty($row) ? false : true);
    }
}

class PleskInstallation
{
    function validate()
    {
        if (!$this->isInstalled()) {
            Log::step('Plesk installation is not found. You will have no problems with upgrade, go on and install '.PleskVersion::getLatestPleskVersionAsString().' (http://www.parallels.com/products/plesk/)');
            return;
        }
        $this->_detectVersion();
    }
    
    function isInstalled()
    {
        $rootPath = Util::getPleskRootPath();
        if (empty($rootPath) || !file_exists($rootPath)) {
            //Log::fatal('Plesk is not installed. Please install Plesk Panel at first.');
            return false;
        }
        return true;
    }
    
    function _detectVersion()
    {
        Log::step('Installed Plesk version/build: ' . PleskVersion::getVersionAndBuild());
        
        $currentVersion = PleskVersion::getVersion();
        if (version_compare($currentVersion, PLESK_VERSION, 'eq')) {
            $err = 'You have already installed the latest version ' . PleskVersion::getLatestPleskVersionAsString() . '. ';
            $err .= 'Tool must be launched prior to upgrade to ' . PleskVersion::getLatestPleskVersionAsString() . ' for the purpose of getting a report on potential problems with the upgrade.';
            // TODO either introduce an option to suppress fatal error here, or always exit with 0 here.
            //Log::fatal($err);
            Log::info($err);
            exit(0);
        }
        
        if (!PleskVersion::is8x() && !PleskVersion::is9x() && !PleskVersion::is10x() && !PleskVersion::is11x()) {
            $err = 'Unable to find Plesk 8.x, Plesk 9.x, Plesk 10.x or Plesk 11.x. ';
            $err .= 'Tool must be launched prior to upgrade to ' . PleskVersion::getLatestPleskVersionAsString() . ' for the purpose of getting a report on potential problems with the upgrade.';
            Log::fatal($err);
        }
    }
}

class PleskVersion
{
    function is8x()
    {
        $version = PleskVersion::getVersion();
        return version_compare($version, '8.0.0', '>=') && version_compare($version, '9.0.0', '<');
    }

    function is9x()
    {
        $version = PleskVersion::getVersion();
        return version_compare($version, '9.0.0', '>=') && version_compare($version, '10.0.0', '<');
    }
    
    function is9x_or_above()
    {
    	$version = PleskVersion::getVersion();
    	return version_compare($version, '9.0.0', '>=');
    }

    function is10x()
    {
        $version = PleskVersion::getVersion();
        return version_compare($version, '10.0.0', '>=') && version_compare($version, '11.0.0', '<');
    }
    
    function is11x()
    {
        $version = PleskVersion::getVersion();
        return version_compare($version, '11.0.0', '>=') && version_compare($version, '12.0.0', '<');
    }
    
    function is10_0()
    {
    	$version = PleskVersion::getVersion();
    	return version_compare($version, '10.0.0', '>=') && version_compare($version, '10.1.0', '<');
    }
    
    function is10x_or_above()
    {
    	$version = PleskVersion::getVersion();
    	return version_compare($version, '10.0.0', '>=');
    }
    
    function is10_1_or_below()
    {
    	$version = PleskVersion::getVersion();
    	return version_compare($version, '10.1.1', '<=');
    }
    
    function is10_2_or_above()
    {
    	$version = PleskVersion::getVersion();
    	return version_compare($version, '10.2.0', '>=');
    }
    
    function is10_3_or_above()
    {
    	$version = PleskVersion::getVersion();
    	return version_compare($version, '10.3.0', '>=');
    }
    
    function is10_4()
    {
    	$version = PleskVersion::getVersion();
    	return version_compare($version, '10.4.0', '>=') && version_compare($version, '10.5.0', '<');
    }
    
    function is10_4_or_above()
    {
    	$version = PleskVersion::getVersion();
    	return version_compare($version, '10.4.0', '>=');
    }
    
    function is11_0_or_above()
    {
    	$version = PleskVersion::getVersion();
    	return version_compare($version, '11.0.0', '>=');
    }
    
    function getVersion()
    {
        $version = PleskVersion::getVersionAndBuild();
        if (!preg_match('/([0-9]+[.][0-9]+[.][0-9])/', $version, $macthes)) {
            Log::fatal("Incorrect Plesk version format. Current version: {$version}");
        }
        return $macthes[1];
    }
    
    function getVersionAndBuild()
    {
        $versionPath = Util::getPleskRootPath().'/version';
        if (!file_exists($versionPath)) {
            Log::fatal("Plesk version file is not exists $versionPath");
        }
        $version = file_get_contents($versionPath);
        $version = trim($version);
        return $version;
    }
    
    function getLatestPleskVersionAsString()
    {
        return 'Parallels Panel ' . PLESK_VERSION;
    }
}

class Log
{
    function Log()
    {
        $this->_logFile = APP_PATH . '/plesk11_preupgrade_checker.log';
        @unlink($this->_logFile);
    }
    
    function _getInstance()
    {
        static $_instance = null;
        if (is_null($_instance)) {
            $_instance = new Log();
        }
        return $_instance;
    }
    
    function fatal($msg)
    {
        $log = Log::_getInstance();
        $log->_log($msg, 'FATAL_ERROR');
    }
    
    function error($msg)
    {
        $log = Log::_getInstance();
        $log->_log($msg, 'ERROR');
    }
    
    function warning($msg)
    {
        $log = Log::_getInstance();
        $log->_log($msg, 'WARNING');
    }
    
    function emergency($msg)
    {
    	$log = Log::_getInstance();
    	$log->_log($msg, 'EMERGENCY');
    }
    
    function step($msg, $useNumber=false)
    {
        static $step = 1;
        
        if ($useNumber) {
            $msg = "==> STEP " . $step . ": {$msg}";
            $step++;
        } else {
            $msg = "==> {$msg}";
        }
        
        $log = Log::_getInstance();
        $log->_log($msg, 'INFO', PHP_EOL);
    }
    
    function resultOk()
    {
        $msg = 'Result: OK';
        Log::info($msg);
    }
    
    function resultWarning()
    {
        $msg = 'Result: Warning';
        Log::info($msg);
    }
    
    function resultError()
    {
        $msg = 'Result: Error';
        Log::info($msg);
    }
    
    function info($msg)
    {
        $log = Log::_getInstance();
        $log->_log($msg, 'INFO');
    }
    
    function dumpStatistics()
    {
        global $errors, $warnings;
        
        $str = 'Found errors: ' . $errors 
            . '; Found Warnings: ' . $warnings
        ;
        echo PHP_EOL . $str . PHP_EOL . PHP_EOL;
    }
    
    function _log($msg, $type, $newLine='')
    {
        global $errors, $warnings, $emergency;

		// TODO modern PHP (from 5.3) issues warning:
		//  PHP Warning:  date(): It is not safe to rely on the system's timezone settings. You are *required* to use the date.timezone setting 
		//  or the date_default_timezone_set() function. In case you used any of those methods and you are still getting this warning, you most 
		//  likely misspelled the timezone identifier. We selected 'America/New_York' for 'EDT/-4.0/DST' instead in 
		//  panel_preupgrade_checker.php on line 1282
    	if (getenv('AUTOINSTALLER_VERSION')) {
            $log = $newLine . "{$type}: {$msg}" . PHP_EOL;
    	} else {
            $date = date('Y-m-d h:i:s');
            $log = $newLine . "[{$date}][{$type}] {$msg}" . PHP_EOL;
        }
		if ($type == 'EMERGENCY') {
			$emergency++;
			fwrite(STDERR, $log);
		} elseif ($type == 'ERROR' || $type == 'FATAL_ERROR') {
            $errors++;
            fwrite(STDERR, $log);
        } elseif ($type == 'WARNING') {
            $warnings++;
            fwrite(STDERR, $log);
        } elseif ($type == 'INFO') {
            //:INFO: Dump to output and write log to the file
            echo $log;
        }
        
        Log::write($this->_logFile, $log);
        
        //:INFO: Terminate the process if have the fatal error
        if ($type == 'FATAL_ERROR') {
            exit(1);
        }
    }
    
    function write($file, $content, $mode='a+')
    {
        $fp = fopen($file, $mode);
        fwrite($fp, $content);
        fclose($fp);
    }
}

class PleskDb
{
    var $_db = null;
    
    function PleskDb($dbParams)
    {
        switch($dbParams['db_type']) {
            case 'mysql':
                $this->_db = new DbMysql(
                    $dbParams['host'], $dbParams['login'], $dbParams['passwd'], $dbParams['db'], $dbParams['port']
                );
                break;
                
            case 'jet':
                $this->_db = new DbJet($dbParams['db']);
                break;
                
            case 'mssql':
                $this->_db = new DbMsSql(
                    $dbParams['host'], $dbParams['login'], $dbParams['passwd'], $dbParams['db'], $dbParams['port']
                );
                break;

            default:
                Log::fatal("{$dbParams['db_type']} is not implemented yet");
                break;
        }
    }
    
    function getInstance()
    {
        global $options;
        static $_instance = array();
        
        $dbParams['db_type']= Util::getPleskDbType();
        $dbParams['db']     = Util::getPleskDbName();
        $dbParams['port']   = Util::getPleskDbPort();
        $dbParams['login']  = Util::getPleskDbLogin();
        $dbParams['passwd'] = $options->getDbPasswd();
        $dbParams['host']   = Util::getPleskDbHost();
        
        $dbId = md5(implode("\n", $dbParams));

		$_instance[$dbId] = new PleskDb($dbParams);
        
        return $_instance[$dbId];
    }
    
    function fetchOne($sql)
    {
        if (DEBUG) {
            Log::info($sql);
        }
        return $this->_db->fetchOne($sql);
    }
    
    function fetchRow($sql)
    {
        $res = $this->fetchAll($sql);
        if (is_array($res) && isset($res[0])) {
            return $res[0];
        }
        return array();
    }
    
    function fetchAll($sql)
    {
        if (DEBUG) {
            Log::info($sql);
        }
        return $this->_db->fetchAll($sql);
    }
}

class DbMysql
{
    var $_dbHandler = null;
    
    function DbMysql($host, $user, $passwd, $database, $port)
    {
        if ( extension_loaded('mysql') ) {
            $this->_dbHandler = @mysql_connect("{$host}:{$port}", $user, $passwd);
            if (!is_resource($this->_dbHandler)) {
                $mysqlError = mysql_error();
                if (stristr($mysqlError, 'access denied for user')) {
                    $errMsg = 'Given <password> is incorrect. ' . $mysqlError;
                } else {
                    $errMsg = 'Unable to connect database. The reason of problem: ' . $mysqlError . PHP_EOL;
                }
                $this->_logError($errMsg);
            }
            @mysql_select_db($database, $this->_dbHandler);
        } else if ( extension_loaded('mysqli') ) {

            $this->_dbHandler = @mysqli_connect($host, $user, $passwd, $database, $port);
            if (!$this->_dbHandler) {
                $mysqlError = mysqli_connect_error();
                if (stristr($mysqlError, 'access denied for user')) {
                    $errMsg = 'Given <password> is incorrect. ' . $mysqlError;
                } else {
                    $errMsg = 'Unable to connect database. The reason of problem: ' . $mysqlError . PHP_EOL;
                }
                $this->_logError($errMsg);
            }
        } else {
            Log::fatal("No MySQL extension is available");
        }
    }
    
    function fetchAll($sql)
    {
        if ( extension_loaded('mysql') ) {
            $res = mysql_query($sql, $this->_dbHandler);
            if (!is_resource($res)) {
                $this->_logError('Unable to execute query. Error: ' . mysql_error($this->_dbHandler));
            }
            $rowset = array();
            while ($row = mysql_fetch_assoc($res)) {
                $rowset[] = $row;
            }
            return $rowset;
        } else if ( extension_loaded('mysqli') ) {
            $res = $this->_dbHandler->query($sql);
            if ($res === false) {
                $this->_logError('Unable to execute query. Error: ' . mysqli_error($this->_dbHandler));
            }
            $rowset = array();
            while ($row = mysqli_fetch_assoc($res)) {
                $rowset[] = $row;
            }
            return $rowset;
        } else {
            Log::fatal("No MySQL extension is available");
        }
    }
    
    function fetchOne($sql)
    {
        if ( extension_loaded('mysql') ) {
            $res = mysql_query($sql, $this->_dbHandler);
            if (!is_resource($res)) {
                $this->_logError('Unable to execute query. Error: ' . mysql_error($this->_dbHandler));
            }
            $row = mysql_fetch_row($res);
            return $row[0];
        } else if ( extension_loaded('mysqli') ) {
            $res = $this->_dbHandler->query($sql);
            if ($res === false) {
                $this->_logError('Unable to execute query. Error: ' . mysqli_error($this->_dbHandler));
            }
            $row = mysqli_fetch_row($res);
            return $row[0];
        } else {
            Log::fatal("No MySQL extension is available");
        }
    }    
    
    function query($sql)
    {
        if ( extension_loaded('mysql') ) {
            $res = mysql_query($sql, $this->_dbHandler);
            if ($res === false ) {
                $this->_logError('Unable to execute query. Error: ' . mysql_error($this->_dbHandler) );
            }
            return $res;
        } else if ( extension_loaded('mysqli') ) {
            $res = $this->_dbHandler->query($sql);
            if ($res === false ) {
                $this->_logError('Unable to execute query. Error: ' . mysqli_error($this->_dbHandler) );
            }
            return $res;
        } else {
            Log::fatal("No MySQL extension is available");
        }
    }    
    
    function _logError($message)
    {
        $message = "[MYSQL ERROR] $message";
        Log::fatal($message);
    }
}

class DbClientMysql extends DbMysql
{
    var $errors = array();

    function _logError($message)
    {
        $message = "[MYSQL ERROR] $message";
        Log::warning($message);
        $this->errors[] = $message;
    }

    function hasErrors() {
        return count($this->errors) > 0;
    }
}

class DbJet
{
    var $_dbHandler = null;
    
    function DbJet($dbPath)
    {
        $dsn = "Provider='Microsoft.Jet.OLEDB.4.0';Data Source={$dbPath}";
        $this->_dbHandler = new COM("ADODB.Connection", NULL, CP_UTF8);
        if (!$this->_dbHandler) {
            $this->_logError('Unable to init ADODB.Connection');
        }
        
        $this->_dbHandler->open($dsn);
    }
    
    function fetchAll($sql)
    {
        $result_id = $this->_dbHandler->execute($sql);
        if (!$result_id) {
            $this->_logError('Unable to execute sql query ' . $sql);
        }
		if ($result_id->BOF && !$result_id->EOF) {
            $result_id->MoveFirst();
		}
		if ($result_id->EOF) {
		    return array();
		}
		
		$rowset = array();
		while(!$result_id->EOF) {
    		$row = array();
    		for ($i=0;$i<$result_id->Fields->count;$i++) {
                $field = $result_id->Fields($i);
                $row[$field->Name] = (string)$field->value;
    		}
    		$result_id->MoveNext();
    		$rowset[] = $row;
		}
		return $rowset;
    }
    
    function fetchOne($sql)
    {
        $result_id = $this->_dbHandler->execute($sql);
        if (!$result_id) {
            $this->_logError('Unable to execute sql query ' . $sql);
        }
		if ($result_id->BOF && !$result_id->EOF) {
            $result_id->MoveFirst();
		}
		if ($result_id->EOF) {
		    //Log::fatal('Unable to find row');
		    return null;
		}
        $field = $result_id->Fields(0);
        $result = $field->value;
        
        return (string)$result;
    }
    
    function _logError($message)
    {
        $message = "[JET ERROR] $message";
        Log::fatal($message);
    }
}

class DbMsSql extends DbJet
{
    function DbMsSql($host, $user, $passwd, $database, $port)
    {
        $dsn = "Provider=SQLOLEDB.1;Initial Catalog={$database};Data Source={$host}";
        $this->_dbHandler = new COM("ADODB.Connection", NULL, CP_UTF8);
        if (!$this->_dbHandler) {
            $this->_logError('Unable to init ADODB.Connection');
        }
        $this->_dbHandler->open($dsn, $user, $passwd);
    }
    
    function _logError($message)
    {
        $message = "[MSSQL ERROR] $message";
        Log::fatal($message);
    }
}

class Util
{
    function isWindows()
    {
        if (strtoupper(substr(PHP_OS, 0, 3)) === 'WIN') {
            return true;
        }
        return false;
    }
    
    function isLinux()
    {
        return !Util::isWindows();
    }
    
    function isVz()
    {
        $vz = false;
        if (Util::isLinux()) {
            if (file_exists('/proc/vz/veredir')) {
                $vz = true;
            }
        } else {
            $reg = 'REG QUERY "HKLM\SOFTWARE\SWsoft\Virtuozzo" 2>nul';
            Util::exec($reg, $code);
            if ($code==0) {
                $vz = true;
            }
        }
        return $vz;
    }
    
    function getArch()
    {
        global $arch;
        if (!empty($arch))
            return $arch;

        $arch = 'i386';
        if (Util::isLinux()) {
            $cmd = 'uname -m';
            $x86_64 = 'x86_64';
            $output = Util::exec($cmd, $code);
            if (!empty($output) && stristr($output, $x86_64)) {
                $arch = 'x86_64';
            }
        } else {
            $cmd = 'systeminfo';
            $output = Util::exec($cmd, $code);
            if (preg_match('/System Type:[\s]+(.*)/', $output, $macthes) && stristr($macthes[1], '64')) {
                $arch = 'x86_64';
            }
        }
        return $arch;
    }
    
    function getHostname()
    {
        if (Util::isLinux()) {
            $cmd = 'hostname -f';
        } else {
            $cmd = 'hostname';
        }
        $hostname = Util::exec($cmd, $code);
        
        if (empty($hostname)) {
        	$err = 'Command: ' . $cmd . ' returns: ' . $hostname . "\n";
        	$err .= 'Hostname is not defined and configured. Unable to get hostname. Server should have properly configured hostname and it should be resolved locally.';
            Log::fatal($err);
        }
        
        return $hostname;
    }
    
    function isFQDN($string)
    {
    	$tld_list = array(
                'aero', 'asia', 'biz', 'cat', 'com', 'coop', 'edu', 'gov', 'info', 'int', 'jobs', 'mil', 'mobi', 'museum', 'name', 'net', 
    			'org', 'pro', 'tel', 'travel', 'xxx', 'ac', 'ad', 'ae', 'af', 'ag', 'ai', 'al', 'am', 'an', 'ao', 'aq', 'ar', 'as', 'at', 
    			'au', 'aw', 'ax', 'az', 'ba', 'bb', 'bd', 'be', 'bf', 'bg', 'bh', 'bi', 'bj', 'bm', 'bn', 'bo', 'br', 'bs', 'bt', 'bv', 
    			'bw', 'by', 'bz', 'ca', 'cc', 'cd', 'cf', 'cg', 'ch', 'ci', 'ck', 'cl', 'cm', 'cn', 'co', 'cr', 'cs', 'cu', 'cv', 'cx', 
    			'cy', 'cz', 'dd', 'de', 'dj', 'dk', 'dm', 'do', 'dz', 'ec', 'ee', 'eg', 'eh', 'er', 'es', 'et', 'eu', 'fi', 'fj', 'fk', 
    			'fm', 'fo', 'fr', 'ga', 'gb', 'gd', 'ge', 'gf', 'gg', 'gh', 'gi', 'gl', 'gm', 'gn', 'gp', 'gq', 'gr', 'gs', 'gt', 'gu', 
    			'gw', 'gy', 'hk', 'hm', 'hn', 'hr', 'ht', 'hu', 'id', 'ie', 'il', 'im', 'in', 'io', 'iq', 'ir', 'is', 'it', 'je', 'jm', 
    			'jo', 'jp', 'ke', 'kg', 'kh', 'ki', 'km', 'kn', 'kp', 'kr', 'kw', 'ky', 'kz', 'la', 'lb', 'lc', 'li', 'lk', 'lr', 'ls', 
    			'lt', 'lu', 'lv', 'ly', 'ma', 'mc', 'md', 'me', 'mg', 'mh', 'mk', 'ml', 'mm', 'mn', 'mo', 'mp', 'mq', 'mr', 'ms', 'mt', 
    			'mu', 'mv', 'mw', 'mx', 'my', 'mz', 'na', 'nc', 'ne', 'nf', 'ng', 'ni', 'nl', 'no', 'np', 'nr', 'nu', 'nz', 'om', 'pa', 
    			'pe', 'pf', 'pg', 'ph', 'pk', 'pl', 'pm', 'pn', 'pr', 'ps', 'pt', 'pw', 'py', 'qa', 're', 'ro', 'rs', 'ru', 'rw', 'sa', 
    			'sb', 'sc', 'sd', 'se', 'sg', 'sh', 'si', 'sj', 'sk', 'sl', 'sm', 'sn', 'so', 'sr', 'ss', 'st', 'su', 'sv', 'sy', 'sz', 
    			'tc', 'td', 'tf', 'tg', 'th', 'tj', 'tk', 'tl', 'tm', 'tn', 'to', 'tp', 'tr', 'tt', 'tv', 'tw', 'tz', 'ua', 'ug', 'uk', 
    			'us', 'uy', 'uz', 'va', 'vc', 've', 'vg', 'vi', 'vn', 'vu', 'wf', 'ws', 'ye', 'yt', 'za', 'zm', 'zw' );
    
    	$label = '[a-zA-Z0-9\-]{1,62}\.';
    	$tld = '[\w]+';
    	if(preg_match( '/^(' . $label. ')+(' . $tld . ')$/', $string, $match ) && in_array( $match[2], $tld_list )) {
    		return TRUE;
    	} else {
    		return FALSE;
    	}
    
    }
    
    function resolveHostname($hostname)
    {
    	$dns_record = dns_get_record($hostname, DNS_A | DNS_AAAA);

    	if (isset($dns_record[0]['ip'])) {
    		return $dns_record[0]['ip'];
    	} 
    	if (isset($dns_record[0]["ipv6"])) {
    		return $dns_record[0]['ipv6'];
    	}
    	
    	return null;
    }

    function getIP()
    {
        $list = Util::getIPList();
        return $list[0]; //main IP
    }
    
    function getIPList($lo=false)
    {
        if (Util::isLinux()) {
            $ifconfig = Util::lookupCommand('ifconfig');
            $output = Util::exec("{$ifconfig} -a", $code);
            if (!preg_match_all('/inet addr:([0-9\.]+)/', $output, $matches)) {
                Log::fatal('Unable to get IP address');
            }
            $ipList = $matches[1];
            foreach ($ipList as $key => $ip) {
                if (!$lo && substr($ip, 0, 3) == '127') {
                    unset($ipList[$key]);
                    continue;
                }
                trim($ip);
            }
            $ipList = array_values($ipList);
        } else {
            $cmd = 'hostname';
            $hostname = Util::exec($cmd, $code);
            $ip = gethostbyname($hostname);
            $res = ($ip != $hostname) ? true : false;
            if (!$res) {
                Log::fatal('Unable to retrieve IP address');
            }
            $ipList = array(trim($ip));
        }
        return $ipList;
    }
    
    function getIPv6ListOnLinux()
    {
    	$ifconfig = Util::lookupCommand('ifconfig');
    	$output = Util::exec("{$ifconfig} -a", $code);
    	if (!preg_match_all('/inet6 addr: ?([^ ][^\/]+)/', $output, $matches)) {
    		return;
    	}
    	return $matches[1];
    }
    
    function getIPv4ListOnLinux()
    {
    	$ifconfig = Util::lookupCommand('ifconfig');
    	$output = Util::exec("{$ifconfig} -a", $code);
    	if (!preg_match_all('/inet addr: ?([^ ]+)/', $output, $matches)) {
    		Log::fatal('Unable to get IP address');
    	}
    	return $matches[1];
    }
    
    function getIPListOnWindows()
    {
    	$cmd = 'wmic.exe path win32_NetworkAdapterConfiguration get IPaddress';
    	$output = Util::exec($cmd, $code);
    	if (!preg_match_all('/"(.*?)"/', $output, $matches)) {
    		Log::fatal('Unable to get IP address');
    	}
    	return $matches[1];
    }
    
    function getPleskRootPath()
    {
        global $_pleskRootPath;
        if (empty($_pleskRootPath)) {
            if (Util::isLinux()) {
                if (PleskOS::isDebLike()) {
                    $_pleskRootPath = '/opt/psa';
                } else {
                    $_pleskRootPath = '/usr/local/psa';
                }
            }
            if (Util::isWindows()) {
                $_pleskRootPath = Util::regPleskQuery('PRODUCT_ROOT_D', true);
            }
        }
        return $_pleskRootPath;
    }
    
    function getPleskDbName()
    {
        $dbName = 'psa';
        if (Util::isWindows()) {
            $dbName = Util::regPleskQuery('mySQLDBName');
        }
        return $dbName;
    }
    
    function getPleskDbLogin()
    {
        $dbLogin = 'admin';
        if (Util::isWindows()) {
            $dbLogin = Util::regPleskQuery('PLESK_DATABASE_LOGIN');
        }
        return $dbLogin;
    }
    
    function getPleskDbType()
    {
        $dbType = 'mysql';
        if (Util::isWindows()) {
            $dbType = strtolower(Util::regPleskQuery('PLESK_DATABASE_PROVIDER_NAME'));
        }
        return $dbType;
    }
    
    function getPleskDbHost()
    {
    	$dbHost = 'localhost';
    	if (Util::isWindows()) {
    		$dbProvider = strtolower(Util::regPleskQuery('PLESK_DATABASE_PROVIDER_NAME'));
    		if ($dbProvider == 'mysql' || $dbProvider == 'mssql') {
    			$dbHost = Util::regPleskQuery('MySQL_DB_HOST');
    		}
    	}
    	return $dbHost;
    }
    
    function getPleskDbPort()
    {
        $dbPort = '3306';
        if (Util::isWindows()) {
            $dbPort = Util::regPleskQuery('MYSQL_PORT');
        }
        return $dbPort;
    }    
    
    function regPleskQuery($key, $returnResult=false)
    {
        $arch = Util::getArch();
        if ($arch == 'x86_64') {
            $reg = 'REG QUERY "HKLM\SOFTWARE\Wow6432Node\Plesk\Psa Config\Config" /v '.$key; 
        } else {
            $reg = 'REG QUERY "HKLM\SOFTWARE\Plesk\Psa Config\Config" /v '.$key;
        }
        $output = Util::exec($reg, $code);
        
        if ($returnResult && $code!=0) {
            return false;
        }
        
        if ($code!=0) {
            Log::info($reg);
            Log::info($output);
            Log::fatal("Unable to get '$key' from registry");
        }
        if (!preg_match("/\w+\s+REG_SZ\s+(.*)/i", trim($output), $matches)) {
            Log::fatal('Unable to macth registry value by key '.$key.'. Output: ' .  trim($output));
        }
        
        return $matches[1];
    }
    
    function regQuery($path, $key, $returnResult=false)
    {
    	$arch = Util::getArch();
    	if ($arch == 'x86_64') {
    		$reg = 'REG QUERY "HKLM\SOFTWARE\Wow6432Node' . $path .  '" '.$key; 
    	} else {
    		$reg = 'REG QUERY "HKLM\SOFTWARE' . $path .  '" '.$key;
    	}
    	$output = Util::exec($reg, $code);
    
    	if ($returnResult && $code!=0) {
    		return false;
    	}
    
    	if ($code!=0) {
    		Log::info($reg);
    		Log::info($output);
    		Log::fatal("Unable to get '$key' from registry");
    	}
    	if (!preg_match("/\s+REG_SZ|REG_DWORD\s+(.*)/i", trim($output), $matches)) {
    		Log::fatal('Unable to match registry value by key '.$key.'. Output: ' .  trim($output));
    	}
    
    	return $matches[1];
    }    
    
    function getAutoinstallerVersion()
    {
    	if (Util::isLinux()) {
    		$rootPath = Util::getPleskRootPath();
    		$cmd = $rootPath . '/admin/sbin/autoinstaller --version';
    		$output = Util::exec($cmd, $code);
    	} else {
    		$cmd = '"' . Util::regPleskQuery('PRODUCT_ROOT_D', true) . 'admin\bin\ai.exe" --version';
    		$output = Util::exec($cmd, $code);
    	}
    	if (!preg_match("/\d+\.\d+\.\d+/", trim($output), $matches)) {
    		Log::fatal('Unable to match autoinstaller version. Output: ' .  trim($output));
    	}
    	return $matches[0];
    }
    
    function lookupCommand($cmd, $path = '/bin:/usr/bin:/usr/local/bin:/usr/sbin:/sbin:/usr/local/sbin', $exit = true)
    {
        $dirs = explode(':', $path);
        foreach ($dirs as $dir) {
            $util = $dir . '/' . $cmd;
            if (is_executable($util)) {
                return $util;
            }
        }
        if ($exit) {
            Log::fatal("{$cmd}: command not found");
        }
    }
    
    function getSystemDisk()
    {
    	$cmd = 'echo %SYSTEMROOT%';
    	$output = Util::exec($cmd, $code);
    	return substr($output, 0, 3);
    }
    
    function getSystemRoot()
    {
    	$cmd = 'echo %SYSTEMROOT%';
    	$output = Util::exec($cmd, $code);
    	return $output;
    }
    
    function getFileVersion($file)
    {
    	$fso = new COM("Scripting.FileSystemObject");
    	$version = $fso->GetFileVersion($file);
    	$fso = null;
    	return $version;
    }
    
    function isUnknownISAPIfilters()
    {
        $isUnknownISAPI = false;
        $knownISAPI = array ("ASP\\.Net.*", "sitepreview", "COMPRESSION", "jakarta");

        foreach ($knownISAPI as &$value) {
            $value = strtoupper($value);
        }
        $cmd='cscript ' . Util::getSystemDisk() . 'inetpub\AdminScripts\adsutil.vbs  ENUM W3SVC/FILTERS';
        $output = Util::exec($cmd,  $code);
        
        if ($code!=0) {
            Log::info("Unable to get ISAPI filters. Error: " . $output);
            return false;
        }
        if (!preg_match_all('/FILTERS\/(.*)]/', trim($output), $matches)) {
            Log::info($output);
            Log::info("Unable to get ISAPI filters from output: " . $output);
            return false;
        }
        foreach ($matches[1] as $ISAPI) {
            $valid = false;
            foreach ($knownISAPI as $knownPattern) {
                if (preg_match("/$knownPattern/i", $ISAPI)) {
                    $valid = true;
                    break;
                }
            }
            if (! $valid ) {
                Log::warning("Unknown ISAPI filter detected in IIS: " . $ISAPI);
                $isUnknownISAPI = true;
            }
        }

        return $isUnknownISAPI;
    }
    
    function getMySQLServerVersion()
    {
    	$credentials = Util::getDefaultClientMySQLServerCredentials();
    	
    	if (!Util::isLinux() && preg_match('/AES-128-CBC/', $credentials['admin_password'])) {
    		Log::info('Password for default MySQL server is encrypted.');
    		return;
    	}
   
    	$mysql = new DbClientMysql('localhost', $credentials['admin_login'], $credentials['admin_password'] , 'information_schema', 3306);
    	if (!$mysql->hasErrors()) {
    		$sql = 'select version()';
    		$mySQLversion = $mysql->fetchOne($sql);
    		if (!preg_match("/(\d{1,})\.(\d{1,})\.(\d{1,})/", trim($mySQLversion), $matches)) {
    			Log::fatal('Unable to match MySQL server version.');
    		}
    		return $matches[0];
    	}
    }
    
    function getDefaultClientMySQLServerCredentials()
    {
    	$db = PleskDb::getInstance();
    	$sql = "SELECT DatabaseServers.admin_login, DatabaseServers.admin_password FROM DatabaseServers WHERE type='mysql' AND host='localhost'";
    	$clientDBServerCredentials = $db->fetchAll($sql);
    	if (Util::isLinux()) {
    		$clientDBServerCredentials[0]['admin_password'] = Util::retrieveAdminMySQLDbPassword();
    	}
    	
     	return $clientDBServerCredentials[0];
    }

	function retrieveAdminMySQLDbPassword()
	{
		if (Util::isLinux())
			return trim( Util::readfile("/etc/psa/.psa.shadow") );
		else
			return null;
	}
    
    function exec($cmd, &$code)
    {
        exec($cmd, $output, $code);
        return trim(implode("\n", $output));
    }

	function readfile($file)
	{
		if (!is_file($file) || !is_readable($file))
			return null;
		$lines = file($file);
		if ($lines === false)
			return null;
		return trim(implode("\n", $lines));
	}
	
	function readfileToArray($file)
	{
		if (!is_file($file) || !is_readable($file))
			return null;
		$lines = file($file);
		if ($lines === false)
			return null;
		return $lines;
	}
	
	function getSettingFromPsaConf($setting)
	{
		$file = '/etc/psa/psa.conf';
		if (!is_file($file) || !is_readable($file))
			return null;
		$lines = file($file);
		if ($lines === false)
			return null;
		foreach ($lines as $line) {
			if (preg_match("/^{$setting}\s.*/", $line, $match_setting)) {
				if (preg_match("/[\s].*/i", $match_setting[0], $match_value)) {
					$value = trim($match_value[0]);
					return $value;
				}
			}
		}
		return null;
	}
	
	function GetFreeSystemMemory()
	{
		if (Util::isLinux()) {
			$cmd = 'cat /proc/meminfo';
			$output = Util::exec($cmd, $code);
			if (preg_match("/MemFree:.+?(\d+)/", $output, $MemFree)) {
				if (preg_match("/SwapFree:.+?(\d+)/", $output, $SwapFree)) {
					return $MemFree[1] + $SwapFree[1]; // returns value in Kb
				}
			}
		} else {
			$cmd = 'wmic.exe OS get FreePhysicalMemory';
			$output = Util::exec($cmd, $code);
			if (preg_match("/\d+/", $output, $FreePhysicalMemory)) {
				$cmd = 'wmic.exe PAGEFILE get AllocatedBaseSize';
				$output = Util::exec($cmd, $code);
				if (preg_match("/\d+/", $output, $SwapAllocatedBaseSize)) {
					$cmd = 'wmic.exe PAGEFILE get CurrentUsage';
					$output = Util::exec($cmd, $code);
					if (preg_match("/\d+/", $output, $SwapCurrentUsage)) {
						return $FreePhysicalMemory[0] + ($SwapAllocatedBaseSize[0] - $SwapCurrentUsage[0]) * 1000; // returns value in Kb
					}
				}
			}
		}
	}
	
	function getPhpIni()
	{
		if (Util::isLinux()) {
			// Debian/Ubuntu  /etc/php5/apache2/php.ini /etc/php5/conf.d/ 
			// SuSE  /etc/php5/apache2/php.ini /etc/php5/conf.d/
			// CentOS 4/5 /etc/php.ini /etc/php.d
			if (PleskOS::isRedHatLike()) {
				$phpini = Util::readfileToArray('/etc/php.ini');
			} else {
				$phpini = Util::readfileToArray('/etc/php5/apache2/php.ini');
			}
		}
		
		return $phpini;
	}
}

class PackageManager
{
	function buildListCmdLine($glob)
	{
		if (PleskOS::isRedHatLike() || PleskOS::isSuseLike()) {
			$cmd = "rpm -qa --queryformat '%{NAME} %{VERSION}-%{RELEASE} %{ARCH}\\n'";
		} elseif (PleskOS::isDebLike()) {
			$cmd = "dpkg-query --show --showformat '\${Package} \${Version} \${Architecture}\\n'";
		} else {
			return false;
		}

		if (!empty($glob)) {
			$cmd .= " '" . $glob . "'";
		}

		return $cmd;
	}

	/*
	 * Fetches a list of installed packages that match given criteria.
	 * string $glob - Glob (wildcard) pattern for coarse-grained packages selection from system package management backend. Empty $glob will fetch everything.
	 * string $regexp - Package name regular expression for a fine-grained filtering of the results.
	 * returns array of hashes with keys 'name', 'version' and 'arch', or false on error.
	 */
	function listInstalled($glob, $regexp = null)
	{
		$cmd = PackageManager::buildListCmdLine($glob);
		$output = Util::exec($cmd, $code);
		if ($code != 0) {
			return false;
		}

		$packages = array();
		$lines = explode("\n", $output);
		foreach ($lines as $line) {
			@list($pkgName, $pkgVersion, $pkgArch) = explode(" ", $line);
			if (empty($pkgName) || empty($pkgVersion) || empty($pkgArch))
				continue;
			if (!empty($regexp) && !preg_match($regexp, $pkgName))
				continue;
			$packages[] = array(
				'name' => $pkgName,
				'version' => $pkgVersion,
				'arch' => $pkgArch
			);
		}

		return $packages;
	}

	function isInstalled($glob, $regexp = null)
	{
		$packages = PackageManager::listInstalled($glob, $regexp);
		return !empty($packages);
	}
}

class Package
{
	function getManager($field, $package)
	{
	    $redhat = 'rpm -q --queryformat \'%{' . $field . '}\n\' ' . $package;
    	$debian = 'dpkg-query --show --showformat=\'${' . $field . '}\n\' '. $package;
    	$suse = 'rpm -q --queryformat \'%{' . $field . '}\n\' ' . $package;
    	$manager = false;
    	
    	if (PleskOS::isRedHatLike()) {
    		$manager = $redhat;
    	} elseif (PleskOS::isDebLike()) {
    		$manager = $debian;
    	} elseif (PleskOS::isSuseLike()) {
    		$manager = $suse;
    	} else {
    		return false;
    	}
    	
    	return $manager;
	}
	
	/* DPKG doesn't supports ${Release}
	 *  
	 */

	function getRelease($package)
	{
		$release = false;
		
		$manager = Package::getManager('Release', $package);
		
		if (!$manager) {
			return false;
		}		
		
		$release = Util::exec($manager, $code);
		if (!$code === 0) {
			return false;
		}
		return $release;
	}
	
	function getVersion($package)
	{
		$version = false;
		
		$manager = Package::getManager('Version', $package);
		
		if (!$manager) {
			return false;
		}
		
		$version = Util::exec($manager, $code);
		if (!$code === 0) {
			return false;
		}
		return $version;
	}
	
}

class PleskOS
{
    function isSuse103()
    {
        return PleskOS::_detectOS('suse', '10.3');
    }
    
    function isUbuntu804()
    {
        return PleskOS::_detectOS('ubuntu', '8.04');
    }
    
    function isDebLike()
    {
    	if (PleskOS::_detectOS('ubuntu', '.*')
    	|| PleskOS::_detectOS('debian', '.*')
    	) {
    		return true;
    	}
    	return false;
    }
    
    function isSuseLike()
    {
    	if (PleskOS::_detectOS('suse', '.*')) {
    		return true;
    	}
    	return false;
    }
    
    function isRedHatLike()
	{
		return (PleskOS::isRedHat() || PleskOS::isCentOS() || PleskOS::isCloudLinux());
    }
    
    
    function isRedHat()
    {
    	if (PleskOS::_detectOS('red hat', '.*')) {
    		return true;
    	}
    	return false;
    }
    
    function isCentOS()
    {
    	if (PleskOS::_detectOS('centos', '.*')) {
    		return true;
    	}
    	return false;
	}

	function isCloudLinux()
	{
		return PleskOS::_detectOS('CloudLinux', '.*');
	}
	
    function isWindows2003()
    {
    	if (!Util::isWindows()) {
    		return false;
    	}
    	
    	$version = Util::regQuery('\Microsoft\Windows NT\CurrentVersion', '/v CurrentVersion', true);
    	if (version_compare($version, '5.0', '>=') && version_compare($version, '6.0', '<')) {
    		return true;
    	}
    }
    
    function isWindows2008()
    {
    	if (!Util::isWindows()) {
    		return false;
    	}
    	 
    	$version = Util::regQuery('\Microsoft\Windows NT\CurrentVersion', '/v CurrentVersion', true);
    	if (version_compare($version, '6.0', '>=') && version_compare($version, '6.1', '<=')) {
    		return true;
    	}
    }
    
    function _detectOS($name, $version)
    {
		$output = PleskOS::catEtcIssue();
		// This is wrong in a general case! There might be additional text between name and version.
        if (!preg_match("/{$name}[\s]+$version/i", $output)) {
            return false;
        }
        return true;
    }
     
    function catEtcIssue()
    {
        $cmd = 'cat /etc/issue';
        $output = Util::exec($cmd, $code);
        
        return $output;
    }
    
    function detectSystem()
    {
        Log::step('Detect system configuration');
        
        Log::info('OS: ' . (Util::isLinux() ? PleskOS::catEtcIssue() : 'Windows'));
        Log::info('Arch: ' . Util::getArch());
    }
}

class PleskValidator
{
    function isValidIp($value)
    {
        if (!is_string($value)) {
            return false;
        }
        if (!PleskValidator::validateIPv4($value) && !PleskValidator::validateIPv6($value)) {
            return false;
        }
        return true;
    }
    
    function validateIPv4($value)
    {
        $ip2long = ip2long($value);
        if ($ip2long === false) {
            return false;
        }

        return $value == long2ip($ip2long);
    }

    function validateIPv6($value)
    {
        if (strlen($value) < 3) {
            return $value == '::';
        }

        if (strpos($value, '.')) {
            $lastcolon = strrpos($value, ':');
            if (!($lastcolon && PleskValidator::validateIPv4(substr($value, $lastcolon + 1)))) {
                return false;
            }

            $value = substr($value, 0, $lastcolon) . ':0:0';
        }

        if (strpos($value, '::') === false) {
            return preg_match('/\A(?:[a-f0-9]{1,4}:){7}[a-f0-9]{1,4}\z/i', $value);
        }

        $colonCount = substr_count($value, ':');
        if ($colonCount < 8) {
            return preg_match('/\A(?::|(?:[a-f0-9]{1,4}:)+):(?:(?:[a-f0-9]{1,4}:)*[a-f0-9]{1,4})?\z/i', $value);
        }

        // special case with ending or starting double colon
        if ($colonCount == 8) {
            return preg_match('/\A(?:::)?(?:[a-f0-9]{1,4}:){6}[a-f0-9]{1,4}(?:::)?\z/i', $value);
        }
        
        return false;
    }
}

class CheckRequirements
{
    function validate()
    {
        if (!PleskInstallation::isInstalled()) {
            //:INFO: skip chking mysql extension if plesk is not installed
            return;
        }
         
        $reqExts = array();
        foreach ($reqExts as $name) {
            $status = extension_loaded($name);
            if (!$status) {
                $this->_fail("PHP extension {$name} is not installed");
            }
        }
    }
    
    function _fail($errMsg)
    {
        echo '===Checking requirements===' . PHP_EOL;
        echo PHP_EOL . 'Error: ' . $errMsg . PHP_EOL;
        exit(1);
    }
}

class GetOpt
{
    var $_argv = null;
	var $_adminDbPasswd = null;
    
    function GetOpt()
    {
        $this->_argv = $_SERVER['argv'];
		if (empty($this->_argv[1]) && Util::isLinux())
			$this->_adminDbPasswd = Util::retrieveAdminMySQLDbPassword();
		else
			$this->_adminDbPasswd = $this->_argv[1];
    }
    
    function validate()
    {
        if (empty($this->_adminDbPasswd) && PleskInstallation::isInstalled()) {
            echo 'Please specify Plesk database password';
            $this->_helpUsage();
        }
    }
    
    function getDbPasswd()
    {
        return $this->_adminDbPasswd;
    }
    
    function _helpUsage()
    {
        echo PHP_EOL . "Usage: {$this->_argv[0]} <plesk_db_admin_password>" . PHP_EOL;
        exit(1);
    }
}

$emergency = 0;
$errors = $warnings = 0;

//:INFO: Validate options
$options = new GetOpt();
$options->validate();

//:INFO: Validate PHP requirements, need to make sure that PHP extensions are installed
$checkRequirements = new CheckRequirements();
$checkRequirements->validate();

//:INFO: Validate Plesk installation
$pleskInstallation = new PleskInstallation();
$pleskInstallation->validate();

//:INFO: Detect system
$pleskOs = new PleskOS();
$pleskOs->detectSystem();

//:INFO: Need to make sure that given db password is valid
if (PleskInstallation::isInstalled()) {
    Log::step('Validation of given db password');
    $pleskDb = PleskDb::getInstance();
    Log::resultOk();
}

//:INFO: Dump script version
Log::step('Pre-Upgrade analyzer version: ' . PRE_UPGRADE_SCRIPT_VERSION);

// Check for possible Autoinstaller problems
$aiKnownIssues = new AutoinstallerKnownIssues();
$aiKnownIssues->validate();

//:INFO: Check potential problems you may encounter during transition to Plesk 10 model.
$pleskBusinessModel = new Plesk10BusinessModel();
$pleskBusinessModel->validate();

//:INFO: Validate Plesk requirements before installation/upgrade
$pleskRequirements = new Plesk10Requirements();
$pleskRequirements->validate();

//:INFO: Validate issues related to Mail system
$pleskMailServer = new Plesk10MailServer();
$pleskMailServer->validate();

//:INFO: Validate issues related to Skin
$pleskSkin = new Plesk10Skin();
$pleskSkin->validate();

//:INFO: Validate issues related to Permissions
$pleskPermissions = new Plesk10Permissions();
$pleskPermissions->validate();

//:INFO: Validate known OS specific issues with recommendation to avoid bugs in Plesk
$pleskKnownIssues = new Plesk10KnownIssues();
$pleskKnownIssues->validate();

Log::dumpStatistics();

if ($emergency > 0) {
	exit(2);
}

if ($errors > 0 || $warnings > 0) {
	exit(1);
}