* @copyright Deakin University 2007,2008
* @package queXS
* @subpackage configuration
* @link http://www.deakin.edu.au/dcarf/ queXS was writen for DCARF - Deakin Computer Assisted Research Facility
* @license http://opensource.org/licenses/gpl-2.0.php The GNU General Public License (GPL) Version 2
*
*/
/**
* Set locale
*/
include_once(dirname(__FILE__).'/lang.inc.php');
/**
* Include ADODB
*/
if (!(include_once(ADODB_PATH . 'adodb.inc.php')))
{
print "ERROR: Please modify config.inc.php for ADODB_PATH to point to your ADODb installation
";
}
/**
* Include ADODB session handling functions
*/
//if (!(include_once(ADODB_PATH . 'session/adodb-session2.php')))
//{
// print "ERROR: Please modify config.inc.php for ADODB_PATH to point to your ADODb installation
";
//}
define('ADODB_OUTP',"outputDebug");
/**
* Output for debugging
*/
function outputDebug($text,$newline)
{
error_log($text,0);
}
//if PEAR not installed:
set_include_path("."); //TEMP ONLY
set_include_path(get_include_path() . PATH_SEPARATOR . dirname(__FILE__).'/include/pear/');
//global database variable
$db = newADOConnection(DB_TYPE);
$db->Connect(DB_HOST, DB_USER, DB_PASS, DB_NAME);
$db->SetFetchMode(ADODB_FETCH_ASSOC);
if (DEBUG == true) $db->debug = true;
$db->Execute("set names 'utf8'");
/**
* Get a setting from the database
*
* @param mixed $name The setting name
*
* @return mixed The setting value
* @author Adam Zammit
* @since 2011-01-17
*/
function get_setting($name)
{
global $db;
$qname = $db->qstr($name);
$sql = "SELECT value
FROM setting
WHERE field LIKE $qname";
$rs = $db->GetRow($sql);
if (!empty($rs))
return unserialize($rs['value']);
}
/**
* Update or create a new setting to store in the database
*
* @param mixed $name
* @param mixed $value An array or string to save
*
* @return bool Successful database insert/update?
* @author Adam Zammit
* @since 2011-01-17
*/
function set_setting($name,$value)
{
global $db;
$qname = $db->qstr($name);
$qvalue = serialize($value);
$sql = "INSERT INTO setting (setting_id,field,value)
VALUES (NULL,$qname,'$qvalue')
ON DUPLICATE KEY UPDATE value = '$qvalue'";
return $db->Execute($sql);
}
/**
* Get the IP address of the client
*/
function getIPAddress()
{
if (!empty($_SERVER['REMOTE_ADDR']))
{
return $_SERVER['REMOTE_ADDR'];
}
else
{
return '127.0.0.1';
}
}
/**
* Creates a random sequence of characters
*
* @param mixed $length Length of resulting string
* @param string $pattern To define which characters should be in the resulting string
*
* From Limesurvey
*/
function sRandomChars($length = 15,$pattern="23456789abcdefghijkmnpqrstuvwxyz")
{
$patternlength = strlen($pattern)-1;
for($i=0;$i<$length;$i++)
{
if(isset($key))
$key .= $pattern{mt_rand(0,$patternlength)};
else
$key = $pattern{mt_rand(0,$patternlength)};
}
return $key;
}
?>