3 * @file include/cache.php
5 * @brief Class for storing data for a short time
8 use \Friendica\Core\Config;
9 use \Friendica\Core\PConfig;
13 * @brief Check for memcache and open a connection if configured
15 * @return object|boolean The memcache object - or "false" if not successful
17 public static function memcache() {
18 if (!function_exists('memcache_connect')) {
22 if (!Config::get('system', 'memcache')) {
26 $memcache_host = Config::get('system', 'memcache_host', '127.0.0.1');
27 $memcache_port = Config::get('system', 'memcache_port', 11211);
29 $memcache = new Memcache;
31 if (!$memcache->connect($memcache_host, $memcache_port)) {
39 * @brief Return the duration for a given cache level
41 * @param integer $level Cache level
43 * @return integer The cache duration in seconds
45 private function duration($level) {
62 case CACHE_QUARTER_HOUR;
65 case CACHE_FIVE_MINUTES;
76 * @brief Fetch cached data according to the key
78 * @param string $key The key to the cached data
80 * @return mixed Cached $value or "null" if not found
82 public static function get($key) {
84 $memcache = self::memcache();
85 if (is_object($memcache)) {
86 // We fetch with the hostname as key to avoid problems with other applications
87 $value = $memcache->get(get_app()->get_hostname().":".$key);
88 if (!is_bool($value)) {
89 return unserialize($value);
95 // Frequently clear cache
96 self::clear($duration);
98 $r = q("SELECT `v` FROM `cache` WHERE `k`='%s' LIMIT 1",
110 * @brief Put data in the cache according to the key
112 * @param string $key The key to the cached data
113 * @param mixed $valie The value that is about to be stored
114 * @param integer $duration The cache lifespan
116 public static function set($key, $value, $duration = CACHE_MONTH) {
118 // Do we have an installed memcache? Use it instead.
119 $memcache = self::memcache();
120 if (is_object($memcache)) {
121 // We store with the hostname as key to avoid problems with other applications
122 $memcache->set(get_app()->get_hostname().":".$key, serialize($value), MEMCACHE_COMPRESSED, self::duration($duration));
126 /// @todo store the cache data in the same way like the config data
127 q("REPLACE INTO `cache` (`k`,`v`,`expire_mode`,`updated`) VALUES ('%s','%s',%d,'%s')",
131 dbesc(datetime_convert()));
135 * @brief Remove outdated data from the cache
137 * @param integer $maxlevel The maximum cache level that is to be cleared
139 public static function clear($max_level = CACHE_MONTH) {
141 // Clear long lasting cache entries only once a day
142 if (get_config("system", "cache_cleared_day") < time() - self::duration(CACHE_DAY)) {
143 if ($max_level == CACHE_MONTH) {
144 q("DELETE FROM `cache` WHERE `updated` < '%s' AND `expire_mode` = %d",
145 dbesc(datetime_convert('UTC','UTC',"now - 30 days")), intval(CACHE_MONTH));
148 if ($max_level <= CACHE_WEEK) {
149 q("DELETE FROM `cache` WHERE `updated` < '%s' AND `expire_mode` = %d",
150 dbesc(datetime_convert('UTC','UTC',"now - 7 days")), intval(CACHE_WEEK));
153 if ($max_level <= CACHE_DAY) {
154 q("DELETE FROM `cache` WHERE `updated` < '%s' AND `expire_mode` = %d",
155 dbesc(datetime_convert('UTC','UTC',"now - 1 days")), intval(CACHE_DAY));
157 set_config("system", "cache_cleared_day", time());
160 if (($max_level <= CACHE_HOUR) AND (get_config("system", "cache_cleared_hour")) < time() - self::duration(CACHE_HOUR)) {
161 q("DELETE FROM `cache` WHERE `updated` < '%s' AND `expire_mode` = %d",
162 dbesc(datetime_convert('UTC','UTC',"now - 1 hours")), intval(CACHE_HOUR));
164 set_config("system", "cache_cleared_hour", time());
167 if (($max_level <= CACHE_HALF_HOUR) AND (get_config("system", "cache_cleared_half_hour")) < time() - self::duration(CACHE_HALF_HOUR)) {
168 q("DELETE FROM `cache` WHERE `updated` < '%s' AND `expire_mode` = %d",
169 dbesc(datetime_convert('UTC','UTC',"now - 30 minutes")), intval(CACHE_HALF_HOUR));
171 set_config("system", "cache_cleared_half_hour", time());
174 if (($max_level <= CACHE_QUARTER_HOUR) AND (get_config("system", "cache_cleared_hour")) < time() - self::duration(CACHE_QUARTER_HOUR)) {
175 q("DELETE FROM `cache` WHERE `updated` < '%s' AND `expire_mode` = %d",
176 dbesc(datetime_convert('UTC','UTC',"now - 15 minutes")), intval(CACHE_QUARTER_HOUR));
178 set_config("system", "cache_cleared_quarter_hour", time());
181 if (($max_level <= CACHE_FIVE_MINUTES) AND (get_config("system", "cache_cleared_five_minute")) < time() - self::duration(CACHE_FIVE_MINUTES)) {
182 q("DELETE FROM `cache` WHERE `updated` < '%s' AND `expire_mode` = %d",
183 dbesc(datetime_convert('UTC','UTC',"now - 5 minutes")), intval(CACHE_FIVE_MINUTES));
185 set_config("system", "cache_cleared_five_minute", time());
188 if (($max_level <= CACHE_MINUTE) AND (get_config("system", "cache_cleared_minute")) < time() - self::duration(CACHE_MINUTE)) {
189 q("DELETE FROM `cache` WHERE `updated` < '%s' AND `expire_mode` = %d",
190 dbesc(datetime_convert('UTC','UTC',"now - 1 minutes")), intval(CACHE_MINUTE));
192 set_config("system", "cache_cleared_minute", time());