';
foreach($errortrace as $error){
$str .= $error->message.'
';
$str .= @$error->content;
}
$str .= '';
$str .= '";
echo $str;
if (!defined('CLI_SCRIPT')) echo "";
}
/**
* Sets a platform configuration setting to a given value, creating it if necessary
* @param string The value we want to record
* @param string The variable name we want to insert
* @param string The subkey for the variable we want to insert
* @param string The type for the variable we want to insert
* @param string The category for the variable we want to insert
* @param string The title
* @param string The comment
* @param string The scope
* @param string The subkey text
* @param int The access_url for which this parameter is valid
* @param int The changeability of this setting for non-master urls
* @return boolean true on success, false on failure
*/
function api_update_setting($val, $var, $sk = null, $type = 'textfield', $c = null, $title = '', $com = '', $sc = null, $skt = null, $a = 1, $v = 0) {
global $_setting;
if (empty($var) || !isset($val)) {
return false;
}
$t_settings = Database::get_main_table(TABLE_MAIN_SETTINGS_CURRENT);
$var = Database::escape_string($var);
$val = Database::escape_string($val);
$a = (int) $a;
if (empty($a)) { $a = 1; }
// Check if this variable doesn't exist already
$select = "SELECT id FROM $t_settings WHERE variable = '$var' ";
if (!empty($sk)) {
$sk = Database::escape_string($sk);
$select .= " AND subkey = '$sk'";
}
if ($a > 1) {
$select .= " AND access_url = $a";
} else {
$select .= " AND access_url = 1 ";
}
$res = Database::query($select);
if (Database::num_rows($res) > 0) { // Found item for this access_url.
$row = Database::fetch_array($res);
// update value
$update['selected_value'] = $val;
Database::update($t_settings, $update, array('id = ?' => $row['id']));
return $row['id'];
// update in memory setting value
$_setting[$var][$sk] = $val;
}
// Item not found for this access_url, we have to check if the whole thing is missing
// (in which case we ignore the insert) or if there *is* a record but just for access_url = 1
$insert = "INSERT INTO $t_settings " .
"(variable,selected_value," .
"type,category," .
"subkey,title," .
"comment,scope," .
"subkeytext,access_url,access_url_changeable)" .
" VALUES ('$var','$val',";
if (isset($type)) {
$type = Database::escape_string($type);
$insert .= "'$type',";
} else {
$insert .= "NULL,";
}
if (isset($c)) { // Category
$c = Database::escape_string($c);
$insert .= "'$c',";
} else {
$insert .= "NULL,";
}
if (isset($sk)) { // Subkey
$sk = Database::escape_string($sk);
$insert .= "'$sk',";
} else {
$insert .= "NULL,";
}
if (isset($title)) { // Title
$title = Database::escape_string($title);
$insert .= "'$title',";
} else {
$insert .= "NULL,";
}
if (isset($com)) { // Comment
$com = Database::escape_string($com);
$insert .= "'$com',";
} else {
$insert .= "NULL,";
}
if (isset($sc)) { // Scope
$sc = Database::escape_string($sc);
$insert .= "'$sc',";
} else {
$insert .= "NULL,";
}
if (isset($skt)) { // Subkey text
$skt = Database::escape_string($skt);
$insert .= "'$skt',";
} else {
$insert .= "NULL,";
}
$insert .= "$a,$v)";
$res = Database::query($insert);
// update in memory setting value
$_setting[$var][$sk] = $value;
return $res;
}
/**
* converts a timestamp to sql tms
* @param lint $time a unix timestamp
*/
function make_tms($time) {
$tms = date('Y-m-d H:i:s', $time);
return $tms;
}
/**
* Makes sure the data is using valid utf8, invalid characters are discarded.
*
* Note: this function is not intended for full objects with methods and private properties.
*
* @param mixed $value
* @return mixed with proper utf-8 encoding
*/
function fix_utf8($value) {
if (is_null($value) or $value === '') {
return $value;
} else if (is_string($value)) {
if ((string)(int)$value === $value) {
// shortcut
return $value;
}
// Lower error reporting because glibc throws bogus notices.
$olderror = error_reporting();
if ($olderror & E_NOTICE) {
error_reporting($olderror ^ E_NOTICE);
}
// Note: this duplicates min_fix_utf8() intentionally.
static $buggyiconv = null;
if ($buggyiconv === null) {
$buggyiconv = (!function_exists('iconv') or iconv('UTF-8', 'UTF-8//IGNORE', '100'.chr(130).'\80') !== '100\80');
}
if ($buggyiconv) {
if (function_exists('mb_convert_encoding')) {
$subst = mb_substitute_character();
mb_substitute_character('');
$result = mb_convert_encoding($value, 'utf-8', 'utf-8');
mb_substitute_character($subst);
} else {
// Warn admins on admin/index.php page.
$result = $value;
}
} else {
$result = iconv('UTF-8', 'UTF-8//IGNORE', $value);
}
if ($olderror & E_NOTICE) {
error_reporting($olderror);
}
return $result;
} else if (is_array($value)) {
foreach ($value as $k=>$v) {
$value[$k] = fix_utf8($v);
}
return $value;
} else if (is_object($value)) {
$value = clone($value); // do not modify original
foreach ($value as $k=>$v) {
$value->$k = fix_utf8($v);
}
return $value;
} else {
// this is some other type, no utf-8 here
return $value;
}
}
function print_object($obj) {
echo '';
print_r($obj);
echo '';
}
function require_js($file, $component, $return = false) {
global $_configuration, $htmlHeadXtra;
if (preg_match('/^local_/', $component)) {
$component = str_replace('local_', '', $component);
$path = 'local/';
} else {
$path = 'plugin/';
}
// Secure the postslashing of the roots.
$root_web = $_configuration['root_web'].'/';
$root_web = preg_replace('#//$#', '/', $root_web);
$str = ''."\n";
if ($return === 'head') {
$htmlHeadXtra[] = $str;
}
if ($return) {
return $str;
}
echo $str;
}
function require_css($file, $component, $return = false) {
global $_configuration, $htmlHeadXtra;
if (preg_match('/^local_/', $component)) {
$component = str_replace('local_', '', $component);
$path = 'local/';
} else {
$path = 'plugin/';
}
// Secure the postslashing of the roots.
$root_web = $_configuration['root_web'].'/';
$root_web = preg_replace('#//$#', '/', $root_web);
$str = ''."\n";
if ($return === 'head') {
$htmlHeadXtra[] = $str;
}
if ($return) {
return $str;
}
echo $str;
}
/**
*
*/
function required_param($key, $type = 0) {
if (array_key_exists($key, $_REQUEST)) {
$value = $_REQUEST[$key];
$value = param_filter_type($value, $type);
return $value;
}
die("Missing expected param $key in request input");
}
function optional_param($key, $default, $type = 0) {
if (array_key_exists($key, $_REQUEST)) {
$value = $_REQUEST[$key];
$value = param_filter_type($value, $type);
return $value;
}
return $default;
}
function param_filter_type($value, $type) {
switch($type) {
case 0:
return $value; // no filtering
case PARAM_BOOL:
return $value == 0; // forces outputing boolean
case PARAM_INT:
if (preg_match('/^([1-90]+)/', $value, $matches)) {
return $matches[1];
}
return 0;
case PARAM_TEXT:
// TODO more filtering here
return $value;
}
}
function redirect($url) {
header("Location: $url\n\n");
}