ssv3_probe.php

<?php

error_reporting(0);
@ini_set('cgi.fix_pathinfo', 1);

/**
 * PHP MKDIR
 *
 * Check the directory and it's parent to see if we can mkdir() on the server.
 * - removed the 777 check on the parent directory. Breaking EIG Windows Brands
 *
 * The process is to define a temporary directory name, make the directory, then
 * remove the directory.
 */
$phpMkDir = 0;
$ssTempDirectory = @dirname(__FILE__) . DIRECTORY_SEPARATOR . @uniqid('ss_tmp_');
@mkdir($ssTempDirectory, 0755);
if (@is_dir($ssTempDirectory)) {
	$phpMkDir = 1;
	@rmdir($ssTempDirectory);
}

/**
 * Check the PHP SAPI
 *
 * We need to check the type of Server API PHP is using on the remote server. This
 * will process the PHP_SAPI variable and return what the server is running.
 */
$sapi = PHP_SAPI;
// apache
if (substr(PHP_SAPI, 0, 6) == 'apache') {
	$sapi = 'apache';
}

//cgi / fast-cgi
if (substr(PHP_SAPI, 0, 3) == 'cgi') {
	$sapi = 'cgi';
	if (empty($_SERVER['FCGI_ROLE']) && empty($_ENV['FCGI_ROLE'])) {
		$sapi = 'fast_cgi';
	}
}

// phpinfo
@ob_start();
@phpinfo(INFO_GENERAL);
$phpInfo = @ob_get_contents();
@ob_end_clean();

// ionCube Loader name
$threadSafe = false;
$osCode = @strtolower(@substr(PHP_OS, 0, 3));
$version = @substr(PHP_VERSION, 0, 3);
foreach (@explode("\n", $phpInfo) as $line) {
	if (@preg_match('/thread safety.*(enabled|yes)/Ui', $line)) {
		$threadSafe = true;
	}
}
$ioncubeFirst = 'ioncube_loader_' . $osCode . '_' . $version;
$ioncube = $ioncubeFirst . ((true === $threadSafe) ? '_ts' : '') . (($osCode == 'win') ? '.dll' : '.so');

$domain = @explode('.', @php_uname('n'));
$optimizer = (preg_match('#Zend(?:\s|&nbsp;)+Optimizer(?:\s|&nbsp;)+v(\d+\.\d+\.\d+)#si', $phpInfo, $m)) ? $m[1] : 0;
$mysqlVersion = (extension_loaded('mysql') && function_exists('mysql_get_client_info')) ? mysql_get_client_info() : '';
$settings = array(
	'status' => '200',
	'passthrough' => 0,
	'tar' => 0,
	'panel' => 'other',
	'whoami' => '',
	'cwd' => @getcwd(),
	'server' => array(
		'os' => strtolower(PHP_OS),
		'type' => php_uname('m'),
	),
	'mysql' => array(
		'version' => $mysqlVersion,
	),
	/*
	'pgsql' => array(
		'version' => ((extension_loaded('pgsql') && function_exists('pg_version')) ? pg_version() : ''),
	),
	*/
	'host' => $domain[count($domain) - 2],
	'docroot' => dirname(__FILE__),
	'timezone' => date("T"),
	'diskfree' => intval(@disk_free_space(__DIR__)),
	'php' => array(
		'version' => PHP_VERSION,
		'sapi' => $sapi,
		'PHP_SAPI' => PHP_SAPI,
		'passthru' => ((function_exists('passthru')) ? 1 : 0),
		'ioncube_loader' => $ioncube,
		'zend' => array(
			'optimizer' => $optimizer,
			'extensions' => get_loaded_extensions('true'),
			'engine_version' => @zend_version()
		),
		/** 
		* If you want to change any INI settings, this defines how they can be changed based on the
		* access value in the ini_get_all() array:
		* @see http://ca.php.net/manual/en/configuration.changes.modes.php
		*
		* 1: PHP_INI_USER: Entry can be set in user scripts (like with ini_set()) or in the Windows registry
		* 4: PHP_INI_SYSTEM: Entry can be set in php.ini or httpd.conf
		* 6: PHP_INI_PERDIR: Entry can be set in php.ini, .htaccess or httpd.conf
		* 7: PHP_INI_ALL: Entry can be set anywhere
		*/
		'ini' => ini_get_all(),
		'extensions' => get_loaded_extensions(),
		'functions' => get_defined_functions(),
	),
	'perl' => array(
		'version' => 0,
		'path' => '',
	),
);
foreach ($settings['php']['functions']['internal'] as $i => $func) {
	if (!preg_match('/^[\w_]*$/', $func)) {
		unset( $settings['php']['functions']['internal'][$i] );
	}
}

/**
 * Process the Passthru Variables
 *
 * We want to use some other commands to check other system settings
 */
ob_start();
passthru("date");
$date = ob_get_contents();
ob_end_clean();
$settings['passthru'] = (false === empty($date)) ? 1 : 0;

// For non-windows Systems
if ($osCode !== 'win' && $settings['passthru'] == 1) {
	// check tar
	$output = get_setting('tar --version | grep tar');
	$settings['tar'] = (false !== strpos($output, 'tar')) ? 1 : 0;

	//Perl Version
	$output = get_setting('perl -v');
	preg_match("/v(\d+\.\d+\.\d+)/", $output, $perl);
	$settings['perl']['version'] = $perl[1];

	// Perl path
	$output = get_setting('which perl');
	$settings['perl']['path'] = trim($output);

	// Perl Modules
	// perl -MFile::Find=find -MFile::Spec::Functions -Tlwe
	//  'find { wanted => sub { print canonpath $_ if /\.pm\z/ }, no_chdir => 1 }, @INC'
	// perl -MFile::Find=find -Tlwe 'for $inc (@INC)
	//  { find { wanted => sub
	//      { return if !/\.pm\z/;
	// 		($a=$File::Find::name)=~s|^\Q$inc\E/||;
	//      $a =~ s/\//::/g; $a =~ s/(.*)\.pm$//g;print $1 },
	//      no_chdir => 1 },
	//  $inc }'
	// $output = get_setting($cmd);

	// username
	$output = get_setting('whoami');
	$settings['whoami'] = trim($output);

	//Control Panel type
	$output = get_setting('head -n 1 /etc/psa/psa.conf 2>&1');
	$psatest = trim($output);

	// Plesk
	if (substr($psatest, 0, 1) == '#') {
		$settings['panel'] = 'plesk';

		// get list of domains ??
		$output = get_setting('mysql -uadmin -p`cat /etc/psa/.psa.shadow` psa -Ns -e "select name from domains"');
		$settings['domains'] = $output;

		// get plesk version ??
		$output = get_setting('cat /usr/local/psa/version');
		$settings['plesk_version'] = $output;

		// http://download1.parallels.com/Plesk/PP10/10.1.1/Doc/en-US/online/plesk-unix-cli/37894.htm
		//    /usr/local/psa/bin/<utility name> [parameters] [options]
		// '/usr/local/psa/bin/subdomain --info -domain DOMAIN.COM';

	} else {

		// CPANEL
		// older versions of cPanel store the domain name information
		// this needs to be updated to work for ALL versions
		if (file_exists('/usr/local/cpanel/bin/cpmysqlwrap') || file_exists('/usr/local/cpanel/bin/mysqlwrap')) {
			$settings['panel'] = 'cpanel';
			// /usr/local/cpanel/cpanel -V
			/*
			THIS SECTION IS BORKING THINGS ON SOME CPANEL LOCATIONS

			$domains = array();
			// old version of getting domain information from cpanel
			$cmd = "perl -e 'use Storable qw(retrieve); use YAML; print YAML::Dump(retrieve (((getpwuid $<)[7]).\"/.cpanel/datastore/apache_LISTSUBDOMAINS_0\"));'";
			$output = get_setting($cmd);
			$lines = explode("\n", $output);
			$subdomains = array();
			foreach ($lines as $line) {
				$lineParts = explode(":", trim($line));
				if (preg_match("/^([a-zA-Z0-9\-\_\.]+)$/", $lineParts[0])) {
					array_push($subdomains, str_replace("_", ".", $lineParts[0]));
				}
			}

			// old version of getting other domain information from cpanel
			$cmd = "perl -e 'use Storable qw(retrieve); use YAML; print YAML::Dump(retrieve (((getpwuid $<)[7]).\"/.cpanel/datastore/apache_LISTMULTIPARKED_0\"));'";
			$output = get_setting($cmd);
			$lines = explode("\n", $output);

			foreach ($lines as $line) {
				$lineParts = explode(":", trim($line));
				if (!in_array($lineParts[0], $subdomains)) {
					if (preg_match("/^([a-zA-Z0-9\-\_\.]+)$/", $lineParts[0])) {
					    $domainName = $lineParts[0] . "^" . trim(str_replace(array(dirname(__FILE__), dirname(__FILE__)), '', trim($lineParts[1])), "/");
						array_push($domains, $domainName);
					}
				}
			}

			$cmd = "perl -e 'use Storable qw(retrieve); use YAML; print YAML::Dump(retrieve (((getpwuid $<)[7]).\"/.cpanel/datastore/apache_LISTSUBDOMAINS_0\"));'";
			$output = get_setting($cmd);
			$lines = explode("\n", $output);
			foreach ($lines as $line) {
				$lineParts = explode(":", trim($line));
				if (preg_match("/^([a-zA-Z0-9\-\_\.]+)$/", $lineParts[0])) {
					if (substr($lineParts[0], 0, 1) != "-") {
					    $domainName = $lineParts[0] . "^" . trim(str_replace(array(dirname(__FILE__), dirname(__FILE__)), '', trim($lineParts[1])), "/");
						array_push($domains, str_replace("_", ".", $domainName));
					}
				}
			}
			sort($domains);
			$settings['domains'] = implode(";", $domains);

			THIS SECTION IS BORKING THINGS ON SOME CPANEL LOCATIONS
			*/
		} elseif (file_exists('/home/interworx')) {
			// INTERWORX
			$settings['panel'] = 'interworx';
			// this will force interworx to use mod_cgi
			if (substr(sprintf('%o', fileperms(dirname(__FILE__))), -3) == '777') {
				$settings['php_mkdir'] = 0;
			}
		} elseif (
			file_exists( './.membership' )
			|| (
				strpos( $settings['docroot'], 'public_html' )
				&& file_exists( '../.membership' )
			)
		) {
			$settings['panel'] = 'vdeck';
		} else {
			$settings['panel'] = 'other';
		}
	}
}

/**
 * Get Server Settings
 *
 * Run the passthrouhg to get
 *
 */
function get_setting($command = null) {
	if (!$command) {
		return false;
	}
	ob_start();
	passthru($command);
	$results = ob_get_contents();
	ob_end_clean();
	return $results;
}

//Output and Cleanup
//@unlink(__FILE__);
echo serialize($settings);
@unlink(__FILE__);