[ROLLBACK] rolling back the old way of working on variables. new using 'strata' is undocumented and not working
This commit is contained in:
Benjamin Sonntag
parent
baabda2369
commit
2014abb1e5
|
|
@ -107,6 +107,7 @@ $root=ALTERNC_PANEL."/";
|
||||||
|
|
||||||
require_once($root."/class/db_mysql.php");
|
require_once($root."/class/db_mysql.php");
|
||||||
require_once($root."/class/functions.php");
|
require_once($root."/class/functions.php");
|
||||||
|
require_once($root."/class/variables.php");
|
||||||
|
|
||||||
// Redirection si appel <20> https://(!fqdn)/
|
// Redirection si appel <20> https://(!fqdn)/
|
||||||
if (isset($_SERVER["HTTPS"]) && $_SERVER["HTTPS"]=="on" && $host!=$L_FQDN) {
|
if (isset($_SERVER["HTTPS"]) && $_SERVER["HTTPS"]=="on" && $host!=$L_FQDN) {
|
||||||
|
|
@ -170,7 +171,6 @@ foreach ( glob( $root."class/class_system_*.php") as $fcs ) {
|
||||||
/* Language */
|
/* Language */
|
||||||
include_once("lang_env.php");
|
include_once("lang_env.php");
|
||||||
|
|
||||||
$variables=new m_variables();
|
|
||||||
$mem=new m_mem();
|
$mem=new m_mem();
|
||||||
$err=new m_err();
|
$err=new m_err();
|
||||||
$authip=new m_authip();
|
$authip=new m_authip();
|
||||||
|
|
|
||||||
|
|
@ -35,21 +35,6 @@ mt_srand((float) $sec + ((float) $usec * 100000));
|
||||||
*/
|
*/
|
||||||
function fl($str) { return str_replace("<","<",str_replace("\"",""",$str)); }
|
function fl($str) { return str_replace("<","<",str_replace("\"",""",$str)); }
|
||||||
|
|
||||||
/**
|
|
||||||
*
|
|
||||||
* @global array $variables
|
|
||||||
* @param string $name
|
|
||||||
* @param mixed $default
|
|
||||||
* @param string $createit_comment
|
|
||||||
* @param struing $type
|
|
||||||
* @return mixed
|
|
||||||
*/
|
|
||||||
function variable_get($name, $default = null, $createit_comment = null, $type = null) {
|
|
||||||
global $variables;
|
|
||||||
return $variables->variable_get($name, $default, $createit_comment, $type);
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
/**
|
/**
|
||||||
* Check if a domain can be hosted on this server :
|
* Check if a domain can be hosted on this server :
|
||||||
|
|
|
||||||
|
|
@ -1,451 +0,0 @@
|
||||||
<?php
|
|
||||||
|
|
||||||
/*
|
|
||||||
* $Id: variables.php,v 1.8 2005/04/02 00:26:36 anarcat Exp $
|
|
||||||
----------------------------------------------------------------------
|
|
||||||
AlternC - Web Hosting System
|
|
||||||
Copyright (C) 2002 by the AlternC Development Team.
|
|
||||||
http://alternc.org/
|
|
||||||
----------------------------------------------------------------------
|
|
||||||
Based on:
|
|
||||||
Valentin Lacambre's web hosting softwares: http://altern.org/
|
|
||||||
----------------------------------------------------------------------
|
|
||||||
LICENSE
|
|
||||||
|
|
||||||
This program is free software; you can redistribute it and/or
|
|
||||||
modify it under the terms of the GNU General Public License (GPL)
|
|
||||||
as published by the Free Software Foundation; either version 2
|
|
||||||
of the License, or (at your option) any later version.
|
|
||||||
|
|
||||||
This program is distributed in the hope that it will be useful,
|
|
||||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
||||||
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
||||||
GNU General Public License for more details.
|
|
||||||
|
|
||||||
To read the license please visit http://www.gnu.org/copyleft/gpl.html
|
|
||||||
----------------------------------------------------------------------
|
|
||||||
*/
|
|
||||||
|
|
||||||
/**
|
|
||||||
* Persistent variable table
|
|
||||||
*
|
|
||||||
* @author Drupal Developpement Team
|
|
||||||
* @link http://cvs.drupal.org/viewcvs/drupal/drupal/includes/bootstrap.inc?rev=1.38&view=auto
|
|
||||||
* @
|
|
||||||
*/
|
|
||||||
class m_variables {
|
|
||||||
var $strata_order = array('DEFAULT','GLOBAL','FQDN_CREATOR','FQDN','CREATOR','MEMBER','DOMAIN');
|
|
||||||
var $cache_variable_list = false;
|
|
||||||
var $replace_array = array();
|
|
||||||
var $cache_conf = array();
|
|
||||||
|
|
||||||
const TYPE_STRING = "string";
|
|
||||||
const TYPE_BOOLEAN = "boolean";
|
|
||||||
const TYPE_INTEGER = "integer";
|
|
||||||
const TYPE_IP = "ip";
|
|
||||||
|
|
||||||
/**
|
|
||||||
*
|
|
||||||
* @global string $L_FQDN
|
|
||||||
*/
|
|
||||||
function m_variables() {
|
|
||||||
global $L_FQDN;
|
|
||||||
$this->replace_array = array(
|
|
||||||
"%%FQDN%%"=> $L_FQDN,
|
|
||||||
);
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
/**
|
|
||||||
* used by get_impersonated to merge array. Son value overwrite father's value
|
|
||||||
*
|
|
||||||
* @param array $father
|
|
||||||
* @param array $son
|
|
||||||
* @return array
|
|
||||||
*/
|
|
||||||
private function variable_merge($father, $son) {
|
|
||||||
if (! is_array($son)) return $father;
|
|
||||||
foreach ($son as $k=>$v) {
|
|
||||||
$father[$k] = $v;
|
|
||||||
}
|
|
||||||
return $father;
|
|
||||||
}
|
|
||||||
|
|
||||||
/**
|
|
||||||
* Load the persistent variable table.
|
|
||||||
*
|
|
||||||
* The variable table is composed of values that have been saved in the table
|
|
||||||
* with variable_set() as well as those explicitly specified in the configuration
|
|
||||||
* file.
|
|
||||||
*
|
|
||||||
* @global int $cuid
|
|
||||||
* @return array
|
|
||||||
*/
|
|
||||||
function variable_init() {
|
|
||||||
global $cuid;
|
|
||||||
if ($cuid > 1999) {
|
|
||||||
$mid = $cuid;
|
|
||||||
} else {
|
|
||||||
$mid = null;
|
|
||||||
}
|
|
||||||
|
|
||||||
// In case we launch it in a script, there is no $_SERVER
|
|
||||||
if (isset($_SERVER['HTTP_HOST'])) {
|
|
||||||
$host=$_SERVER['HTTP_HOST'];
|
|
||||||
} else {
|
|
||||||
$host=null;
|
|
||||||
}
|
|
||||||
return $this->get_impersonated($host, $mid);
|
|
||||||
}
|
|
||||||
|
|
||||||
/**
|
|
||||||
* Return the var for a specific environnement :
|
|
||||||
* * logged via $fqdn url
|
|
||||||
* * the user is $uid
|
|
||||||
* * $var if we want only 1 var instead of all of them
|
|
||||||
*
|
|
||||||
* If $fqdn and $uid aren't specified, return the default value
|
|
||||||
*
|
|
||||||
* @global m_mysql $db
|
|
||||||
* @global m_err $err
|
|
||||||
* @param string $fqdn
|
|
||||||
* @param int $uid
|
|
||||||
* @param string $var
|
|
||||||
* @return array
|
|
||||||
*/
|
|
||||||
function get_impersonated($fqdn=null, $uid=null, $var=null) {
|
|
||||||
global $db, $err;
|
|
||||||
|
|
||||||
$arr_var=$this->variables_list();
|
|
||||||
|
|
||||||
// Get some vars we are going to need.
|
|
||||||
if ($fqdn != NULL) {
|
|
||||||
$sub_infos=m_dom::get_sub_domain_id_and_member_by_name( strtolower($fqdn) );
|
|
||||||
} else {
|
|
||||||
$sub_infos=false;
|
|
||||||
}
|
|
||||||
|
|
||||||
if ( $uid != NULL ) {
|
|
||||||
$creator=m_mem::get_creator_by_uid($uid);
|
|
||||||
} else {
|
|
||||||
$creator=false;
|
|
||||||
}
|
|
||||||
|
|
||||||
$variables = array();
|
|
||||||
// Browse the array in the specific order of the strata
|
|
||||||
foreach ( $this->strata_order as $strata) {
|
|
||||||
if (! isset($arr_var[$strata]) || !is_array($arr_var[$strata])) continue;
|
|
||||||
switch($strata) {
|
|
||||||
case 'DEFAULT':
|
|
||||||
|
|
||||||
// $variables = $this->variable_merge(array(),$arr_var['DEFAULT'][NULL]);
|
|
||||||
$variablesList = current($arr_var["DEFAULT"]);
|
|
||||||
$variables = $this->variable_merge(array(),$variablesList);
|
|
||||||
break;
|
|
||||||
case 'GLOBAL':
|
|
||||||
$variables = $this->variable_merge($variables, $arr_var['GLOBAL'][NULL]);
|
|
||||||
break;
|
|
||||||
case 'FQDN_CREATOR':
|
|
||||||
if ( is_array($sub_infos) && isset($arr_var['FQDN_CREATOR'][$sub_infos['member_id']]) && is_array($arr_var['FQDN_CREATOR'][$sub_infos['member_id']])) {
|
|
||||||
$variables = $this->variable_merge($variables, $arr_var['FQDN_CREATOR'][$sub_infos['member_id']]);
|
|
||||||
}
|
|
||||||
break;
|
|
||||||
case 'FQDN':
|
|
||||||
if ( is_array($sub_infos) && isset($arr_var['FQDN'][$sub_infos['sub_id']]) && is_array($arr_var['FQDN'][$sub_infos['sub_id']])) {
|
|
||||||
$variables = $this->variable_merge($variables, $arr_var['FQDN'][$sub_infos['sub_id']]);
|
|
||||||
}
|
|
||||||
break;
|
|
||||||
case 'CREATOR':
|
|
||||||
if ( $creator && isset($arr_var['CREATOR'][$creator]) && is_array($arr_var['CREATOR'][$creator])) {
|
|
||||||
$variables = $this->variable_merge($variables, $arr_var['CREATOR'][$creator] );
|
|
||||||
}
|
|
||||||
break;
|
|
||||||
case 'MEMBER':
|
|
||||||
if ( $uid && isset($arr_var['MEMBER'][$uid]) && is_array($arr_var['MEMBER'][$uid])) {
|
|
||||||
$variables = $this->variable_merge($variables, $arr_var['MEMBER'][$uid] );
|
|
||||||
}
|
|
||||||
break;
|
|
||||||
case 'DOMAIN':
|
|
||||||
//FIXME TODO
|
|
||||||
break;
|
|
||||||
} //switch
|
|
||||||
|
|
||||||
} //foreach
|
|
||||||
|
|
||||||
// Replace needed vars
|
|
||||||
foreach ($variables as $vv => $hh) {
|
|
||||||
if (!isset($hh['value']) || empty($hh['value'])) {
|
|
||||||
continue;
|
|
||||||
}
|
|
||||||
if( is_array($hh['value'])){
|
|
||||||
foreach($hh["value"] as $key => $val){
|
|
||||||
$variables[$vv]['value'][$key] = strtr($hh['value'][$key], $this->replace_array );
|
|
||||||
}
|
|
||||||
}
|
|
||||||
else{
|
|
||||||
$variables[$vv]['value'] = strtr($hh['value'], $this->replace_array );
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
if ($var && isset($variables[$var])) {
|
|
||||||
return $variables[$var];
|
|
||||||
} else {
|
|
||||||
return $variables;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
/**
|
|
||||||
* Initialize the global conf
|
|
||||||
*
|
|
||||||
* @uses variable_init()
|
|
||||||
* @param boolean $force
|
|
||||||
*/
|
|
||||||
function variable_init_maybe($force=false) {
|
|
||||||
if ($force || empty($this->cache_conf) ) {
|
|
||||||
$this->cache_variable_list = false;
|
|
||||||
$this->cache_conf = $this->variable_init();
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
/**
|
|
||||||
* Return a persistent variable.
|
|
||||||
*
|
|
||||||
* @param string $name The name of the variable to return.
|
|
||||||
* @param mixed $default The default value to use if this variable has never been set.
|
|
||||||
* @param string $createit_comment If variable doesn't exist, create it with the default value
|
|
||||||
* and createit_comment value as comment
|
|
||||||
* @param array $type An array defining the variable definition
|
|
||||||
* ex: array("ns1"=>array('desc'=>'ns name','type'=>'string'),"ip"=>array("desc"=>"here an ip", "type"=>"ip")
|
|
||||||
* ex: array('desc'=>'ns name','type'=>'string')
|
|
||||||
* Types can be either
|
|
||||||
* self::TYPE_BOOLEAN
|
|
||||||
* self::TYPE_INTEGER
|
|
||||||
* self::TYPE_IP
|
|
||||||
* self::TYPE_STRING
|
|
||||||
*
|
|
||||||
* @return mixed The value of the variable.
|
|
||||||
*/
|
|
||||||
function variable_get($name, $default = null, $createit_comment = null, $type = null) {
|
|
||||||
|
|
||||||
$this->variable_init_maybe();
|
|
||||||
|
|
||||||
// Attempts to retrieve $name
|
|
||||||
if (array_key_exists("$name", $this->cache_conf) && !is_null($this->cache_conf["$name"])) {
|
|
||||||
return $this->cache_conf["$name"]["value"];
|
|
||||||
}
|
|
||||||
if (!is_null($createit_comment)) {
|
|
||||||
$this->variable_update_or_create($name, $default, 'DEFAULT', 'null', 'null', $createit_comment, $type);
|
|
||||||
}
|
|
||||||
|
|
||||||
return $default;
|
|
||||||
}
|
|
||||||
|
|
||||||
/**
|
|
||||||
* Create or update a variable
|
|
||||||
*
|
|
||||||
* @global m_mysql $db
|
|
||||||
* @global m_err $err
|
|
||||||
* @param string $var_name
|
|
||||||
* @param mixed $var_value
|
|
||||||
* @param string $strata
|
|
||||||
* @param int $strata_id
|
|
||||||
* @param int $var_id
|
|
||||||
* @param string $comment
|
|
||||||
* @param string $type
|
|
||||||
* @return boolean
|
|
||||||
*/
|
|
||||||
function variable_update_or_create($var_name, $var_value, $strata=null, $strata_id=null, $var_id=null, $comment=null, $type=null) {
|
|
||||||
global $db, $err;
|
|
||||||
$err->log('variable', 'variable_update_or_create');
|
|
||||||
if ( strtolower($var_id) == 'null' ) $var_id = null;
|
|
||||||
if ( strtolower($strata_id) == 'null' ) $strata_id = null;
|
|
||||||
|
|
||||||
if (is_object($type) || is_array($type)) {
|
|
||||||
$type = serialize($type);
|
|
||||||
}
|
|
||||||
if (is_object($var_value) || is_array($var_value)) {
|
|
||||||
$var_value = serialize($var_value);
|
|
||||||
}
|
|
||||||
|
|
||||||
if ( ! is_null($var_id) ) {
|
|
||||||
$sql="UPDATE variable SET value='".mysql_real_escape_string($var_value)."' WHERE id = ".intval($var_id);
|
|
||||||
} else {
|
|
||||||
if ( empty($strata) ) {
|
|
||||||
$this->variable_init_maybe(true);
|
|
||||||
$err->raise('variables', _("Err: Missing strata when creating var"));
|
|
||||||
return false;
|
|
||||||
}
|
|
||||||
$sql="INSERT INTO
|
|
||||||
variable (name, value, strata, strata_id, comment, type)
|
|
||||||
VALUES (
|
|
||||||
'".mysql_real_escape_string($var_name)."',
|
|
||||||
'".mysql_real_escape_string($var_value)."',
|
|
||||||
'".mysql_real_escape_string($strata)."',
|
|
||||||
".( is_null($strata_id)?'NULL':"'".mysql_real_escape_string($strata_id)."'").",
|
|
||||||
'".mysql_real_escape_string($comment)."',
|
|
||||||
'".mysql_real_escape_string($type)."' );";
|
|
||||||
}
|
|
||||||
|
|
||||||
$db->query("$sql");
|
|
||||||
|
|
||||||
$this->variable_init_maybe(true);
|
|
||||||
return true;
|
|
||||||
}
|
|
||||||
|
|
||||||
/**
|
|
||||||
* Unset a persistent variable.
|
|
||||||
*
|
|
||||||
* @global m_mysql $db
|
|
||||||
* @param int $id
|
|
||||||
* @return type
|
|
||||||
*/
|
|
||||||
function del($id) {
|
|
||||||
global $db;
|
|
||||||
$result = $db->query("DELETE FROM `variable` WHERE id = '".intval($id)."'");
|
|
||||||
$this->variable_init_maybe(true);
|
|
||||||
return $result;
|
|
||||||
}
|
|
||||||
|
|
||||||
/**
|
|
||||||
* echo HTML code to display a variable passed in parameters
|
|
||||||
*
|
|
||||||
* @param mixed $v
|
|
||||||
* @param string $varname
|
|
||||||
* @param boolean $echo
|
|
||||||
* @return string
|
|
||||||
*/
|
|
||||||
function display_valueraw_html($v,$varname,$echo = true) {
|
|
||||||
$output = "";
|
|
||||||
$varList = $this->variables_list();
|
|
||||||
if (is_array($v)) {
|
|
||||||
if (empty($v)) {
|
|
||||||
$output .= "<em>"._("Empty array")."</em>";
|
|
||||||
} else {
|
|
||||||
$output .= "<ul>";
|
|
||||||
foreach ( $v as $k=>$l) {
|
|
||||||
$output .= "<li>";
|
|
||||||
if (! is_numeric($k)) {
|
|
||||||
if (is_null($varname)) {
|
|
||||||
$output .= "$k";
|
|
||||||
} else {
|
|
||||||
if ( !isset($varList['DEFAULT'][null][$varname]['type'][$k]) || is_array( $varList['DEFAULT'][null][$varname]['type'][$k] ) ) {
|
|
||||||
if (isset($varList['DEFAULT'][null][$varname]['type'][$k]['desc'])) {
|
|
||||||
$output .= $varList['DEFAULT'][null][$varname]['type'][$k]['desc'];
|
|
||||||
} else {
|
|
||||||
$output .= $k;
|
|
||||||
}
|
|
||||||
} else {
|
|
||||||
$output .= $varList['DEFAULT'][null][$varname]['type'][$k];
|
|
||||||
}
|
|
||||||
}
|
|
||||||
} else {
|
|
||||||
if (isset($varList['DEFAULT'][null][$varname]['type'][$k]['desc'] )) {
|
|
||||||
$output .= $varList['DEFAULT'][null][$varname]['type'][$k]['desc'];
|
|
||||||
}
|
|
||||||
}
|
|
||||||
if (is_array($l)) {
|
|
||||||
$output .= "<ul>";
|
|
||||||
foreach ($l as $m => $n ) {
|
|
||||||
$output .= "<li>";
|
|
||||||
if ( is_numeric($m)) {
|
|
||||||
$output .= "$m";
|
|
||||||
} else {
|
|
||||||
$output .= $varList['DEFAULT'][null][$varname]['type'][$k][$m]['desc'];
|
|
||||||
}
|
|
||||||
$output .= " => $n";
|
|
||||||
$output .= "</li>";
|
|
||||||
}
|
|
||||||
$output .= "</ul>";
|
|
||||||
} else {
|
|
||||||
$output .= " => $l";
|
|
||||||
}
|
|
||||||
$output .= "</li>";
|
|
||||||
}
|
|
||||||
$output .= "</ul>";
|
|
||||||
} // empty $v
|
|
||||||
} else if (empty($v) && $v != '0') {
|
|
||||||
$output .= "<em>"._("Empty")."</em>";
|
|
||||||
} else {
|
|
||||||
$output .= $v;
|
|
||||||
}
|
|
||||||
if( $echo ){
|
|
||||||
echo $output;
|
|
||||||
}
|
|
||||||
return $output;
|
|
||||||
}
|
|
||||||
|
|
||||||
/**
|
|
||||||
* Display a variable if is set
|
|
||||||
*
|
|
||||||
* @param array $tab
|
|
||||||
* @param string $strata
|
|
||||||
* @param int $id
|
|
||||||
* @param string $varname
|
|
||||||
* @param boolean $echo
|
|
||||||
* @return string
|
|
||||||
*/
|
|
||||||
function display_value_html($tab, $strata, $id, $varname, $echo = TRUE) {
|
|
||||||
$output = "";
|
|
||||||
if (isset($tab[$strata][$id][$varname]['value'])) {
|
|
||||||
$v = $tab[$strata][$id][$varname]['value'];
|
|
||||||
$output .= $this->display_valueraw_html($v, $varname, false);
|
|
||||||
} else {
|
|
||||||
$output .= "<em>"._("None defined")."</em>";
|
|
||||||
}
|
|
||||||
if( $echo){
|
|
||||||
echo $output;
|
|
||||||
}
|
|
||||||
return $output;
|
|
||||||
}
|
|
||||||
|
|
||||||
/**
|
|
||||||
* return hashtable with variable_name => comment for all the vars
|
|
||||||
*
|
|
||||||
* @global m_mysql $db
|
|
||||||
* @return type
|
|
||||||
*/
|
|
||||||
function variables_list_name() {
|
|
||||||
global $db;
|
|
||||||
|
|
||||||
$result = $db->query('SELECT name, comment FROM `variable` order by name');
|
|
||||||
$t=array();
|
|
||||||
while ($db->next_record($result)) {
|
|
||||||
$tname = $db->f('name');
|
|
||||||
// If not listed of if listed comment is shorter
|
|
||||||
if ( ! isset( $t[$tname] ) || strlen($t[$tname]) < $db->f('comment') ) {
|
|
||||||
$t[$db->f('name')] = $db->f('comment');
|
|
||||||
}
|
|
||||||
}
|
|
||||||
return $t;
|
|
||||||
}
|
|
||||||
|
|
||||||
/**
|
|
||||||
* return a multidimensionnal array used to build vars
|
|
||||||
*
|
|
||||||
* @global m_mysql $db
|
|
||||||
* @return type
|
|
||||||
*/
|
|
||||||
function variables_list() {
|
|
||||||
global $db;
|
|
||||||
if ( ! $this->cache_variable_list ) {
|
|
||||||
$result = $db->query('SELECT * FROM `variable`');
|
|
||||||
|
|
||||||
$arr_var=array();
|
|
||||||
while ($db->next_record($result)) {
|
|
||||||
// Unserialize value if needed
|
|
||||||
if ( ($value = @unserialize($db->f('value'))) === FALSE) {
|
|
||||||
$value=$db->f('value');
|
|
||||||
}
|
|
||||||
if ( ($type = @unserialize($db->f('type'))) === FALSE) {
|
|
||||||
$type=$db->f('type');
|
|
||||||
}
|
|
||||||
$arr_var[$db->f('strata')][$db->f('strata_id')][$db->f('name')] = array('id'=>$db->f('id') ,'name'=>$db->f('name'), 'value'=>$value, 'comment'=>$db->f('comment'), 'type'=>$type);
|
|
||||||
}
|
|
||||||
$this->cache_variable_list = $arr_var;
|
|
||||||
}
|
|
||||||
|
|
||||||
return $this->cache_variable_list;
|
|
||||||
}
|
|
||||||
|
|
||||||
} /* Class m_variables */
|
|
||||||
|
|
@ -0,0 +1,156 @@
|
||||||
|
<?php
|
||||||
|
|
||||||
|
/*
|
||||||
|
* $Id: variables.php,v 1.8 2005/04/02 00:26:36 anarcat Exp $
|
||||||
|
----------------------------------------------------------------------
|
||||||
|
AlternC - Web Hosting System
|
||||||
|
Copyright (C) 2002 by the AlternC Development Team.
|
||||||
|
http://alternc.org/
|
||||||
|
----------------------------------------------------------------------
|
||||||
|
Based on:
|
||||||
|
Valentin Lacambre's web hosting softwares: http://altern.org/
|
||||||
|
----------------------------------------------------------------------
|
||||||
|
LICENSE
|
||||||
|
|
||||||
|
This program is free software; you can redistribute it and/or
|
||||||
|
modify it under the terms of the GNU General Public License (GPL)
|
||||||
|
as published by the Free Software Foundation; either version 2
|
||||||
|
of the License, or (at your option) any later version.
|
||||||
|
|
||||||
|
This program is distributed in the hope that it will be useful,
|
||||||
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||||
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||||
|
GNU General Public License for more details.
|
||||||
|
|
||||||
|
To read the license please visit http://www.gnu.org/copyleft/gpl.html
|
||||||
|
----------------------------------------------------------------------
|
||||||
|
*/
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Persistent variable table
|
||||||
|
*
|
||||||
|
* @author Drupal Developpement Team
|
||||||
|
* @link http://cvs.drupal.org/viewcvs/drupal/drupal/includes/bootstrap.inc?rev=1.38&view=auto
|
||||||
|
*/
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Load the persistent variable table.
|
||||||
|
*
|
||||||
|
* The variable table is composed of values that have been saved in the table
|
||||||
|
* with variable_set() as well as those explicitly specified in the configuration
|
||||||
|
* file.
|
||||||
|
*/
|
||||||
|
function variable_init($conf = array()) {
|
||||||
|
global $db;
|
||||||
|
$result = $db->query('SELECT * FROM `variable`');
|
||||||
|
while ($db->next_record($result)) {
|
||||||
|
/* maybe the data is *not* serialized, in that case, take it verbatim */
|
||||||
|
$variable = $db->Record;
|
||||||
|
if (($variables[$variable['name']] = @unserialize($variable['value'])) === FALSE) {
|
||||||
|
$variables[$variable['name']] = $variable['value'];
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
foreach ($conf as $name => $value) {
|
||||||
|
$variables[$name] = $value;
|
||||||
|
}
|
||||||
|
|
||||||
|
return $variables;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Initialize the global $conf array if necessary
|
||||||
|
*
|
||||||
|
* @global $conf the global conf array
|
||||||
|
* @uses variable_init()
|
||||||
|
*/
|
||||||
|
function variable_init_maybe() {
|
||||||
|
global $conf;
|
||||||
|
if (!isset($conf)) {
|
||||||
|
$conf = variable_init();
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Return a persistent variable.
|
||||||
|
*
|
||||||
|
* @param $name
|
||||||
|
* The name of the variable to return.
|
||||||
|
* @param $default
|
||||||
|
* The default value to use if this variable has never been set.
|
||||||
|
* @param $createit_comment
|
||||||
|
* If variable doesn't exist, create it with the default value
|
||||||
|
* and createit_comment value as comment
|
||||||
|
* @return
|
||||||
|
* The value of the variable.
|
||||||
|
* @global $conf
|
||||||
|
* A cache of the configuration.
|
||||||
|
*/
|
||||||
|
function variable_get($name, $default = null, $createit_comment = null) {
|
||||||
|
global $conf;
|
||||||
|
|
||||||
|
variable_init_maybe();
|
||||||
|
|
||||||
|
if (isset($conf[$name])) {
|
||||||
|
return $conf[$name];
|
||||||
|
} elseif (!is_null($createit_comment)) {
|
||||||
|
variable_set($name, $default, $createit_comment);
|
||||||
|
}
|
||||||
|
return $default;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Set a persistent variable.
|
||||||
|
*
|
||||||
|
* @param $name
|
||||||
|
* The name of the variable to set.
|
||||||
|
* @param $value
|
||||||
|
* The value to set. This can be any PHP data type; these functions take care
|
||||||
|
* of serialization as necessary.
|
||||||
|
*/
|
||||||
|
function variable_set($name, $value, $comment=null) {
|
||||||
|
global $conf, $db, $err;
|
||||||
|
$err->log('variable', 'variable_set', '+'.serialize($value).'+'.$comment.'+');
|
||||||
|
|
||||||
|
$conf[$name] = $value;
|
||||||
|
if (is_object($value) || is_array($value)) {
|
||||||
|
$value = serialize($value);
|
||||||
|
}
|
||||||
|
|
||||||
|
if ( empty($comment) ) {
|
||||||
|
$query = "INSERT INTO variable (name, value) values ('".$name."', '".$value."') on duplicate key update name='$name', value='$value';";
|
||||||
|
} else {
|
||||||
|
$comment=mysql_real_escape_string($comment);
|
||||||
|
$query = "INSERT INTO variable (name, value, comment) values ('".$name."', '".$value."', '$comment') on duplicate key update name='$name', value='$value', comment='$comment';";
|
||||||
|
}
|
||||||
|
|
||||||
|
$db->query("$query");
|
||||||
|
|
||||||
|
variable_init();
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Unset a persistent variable.
|
||||||
|
*
|
||||||
|
* @param $name
|
||||||
|
* The name of the variable to undefine.
|
||||||
|
*/
|
||||||
|
function variable_del($name) {
|
||||||
|
global $conf, $db;
|
||||||
|
|
||||||
|
$db->query("DELETE FROM `variable` WHERE name = '".$name."'");
|
||||||
|
|
||||||
|
unset($conf[$name]);
|
||||||
|
}
|
||||||
|
|
||||||
|
function variables_list() {
|
||||||
|
global $db;
|
||||||
|
$t=array();
|
||||||
|
$db->query("SELECT * FROM `variable` WHERE `comment` IS NOT NULL ORDER BY `name`");
|
||||||
|
while ($db->next_record()) {
|
||||||
|
$t[]=$db->Record;
|
||||||
|
}
|
||||||
|
return $t;
|
||||||
|
}
|
||||||
|
|
||||||
|
?>
|
||||||
|
|
@ -747,6 +747,6 @@ CREATE TABLE IF NOT EXISTS `alternc_status` (
|
||||||
KEY `name` (`name`)
|
KEY `name` (`name`)
|
||||||
) ENGINE=MyISAM DEFAULT CHARSET=latin1;
|
) ENGINE=MyISAM DEFAULT CHARSET=latin1;
|
||||||
|
|
||||||
INSERT INTO alternc_status SET name='alternc_version',value='3.1.1~a.sql';
|
INSERT INTO alternc_status SET name='alternc_version',value='3.4.0.sh';
|
||||||
|
|
||||||
|
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue