/** * Gets the metastring identifier for a value. * * Elgg normalizes the names and values of annotations and metadata. This function * provides the identifier used as the index in the metastrings table. Plugin * developers should only use this if denormalizing names/values for performance * reasons (to avoid multiple joins on the metastrings table). * * @param string $string The value * @param bool $case_sensitive Should the retrieval be case sensitive? * If not, there may be more than one result * * @return int|array metastring id or array of ids * @since 1.9.0 */ function elgg_get_metastring_id($string, $case_sensitive = true) { global $CONFIG, $METASTRINGS_CACHE; // caching doesn't work for case insensitive requests if ($case_sensitive) { $result = array_search($string, $METASTRINGS_CACHE, true); if ($result !== false) { return $result; } // Experimental memcache $msfc = null; static $metastrings_memcache; if (!$metastrings_memcache && is_memcache_available()) { $metastrings_memcache = new ElggMemcache('metastrings_memcache'); } if ($metastrings_memcache) { $msfc = $metastrings_memcache->load($string); } if ($msfc) { return $msfc; } } $escaped_string = sanitise_string($string); if ($case_sensitive) { $query = "SELECT * FROM {$CONFIG->dbprefix}metastrings WHERE string = BINARY '{$escaped_string}' LIMIT 1"; } else { $query = "SELECT * FROM {$CONFIG->dbprefix}metastrings WHERE string = '{$escaped_string}'"; } $id = false; $results = get_data($query); if (is_array($results)) { if (!$case_sensitive) { $ids = array(); foreach ($results as $result) { $ids[] = $result->id; } // return immediately because we don't want to cache case insensitive results return $ids; } else { if (isset($results[0])) { $id = $results[0]->id; } } } if (!$id) { $id = _elgg_add_metastring($string); } $METASTRINGS_CACHE[$id] = $string; if ($metastrings_memcache) { $metastrings_memcache->save($string, $id); } return $id; }
/** * Return the meta string id for a given tag, or false. * * @param string $string The value (whatever that is) to be stored * @param bool $case_sensitive Do we want to make the query case sensitive? * @return mixed Integer tag or false. */ function get_metastring_id($string, $case_sensitive = true) { global $CONFIG, $METASTRINGS_CACHE, $METASTRINGS_DEADNAME_CACHE; $string = sanitise_string($string); $result = array_search($string, $METASTRINGS_CACHE); if ($result !== false) { if (isset($CONFIG->debug) && $CONFIG->debug) { error_log("** Returning id for string:{$string} from cache."); } return $result; } // See if we have previously looked for this and found nothing if (in_array($string, $METASTRINGS_DEADNAME_CACHE)) { return false; } // Experimental memcache $msfc = null; static $metastrings_memcache; if (!$metastrings_memcache && is_memcache_available()) { $metastrings_memcache = new ElggMemcache('metastrings_memcache'); } if ($metastrings_memcache) { $msfc = $metastrings_memcache->load($string); } if ($msfc) { return $msfc; } // Case sensitive $cs = ""; if ($case_sensitive) { $cs = " BINARY "; } $row = get_data_row("SELECT * from {$CONFIG->dbprefix}metastrings where string={$cs}'{$string}' limit 1"); if ($row) { $METASTRINGS_CACHE[$row->id] = $row->string; // Cache it // Attempt to memcache it if memcache is available if ($metastrings_memcache) { $metastrings_memcache->save($row->string, $row->id); } if (isset($CONFIG->debug) && $CONFIG->debug) { error_log("** Cacheing string '{$row->string}'"); } return $row->id; } else { $METASTRINGS_DEADNAME_CACHE[$string] = $string; } return false; }
function entity_view_counter_add_view(ElggEntity $entity) { if (entity_view_counter_is_counted($entity)) { return; } if (is_memcache_available()) { $cache = new ElggMemcache('entity_view_counter'); $key = "view_" . session_id() . "_" . $entity->guid; $cache->save($key, 1); } $guid = (int) $entity->guid; $type = sanitise_string($entity->type); $subtype = (int) $entity->subtype; insert_data("\r\n \tINSERT INTO elgg_entity_views (guid, type, subtype, container_guid, site_guid, views)\r\n \tVALUES ({$guid}, '{$type}', {$subtype}, {$entity->container_guid}, {$entity->site_guid}, 1)\r\n \tON DUPLICATE KEY UPDATE views = views + 1;\r\n "); }
/** * Create an Elgg* object from a given entity row. * * Handles loading all tables into the correct class. * * @param stdClass $row The row of the entry in the entities table. * * @return object|false * @link http://docs.elgg.org/DataModel/Entities * @see get_entity_as_row() * @see add_subtype() * @see get_entity() * @access private */ function entity_row_to_elggstar($row) { if (!$row instanceof stdClass) { return $row; } if (!isset($row->guid) || !isset($row->subtype)) { return $row; } $new_entity = false; // Create a memcache cache if we can static $newentity_cache; if (!$newentity_cache && is_memcache_available()) { $newentity_cache = new ElggMemcache('new_entity_cache'); } if ($newentity_cache) { $new_entity = $newentity_cache->load($row->guid); } if ($new_entity) { return $new_entity; } // load class for entity if one is registered $classname = get_subtype_class_from_id($row->subtype); if ($classname != "") { if (class_exists($classname)) { $new_entity = new $classname($row); if (!$new_entity instanceof ElggEntity) { $msg = elgg_echo('ClassException:ClassnameNotClass', array($classname, 'ElggEntity')); throw new ClassException($msg); } } else { error_log(elgg_echo('ClassNotFoundException:MissingClass', array($classname))); } } if (!$new_entity) { //@todo Make this into a function switch ($row->type) { case 'object': $new_entity = new ElggObject($row); break; case 'user': $new_entity = new ElggUser($row); break; case 'group': $new_entity = new ElggGroup($row); break; case 'site': $new_entity = new ElggSite($row); break; default: $msg = elgg_echo('InstallationException:TypeNotSupported', array($row->type)); throw new InstallationException($msg); } } // Cache entity if we have a cache available if ($newentity_cache && $new_entity) { $newentity_cache->save($new_entity->guid, $new_entity); } return $new_entity; }
/** * Return the meta string id for a given tag, or false. * * @param string $string The value to store * @param bool $case_sensitive Do we want to make the query case sensitive? * If not there may be more than one result * * @return int|array|false meta string id, array of ids or false if none found * @deprecated 1.9 Use elgg_get_metastring_id() */ function get_metastring_id($string, $case_sensitive = TRUE) { elgg_deprecated_notice(__FUNCTION__ . ' is deprecated. Use elgg_get_metastring_id()', 1.9); global $CONFIG, $METASTRINGS_CACHE, $METASTRINGS_DEADNAME_CACHE; $string = sanitise_string($string); // caching doesn't work for case insensitive searches if ($case_sensitive) { $result = array_search($string, $METASTRINGS_CACHE, true); if ($result !== false) { return $result; } // See if we have previously looked for this and found nothing if (in_array($string, $METASTRINGS_DEADNAME_CACHE, true)) { return false; } // Experimental memcache $msfc = null; static $metastrings_memcache; if (!$metastrings_memcache && is_memcache_available()) { $metastrings_memcache = new \ElggMemcache('metastrings_memcache'); } if ($metastrings_memcache) { $msfc = $metastrings_memcache->load($string); } if ($msfc) { return $msfc; } } // Case sensitive if ($case_sensitive) { $query = "SELECT * from {$CONFIG->dbprefix}metastrings where string= BINARY '{$string}' limit 1"; } else { $query = "SELECT * from {$CONFIG->dbprefix}metastrings where string = '{$string}'"; } $row = FALSE; $metaStrings = get_data($query); if (is_array($metaStrings)) { if (sizeof($metaStrings) > 1) { $ids = array(); foreach ($metaStrings as $metaString) { $ids[] = $metaString->id; } return $ids; } else { if (isset($metaStrings[0])) { $row = $metaStrings[0]; } } } if ($row) { $METASTRINGS_CACHE[$row->id] = $row->string; // Cache it // Attempt to memcache it if memcache is available if ($metastrings_memcache) { $metastrings_memcache->save($row->string, $row->id); } return $row->id; } else { $METASTRINGS_DEADNAME_CACHE[$string] = $string; } return false; }
/** * Create an Elgg* object from a given entity row. * * Handles loading all tables into the correct class. * * @param \stdClass $row The row of the entry in the entities table. * * @return \ElggEntity|false * @see get_entity_as_row() * @see add_subtype() * @see get_entity() * @access private * * @throws \ClassException|\InstallationException */ function rowToElggStar($row) { if (!$row instanceof \stdClass) { return $row; } if (!isset($row->guid) || !isset($row->subtype)) { return $row; } $new_entity = false; // Create a memcache cache if we can static $newentity_cache; if (!$newentity_cache && is_memcache_available()) { $newentity_cache = new \ElggMemcache('new_entity_cache'); } if ($newentity_cache) { $new_entity = $newentity_cache->load($row->guid); } if ($new_entity) { return $new_entity; } // load class for entity if one is registered $classname = get_subtype_class_from_id($row->subtype); if ($classname != "") { if (class_exists($classname)) { $new_entity = new $classname($row); if (!$new_entity instanceof \ElggEntity) { $msg = $classname . " is not a " . '\\ElggEntity' . "."; throw new \ClassException($msg); } } else { error_log("Class '" . $classname . "' was not found, missing plugin?"); } } if (!$new_entity) { //@todo Make this into a function switch ($row->type) { case 'object': $new_entity = new \ElggObject($row); break; case 'user': $new_entity = new \ElggUser($row); break; case 'group': $new_entity = new \ElggGroup($row); break; case 'site': $new_entity = new \ElggSite($row); break; default: $msg = "Entity type " . $row->type . " is not supported."; throw new \InstallationException($msg); } } // Cache entity if we have a cache available if ($newentity_cache && $new_entity) { $newentity_cache->save($new_entity->guid, $new_entity); } return $new_entity; }
function subsite_manager_get_plugin_order() { if (is_memcache_available()) { $memcache = new ElggMemcache('subsite_manager'); } if (isset($memcache)) { if ($plugin_order = $memcache->load('plugin_order')) { return $plugin_order; } } $db_prefix = get_config('dbprefix'); $priority = elgg_namespace_plugin_private_setting('internal', 'priority'); $options = array('type' => 'object', 'subtype' => 'plugin', 'limit' => ELGG_ENTITIES_NO_VALUE, 'selects' => array('plugin_oe.*'), 'joins' => array("JOIN {$db_prefix}private_settings ps on ps.entity_guid = e.guid", "JOIN {$db_prefix}objects_entity plugin_oe on plugin_oe.guid = e.guid"), 'wheres' => array("ps.name = '{$priority}'"), 'order_by' => "CAST(ps.value as unsigned), e.guid", 'site_guids' => array(1)); $plugins = elgg_get_entities_from_relationship($options); $plugin_order = array(); foreach ($plugins as $i => $plugin) { $plugin_order[$plugin->title] = $i; } if (isset($memcache)) { $memcache->save('plugin_order', $plugin_order); } return $plugin_order; }
/** * Get the value of a datalist element. * * @internal Datalists are stored in the datalist table. * * @tip Use datalists to store information common to a full installation. * * @param string $name The name of the datalist * @return string|null|false String if value exists, null if doesn't, false on error * @access private */ function datalist_get($name) { global $CONFIG, $DATALIST_CACHE; $name = trim($name); // cannot store anything longer than 255 characters in db, so catch here if (elgg_strlen($name) > 255) { elgg_log("The name length for configuration variables cannot be greater than 255", "ERROR"); return false; } $name = sanitise_string($name); if (isset($DATALIST_CACHE[$name])) { return $DATALIST_CACHE[$name]; } // If memcache enabled then cache value in memcache $value = null; static $datalist_memcache; if (!$datalist_memcache && is_memcache_available()) { $datalist_memcache = new ElggMemcache('datalist_memcache'); } if ($datalist_memcache) { $value = $datalist_memcache->load($name); } if ($value) { return $value; } // [Marcus Povey 20090217 : Now retrieving all datalist values on first // load as this saves about 9 queries per page] // This also causes OOM problems when the datalists table is large // @todo make a list of datalists that we want to get in one grab $result = get_data("SELECT * from {$CONFIG->dbprefix}datalists"); if ($result) { foreach ($result as $row) { $DATALIST_CACHE[$row->name] = $row->value; // Cache it if memcache is available if ($datalist_memcache) { $datalist_memcache->save($row->name, $row->value); } } if (isset($DATALIST_CACHE[$name])) { return $DATALIST_CACHE[$name]; } } return null; }
/** * Get the value of a datalist element. * * Plugin authors should use elgg_get_config() and pass null for the site GUID. * * @internal Datalists are stored in the datalist table. * * @tip Use datalists to store information common to a full installation. * * @param string $name The name of the datalist * @return string|null|false String if value exists, null if doesn't, false on error * @access private */ function datalist_get($name) { global $CONFIG, $DATALIST_CACHE; $name = trim($name); // cannot store anything longer than 255 characters in db, so catch here if (elgg_strlen($name) > 255) { elgg_log("The name length for configuration variables cannot be greater than 255", "ERROR"); return false; } if (isset($DATALIST_CACHE[$name])) { return $DATALIST_CACHE[$name]; } // If memcache enabled then cache value in memcache $value = null; static $datalist_memcache = null; if (!$datalist_memcache && is_memcache_available()) { $datalist_memcache = new ElggMemcache('datalist_memcache'); } if ($datalist_memcache) { $value = $datalist_memcache->load($name); } // @todo cannot cache 0 or false? if ($value) { return $value; } // not in cache and not in memcache so check database $escaped_name = sanitize_string($name); $result = get_data_row("SELECT * FROM {$CONFIG->dbprefix}datalists WHERE name = '{$escaped_name}'"); if ($result) { $DATALIST_CACHE[$result->name] = $result->value; // Cache it if memcache is available if ($datalist_memcache) { $datalist_memcache->save($result->name, $result->value); } return $result->value; } return null; }
/** * Get the value of a particular piece of data in the datalist * * @param string $name The name of the datalist * @return string|false Depending on success */ function datalist_get($name) { global $CONFIG, $DATALIST_CACHE; // We need this, because sometimes datalists are received before the database is created if (!is_db_installed()) { return false; } $name = sanitise_string($name); if (isset($DATALIST_CACHE[$name])) { return $DATALIST_CACHE[$name]; } // If memcache enabled then cache value in memcache $value = null; static $datalist_memcache; if (!$datalist_memcache && is_memcache_available()) { $datalist_memcache = new ElggMemcache('datalist_memcache'); } if ($datalist_memcache) { $value = $datalist_memcache->load($name); } if ($value) { return $value; } // [Marcus Povey 20090217 : Now retrieving all datalist values on first load as this saves about 9 queries per page] $result = get_data("SELECT * from {$CONFIG->dbprefix}datalists"); if ($result) { foreach ($result as $row) { $DATALIST_CACHE[$row->name] = $row->value; // Cache it if memcache is available if ($datalist_memcache) { $datalist_memcache->save($name, $row->value); } } if (isset($DATALIST_CACHE[$name])) { return $DATALIST_CACHE[$name]; } } /*if ($row = get_data_row("SELECT value from {$CONFIG->dbprefix}datalists where name = '{$name}' limit 1")) { $DATALIST_CACHE[$name] = $row->value; // Cache it if memcache is available if ($datalist_memcache) $datalist_memcache->save($name, $row->value); return $row->value; }*/ return false; }
public function put($key, $value) { $this->memcache->save($key, $value, 0); }
/** * Return the metadata values that match your query. * * @param string $meta_name * @return mixed either a value, an array of ElggMetadata or false. */ function get_metadata_byname($entity_guid, $meta_name) { global $CONFIG; $meta_name = get_metastring_id($meta_name); if (empty($meta_name)) { return false; } $entity_guid = (int) $entity_guid; $access = get_access_sql_suffix("e"); $md_access = get_access_sql_suffix("m"); // If memcache is available then cache this (cache only by name for now since this is the most common query) $meta = null; static $metabyname_memcache; if (!$metabyname_memcache && is_memcache_available()) { $metabyname_memcache = new ElggMemcache('metabyname_memcache'); } if ($metabyname_memcache) { $meta = $metabyname_memcache->load("{$entity_guid}:{$meta_name}"); } if ($meta) { return $meta; } $result = get_data("SELECT m.*, n.string as name, v.string as value from {$CONFIG->dbprefix}metadata m JOIN {$CONFIG->dbprefix}entities e ON e.guid = m.entity_guid JOIN {$CONFIG->dbprefix}metastrings v on m.value_id = v.id JOIN {$CONFIG->dbprefix}metastrings n on m.name_id = n.id where m.entity_guid={$entity_guid} and m.name_id='{$meta_name}' and {$access} and {$md_access}", "row_to_elggmetadata"); if (!$result) { return false; } // Cache if memcache available if ($metabyname_memcache) { if (count($result) == 1) { $r = $result[0]; } else { $r = $result; } $metabyname_memcache->setDefaultExpiry(3600); // This is a bit of a hack - we shorten the expiry on object metadata so that it'll be gone in an hour. This means that deletions and more importantly updates will filter through eventually. $metabyname_memcache->save("{$entity_guid}:{$meta_name}", $r); } if (count($result) == 1) { return $result[0]; } return $result; }
/** * Return an array of all private settings. * * @param int $entity_guid The entity GUID * * @return array|false * @see set_private_setting() * @see get_private_settings() * @see remove_private_setting() * @see remove_all_private_settings() * @link http://docs.elgg.org/DataModel/Entities/PrivateSettings */ function get_all_private_settings($entity_guid) { global $PRIVATE_SETTINGS_CACHE; static $private_setting_memcache; $dbprefix = elgg_get_config("dbprefix"); $entity_guid = (int) $entity_guid; // check if you have access to the entity if (!elgg_get_ignore_access() && !get_entity_as_row($entity_guid)) { return false; } // first check localy if (isset($PRIVATE_SETTINGS_CACHE[$entity_guid])) { return $PRIVATE_SETTINGS_CACHE[$entity_guid]; } if (!isset($private_setting_memcache) && is_memcache_available()) { $private_setting_memcache = new ElggMemcache("private_settings"); } if ($private_setting_memcache) { if ($settings = $private_setting_memcache->load($entity_guid)) { // cache localy $PRIVATE_SETTINGS_CACHE[$entity_guid] = $settings; if (!empty($settings)) { return $settings; } else { return false; } } } $query = "SELECT *"; $query .= " FROM {$dbprefix}private_settings"; $query .= " WHERE entity_guid = {$entity_guid}"; $settings = array(); if ($result = get_data($query)) { foreach ($result as $r) { $settings[$r->name] = $r->value; } } if ($private_setting_memcache) { $private_setting_memcache->save($entity_guid, $settings); } if (!empty($settings)) { // cache localy $PRIVATE_SETTINGS_CACHE[$entity_guid] = $settings; return $settings; } return false; }
/** * Set the value for a datalist element. * * @param string $name The name of the datalist * @param string $value The new value * * @return bool * @access private */ function datalist_set($name, $value) { global $CONFIG, $DATALIST_CACHE; // cannot store anything longer than 255 characters in db, so catch before we set if (elgg_strlen($name) > 255) { elgg_log("The name length for configuration variables cannot be greater than 255", "ERROR"); return false; } $sanitised_name = sanitise_string($name); $sanitised_value = sanitise_string($value); // If memcache is available then invalidate the cached copy static $datalist_memcache; if (!$datalist_memcache && is_memcache_available()) { $datalist_memcache = new ElggMemcache('datalist_memcache'); } if ($datalist_memcache) { $datalist_memcache->delete($name); } $success = insert_data("INSERT into {$CONFIG->dbprefix}datalists" . " set name = '{$sanitised_name}', value = '{$sanitised_value}'" . " ON DUPLICATE KEY UPDATE value='{$sanitised_value}'"); if ($success !== FALSE) { $DATALIST_CACHE[$name] = $value; if ($datalist_memcache) { $datalist_memcache->save($name, $value); } return true; } else { return false; } }
<?php $site = elgg_get_site_entity(); $key = "css_splash_" . $site->guid; if (is_memcache_available()) { $cache = new ElggMemcache("rijkshuisstijl"); $css = $cache->load($key); if ($css) { echo $css; return; } } $parser = new Less_Parser(); $parser->parseFile(RIJKSHUISSTIJL_LESS . "/splash.less", "/mod/rijkshuisstijl/src/assets/"); $colors = elgg_get_plugin_setting("colors", "rijkshuisstijl"); if ($colors) { $colors = unserialize($colors); foreach ($colors as $number => $value) { $parser->parse("@belastingdienst--{$number}: {$value};"); } } $css = $parser->getCss(); echo $css; if (is_memcache_available()) { $cache->save($key, $css, 0); }