288 lines
No EOL
7.6 KiB
PHP
288 lines
No EOL
7.6 KiB
PHP
<?php
|
|
|
|
/**
|
|
* global.php
|
|
*
|
|
* This includes code to update < 4.1.0 globals to the newer format
|
|
* It also has some session register functions that work across various
|
|
* php versions.
|
|
*
|
|
* @copyright © 1999-2005 The SquirrelMail Project Team
|
|
* @license http://opensource.org/licenses/gpl-license.php GNU Public License
|
|
* @version $Id$
|
|
* @package squirrelmail
|
|
*/
|
|
|
|
|
|
/** set the name of the session cookie */
|
|
if(isset($session_name) && $session_name) {
|
|
ini_set('session.name' , $session_name);
|
|
} else {
|
|
ini_set('session.name' , 'SQMSESSID');
|
|
}
|
|
|
|
/**
|
|
* If magic_quotes_runtime is on, SquirrelMail breaks in new and creative ways.
|
|
* Force magic_quotes_runtime off.
|
|
* tassium@squirrelmail.org - I put it here in the hopes that all SM code includes this.
|
|
* If there's a better place, please let me know.
|
|
*/
|
|
ini_set('magic_quotes_runtime','0');
|
|
|
|
/* Since we decided all IMAP servers must implement the UID command as defined in
|
|
* the IMAP RFC, we force $uid_support to be on.
|
|
*/
|
|
|
|
global $uid_support;
|
|
$uid_support = true;
|
|
|
|
sqsession_is_active();
|
|
|
|
/* if running with magic_quotes_gpc then strip the slashes
|
|
from POST and GET global arrays */
|
|
|
|
if (get_magic_quotes_gpc()) {
|
|
sqstripslashes($_GET);
|
|
sqstripslashes($_POST);
|
|
}
|
|
|
|
/* strip any tags added to the url from PHP_SELF.
|
|
This fixes hand crafted url XXS expoits for any
|
|
page that uses PHP_SELF as the FORM action */
|
|
|
|
$_SERVER['PHP_SELF'] = strip_tags($_SERVER['PHP_SELF']);
|
|
|
|
/**
|
|
* returns true if current php version is at mimimum a.b.c
|
|
*
|
|
* Called: check_php_version(4,1)
|
|
* @param int a major version number
|
|
* @param int b minor version number
|
|
* @param int c release number
|
|
* @return bool
|
|
*/
|
|
function check_php_version ($a = '0', $b = '0', $c = '0')
|
|
{
|
|
return version_compare ( PHP_VERSION, "$a.$b.$c", 'ge' );
|
|
}
|
|
|
|
/**
|
|
* returns true if the current internal SM version is at minimum a.b.c
|
|
* These are plain integer comparisons, as our internal version is
|
|
* constructed by us, as an array of 3 ints.
|
|
*
|
|
* Called: check_sm_version(1,3,3)
|
|
* @param int a major version number
|
|
* @param int b minor version number
|
|
* @param int c release number
|
|
* @return bool
|
|
*/
|
|
function check_sm_version($a = 0, $b = 0, $c = 0)
|
|
{
|
|
global $SQM_INTERNAL_VERSION;
|
|
if ( !isset($SQM_INTERNAL_VERSION) ||
|
|
$SQM_INTERNAL_VERSION[0] < $a ||
|
|
( $SQM_INTERNAL_VERSION[0] == $a &&
|
|
$SQM_INTERNAL_VERSION[1] < $b) ||
|
|
( $SQM_INTERNAL_VERSION[0] == $a &&
|
|
$SQM_INTERNAL_VERSION[1] == $b &&
|
|
$SQM_INTERNAL_VERSION[2] < $c ) ) {
|
|
return FALSE;
|
|
}
|
|
return TRUE;
|
|
}
|
|
|
|
|
|
/**
|
|
* Recursively strip slashes from the values of an array.
|
|
* @param array array the array to strip, passed by reference
|
|
* @return void
|
|
*/
|
|
function sqstripslashes(&$array) {
|
|
if(count($array) > 0) {
|
|
foreach ($array as $index=>$value) {
|
|
if (is_array($array[$index])) {
|
|
sqstripslashes($array[$index]);
|
|
}
|
|
else {
|
|
$array[$index] = stripslashes($value);
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
/**
|
|
* Add a variable to the session.
|
|
* @param mixed $var the variable to register
|
|
* @param string $name the name to refer to this variable
|
|
* @return void
|
|
*/
|
|
function sqsession_register ($var, $name) {
|
|
|
|
sqsession_is_active();
|
|
|
|
$_SESSION["$name"] = $var;
|
|
|
|
session_register("$name");
|
|
}
|
|
|
|
/**
|
|
* Delete a variable from the session.
|
|
* @param string $name the name of the var to delete
|
|
* @return void
|
|
*/
|
|
function sqsession_unregister ($name) {
|
|
|
|
sqsession_is_active();
|
|
|
|
unset($_SESSION[$name]);
|
|
|
|
session_unregister("$name");
|
|
}
|
|
|
|
/**
|
|
* Checks to see if a variable has already been registered
|
|
* in the session.
|
|
* @param string $name the name of the var to check
|
|
* @return bool whether the var has been registered
|
|
*/
|
|
function sqsession_is_registered ($name) {
|
|
$test_name = &$name;
|
|
$result = false;
|
|
|
|
if (isset($_SESSION[$test_name])) {
|
|
$result = true;
|
|
}
|
|
|
|
return $result;
|
|
}
|
|
|
|
|
|
define('SQ_INORDER',0);
|
|
define('SQ_GET',1);
|
|
define('SQ_POST',2);
|
|
define('SQ_SESSION',3);
|
|
define('SQ_COOKIE',4);
|
|
define('SQ_SERVER',5);
|
|
define('SQ_FORM',6);
|
|
|
|
/**
|
|
* Search for the var $name in $_SESSION, $_POST, $_GET,
|
|
* $_COOKIE, or $_SERVER and set it in provided var.
|
|
*
|
|
* If $search is not provided, or == SQ_INORDER, it will search
|
|
* $_SESSION, then $_POST, then $_GET. Otherwise,
|
|
* use one of the defined constants to look for
|
|
* a var in one place specifically.
|
|
*
|
|
* Note: $search is an int value equal to one of the
|
|
* constants defined above.
|
|
*
|
|
* example:
|
|
* sqgetGlobalVar('username',$username,SQ_SESSION);
|
|
* -- no quotes around last param!
|
|
*
|
|
* @param string name the name of the var to search
|
|
* @param mixed value the variable to return
|
|
* @param int search constant defining where to look
|
|
* @return bool whether variable is found.
|
|
*/
|
|
function sqgetGlobalVar($name, &$value, $search = SQ_INORDER) {
|
|
|
|
/* NOTE: DO NOT enclose the constants in the switch
|
|
statement with quotes. They are constant values,
|
|
enclosing them in quotes will cause them to evaluate
|
|
as strings. */
|
|
switch ($search) {
|
|
/* we want the default case to be first here,
|
|
so that if a valid value isn't specified,
|
|
all three arrays will be searched. */
|
|
default:
|
|
case SQ_INORDER: // check session, post, get
|
|
case SQ_SESSION:
|
|
if( isset($_SESSION[$name]) ) {
|
|
$value = $_SESSION[$name];
|
|
return TRUE;
|
|
} elseif ( $search == SQ_SESSION ) {
|
|
break;
|
|
}
|
|
case SQ_FORM: // check post, get
|
|
case SQ_POST:
|
|
if( isset($_POST[$name]) ) {
|
|
$value = $_POST[$name];
|
|
return TRUE;
|
|
} elseif ( $search == SQ_POST ) {
|
|
break;
|
|
}
|
|
case SQ_GET:
|
|
if ( isset($_GET[$name]) ) {
|
|
$value = $_GET[$name];
|
|
return TRUE;
|
|
}
|
|
/* NO IF HERE. FOR SQ_INORDER CASE, EXIT after GET */
|
|
break;
|
|
case SQ_COOKIE:
|
|
if ( isset($_COOKIE[$name]) ) {
|
|
$value = $_COOKIE[$name];
|
|
return TRUE;
|
|
}
|
|
break;
|
|
case SQ_SERVER:
|
|
if ( isset($_SERVER[$name]) ) {
|
|
$value = $_SERVER[$name];
|
|
return TRUE;
|
|
}
|
|
break;
|
|
}
|
|
/* Nothing found, return FALSE */
|
|
return FALSE;
|
|
}
|
|
|
|
/**
|
|
* Deletes an existing session, more advanced than the standard PHP
|
|
* session_destroy(), it explicitly deletes the cookies and global vars.
|
|
*/
|
|
function sqsession_destroy() {
|
|
|
|
/*
|
|
* php.net says we can kill the cookie by setting just the name:
|
|
* http://www.php.net/manual/en/function.setcookie.php
|
|
* maybe this will help fix the session merging again.
|
|
*
|
|
* Changed the theory on this to kill the cookies first starting
|
|
* a new session will provide a new session for all instances of
|
|
* the browser, we don't want that, as that is what is causing the
|
|
* merging of sessions.
|
|
*/
|
|
|
|
global $base_uri;
|
|
|
|
if (isset($_COOKIE[session_name()])) setcookie(session_name(), '', time() - 5, $base_uri);
|
|
if (isset($_COOKIE['username'])) setcookie('username','',time() - 5,$base_uri);
|
|
if (isset($_COOKIE['key'])) setcookie('key','',time() - 5,$base_uri);
|
|
|
|
$sessid = session_id();
|
|
if (!empty( $sessid )) {
|
|
$_SESSION = array();
|
|
@session_destroy();
|
|
}
|
|
|
|
}
|
|
|
|
/**
|
|
* Function to verify a session has been started. If it hasn't
|
|
* start a session up. php.net doesn't tell you that $_SESSION
|
|
* (even though autoglobal), is not created unless a session is
|
|
* started, unlike $_POST, $_GET and such
|
|
*/
|
|
|
|
function sqsession_is_active() {
|
|
|
|
$sessid = session_id();
|
|
if ( empty( $sessid ) ) {
|
|
session_start();
|
|
}
|
|
}
|
|
|
|
// vim: et ts=4
|
|
?>
|