<?php
if($_CPHP !== true) { die(); }

if($cphp_memcache_enabled)
{
	$memcache = new Memcache;
	$cphp_memcache_established = $memcache->connect($cphp_memcache_server, $cphp_memcache_port);

	if($cphp_memcache_established !== false)
	{
		$cphp_memcache_connected = true;
	}
	else
	{
		$cphp_memcache_connected = false;
	}
}

function mc_get($key)
{
	global $cphp_memcache_enabled, $cphp_memcache_connected, $memcache;
	
	if($cphp_memcache_enabled === false || $cphp_memcache_connected === false)
	{
		return false;
	}
	else
	{
		$get_result = $memcache->get($key);
		if($get_result !== false)
		{
			return $get_result;
		}
		else
		{
			return false;
		}
	}
}

function mc_set($key, $value, $expiry)
{
	global $cphp_memcache_enabled, $cphp_memcache_connected, $cphp_memcache_compressed, $memcache;
	
	if($cphp_memcache_enabled === false || $cphp_memcache_connected === false)
	{
		return false;
	}
	else
	{
		if($cphp_memcache_compressed === true)
		{
			$flag = MEMCACHE_COMPRESSED;
		}
		else
		{
			$flag = false;
		}
		
		$set_result = $memcache->set($key, $value, $flag, $expiry);
		return $set_result;
	}
}

function mc_delete($key)
{
	global $cphp_memcache_enabled, $cphp_memcache_connected, $memcache;
	
	if($cphp_memcache_enabled === false || $cphp_memcache_connected === false)
	{
		return false;
	}
	else
	{
		return $memcache->delete($key);
	}
}

function mysql_query_cached($query, $expiry = 60, $key = "")
{
	if($key == "")
	{
		$key = md5($query) . md5($query . "x");
	}
	
	if($res = mc_get($key))
	{
		$return_object->source = "memcache";
		$return_object->data = $res;
		return $return_object;
	}
	else
	{
		if($res = mysql_query($query))
		{
			$found = false;
			
			while($row = mysql_fetch_assoc($res))
			{
				$return_object->data[] = $row;
				$found = true;
			}
			
			if($found === true)
			{
				$return_object->source = "database";
				mc_set($key, $return_object->data, $expiry);
				return $return_object;
			}
			else
			{
				return false;
			}
		}
		else
		{
			return false;
		}
	}
}

function file_get_contents_cached($path, $expiry = 3600)
{
	if($res = mc_get(md5($path) . md5($path . "x")))
	{
		$return_object->source = "memcache";
		$return_object->data = $res;
		return $return_object;
	}
	else
	{
		if($result = file_get_contents($path))
		{
			$return_object->source = "disk";
			$return_object->data = $result;
			mc_set(md5($path) . md5($path . "x"), $return_object->data, $expiry);
			return $return_object;
		}
		else
		{
			return false;
		}
	}
}
?>
