<?php


/**
 * @brief: Get info header of the shema
 *
 * This function parses the header of the shemename.php file for inormations like
 * Author, Description and Overwrites. Most of the code comes from the Addon::getInfo()
 * function. We use this to get the variables which get overwritten through the shema.
 * All color variables which get overwritten through the theme have to be
 * listed (comma seperated) in the shema header under Overwrites:
 * This seemst not to be the best solution. We need to investigate further.
 *
 * @param string $schema Name of the shema
 * @return array With theme information
 *    'author' => Author Name
 *    'description' => Schema description
 *    'version' => Schema version
 *    'overwrites' => Variables which overwriting custom settings
 */

use Friendica\Core\PConfig;

function get_schema_info($schema){

	$theme = current_theme();
	$themepath = "view/theme/" . $theme . "/";
	$schema = PConfig::get(local_user(),'frio', 'schema');

	$info=[
		'name' => $schema,
		'description' => "",
		'author' => [],
		'version' => "",
		'overwrites' => []
	];

	if (!is_file($themepath . "schema/" . $schema . ".php")) return $info;

	$f = file_get_contents($themepath . "schema/" . $schema . ".php");

	$r = preg_match("|/\*.*\*/|msU", $f, $m);

	if ($r){
		$ll = explode("\n", $m[0]);
		foreach( $ll as $l ) {
			$l = trim($l,"\t\n\r */");
			if ($l!=""){
				list($k,$v) = array_map("trim", explode(":",$l,2));
				$k= strtolower($k);
				if ($k=="author"){
					$r=preg_match("|([^<]+)<([^>]+)>|", $v, $m);
					if ($r) {
						$info['author'][] = ['name'=>$m[1], 'link'=>$m[2]];
					} else {
						$info['author'][] = ['name'=>$v];
					}
				} elseif ($k == "overwrites") {
					$theme_settings = explode(',',str_replace(' ','', $v));
					foreach ($theme_settings as $key => $value) {
						$info["overwrites"][$value] = true;
					}
				} else {
					if (array_key_exists($k,$info)){
						$info[$k]=$v;
					}
				}

			}
		}

	}
	return $info;
}