TYPO3 Core

* Gets information for an extension, eg. version and most-recently-edited-script

*

* @param string Extension key

* @return array / string Information array if successfull

* error text if an error occured

*/

static public function getExtensionInfo($key) {

if (!is_string($key) || empty($key)) {

throw new InvalidArgumentException('Extension key must be a non-empty string.');

}

if (!self::isLoaded($key)) {

return 'Error: Extension ' . $key . ' has not been installed. (t3lib_extMgm::getExtensionInfo)';

}

$result = '';

$path = self::extPath($key);

$file = $path . '/ext_emconf.php';

if (@is_file($file)) {

$_EXTKEY = $key;

$EM_CONF = array();

include($file);

$info = array();

// Info from emconf:

$info['title'] = $EM_CONF[$key]['title'];

$info['author'] = $EM_CONF[$key]['author'];

$info['author_email'] = $EM_CONF[$key]['author_email'];

$info['author_company'] = $EM_CONF[$key]['author_company'];

$info['version'] = $EM_CONF[$key]['version'];

$info['CGLcompliance'] = $EM_CONF[$key]['CGLcompliance'];

$info['CGLcompliance_note'] = $EM_CONF[$key]['CGLcompliance_note'];

$info['EMnoCheck'] = $EM_CONF[$key]['EMnoCheck'];

if (is_array($EM_CONF[$key]['constraints']) && is_array($EM_CONF[$key]['constraints']['depends'])) {

$info['TYPO3_version'] = $EM_CONF[$key]['constraints']['depends']['typo3'];

} else {

$info['TYPO3_version'] = $EM_CONF[$key]['TYPO3_version'];

}

$filesHash = unserialize($EM_CONF[$key]['_md5_values_when_last_written']);

$info['manual'] = @is_file($path . '/doc/manual.sxw');

$result = $info;

} else {

$result = 'ERROR: No emconf.php file: ' . $file;

}

return $result;

}

/**

* Analyses a singe php-script of an available extension on server

*

* @param string Absolute path to extension

* @param string relative filename with relative path inside of extension

* @param string basename of relative filename

* @param string Prefix for tables/classes.

* @param string Extension key

* @param array extension Information array

* @param array return Information or Error array.

* @see makeDetailedExtensionAnalysis()

*/

public function getClassIndexFile($absPath, $fileName, $baseName, $table_class_prefix, $extKey, $extInfo, &$out) {

$reg = array();

$matchCount = 0;

$fContent = '';

if (filesize($absPath . $fileName) < 500 * 1024) {

$fContent = t3lib_div::getUrl($absPath . $fileName);

unset($reg);

$matchCount = preg_match('/\n[[:space:]]*class[[:space:]]*([[:alnum:]_]+)([[:alnum:][:space:]_]*)/', $fContent, $reg);

}

if ($matchCount) {

// Find classes:

$lines = explode(LF,$fContent);

foreach($lines as $l) {

$line = trim($l);

unset($reg);

if (preg_match('/^class[[:space:]]*([[:alnum:]_]+)([[:alnum:][:space:]_]*)/',$line,$reg)) {

$out['classes'][] = $reg[1];

$out['files'][$fileName]['classes'][] = $reg[1];

if ($reg[1]!=='ext_update' && substr($reg[1], 0, 3)!='ux_' && !t3lib_div::isFirstPartOfStr($reg[1], $table_class_prefix) && strcmp(substr($table_class_prefix,0,-1), $reg[1])) {

$out['NSerrors']['classname'][] = $reg[1];

} else $out['NSok']['classname'][] = $reg[1];

}

}

// If class file prefixed 'class.'....

if (substr($baseName,0,6) == 'class.') {

$fI = pathinfo($baseName);

$testName = substr($baseName, 6, -(1+strlen($fI['extension'])));

if ($testName !== 'ext_update' && substr($testName, 0, 3) != 'ux_' && !t3lib_div::isFirstPartOfStr($testName, $table_class_prefix) && strcmp(substr($table_class_prefix, 0, -1),$testName)) {

$out['NSerrors']['classfilename'][] = $baseName;

} else {

$out['NSok']['classfilename'][] = $baseName;

if (is_array($out['files'][$fileName]['classes']) && $this->first_in_array($testName,$out['files'][$fileName]['classes'], 1)) {

$out['msg'][] = sprintf($GLOBALS['LANG']->getLL('detailedExtAnalysis_class_ok'),

$fileName, $testName

);

} else $out['errors'][] = sprintf($GLOBALS['LANG']->getLL('detailedExtAnalysis_class_not_ok'),

$fileName, $testName

);

}

}

// Check for proper XCLASS definition

// Match $TYPO3_CONF_VARS[TYPO3_MODE]['XCLASS'] with single or doublequotes

$XclassSearch = '\$TYPO3_CONF_VARS\[TYPO3_MODE\]\[[\'"]XCLASS[\'"]\]';

$XclassParts = preg_split('/if \(defined\([\'"]TYPO3_MODE[\'"]\) && ' . $XclassSearch . '/', $fContent, 2);

if (count($XclassParts) !== 2) {

// Match $GLOBALS['TYPO3_CONF_VARS'][TYPO3_MODE]['XCLASS'] with single or doublequotes

$XclassSearch = '\$GLOBALS\[[\'"]TYPO3_CONF_VARS[\'"]\]\[TYPO3_MODE\]\[[\'"]XCLASS[\'"]\]';

$XclassParts = preg_split('/if \(defined\([\'"]TYPO3_MODE[\'"]\) && ' . $XclassSearch . '/', $fContent, 2);

}

if (count($XclassParts)==2) {

unset($reg);

preg_match('/^\[[\'"]([[:alnum:]_\/\.]*)[\'"]\]/', $XclassParts[1], $reg);

if ($reg[1]) {

$cmpF = 'ext/' . $extKey . '/' . $fileName;

if (!strcmp($reg[1],$cmpF)) {

if (preg_match('/_once[[:space:]]*\(' . $XclassSearch . '\[[\'"]' . preg_quote($cmpF, '/') . '[\'"]\]\);/', $XclassParts[1])) {

$out['msg'][] = sprintf($GLOBALS['LANG']->getLL('detailedExtAnalysis_xclass_ok'), $fileName);

} else $out['errors'][] = $GLOBALS['LANG']->getLL('detailedExtAnalysis_xclass_no_include');

} else $out['errors'][] = sprintf($GLOBALS['LANG']->getLL('detailedExtAnalysis_xclass_incorrect'),

$reg[1], $cmpF

);

} else $out['errors'][] = sprintf($GLOBALS['LANG']->getLL('detailedExtAnalysis_no_xclass_filename'), $fileName);

} elseif (!$this->first_in_array('ux_', $out['files'][$fileName]['classes'])) {

$bDoCheck = TRUE;

if (isset($extInfo['EMnoCheck'])) {

$noCheckArray = t3lib_div::trimExplode(',', $extInfo['EMnoCheck']);

foreach ($noCheckArray as $pattern) {

$pattern = str_replace('*', '.*', $pattern);

if (preg_match('`' . $pattern . '`', $fileName)) {

$bDoCheck = FALSE;

break;

}

}

}

if ($bDoCheck) {

// No Xclass definition required if classname starts with 'ux_'

$out['errors'][] = sprintf($GLOBALS['LANG']->getLL('detailedExtAnalysis_no_xclass_found'), $fileName);

}

}

}

}

/**

$extInfo = t3lib_extMgm::getExtensionInfo($extKey);

$this->getClassIndexFile(

$absPath,

$fileName,

$baseName,

$table_class_prefix,

$extKey,

$extInfo,

$out

);