<?php
/**
 * Fuel
 *
 * Fuel is a fast, lightweight, community driven PHP5 framework.
 *
 * @package		Fuel
 * @version		1.0
 * @author		Fuel Development Team
 * @license		MIT License
 * @copyright	2010 Dan Horrigan
 * @link		http://fuelphp.com
 */

namespace Fuel\Core;



class Cache_Storage_File extends \Cache_Storage_Driver {

	/**
	 * @const	string	Tag used for opening & closing cache properties
	 */
	const PROPS_TAG = 'Fuel_Cache_Properties';

	/**
	 * @var	string	File caching basepath
	 */
	protected static $path = '';

	/**
	 * @var driver specific configuration
	 */
	protected $config = array();

	// ---------------------------------------------------------------------

	public function __construct($identifier, $config)
	{
		$this->config = isset($config['file']) ? $config['file'] : array();

		// check for an expiration override
		$this->expiration = $this->_validate_config('expiration', isset($this->config['expiration']) ? $this->config['expiration'] : $this->expiration);

		// determine the file cache path
		static::$path = !empty($this->config['path']) ? $this->config['path'] : APPPATH.'cache'.DS;
		if ( ! is_dir(static::$path) || ! is_writable(static::$path))
		{
			throw new \Cache_Exception('Cache directory does not exist or is not writable.');
		}

		parent::__construct($identifier, $config);
	}

	// ---------------------------------------------------------------------

	/**
	 * Translates a given identifier to a valid path
	 *
	 * @param	string
	 * @return	string
	 * @throws	Cache_Exception
	 */
	protected function identifier_to_path( $identifier )
	{
		// replace dots with dashes
		$identifier = str_replace('.', DS, $identifier);

		return $identifier;
	}

	// ---------------------------------------------------------------------

	/**
	 * Prepend the cache properties
	 *
	 * @return string
	 */
	protected function prep_contents()
	{
		$properties = array(
			'created'			=> $this->created,
			'expiration'		=> $this->expiration,
			'dependencies'		=> $this->dependencies,
			'content_handler'	=> $this->content_handler
		);
		$properties = '{{'.self::PROPS_TAG.'}}'.json_encode($properties).'{{/'.self::PROPS_TAG.'}}';

		return $properties . $this->contents;
	}

	// ---------------------------------------------------------------------

	/**
	 * Remove the prepended cache properties and save them in class properties
	 *
	 * @param	string
	 * @throws	Cache_Exception
	 */
	protected function unprep_contents($payload)
	{
		$properties_end = strpos($payload, '{{/'.self::PROPS_TAG.'}}');
		if ($properties_end === FALSE)
		{
			throw new \Cache_Exception('Incorrect formatting');
		}

		$this->contents = substr($payload, $properties_end + strlen('{{/'.self::PROPS_TAG.'}}'));
		$props = substr(substr($payload, 0, $properties_end), strlen('{{'.self::PROPS_TAG.'}}'));
		$props = json_decode($props, true);
		if ($props === NULL)
		{
			throw new \Cache_Exception('Properties retrieval failed');
		}

		$this->created			= $props['created'];
		$this->expiration		= is_null($this->expiration) ? null : (int) ($props['expiration'] - time()) / 60;
		$this->dependencies		= $props['dependencies'];
		$this->content_handler	= $props['content_handler'];
	}

	// ---------------------------------------------------------------------

	/**
	 * Check if other caches or files have been changed since cache creation
	 *
	 * @param	array
	 * @return	bool
	 */
	public function check_dependencies(Array $dependencies)
	{
		foreach($dependencies as $dep)
		{
			if (file_exists($file = static::$path.$dep.'.cache'))
			{
				$filemtime = filemtime($file);
				if ($filemtime === false || $filemtime > $this->created)
					return false;
			}
			elseif (file_exists($dep))
			{
				$filemtime = filemtime($file);
				if ($filemtime === false || $filemtime > $this->created)
					return false;
			}
			else
			{
				return false;
			}
		}
		return true;
	}

	// ---------------------------------------------------------------------

	/**
	 * Delete Cache
	 */
	public function delete()
	{
		$file = static::$path.$this->identifier_to_path($this->identifier).'.cache';
		@unlink($file);
		$this->reset();
	}

	// ---------------------------------------------------------------------

	/**
	 * Purge all caches
	 *
	 * @param	limit purge to subsection
	 * @return	bool
	 * @throws	Cache_Exception
	 */
	public function delete_all($section)
	{
		$path = rtrim(static::$path, '\\/').DS;
		$section = static::identifier_to_path($section);

		return \File::delete_dir($path.$section);
	}

	// ---------------------------------------------------------------------

	/**
	 * Save a cache, this does the generic pre-processing
	 *
	 * @return	bool
	 */
	protected function _set()
	{
		$payload = $this->prep_contents();
		$id_path = $this->identifier_to_path($this->identifier);

		// create directory if necessary
		$subdirs = explode(DS, $id_path);
		if (count($subdirs) > 1)
		{
			array_pop($subdirs);
			$test_path = static::$path.implode(DS, $subdirs);

			// check if specified subdir exists
			if ( ! @is_dir($test_path))
			{
				// create non existing dir
				if ( ! @mkdir($test_path, 0755, true)) return false;
			}
		}

		// write the cache
		$file = static::$path.$id_path.'.cache';
		$handle = fopen($file, 'c');

		if ($handle)
		{
			// wait for a lock
			while( ! flock($handle, LOCK_EX));

			// write the session data
			fwrite($handle, $payload);

			//release the lock
			flock($handle, LOCK_UN);

			// close the file
			fclose($handle);
		}
	}

	// ---------------------------------------------------------------------

	/**
	 * Load a cache, this does the generic post-processing
	 *
	 * @return bool
	 */
	protected function _get()
	{
		$id_path = $this->identifier_to_path( $this->identifier );
		$file = static::$path.$id_path.'.cache';
		if ( ! file_exists($file))
			return false;

		$handle = fopen($file, 'r');
		if ( ! $handle)
			return false;

		// wait for a lock
		while( ! flock($handle, LOCK_EX));

		// read the session data
		$payload = fread($handle, filesize($file));

		//release the lock
		flock($handle, LOCK_UN);

		// close the file
		fclose($handle);

		try
		{
			$this->unprep_contents($payload);
		}
		catch(Cache_Exception $e)
		{
			return false;
		}

		return true;
	}

}

/* End of file file.php */