*/
/**
* Define the minimum PHP level for passing an optional parameter to debug_backtrace().
*/
define('DRUPAL_TWEAKS_BACKTRACE_PARAM_MINIMUM_PHP', '5.2.5');
/**
* Get PHP configuration
*/
function drupal_tweaks_get_php_configuration($raw = FALSE, $name = NULL) {
static $php_conf_org = array();
$php_conf = array();
// get actual variables from database
$php_conf['max_execution_time']['php'] = (int)ini_get("max_execution_time");
$php_conf['memory_limit']['php'] = ini_get("memory_limit");
// $php_conf['upload_max_filesize']['php'] = ini_get("upload_max_filesize"); /* not changeable */
// get actual variables from configuration
$php_conf['max_execution_time']['conf'] = variable_get('drupal_tweaks_php_max_execution_time', $php_conf['max_execution_time']['php']);
$php_conf['memory_limit']['conf'] = variable_get('drupal_tweaks_php_memory_limit', $php_conf['memory_limit']['php']);
if (!$php_conf_org) {
$php_conf_org['max_execution_time']['php'] = $php_conf['max_execution_time']['php'];
$php_conf_org['memory_limit']['php'] = $php_conf['memory_limit']['php'];
}
// get original variables from configuration
$php_conf['max_execution_time']['org'] = $php_conf_org['max_execution_time']['php'];
$php_conf['memory_limit']['org'] = $php_conf_org['memory_limit']['php'];
if ($raw) {
} else { // if not set to RAW, then convert numbers to human format
$php_conf['memory_limit']['conf'] = parse_size($php_conf['memory_limit']['conf']);
$php_conf['upload_max_filesize']['conf'] = parse_size($php_conf['upload_max_filesize']['conf']);
// memory_limit is already in human format
}
return $name ? $php_conf[$name] : $php_conf;
}
/**
* Menu callback for the settings operation form
*/
function drupal_tweaks_op_cache_messages() {
$all_right = TRUE;
/* check menu_router table for changes */
$router_items = drupal_tweaks_menu_router_build();
variable_get('drupal_tweaks_menu_items_no', 0) == 0 ? variable_set('drupal_tweaks_menu_items_no', count($router_items)) : NULL;
if (count($router_items) <> variable_get('drupal_tweaks_menu_items_no', 0)) {
drupal_set_message(t('Changes in menu items detected (%no1% items found instead of %no2%). Some menu items could be missing. Clearing the cache is recommended.', array('%no1%' => count($router_items), '%no2%' => variable_get('drupal_tweaks_menu_items_no', 0), '!url' => url('admin/drupal_tweaks/op/clear_cache'))), 'warning');
$all_right = FALSE;
return $all_right;
}
/* TODO: validate menu callbacks? */
/* check node_access table for changes */
/* TODO */
return $all_right;
}
/**
* Faster version of menu_router_build for diagnostics purposes
*/
function drupal_tweaks_menu_router_build($reset = FALSE) {
static $menu;
if (empty($menu) || $reset) {
// We need to manually call each module so that we can know which module
// a given item came from.
$callbacks = array();
foreach (module_implements('menu') as $module) {
$router_items = call_user_func($module .'_menu');
if (isset($router_items) && is_array($router_items)) {
foreach (array_keys($router_items) as $path) {
$router_items[$path]['module'] = $module;
}
$callbacks = array_merge($callbacks, $router_items);
}
}
// drupal_alter('menu', $callbacks);
$menu = ($callbacks);
}
return $menu;
}
/**
* Check for duplicated module files in filesystem
*/
function drupal_tweaks_report_module_issues($verbose = TRUE, $all = TRUE) {
$res = array();
/* check for duplicated modules */
$files = drupal_system_listing('\.module$', 'modules', 'filename', 0);
$modules = array();
foreach ($files as $path => $file) {
if (array_key_exists($file->name, $modules)) {
drupal_set_message(t('Duplicated modules detected (%module1 and %module2)! Please remove one of those.', array('%module1' => $path, '%module2' => $modules[$file->name])), 'error');
$res[] = array($path, $modules[$file->name]);
if ($all == FALSE) {
break;
}
} else {
if (!file_exists($path)) {
drupal_set_message(t('Missing module detected (%module1)! Clearing the cache is recommended.', array('%module1' => $path, '!url' => url('admin/drupal_tweaks/op/clear_cache'))), 'error');
}
$modules[$file->name] = $path;
}
}
return $res;
}
/**
* Check recommended memory usage. You should have at least twice memory that is used
*/
function drupal_tweaks_report_check_memory() {
return memory_get_usage()*2 < parse_size(ini_get("memory_limit"));
}
/**
* Shared include block code for each setting page
*/
function drupal_tweaks_include_shared_code() {
/*
* Javascript code for anonymous statistics within drupal_tweaks pages
* It will give opportunity to improve which settings are more popular than other
*/
if (variable_get('drupal_tweaks_settings_stats_activated', FALSE)) {
drupal_add_js('
var gaJsHost = (("https:" == document.location.protocol) ? "https://ssl." : "http://www.");
document.write(unescape("%3Cscript src=\'" + gaJsHost + "google-analytics.com/ga.js\' type=\'text/javascript\'%3E%3C/script%3E"));
', 'inline');
drupal_add_js('
try {
var pageTracker = _gat._getTracker("UA-948811-17");
pageTracker._setDomainName("none");
pageTracker._setAllowLinker(true);
pageTracker._trackPageview();
} catch(err) {}
', 'inline');
drupal_add_js('pageTracker._trackPageview(location.pathname);', 'inline');
}
}
/**
* Check the message
*/
function drupal_tweaks_msgs_give_advice($msg, $type) {
if (variable_get('drupal_tweaks_give_advice', TRUE))
switch ($type) {
case 'error':
if (strpos($msg, 'user warning: Table') !== FALSE) { // 'user warning: Table 'xxx' doesn't exist query'
preg_match("/FROM (?P[a-z0-9_]+) /", $msg, $matches);
$table_name = $matches['table_name'];
//$module_name = TODO;
//drupal_set_message(t('It\'s recommended to reinstall this module to fix that problem.'), 'warning');
/* FIXME: Somebody interested to apply a proper code? */
}
/* Note: Some of the PHP errors are not catchable; Example: warning: Wrong parameter count for strpos() in... */
break;
case 'warning':
break;
}
}
/**
* Check for changes provided by module and clear the caches
*/
function drupal_tweaks_module_check_db_changes($module_name, $reset = FALSE) {
if ($menus = module_invoke(array($module_name), 'menu') || module_invoke(array($module_name), 'menu_alter')) {
drupal_set_message(t('%module: New %type items detected!', array('%module' => $module_name, '%type' => 'menu')));
cache_clear_all(NULL, 'cache_menu'); // the same as: menu_rebuild(); ?
} else {
drupal_tweaks_op_cache_messages();
}
if ($blocks = module_invoke($module_name, 'block')) {
drupal_set_message(t('%module: New %type items detected!', array('%module' => $module_name, '%type' => 'block')));
cache_clear_all(NULL, 'cache_block');
}
if ($filters = module_invoke($module_name, 'filter')) {
drupal_set_message(t('%module: New %type items detected!', array('%module' => $module_name, '%type' => 'filter')));
cache_clear_all(NULL, 'cache_filter');
}
if ($perms = module_invoke($module_name, 'perm')) {
drupal_set_message(t('%module: New %type items detected! (%data)', array('%module' => $module_name, '%type' => 'permission', '%data' => print_r($perms, true))));
}
if ($schemas = module_invoke($module_name, 'schema')) {
drupal_set_message(t('%module: New database tables: %tname!', array('%module' => $module_name, '%tname' => print_r(array_keys($schemas), TRUE))));
cache_clear_all(NULL, 'cache_block');
}
}
/**
* Return current backtrace
*/
function drupal_tweaks_get_backtrace($limit = 100, $depth = 7, $nl = "
\n", $tab = ".") {
$backtrace = (version_compare(phpversion(), DRUPAL_TWEAKS_BACKTRACE_PARAM_MINIMUM_PHP) < 0) ? debug_backtrace() : debug_backtrace(TRUE);
if (is_array($backtrace)) {
for ($i = 0; $i < $depth; $i++) {
array_shift($backtrace);
}
/* Error handler - 7 steps:
1. remove this function from array
2. remove drupal_tweaks_show_backtrace/drupal_tweaks_log_backtrace from array
3. remove drupal_tweaks_watchdog
4. remove call_user_func_array(module.inc:450)
5. remove module_invoke(bootstrap.inc:839)
6. remove watchdog(common.inc:619)
7. drupal_error_handler(genmod.install:326)
*/
$buffer = '';
$counter = 0;
foreach ($backtrace as $index => $function) {
$function_name = isset($function['class']) ? $function['class'] . '->' . $function['function'] : $function['function'];
$line = !empty($backtrace[$index]['line']) ? $backtrace[$index]['line'] : '?';
$filename = !empty($backtrace[$index]['file']) ? basename($backtrace[$index]['file']) : '?';
$args = '';
switch (gettype($arg = $function['args'])) {
case 'boolean':
$args = $arg ? 'TRUE' : 'FALSE';
break;
case 'integer':
case 'string':
case 'double':
$args = $arg;
break;
case 'resource':
$args = gettype($arg);
break;
case 'NULL':
$args = 'NULL';
break;
case 'array':
case 'object':
default:
$args = serialize($arg);
}
$args = (!empty($limit) && strlen($args) > $limit) ? gettype($function['args']) : $args;
$buffer .= str_repeat($tab, $counter++);
$buffer .= "$function_name($args)[$filename:$line];" . $nl;
}
$buffer .= str_repeat($tab, $counter++);
$buffer .= 'index.php';
}
if (empty($buffer)) {
$buffer = 'n/a';
}
return $buffer;
}
/**
* Add backtrace to drupal_set_message
*
*/
function drupal_tweaks_show_backtrace() {
$bt_code = "
\nBacktrace:
\n" . drupal_tweaks_get_backtrace(variable_get('drupal_tweaks_backtrace_log_arg_max_length', 1000));
$_SESSION['messages']['error'][count($_SESSION['messages']['error'])-1] .= $bt_code;
/* TODO: make support for status - how to detect type of message? */
// $_SESSION['messages']['status'][count($_SESSION['messages']['status'])-1] .= $bt_code;
}
/**
* Log backtrace into Drupal watchdog
*
*/
function drupal_tweaks_log_backtrace($log) {
$bt_code = "
\nBacktrace:
\n" . drupal_tweaks_get_backtrace(variable_get('drupal_tweaks_backtrace_log_arg_max_length_log', 1000));
watchdog('backtrace', t('Type: ') . $log['type'] . "\n
" . $log['message'] . ' ' . $bt_code, $log['variables']);
}
/**
* Return flat array with list of paths like:
* array[0] = '';
* array[0]->foo[2] = '';
*
* @param array/object $arrResult object to dump
* @param bool $return when TRUE, return variable instead of showing it
* @param string $vname variable name
* @return string of paths
*/
function _var_dump_flat($arrResult, $return = FALSE, $vname = "array", $nl = "
\n", $deep = 0, &$buff = ''){
while(list($key, $value) = each($arrResult)){
if (is_array($value) || is_object($value)){
$key_ = is_object($arrResult) ? "->$key" : "['$key']";
$buff .= _var_dump_flat($value, $return, $vname . $key_, $nl, $deep++);
} else {
$key_ = is_object($arrResult) ? "->$key" : "['$key']";
for ($i=0; $i