function eZSetupCheckExecutable($type)
{
$http = eZHTTPTool::instance();
$filesystemType = eZSys::filesystemType();
$envSeparator = eZSys::envSeparator();
$programs = eZSetupConfigVariableArray($type, $filesystemType . '_Executable');
$systemSearchPaths = explode($envSeparator, eZSys::path(true));
$additionalSearchPaths = eZSetupConfigVariableArray($type, $filesystemType . '_SearchPaths');
$excludePaths = eZSetupConfigVariableArray($type, $filesystemType . '_ExcludePaths');
$imageIniPath = eZSetupImageConfigVariableArray('ShellSettings', 'ConvertPath');
/*
We save once entered extra path in the persistent data list
to keep it within setup steps.
This trick is needed, for example, in "registration" step,
where user has no chance to enter extra path again
due to missing input field for this purpose.
*/
// compute extra path
$extraPath = array();
if ($http->hasPostVariable($type . '_ExtraPath')) {
$GLOBALS['eZSetupCheckExecutable_' . $type . '_ExtraPath'] = $http->postVariable($type . '_ExtraPath');
$extraPath = explode($envSeparator, $http->postVariable($type . '_ExtraPath'));
} else {
if (isset($GLOBALS['eZSetupCheckExecutable_' . $type . '_ExtraPath'])) {
$extraPath = explode($envSeparator, $GLOBALS['eZSetupCheckExecutable_' . $type . '_ExtraPath']);
}
}
// if extra path was given in any way
if ($extraPath) {
// remove program from path name if entered
foreach ($extraPath as $path) {
foreach ($programs as $program) {
if (strpos($path, $program) == strlen($path) - strlen($program)) {
$extraPath[] = substr($path, strpos($path, $program));
}
}
}
}
$searchPaths = array_merge($systemSearchPaths, $additionalSearchPaths, $extraPath, $imageIniPath);
$result = false;
$correctPath = false;
$correctProgram = false;
foreach ($programs as $program) {
foreach ($searchPaths as $path) {
$pathProgram = eZDir::path(array($path, $program));
if (file_exists($pathProgram)) {
if ($filesystemType == 'unix') {
$relativePath = $path;
if (preg_match("#^/(.+)\$#", $path, $matches)) {
$relativePath = $matches[1];
}
$relativePath = eZDir::cleanPath($relativePath);
} else {
$relativePath = $path;
if (preg_match("#^[a-zA-Z]:[/\\\\](.+)\$#", $path, $matches)) {
$relativePath = $matches[1];
}
$relativePath = eZDir::cleanPath($relativePath);
}
$exclude = false;
foreach ($excludePaths as $excludePath) {
$excludePath = strtolower($excludePath);
$match = strtolower($program . "@" . $relativePath);
if ($match == $excludePath) {
$exclude = true;
break;
} else {
if ($relativePath == $excludePath) {
$exclude = true;
break;
}
}
}
if ($exclude) {
continue;
}
if (function_exists("is_executable")) {
if (is_executable($pathProgram)) {
$result = true;
$correctPath = $path;
$correctProgram = $program;
break;
}
} else {
// Windows system
$result = true;
$correctPath = $path;
$correctProgram = $program;
break;
}
}
}
if ($result) {
break;
}
}
$extraPathAsString = implode($envSeparator, $extraPath);
return array('result' => $result, 'persistent_data' => array('path' => array('value' => $correctPath), 'program' => array('value' => $correctProgram), 'extra_path' => array('value' => $extraPathAsString, 'merge' => TRUE), 'result' => array('value' => $result)), 'env_separator' => $envSeparator, 'filesystem_type' => $filesystemType, 'extra_path' => $extraPath, 'correct_path' => $correctPath, 'system_search_path' => $systemSearchPaths, 'additional_search_path' => $additionalSearchPaths);
}
