silverstripe-framework/View/SSViewer.php

<?php

namespace SilverStripe\View;

use SilverStripe\Core\Config\Configurable;
use SilverStripe\Core\ClassInfo;
use SilverStripe\Core\SS_Cache;
use SilverStripe\Core\Convert;
use SilverStripe\Core\Flushable;
use SilverStripe\Core\Injector\Injector;
use SilverStripe\Control\Director;
use SilverStripe\Dev\Deprecation;
use SilverStripe\ORM\FieldType\DBField;
use SilverStripe\ORM\FieldType\DBHTMLText;
use SilverStripe\Security\Permission;
use InvalidArgumentException;
use Zend_Cache_Backend_ExtendedInterface;
use Zend_Cache;
use Zend_Cache_Core;

/**
 * Parses a template file with an *.ss file extension.
 *
 * In addition to a full template in the templates/ folder, a template in
 * templates/Content or templates/Layout will be rendered into $Content and
 * $Layout, respectively.
 *
 * A single template can be parsed by multiple nested {@link SSViewer} instances
 * through $Layout/$Content placeholders, as well as <% include MyTemplateFile %> template commands.
 *
 * <b>Themes</b>
 *
 * See http://doc.silverstripe.org/themes and http://doc.silverstripe.org/themes:developing
 *
 * <b>Caching</b>
 *
 * Compiled templates are cached via {@link SS_Cache}, usually on the filesystem.
 * If you put ?flush=1 on your URL, it will force the template to be recompiled.
 *
 * @see http://doc.silverstripe.org/themes
 * @see http://doc.silverstripe.org/themes:developing
 */
class SSViewer implements Flushable {
	use Configurable;

	/**
	 * Identifier for the default theme
	 */
	const DEFAULT_THEME = '$default';

	/**
	 * @config
	 * @var boolean $source_file_comments
	 */
	private static $source_file_comments = false;

	/**
	 * @ignore
	 */
	private static $template_cache_flushed = false;

	/**
	 * @ignore
	 */
	private static $cacheblock_cache_flushed = false;

	/**
	 * Set whether HTML comments indicating the source .SS file used to render this page should be
	 * included in the output.  This is enabled by default
	 *
	 * @deprecated 4.0 Use the "SSViewer.source_file_comments" config setting instead
	 * @param boolean $val
	 */
	public static function set_source_file_comments($val) {
		Deprecation::notice('4.0', 'Use the "SSViewer.source_file_comments" config setting instead');
		SSViewer::config()->update('source_file_comments', $val);
	}

	/**
	 * @deprecated 4.0 Use the "SSViewer.source_file_comments" config setting instead
	 * @return boolean
	 */
	public static function get_source_file_comments() {
		Deprecation::notice('4.0', 'Use the "SSViewer.source_file_comments" config setting instead');
		return SSViewer::config()->get('source_file_comments');
	}

	/**
	 * @var array $templates List of templates to select from
	 */
	private $templates = null;

	/**
	 * @var string $chosen Absolute path to chosen template file
	 */
	private $chosen = null;

	/**
	 * @var array Templates to use when looking up 'Layout' or 'Content'
	 */
	private $subTemplates = null;

	/**
	 * @var boolean
	 */
	protected $rewriteHashlinks = true;

	/**
	 * @config
	 * @var string A list (highest priority first) of themes to use
	 * Only used when {@link $theme_enabled} is set to TRUE.
	 */
	private static $themes = [];

	/**
	 * @deprecated 4.0..5.0
	 * @config
	 * @var string The used "theme", which usually consists of templates, images and stylesheets.
	 * Only used when {@link $theme_enabled} is set to TRUE, and $themes is empty
	 */
	private static $theme = null;

	/**
	 * @config
	 * @var boolean Use the theme. Set to FALSE in order to disable themes,
	 * which can be useful for scenarios where theme overrides are temporarily undesired,
	 * such as an administrative interface separate from the website theme.
	 * It retains the theme settings to be re-enabled, for example when a website content
	 * needs to be rendered from within this administrative interface.
	 */
	private static $theme_enabled = true;

	/**
	 * @var boolean
	 */
	protected $includeRequirements = true;

	/**
	 * @var TemplateParser
	 */
	protected $parser;

	/*
	 * Default prepended cache key for partial caching
	 *
	 * @var string
	 * @config
	 */
	private static $global_key = '$CurrentReadingMode, $CurrentUser.ID';

	/**
	 * Triggered early in the request when someone requests a flush.
	 */
	public static function flush() {
		self::flush_template_cache(true);
		self::flush_cacheblock_cache(true);
	}

	/**
	 * Create a template from a string instead of a .ss file
	 *
	 * @param string $content The template content
	 * @param bool|void $cacheTemplate Whether or not to cache the template from string
	 * @return SSViewer
	 */
	public static function fromString($content, $cacheTemplate = null) {
		$viewer = new SSViewer_FromString($content);
		if ($cacheTemplate !== null) {
			$viewer->setCacheTemplate($cacheTemplate);
		}
		return $viewer;
	}

	/**
	 * Assign the list of active themes to apply.
	 * If default themes should be included add $default as the last entry.
	 *
	 * @param array $themes
	 */
	public static function set_themes($themes = []) {
		SSViewer::config()
			->remove('themes')
			->update('themes', $themes);
	}

	public static function add_themes($themes = []) {
		SSViewer::config()->update('themes', $themes);
	}

	public static function get_themes() {
		$default = [self::DEFAULT_THEME];

		if (!SSViewer::config()->get('theme_enabled')) {
			return $default;
		}

		// Explicit list is assigned
		if ($list = SSViewer::config()->get('themes')) {
			return $list;
		}

		// Support legacy behaviour
		if ($theme = SSViewer::config()->get('theme')) {
			return [$theme, self::DEFAULT_THEME];
		}

		return $default;
	}

	/**
	 * @deprecated 4.0 Use the "SSViewer.theme" config setting instead
	 * @param string $theme The "base theme" name (without underscores).
	 */
	public static function set_theme($theme) {
		Deprecation::notice('4.0', 'Use the "SSViewer#set_themes" instead');
		self::set_themes([$theme, self::DEFAULT_THEME]);
	}

	/**
	 * Traverses the given the given class context looking for candidate template names
	 * which match each item in the class hierarchy. The resulting list of template candidates
	 * may or may not exist, but you can invoke {@see SSViewer::chooseTemplate} on any list
	 * to determine the best candidate based on the current themes.
	 *
	 * @param string|object $classOrObject Valid class name, or object
	 * @param string $suffix
	 * @param string $baseClass Class to halt ancestry search at
	 * @return array
	 */
	public static function get_templates_by_class($classOrObject, $suffix = '', $baseClass = null) {
		// Figure out the class name from the supplied context.
		if (!is_object($classOrObject) && !(
			is_string($classOrObject) && class_exists($classOrObject)
		)) {
			throw new InvalidArgumentException(
				'SSViewer::get_templates_by_class() expects a valid class name as its first parameter.'
			);
		}
		$templates = array();
		$classes = array_reverse(ClassInfo::ancestry($classOrObject));
		foreach($classes as $class) {
			$template = $class . $suffix;
			$templates[] = $template;
			$templates[] = ['type' => 'Includes', $template];

			// If the class is "Page_Controller", look for Page.ss
			if (stripos($class, '_controller') !== false) {
				$templates[] = str_ireplace('_controller', '', $class) . $suffix;
			}

			if($baseClass && $class == $baseClass) {
				break;
			}
		}
		return $templates;
	}

	/**
	 * @param string|array $templates If passed as a string with .ss extension, used as the "main" template.
	 *  If passed as an array, it can be used for template inheritance (first found template "wins").
	 *  Usually the array values are PHP class names, which directly correlate to template names.
	 *  <code>
	 *  array('MySpecificPage', 'MyPage', 'Page')
	 *  </code>
	 * @param TemplateParser $parser
	 */
	public function __construct($templates, TemplateParser $parser = null) {
		if ($parser) {
			$this->setParser($parser);
		}

		$this->setTemplate($templates);

		if(!$this->chosen) {
			$message = 'None of the following templates could be found: ';
			$message .= print_r($templates, true);

			$themes = self::get_themes();
			if(!$themes) {
				$message .= ' (no theme in use)';
			} else {
				$message .= ' in themes "' . print_r($themes, true) . '"';
			}

			user_error($message, E_USER_WARNING);
		}
	}

	public function setTemplate($templates) {
		$this->templates = $templates;
		$this->chosen = $this->chooseTemplate($templates);
		$this->subTemplates = [];
	}

	/**
	 * Find the template to use for a given list
	 *
	 * @param array|string $templates
	 * @return string
	 */
	public static function chooseTemplate($templates) {
		return ThemeResourceLoader::instance()->findTemplate($templates, self::get_themes());
	}

	/**
	 * Set the template parser that will be used in template generation
	 *
	 * @param TemplateParser $parser
	 */
	public function setParser(TemplateParser $parser)
	{
		$this->parser = $parser;
	}

	/**
	 * Returns the parser that is set for template generation
	 *
	 * @return TemplateParser
	 */
	public function getParser()
	{
		if (!$this->parser) {
			$this->setParser(Injector::inst()->get('SilverStripe\\View\\SSTemplateParser'));
		}
		return $this->parser;
	}

	/**
	 * Returns true if at least one of the listed templates exists.
	 *
	 * @param array $templates
	 *
	 * @return boolean
	 */
	public static function hasTemplate($templates) {
		return (bool)ThemeResourceLoader::instance()->findTemplate($templates, self::get_themes());
	}

	/**
	 * Set a global rendering option.
	 *
	 * The following options are available:
	 *  - rewriteHashlinks: If true (the default), <a href="#..."> will be rewritten to contain the
	 *    current URL.  This lets it play nicely with our <base> tag.
	 *  - If rewriteHashlinks = 'php' then, a piece of PHP script will be inserted before the hash
	 *    links: "<?php echo $_SERVER['REQUEST_URI']; ?>".  This is useful if you're generating a
	 *    page that will be saved to a .php file and may be accessed from different URLs.
	 *
	 * @deprecated 4.0 Use the "SSViewer.rewrite_hash_links" config setting instead
	 * @param string $optionName
	 * @param mixed $optionVal
	 */
	public static function setOption($optionName, $optionVal) {
		if($optionName == 'rewriteHashlinks') {
			Deprecation::notice('4.0', 'Use the "SSViewer.rewrite_hash_links" config setting instead');
			SSViewer::config()->update('rewrite_hash_links', $optionVal);
		} else {
			Deprecation::notice('4.0', 'Use the "SSViewer.' . $optionName . '" config setting instead');
			SSViewer::config()->update($optionName, $optionVal);
		}
	}

	/**
 	 * @deprecated 4.0 Use the "SSViewer.rewrite_hash_links" config setting instead
 	 * @param string
 	 * @return mixed
	 */
	public static function getOption($optionName) {
		if($optionName == 'rewriteHashlinks') {
			Deprecation::notice('4.0', 'Use the "SSViewer.rewrite_hash_links" config setting instead');
			return SSViewer::config()->get('rewrite_hash_links');
		} else {
			Deprecation::notice('4.0', 'Use the "SSViewer.' . $optionName . '" config setting instead');
			return SSViewer::config()->get($optionName);
		}
	}

	/**
	 * @config
	 * @var boolean
	 */
	private static $rewrite_hash_links = true;

	protected static $topLevel = array();

	public static function topLevel() {
		if(SSViewer::$topLevel) {
			return SSViewer::$topLevel[sizeof(SSViewer::$topLevel)-1];
		}
		return null;
	}

	/**
	 * Call this to disable rewriting of <a href="#xxx"> links.  This is useful in Ajax applications.
	 * It returns the SSViewer objects, so that you can call new SSViewer("X")->dontRewriteHashlinks()->process();
	 */
	public function dontRewriteHashlinks() {
		$this->rewriteHashlinks = false;
		SSViewer::config()->update('rewrite_hash_links', false);
		return $this;
	}

	public function exists() {
		return $this->chosen;
	}

	/**
	 * @param string $identifier A template name without '.ss' extension or path
	 * @param string $type The template type, either "main", "Includes" or "Layout"
	 *
	 * @return string Full system path to a template file
	 */
	public static function getTemplateFileByType($identifier, $type = null) {
		return ThemeResourceLoader::instance()->findTemplate(['type' => $type, $identifier], self::get_themes());
	}

	/**
	 * Clears all parsed template files in the cache folder.
	 *
	 * Can only be called once per request (there may be multiple SSViewer instances).
	 *
	 * @param bool $force Set this to true to force a re-flush. If left to false, flushing
	 * may only be performed once a request.
	 */
	public static function flush_template_cache($force = false) {
		if (!self::$template_cache_flushed || $force) {
			$dir = dir(TEMP_FOLDER);
			while (false !== ($file = $dir->read())) {
				if (strstr($file, '.cache')) unlink(TEMP_FOLDER . '/' . $file);
			}
			self::$template_cache_flushed = true;
		}
	}

	/**
	 * Clears all partial cache blocks.
	 *
	 * Can only be called once per request (there may be multiple SSViewer instances).
	 *
	 * @param bool $force Set this to true to force a re-flush. If left to false, flushing
	 * may only be performed once a request.
	 */
	public static function flush_cacheblock_cache($force = false) {
		if (!self::$cacheblock_cache_flushed || $force) {
			$cache = SS_Cache::factory('cacheblock');
			$backend = $cache->getBackend();

			if(
				$backend instanceof Zend_Cache_Backend_ExtendedInterface
				&& ($capabilities = $backend->getCapabilities())
				&& $capabilities['tags']
			) {
				$cache->clean(Zend_Cache::CLEANING_MODE_MATCHING_TAG, $cache->getTags());
			} else {
				$cache->clean(Zend_Cache::CLEANING_MODE_ALL);
			}


			self::$cacheblock_cache_flushed = true;
		}
	}

	/**
	 * @var Zend_Cache_Core
	 */
	protected $partialCacheStore = null;

	/**
	 * Set the cache object to use when storing / retrieving partial cache blocks.
	 *
	 * @param Zend_Cache_Core $cache
	 */
	public function setPartialCacheStore($cache) {
		$this->partialCacheStore = $cache;
	}

	/**
	 * Get the cache object to use when storing / retrieving partial cache blocks.
	 *
	 * @return Zend_Cache_Core
	 */
	public function getPartialCacheStore() {
		return $this->partialCacheStore ? $this->partialCacheStore : SS_Cache::factory('cacheblock');
	}

	/**
	 * Flag whether to include the requirements in this response.
	 *
	 * @param boolean
	 */
	public function includeRequirements($incl = true) {
		$this->includeRequirements = $incl;
	}

	/**
	 * An internal utility function to set up variables in preparation for including a compiled
	 * template, then do the include
	 *
	 * Effectively this is the common code that both SSViewer#process and SSViewer_FromString#process call
	 *
	 * @param string $cacheFile The path to the file that contains the template compiled to PHP
	 * @param ViewableData $item The item to use as the root scope for the template
	 * @param array $overlay Any variables to layer on top of the scope
	 * @param array $underlay Any variables to layer underneath the scope
	 * @param ViewableData $inheritedScope The current scope of a parent template including a sub-template
	 * @return string The result of executing the template
	 */
	protected function includeGeneratedTemplate($cacheFile, $item, $overlay, $underlay, $inheritedScope = null) {
		if(isset($_GET['showtemplate']) && $_GET['showtemplate'] && Permission::check('ADMIN')) {
			$lines = file($cacheFile);
			echo "<h2>Template: $cacheFile</h2>";
			echo "<pre>";
			foreach($lines as $num => $line) {
				echo str_pad($num+1,5) . htmlentities($line, ENT_COMPAT, 'UTF-8');
			}
			echo "</pre>";
		}

		$cache = $this->getPartialCacheStore();
		$scope = new SSViewer_DataPresenter($item, $overlay, $underlay, $inheritedScope);
		$val = '';

		include($cacheFile);

		return $val;
	}

	/**
	 * The process() method handles the "meat" of the template processing.
	 *
	 * It takes care of caching the output (via {@link SS_Cache}), as well as
	 * replacing the special "$Content" and "$Layout" placeholders with their
	 * respective subtemplates.
	 *
	 * The method injects extra HTML in the header via {@link Requirements::includeInHTML()}.
	 *
	 * Note: You can call this method indirectly by {@link ViewableData->renderWith()}.
	 *
	 * @param ViewableData $item
	 * @param array|null $arguments Arguments to an included template
	 * @param ViewableData $inheritedScope The current scope of a parent template including a sub-template
	 * @return DBHTMLText Parsed template output.
	 */
	public function process($item, $arguments = null, $inheritedScope = null) {
		SSViewer::$topLevel[] = $item;

		$template = $this->chosen;

		$cacheFile = TEMP_FOLDER . "/.cache"
			. str_replace(array('\\','/',':'), '.', Director::makeRelative(realpath($template)));
		$lastEdited = filemtime($template);

		if(!file_exists($cacheFile) || filemtime($cacheFile) < $lastEdited) {
			$content = file_get_contents($template);
			$content = $this->parseTemplateContent($content, $template);

			$fh = fopen($cacheFile,'w');
			fwrite($fh, $content);
			fclose($fh);
		}

		$underlay = array('I18NNamespace' => basename($template));

		// Makes the rendered sub-templates available on the parent item,
		// through $Content and $Layout placeholders.
		foreach(array('Content', 'Layout') as $subtemplate) {
			$sub = null;
			if(isset($this->subTemplates[$subtemplate])) {
				$sub = $this->subTemplates[$subtemplate];
			}
			elseif(!is_array($this->templates)) {
				$sub = ['type' => $subtemplate, $this->templates];
			}
			elseif(!array_key_exists('type', $this->templates) || !$this->templates['type']) {
				$sub = array_merge($this->templates, ['type' => $subtemplate]);
			}

			if ($sub) {
				$subtemplateViewer = clone $this;
				// Disable requirements - this will be handled by the parent template
				$subtemplateViewer->includeRequirements(false);
				// Select the right template
				$subtemplateViewer->setTemplate($sub);

				if ($subtemplateViewer->exists()) {
					$underlay[$subtemplate] = $subtemplateViewer->process($item, $arguments);
				}
			}
		}

		$output = $this->includeGeneratedTemplate($cacheFile, $item, $arguments, $underlay, $inheritedScope);

		if($this->includeRequirements) {
			$output = Requirements::includeInHTML($output);
		}

		array_pop(SSViewer::$topLevel);

		// If we have our crazy base tag, then fix # links referencing the current page.

		$rewrite = SSViewer::config()->get('rewrite_hash_links');
		if($this->rewriteHashlinks && $rewrite) {
			if(strpos($output, '<base') !== false) {
				if($rewrite === 'php') {
					$thisURLRelativeToBase = "<?php echo \\SilverStripe\\Core\\Convert::raw2att(preg_replace(\"/^(\\\\/)+/\", \"/\", \$_SERVER['REQUEST_URI'])); ?>";
				} else {
					$thisURLRelativeToBase = Convert::raw2att(preg_replace("/^(\\/)+/", "/", $_SERVER['REQUEST_URI']));
				}

				$output = preg_replace('/(<a[^>]+href *= *)"#/i', '\\1"' . $thisURLRelativeToBase . '#', $output);
			}
		}

		return DBField::create_field('HTMLFragment', $output);
	}

	/**
	 * Execute the given template, passing it the given data.
	 * Used by the <% include %> template tag to process templates.
	 *
	 * @param string $template Template name
	 * @param mixed $data Data context
	 * @param array $arguments Additional arguments
	 * @param Object $scope
	 * @return string Evaluated result
	 */
	public static function execute_template($template, $data, $arguments = null, $scope = null) {
		$v = new SSViewer($template);
		$v->includeRequirements(false);

		return $v->process($data, $arguments, $scope);
	}

	/**
	 * Execute the evaluated string, passing it the given data.
	 * Used by partial caching to evaluate custom cache keys expressed using
	 * template expressions
	 *
	 * @param string $content Input string
	 * @param mixed $data Data context
	 * @param array $arguments Additional arguments
	 * @return string Evaluated result
	 */
	public static function execute_string($content, $data, $arguments = null) {
		$v = SSViewer::fromString($content);
		$v->includeRequirements(false);

		return $v->process($data, $arguments);
	}

	public function parseTemplateContent($content, $template="") {
		return $this->getParser()->compileString(
			$content,
			$template,
			Director::isDev() && SSViewer::config()->get('source_file_comments')
		);
	}

	/**
	 * Returns the filenames of the template that will be rendered.  It is a map that may contain
	 * 'Content' & 'Layout', and will have to contain 'main'
	 */
	public function templates() {
		return array_merge(['main' => $this->chosen], $this->subTemplates);
	}

	/**
	 * @param string $type "Layout" or "main"
	 * @param string $file Full system path to the template file
	 */
	public function setTemplateFile($type, $file) {
		if (!$type || $type == 'main') $this->chosen = $file;
		else $this->subTemplates[$type] = $file;
	}

	/**
	 * Return an appropriate base tag for the given template.
	 * It will be closed on an XHTML document, and unclosed on an HTML document.
	 *
	 * @param string $contentGeneratedSoFar The content of the template generated so far; it should contain
	 * the DOCTYPE declaration.
	 * @return string
	 */
	public static function get_base_tag($contentGeneratedSoFar) {
		$base = Director::absoluteBaseURL();

		// Is the document XHTML?
		if(preg_match('/<!DOCTYPE[^>]+xhtml/i', $contentGeneratedSoFar)) {
			return "<base href=\"$base\" />";
		} else {
			return "<base href=\"$base\"><!--[if lte IE 6]></base><![endif]-->";
		}
	}
}