2001-01-11 20:41:38 +01:00
< ? php
2001-09-06 21:23:56 +02:00
/************************************************************************** \
* phpGroupWare API - phpgwapi loader *
* This file written by Dan Kuykendall < seek3r @ phpgroupware . org > *
* and Joseph Engo < jengo @ phpgroupware . org > *
* Has a few functions , but primary role is to load the phpgwapi *
* Copyright ( C ) 2000 , 2001 Dan Kuykendall *
* -------------------------------------------------------------------------*
* This library is part of the phpGroupWare API *
* http :// www . phpgroupware . org / api *
* ------------------------------------------------------------------------ *
* This library is free software ; you can redistribute it and / or modify it *
* under the terms of the GNU Lesser General Public License as published by *
* the Free Software Foundation ; either version 2.1 of the License , *
* or any later version . *
* This library 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 Lesser General Public License for more details . *
* You should have received a copy of the GNU Lesser General Public License *
* along with this library ; if not , write to the Free Software Foundation , *
* Inc . , 59 Temple Place , Suite 330 , Boston , MA 02111 - 1307 USA *
\ **************************************************************************/
2001-08-08 16:03:20 +02:00
2001-09-06 10:27:22 +02:00
/* $Id$ */
2001-08-08 16:03:20 +02:00
2001-09-06 10:27:22 +02:00
/**************************************************************************** \
* If running in PHP3 , then load up the support functions file for *
* transparent support . *
\ ****************************************************************************/
2001-08-16 08:32:22 +02:00
2001-09-06 10:27:22 +02:00
if ( floor ( phpversion ()) == 3 )
{
2001-08-16 08:32:22 +02:00
include ( PHPGW_API_INC . '/php3_support_functions.inc.php' );
2001-09-06 10:27:22 +02:00
}
2001-08-16 08:32:22 +02:00
2001-09-06 10:27:22 +02:00
/**************************************************************************** \
2001-08-08 16:03:20 +02:00
* Direct functions , which are not part of the API class *
* because they are require to be availble at the lowest level . *
\ ****************************************************************************/
2001-12-23 11:15:40 +01:00
/*!
@ collection_start direct functions
@ abstract Direct functions , which are not part of the API class because they are require to be availble at the lowest level .
*/
2002-02-12 11:06:06 +01:00
/*!
@ function print_debug_subarray
@ abstract Not to be used directly . Should only be used by print_debug ()
*/
function print_debug_subarray ( $array )
{
while ( list ( $key , $value ) = each ( $array ))
{
if ( is_array ( $value ))
{
$vartypes [ $key ] = print_debug_subarray ( $value );
}
else
{
$vartypes [ $key ] = gettype ( $value );
}
}
return $vartypes ;
}
2001-12-19 20:53:58 +01:00
2002-02-12 10:10:40 +01:00
/*!
@ function print_debug
@ abstract print debug data only when debugging mode is turned on .
@ author seek3r
@ discussion This function is used to debugging data .
@ syntax print_debug ( 'message' , $somevar );
@ example print_debug ( 'this is some debugging data' , $somevar );
*/
function print_debug ( $message , $var = 'messageonly' , $part = 'app' , $level = 3 )
{
if (( $part == 'app' && DEBUG_APP == True ) || ( $part == 'api' && DEBUG_API == True ))
{
if ( $level >= DEBUG_LEVEL )
{
if ( ! is_array ( $var ))
{
2002-02-12 11:06:06 +01:00
if ( $var == 'messageonly' )
2002-02-12 10:10:40 +01:00
{
2002-02-12 11:06:06 +01:00
if ( ! DEBUG_DATATYPES )
{
echo " $message\n $var <br> \n " ;
}
else
{
echo " $message\n $var is a " . gettype ( $var ) . " <br> \n " ;
}
2002-02-12 10:10:40 +01:00
}
else
{
echo " $message <br> \n " ;
}
}
else
{
echo " <pre> \n $message\n " ;
print_r ( $var );
2002-02-12 11:06:06 +01:00
if ( DEBUG_DATATYPES )
2002-02-12 10:10:40 +01:00
{
2002-02-12 11:06:06 +01:00
while ( list ( $key , $value ) = each ( $var ))
{
//echo 'Array['.$key.'] is a '.gettype($var[$key])."\n";
if ( is_array ( $value ))
{
$vartypes [ $key ] = print_debug_subarray ( $value );
}
else
{
$vartypes [ $key ] = gettype ( $value );
}
}
echo " Data Types: \n " ;
print_r ( $vartypes );
2002-02-12 10:10:40 +01:00
}
echo " \n <pre> \n " ;
}
}
}
}
2001-12-19 20:53:58 +01:00
/*!
@ function sanitize
@ abstract Validate data .
2001-12-22 23:55:15 +01:00
@ author seek3r
@ discussion This function is used to validate input data .
@ syntax sanitize ( 'type' , 'match string' );
@ example sanitize ( 'number' , $somestring );
2001-12-19 20:53:58 +01:00
*/
2001-12-19 21:03:01 +01:00
/*
$GLOBALS [ 'phpgw_info' ][ 'server' ][ 'sanitize_types' ][ 'number' ] = Array ( 'type' => 'preg_match' , 'string' => '/^[0-9]+$/i' );
2001-12-19 20:53:58 +01:00
*/
2001-12-19 21:03:01 +01:00
function sanitize ( $string , $type )
{
2001-12-19 20:53:58 +01:00
switch ( $type )
{
2001-12-19 21:03:01 +01:00
case 'bool' :
if ( $string == 1 || $string == 0 )
2001-12-19 20:53:58 +01:00
{
2001-12-19 21:03:01 +01:00
return True ;
2001-12-19 20:53:58 +01:00
}
2001-12-19 21:03:01 +01:00
break ;
case 'number' :
if ( preg_match ( " /^[0-9]+ $ /i " , $string ))
2001-12-19 20:53:58 +01:00
{
2001-12-19 21:03:01 +01:00
return True ;
2001-12-19 20:53:58 +01:00
}
2001-12-19 21:03:01 +01:00
break ;
case 'string' :
if ( preg_match ( " /^[a-z]+ $ /i " , $string ))
2001-12-19 20:53:58 +01:00
{
2001-12-19 21:03:01 +01:00
return True ;
2001-12-19 20:53:58 +01:00
}
2001-12-19 21:03:01 +01:00
break ;
case 'alpha' :
if ( preg_match ( " /^[a-z0-9 -._]+ $ /i " , $string ))
2001-12-19 20:53:58 +01:00
{
2001-12-19 21:03:01 +01:00
return True ;
2001-12-19 20:53:58 +01:00
}
2001-12-19 21:03:01 +01:00
break ;
case 'ip' :
if ( eregi ( " ^[0-9] { 1,3}( \ .[0-9] { 1,3}) { 3} $ " , $string ))
2001-12-19 20:53:58 +01:00
{
2001-12-19 21:03:01 +01:00
$octets = split ( '\.' , $string );
for ( $i = 0 ; $i != count ( $octets ); $i ++ )
2001-12-19 20:53:58 +01:00
{
2001-12-19 21:03:01 +01:00
if ( $octets [ $i ] < 0 || $octets [ $i ] > 255 )
2001-12-19 20:53:58 +01:00
{
2001-12-19 21:03:01 +01:00
return False ;
2001-12-19 20:53:58 +01:00
}
}
2001-12-19 21:03:01 +01:00
return True ;
}
return False ;
break ;
case 'file' :
if ( preg_match ( " /^[a-z0-9_]+ \ .+[a-z]+ $ /i " , $string ))
2001-12-19 20:53:58 +01:00
{
2001-12-19 21:03:01 +01:00
return True ;
2001-12-19 20:53:58 +01:00
}
break ;
2001-12-19 21:03:01 +01:00
case 'email' :
if ( eregi ( " ^([[:alnum:]_%+=.-]+)@([[:alnum:]_.-]+) \ .([a-z] { 2,3}|[0-9] { 1,3}) $ " , $string ))
2001-12-19 20:53:58 +01:00
{
return True ;
}
break ;
2001-12-19 21:03:01 +01:00
case 'any' :
return True ;
break ;
default :
2001-12-19 20:53:58 +01:00
if ( isset ( $GLOBALS [ 'phpgw_info' ][ 'server' ][ 'sanitize_types' ][ $type ][ 'type' ]))
{
2001-12-19 21:03:01 +01:00
if ( $GLOBALS [ 'phpgw_info' ][ 'server' ][ 'sanitize_types' ][ $type ][ 'type' ]( $GLOBALS [ 'phpgw_info' ][ 'server' ][ 'sanitize_types' ][ $type ][ 'string' ], $string ))
2001-12-19 20:53:58 +01:00
{
2001-12-19 21:03:01 +01:00
return True ;
2001-12-19 20:53:58 +01:00
}
}
2001-12-19 21:03:01 +01:00
return False ;
}
}
2001-12-19 20:53:58 +01:00
function registervar ( $varname , $valuetype = 'alpha' , $posttype = 'post' , $allowblank = True )
{
2001-12-19 21:03:01 +01:00
switch ( $posttype )
{
case 'get' :
2001-12-19 20:53:58 +01:00
$posttype = 'HTTP_GET_VARS' ;
2001-12-19 21:03:01 +01:00
break ;
default :
2001-12-19 20:53:58 +01:00
$posttype = 'HTTP_POST_VARS' ;
2001-12-19 21:03:01 +01:00
}
2001-12-19 20:53:58 +01:00
if ( isset ( $GLOBALS [ $posttype ][ $varname ]))
{
if ( ! is_array ( $GLOBALS [ $posttype ][ $varname ]))
{
if ( $allowblank == True && $GLOBALS [ $posttype ][ $varname ] == '' )
{
$GLOBALS [ 'phpgw_info' ][ $GLOBALS [ 'phpgw_info' ][ 'flags' ][ 'currentapp' ]][ $varname ] = $GLOBALS [ $posttype ][ $varname ];
return 'Post' ;
}
else
{
if ( sanitize ( $GLOBALS [ $posttype ][ $varname ], $valuetype ) == 1 )
{
$GLOBALS [ 'phpgw_info' ][ $GLOBALS [ 'phpgw_info' ][ 'flags' ][ 'currentapp' ]][ $varname ] = $GLOBALS [ $posttype ][ $varname ];
return 'Post' ;
}
else
{
return False ;
}
}
return False ;
}
else
{
if ( is_array ( $valuetype ))
{
reset ( $GLOBALS [ $posttype ][ $varname ]);
$isvalid = True ;
while ( list ( $key , $value ) = each ( $GLOBALS [ $posttype ][ $varname ]))
{
if ( $allowblank == True && $GLOBALS [ $posttype ][ $varname ][ $key ] == '' )
{
}
else
{
if ( sanitize ( $GLOBALS [ $posttype ][ $varname ][ $key ], $valuetype [ $key ]) == 1 )
{
}
else
{
$isvalid = False ;
}
}
}
if ( $isvalid )
{
$GLOBALS [ 'phpgw_info' ][ $GLOBALS [ 'phpgw_info' ][ 'flags' ][ 'currentapp' ]][ $varname ] = $GLOBALS [ $posttype ][ $varname ];
return 'Post' ;
}
else
{
return 'Session' ;
}
return False ;
}
}
return False ;
}
elseif ( count ( $GLOBALS [ $posttype ]) == 0 )
{
return 'Session' ;
}
else
{
return False ;
}
}
/*!
2001-08-08 16:03:20 +02:00
@ function CreateObject
@ abstract Load a class and include the class file if not done so already .
2001-12-22 23:55:15 +01:00
@ author mdean
@ author milosch
@ author ( thanks to jengo and ralf )
@ discussion This function is used to create an instance of a class , and if the class file has not been included it will do so .
@ syntax CreateObject ( 'app.class' , 'constructor_params' );
@ example $phpgw -> acl = CreateObject ( 'phpgwapi.acl' );
2001-08-08 16:03:20 +02:00
@ param $classname name of class
@ param $p1 - $p16 class parameters ( all optional )
2001-09-06 10:27:22 +02:00
*/
2001-08-08 16:03:20 +02:00
function CreateObject ( $class ,
$p1 = '_UNDEF_' , $p2 = '_UNDEF_' , $p3 = '_UNDEF_' , $p4 = '_UNDEF_' ,
2001-08-08 02:13:00 +02:00
$p5 = '_UNDEF_' , $p6 = '_UNDEF_' , $p7 = '_UNDEF_' , $p8 = '_UNDEF_' ,
$p9 = '_UNDEF_' , $p10 = '_UNDEF_' , $p11 = '_UNDEF_' , $p12 = '_UNDEF_' ,
$p13 = '_UNDEF_' , $p14 = '_UNDEF_' , $p15 = '_UNDEF_' , $p16 = '_UNDEF_' )
2001-08-08 10:27:12 +02:00
{
2001-08-08 16:03:20 +02:00
global $phpgw_info , $phpgw ;
2001-08-07 18:02:55 +02:00
2002-02-12 11:06:06 +01:00
if ( is_object ( @ $GLOBALS [ 'phpgw' ] -> log ) && $class != 'phpgwapi.error' && $class != 'phpgwapi.errorlog' )
2001-08-08 16:03:20 +02:00
{
2001-08-11 16:49:12 +02:00
//$GLOBALS['phpgw']->log->write(array('text'=>'D-Debug, dbg: %1','p1'=>'This class was run: '.$class,'file'=>__FILE__,'line'=>__LINE__));
2001-08-08 16:03:20 +02:00
}
2001-08-08 10:27:12 +02:00
2001-08-08 16:03:20 +02:00
/* error_reporting(0); */
list ( $appname , $classname ) = explode ( " . " , $class );
2002-02-12 11:06:06 +01:00
if ( ! isset ( $GLOBALS [ 'phpgw_info' ][ 'flags' ][ 'included_classes' ][ $classname ]) ||
2001-08-08 02:13:00 +02:00
! $GLOBALS [ 'phpgw_info' ][ 'flags' ][ 'included_classes' ][ $classname ])
{
2002-02-12 11:06:06 +01:00
if ( @ file_exists ( PHPGW_INCLUDE_ROOT . '/' . $appname . '/inc/class.' . $classname . '.inc.php' ))
2001-10-21 12:53:33 +02:00
{
include ( PHPGW_INCLUDE_ROOT . '/' . $appname . '/inc/class.' . $classname . '.inc.php' );
$GLOBALS [ 'phpgw_info' ][ 'flags' ][ 'included_classes' ][ $classname ] = True ;
}
else
{
$GLOBALS [ 'phpgw_info' ][ 'flags' ][ 'included_classes' ][ $classname ] = False ;
}
2001-08-08 16:03:20 +02:00
}
2001-10-21 12:53:33 +02:00
if ( $GLOBALS [ 'phpgw_info' ][ 'flags' ][ 'included_classes' ][ $classname ])
2001-08-08 16:03:20 +02:00
{
2002-02-12 11:06:06 +01:00
if ( $p1 == '_UNDEF_' && $p1 != 1 )
2001-08-08 02:13:00 +02:00
{
2001-10-21 12:53:33 +02:00
eval ( '$obj = new ' . $classname . ';' );
}
else
{
$input = array ( $p1 , $p2 , $p3 , $p4 , $p5 , $p6 , $p7 , $p8 , $p9 , $p10 , $p11 , $p12 , $p13 , $p14 , $p15 , $p16 );
$i = 1 ;
$code = '$obj = new ' . $classname . '(' ;
2002-02-12 11:06:06 +01:00
while ( list ( $x , $test ) = each ( $input ))
2001-08-08 16:03:20 +02:00
{
2002-02-12 11:06:06 +01:00
if (( $test == '_UNDEF_' && $test != 1 ) || $i == 17 )
2001-10-21 12:53:33 +02:00
{
break ;
}
else
{
$code .= '$p' . $i . ',' ;
}
$i ++ ;
2001-08-08 16:03:20 +02:00
}
2001-10-21 12:53:33 +02:00
$code = substr ( $code , 0 , - 1 ) . ');' ;
eval ( $code );
2001-08-08 16:03:20 +02:00
}
2001-10-21 12:53:33 +02:00
/* error_reporting(E_ERROR | E_WARNING | E_PARSE); */
return $obj ;
2001-08-08 16:03:20 +02:00
}
}
2001-09-06 10:27:22 +02:00
/*!
2001-08-08 16:03:20 +02:00
@ function ExecObject
@ abstract Execute a function , and load a class and include the class file if not done so already .
2001-12-22 23:55:15 +01:00
@ author seek3r
@ discussion This function is used to create an instance of a class , and if the class file has not been included it will do so .
@ syntax ExecObject ( 'app.class' , 'constructor_params' );
2001-08-08 16:03:20 +02:00
@ param $method to execute
@ param $functionparams function param should be an array
@ param $loglevel developers choice of logging level
@ param $classparams params to be sent to the contructor
2001-12-22 23:55:15 +01:00
@ example ExecObject ( 'phpgwapi.acl.read' );
2001-09-06 10:27:22 +02:00
*/
2001-08-08 16:03:20 +02:00
function ExecMethod ( $method , $functionparams = '_UNDEF_' , $loglevel = 3 , $classparams = '_UNDEF_' )
{
/* Need to make sure this is working against a single dimensional object */
2001-08-15 19:31:36 +02:00
$partscount = count ( explode ( '.' , $method )) - 1 ;
2001-08-08 16:03:20 +02:00
if ( $partscount == 2 )
{
list ( $appname , $classname , $functionname ) = explode ( " . " , $method );
if ( ! is_object ( $GLOBALS [ $classname ]))
{
if ( $classparams != '_UNDEF_' && ( $classparams || $classparams != 'True' ))
{
$GLOBALS [ $classname ] = CreateObject ( $appname . '.' . $classname , $classparams );
}
else
{
$GLOBALS [ $classname ] = CreateObject ( $appname . '.' . $classname );
}
}
2001-10-10 17:10:56 +02:00
if (( is_array ( $functionparams ) || $functionparams != '_UNDEF_' ) && ( $functionparams || $functionparams != 'True' ))
2001-08-08 16:03:20 +02:00
{
return $GLOBALS [ $classname ] -> $functionname ( $functionparams );
2001-08-08 02:13:00 +02:00
}
else
{
2001-08-08 16:03:20 +02:00
return $GLOBALS [ $classname ] -> $functionname ();
2001-08-08 02:13:00 +02:00
}
}
2001-08-08 16:03:20 +02:00
/* if the $method includes a parent class (multi-dimensional) then we have to work from it */
elseif ( $partscount >= 3 )
2001-08-08 02:13:00 +02:00
{
2001-08-08 16:03:20 +02:00
$GLOBALS [ 'methodparts' ] = explode ( " . " , $method );
$classpartnum = $partscount - 1 ;
$appname = $GLOBALS [ 'methodparts' ][ 0 ];
$classname = $GLOBALS [ 'methodparts' ][ $classpartnum ];
$functionname = $GLOBALS [ 'methodparts' ][ $partscount ];
/* Now I clear these out of the array so that I can do a proper */
/* loop and build the $parentobject */
unset ( $GLOBALS [ 'methodparts' ][ 0 ]);
unset ( $GLOBALS [ 'methodparts' ][ $classpartnum ]);
unset ( $GLOBALS [ 'methodparts' ][ $partscount ]);
reset ( $GLOBALS [ 'methodparts' ]);
$firstparent = 'True' ;
2001-09-06 10:27:22 +02:00
while ( list ( $key , $val ) = each ( $GLOBALS [ 'methodparts' ]))
2001-08-08 16:03:20 +02:00
{
if ( $firstparent == 'True' )
{
$parentobject = '$GLOBALS["' . $val . '"]' ;
$firstparent = False ;
}
else
{
$parentobject .= '->' . $val ;
}
}
unset ( $GLOBALS [ 'methodparts' ]);
2001-08-15 19:31:36 +02:00
$code = '$isobject = is_object(' . $parentobject . '->' . $classname . ');' ;
eval ( $code );
2001-08-08 16:03:20 +02:00
if ( ! $isobject )
{
if ( $classparams != '_UNDEF_' && ( $classparams || $classparams != 'True' ))
{
if ( is_string ( $classparams ))
{
eval ( $parentobject . '->' . $classname . ' = CreateObject("' . $appname . '.' . $classname . '", "' . $classparams . '");' );
}
else
{
eval ( $parentobject . '->' . $classname . ' = CreateObject("' . $appname . '.' . $classname . '", ' . $classparams . ');' );
}
}
else
{
eval ( $parentobject . '->' . $classname . ' = CreateObject("' . $appname . '.' . $classname . '");' );
}
}
if ( $functionparams != '_UNDEF_' && ( $functionparams || $functionparams != 'True' ))
2001-08-08 02:13:00 +02:00
{
2001-08-08 16:03:20 +02:00
eval ( '$returnval = ' . $parentobject . '->' . $classname . '->' . $functionname . '(' . $functionparams . ');' );
return $returnval ;
2001-08-08 02:13:00 +02:00
}
else
{
2001-08-08 16:03:20 +02:00
eval ( '$returnval = ' . $parentobject . '->' . $classname . '->' . $functionname . '();' );
return $returnval ;
2001-08-08 02:13:00 +02:00
}
}
2001-08-08 16:03:20 +02:00
else
{
return 'error in parts' ;
}
}
/*!
@ function lang
@ abstract function to handle multilanguage support
2001-09-06 10:27:22 +02:00
*/
2001-08-08 16:03:20 +02:00
function lang ( $key , $m1 = '' , $m2 = '' , $m3 = '' , $m4 = '' , $m5 = '' , $m6 = '' , $m7 = '' , $m8 = '' , $m9 = '' , $m10 = '' )
{
2001-09-06 21:23:56 +02:00
if ( is_array ( $m1 ))
2001-08-08 02:13:00 +02:00
{
2001-08-08 16:03:20 +02:00
$vars = $m1 ;
2001-08-08 02:13:00 +02:00
}
else
{
2001-08-08 16:03:20 +02:00
$vars = array ( $m1 , $m2 , $m3 , $m4 , $m5 , $m6 , $m7 , $m8 , $m9 , $m10 );
2001-08-08 02:13:00 +02:00
}
2001-08-08 16:03:20 +02:00
$value = $GLOBALS [ 'phpgw' ] -> translation -> translate ( " $key " , $vars );
return $value ;
2001-08-08 02:13:00 +02:00
}
2001-08-08 16:03:20 +02:00
2001-09-06 10:27:22 +02:00
/* Just a temp wrapper. ###DELETE_ME#### (Seek3r) */
2001-08-08 16:03:20 +02:00
function check_code ( $code )
{
return $GLOBALS [ 'phpgw' ] -> common -> check_code ( $code );
}
2001-09-06 10:27:22 +02:00
/*!
2001-12-23 11:15:40 +01:00
@ function get_account_id
2001-08-08 16:03:20 +02:00
@ abstract Return a properly formatted account_id .
2001-12-22 23:55:15 +01:00
@ author skeeter
@ discussion This function will return a properly formatted account_id . This can take either a name or an account_id as paramters . If a name is provided it will return the associated id .
@ syntax get_account_id ( $accountid );
@ example $account_id = get_account_id ( $accountid );
2001-08-08 16:03:20 +02:00
@ param $account_id either a name or an id
@ param $default_id either a name or an id
2001-09-06 10:27:22 +02:00
*/
2001-08-08 16:03:20 +02:00
function get_account_id ( $account_id = '' , $default_id = '' )
2001-08-08 02:13:00 +02:00
{
2002-02-12 11:06:06 +01:00
if ( gettype ( $account_id ) == 'integer' )
2001-08-08 16:03:20 +02:00
{
return $account_id ;
}
elseif ( $account_id == '' )
{
if ( $default_id == '' )
2001-08-08 02:13:00 +02:00
{
2001-08-08 16:03:20 +02:00
return ( isset ( $GLOBALS [ 'phpgw_info' ][ 'user' ][ 'account_id' ]) ? $GLOBALS [ 'phpgw_info' ][ 'user' ][ 'account_id' ] : 0 );
2001-08-08 02:13:00 +02:00
}
2001-08-15 04:14:18 +02:00
elseif ( is_string ( $default_id ))
2001-08-08 02:13:00 +02:00
{
2001-08-08 16:03:20 +02:00
return $GLOBALS [ 'phpgw' ] -> accounts -> name2id ( $default_id );
2001-08-08 02:13:00 +02:00
}
2001-08-08 16:03:20 +02:00
return intval ( $default_id );
2001-08-08 02:13:00 +02:00
}
2001-08-15 04:14:18 +02:00
elseif ( is_string ( $account_id ))
2001-08-08 02:13:00 +02:00
{
2001-08-08 16:03:20 +02:00
if ( $GLOBALS [ 'phpgw' ] -> accounts -> exists ( intval ( $account_id )) == True )
2001-08-08 02:13:00 +02:00
{
2001-08-08 16:03:20 +02:00
return intval ( $account_id );
2001-08-08 02:13:00 +02:00
}
else
{
2001-08-08 16:03:20 +02:00
return $GLOBALS [ 'phpgw' ] -> accounts -> name2id ( $account_id );
2001-08-08 02:13:00 +02:00
}
}
2001-08-08 16:03:20 +02:00
}
2001-08-08 02:13:00 +02:00
2001-08-08 16:03:20 +02:00
/*!
2001-12-23 11:15:40 +01:00
@ function filesystem_separator
2001-08-08 16:03:20 +02:00
@ abstract sets the file system seperator depending on OS
@ result file system separator
*/
function filesystem_separator ()
{
if ( PHP_OS == 'Windows' || PHP_OS == 'OS/2' )
2001-08-08 02:13:00 +02:00
{
2001-08-08 16:03:20 +02:00
return '\\' ;
2001-08-08 02:13:00 +02:00
}
else
{
2001-08-08 16:03:20 +02:00
return '/' ;
}
2001-08-08 02:13:00 +02:00
}
2001-08-08 16:03:20 +02:00
2002-02-12 10:10:40 +01:00
/* Just a wrapper to my new print_r() function I added to the php3 support file. Seek3r */
2001-08-08 16:03:20 +02:00
function _debug_array ( $array )
2001-08-08 02:13:00 +02:00
{
2002-02-12 10:10:40 +01:00
print_r ( $array );
2001-08-08 02:13:00 +02:00
}
2001-08-08 16:03:20 +02:00
2001-12-23 11:15:40 +01:00
/*!
@ collection_end direct functions
*/
2001-08-08 16:03:20 +02:00
// print_debug('core functions are done');
/**************************************************************************** \
* Quick verification of sane environment *
\ ****************************************************************************/
// error_reporting(7);
2001-09-06 10:27:22 +02:00
/* Make sure the header.inc.php is current. */
2001-08-08 16:03:20 +02:00
if ( $GLOBALS [ 'phpgw_info' ][ 'server' ][ 'versions' ][ 'header' ] < $GLOBALS [ 'phpgw_info' ][ 'server' ][ 'versions' ][ 'current_header' ])
{
echo '<center><b>You need to port your settings to the new header.inc.php version.</b></center>' ;
exit ;
}
2001-09-06 10:27:22 +02:00
/* Make sure the developer is following the rules. */
2001-08-08 16:03:20 +02:00
if ( ! isset ( $GLOBALS [ 'phpgw_info' ][ 'flags' ][ 'currentapp' ]))
2001-08-08 02:13:00 +02:00
{
2001-08-21 20:34:56 +02:00
/* This object does not exist yet. */
/* $GLOBALS['phpgw']->log->write(array('text'=>'W-MissingFlags, currentapp flag not set'));*/
2001-08-08 16:03:20 +02:00
2001-12-29 19:02:51 +01:00
echo '<b>!!! YOU DO NOT HAVE YOUR $GLOBALS[\'phpgw_info\'][\'flags\'][\'currentapp\'] SET !!!' ;
2001-08-08 16:03:20 +02:00
echo '<br>!!! PLEASE CORRECT THIS SITUATION !!!</b>' ;
2001-08-08 02:13:00 +02:00
}
2001-08-08 16:03:20 +02:00
magic_quotes_runtime ( false );
2001-08-26 20:50:57 +02:00
@ print_debug ( 'sane environment' );
2001-08-08 16:03:20 +02:00
/**************************************************************************** \
* Multi - Domain support *
\ ****************************************************************************/
/* make them fix their header */
if ( ! isset ( $GLOBALS [ 'phpgw_domain' ]))
2001-08-08 02:13:00 +02:00
{
2001-08-08 16:03:20 +02:00
echo '<center><b>The administrator must upgrade the header.inc.php file before you can continue.</b></center>' ;
exit ;
2001-08-08 02:13:00 +02:00
}
2001-08-08 16:03:20 +02:00
reset ( $GLOBALS [ 'phpgw_domain' ]);
$default_domain = each ( $GLOBALS [ 'phpgw_domain' ]);
$GLOBALS [ 'phpgw_info' ][ 'server' ][ 'default_domain' ] = $default_domain [ 0 ];
unset ( $default_domain ); // we kill this for security reasons
2001-09-06 21:23:56 +02:00
$GLOBALS [ 'login' ] = @ $GLOBALS [ 'HTTP_POST_VARS' ][ 'login' ];
$GLOBALS [ 'logindomain' ] = @ $GLOBALS [ 'HTTP_POST_VARS' ][ 'logindomain' ];
2001-09-06 10:27:22 +02:00
2001-08-08 16:03:20 +02:00
/* This code will handle virtdomains so that is a user logins with user@domain.com, it will switch into virtualization mode. */
if ( isset ( $domain ))
2001-08-08 02:13:00 +02:00
{
2001-08-08 16:03:20 +02:00
$GLOBALS [ 'phpgw_info' ][ 'user' ][ 'domain' ] = $domain ;
}
2001-09-06 10:27:22 +02:00
elseif ( isset ( $GLOBALS [ 'login' ]) && isset ( $GLOBALS [ 'logindomain' ]))
2001-08-08 16:03:20 +02:00
{
2001-09-06 10:27:22 +02:00
if ( ! ereg ( " \ @ " , $GLOBALS [ 'login' ]))
2001-08-08 02:13:00 +02:00
{
2001-09-06 10:27:22 +02:00
$GLOBALS [ 'login' ] = $GLOBALS [ 'login' ] . '@' . $GLOBALS [ 'logindomain' ];
2001-08-08 02:13:00 +02:00
}
2001-09-06 10:27:22 +02:00
$GLOBALS [ 'phpgw_info' ][ 'user' ][ 'domain' ] = $GLOBALS [ 'logindomain' ];
unset ( $GLOBALS [ 'logindomain' ]);
2001-08-08 02:13:00 +02:00
}
2001-09-06 10:27:22 +02:00
elseif ( isset ( $GLOBALS [ 'login' ]) && ! isset ( $GLOBALS [ 'logindomain' ]))
2001-08-08 02:13:00 +02:00
{
2001-09-06 10:27:22 +02:00
if ( ereg ( " \ @ " , $GLOBALS [ 'login' ]))
2001-08-08 02:13:00 +02:00
{
2001-09-06 10:27:22 +02:00
$login_array = explode ( '@' , $GLOBALS [ 'login' ]);
2001-08-08 16:03:20 +02:00
$GLOBALS [ 'phpgw_info' ][ 'user' ][ 'domain' ] = $login_array [ 1 ];
2001-08-08 02:13:00 +02:00
}
else
{
2001-08-08 16:03:20 +02:00
$GLOBALS [ 'phpgw_info' ][ 'user' ][ 'domain' ] = $GLOBALS [ 'phpgw_info' ][ 'server' ][ 'default_domain' ];
2001-09-06 10:27:22 +02:00
$GLOBALS [ 'login' ] = $GLOBALS [ 'login' ] . '@' . $GLOBALS [ 'phpgw_info' ][ 'user' ][ 'domain' ];
2001-08-08 02:13:00 +02:00
}
}
2001-08-08 16:03:20 +02:00
if ( @ isset ( $GLOBALS [ 'phpgw_domain' ][ $GLOBALS [ 'phpgw_info' ][ 'user' ][ 'domain' ]]))
2001-08-08 02:13:00 +02:00
{
2001-08-08 16:03:20 +02:00
$GLOBALS [ 'phpgw_info' ][ 'server' ][ 'db_host' ] = $GLOBALS [ 'phpgw_domain' ][ $GLOBALS [ 'phpgw_info' ][ 'user' ][ 'domain' ]][ 'db_host' ];
$GLOBALS [ 'phpgw_info' ][ 'server' ][ 'db_name' ] = $GLOBALS [ 'phpgw_domain' ][ $GLOBALS [ 'phpgw_info' ][ 'user' ][ 'domain' ]][ 'db_name' ];
$GLOBALS [ 'phpgw_info' ][ 'server' ][ 'db_user' ] = $GLOBALS [ 'phpgw_domain' ][ $GLOBALS [ 'phpgw_info' ][ 'user' ][ 'domain' ]][ 'db_user' ];
$GLOBALS [ 'phpgw_info' ][ 'server' ][ 'db_pass' ] = $GLOBALS [ 'phpgw_domain' ][ $GLOBALS [ 'phpgw_info' ][ 'user' ][ 'domain' ]][ 'db_pass' ];
$GLOBALS [ 'phpgw_info' ][ 'server' ][ 'db_type' ] = $GLOBALS [ 'phpgw_domain' ][ $GLOBALS [ 'phpgw_info' ][ 'user' ][ 'domain' ]][ 'db_type' ];
2001-08-08 02:13:00 +02:00
}
else
{
2001-08-08 16:03:20 +02:00
$GLOBALS [ 'phpgw_info' ][ 'server' ][ 'db_host' ] = $GLOBALS [ 'phpgw_domain' ][ $GLOBALS [ 'phpgw_info' ][ 'server' ][ 'default_domain' ]][ 'db_host' ];
$GLOBALS [ 'phpgw_info' ][ 'server' ][ 'db_name' ] = $GLOBALS [ 'phpgw_domain' ][ $GLOBALS [ 'phpgw_info' ][ 'server' ][ 'default_domain' ]][ 'db_name' ];
$GLOBALS [ 'phpgw_info' ][ 'server' ][ 'db_user' ] = $GLOBALS [ 'phpgw_domain' ][ $GLOBALS [ 'phpgw_info' ][ 'server' ][ 'default_domain' ]][ 'db_user' ];
$GLOBALS [ 'phpgw_info' ][ 'server' ][ 'db_pass' ] = $GLOBALS [ 'phpgw_domain' ][ $GLOBALS [ 'phpgw_info' ][ 'server' ][ 'default_domain' ]][ 'db_pass' ];
$GLOBALS [ 'phpgw_info' ][ 'server' ][ 'db_type' ] = $GLOBALS [ 'phpgw_domain' ][ $GLOBALS [ 'phpgw_info' ][ 'server' ][ 'default_domain' ]][ 'db_type' ];
2001-08-08 02:13:00 +02:00
}
2001-08-07 18:02:55 +02:00
2001-08-08 16:03:20 +02:00
if ( $GLOBALS [ 'phpgw_info' ][ 'flags' ][ 'currentapp' ] != 'login' && ! $GLOBALS [ 'phpgw_info' ][ 'server' ][ 'show_domain_selectbox' ])
2001-08-08 02:13:00 +02:00
{
2001-09-06 10:27:22 +02:00
unset ( $GLOBALS [ 'phpgw_domain' ]); // we kill this for security reasons
2001-08-08 02:13:00 +02:00
}
2001-08-08 16:03:20 +02:00
unset ( $domain ); // we kill this to save memory
@ print_debug ( 'domain: ' . $GLOBALS [ 'phpgw_info' ][ 'user' ][ 'domain' ]);
/**************************************************************************** \
* These lines load up the API , fill up the $phpgw_info array , etc *
\ ****************************************************************************/
/* Load main class */
$GLOBALS [ 'phpgw' ] = CreateObject ( 'phpgwapi.phpgw' );
/************************************************************************ \
* Load up the main instance of the db class . *
\ ************************************************************************/
$GLOBALS [ 'phpgw' ] -> db = CreateObject ( 'phpgwapi.db' );
$GLOBALS [ 'phpgw' ] -> db -> Host = $GLOBALS [ 'phpgw_info' ][ 'server' ][ 'db_host' ];
$GLOBALS [ 'phpgw' ] -> db -> Type = $GLOBALS [ 'phpgw_info' ][ 'server' ][ 'db_type' ];
$GLOBALS [ 'phpgw' ] -> db -> Database = $GLOBALS [ 'phpgw_info' ][ 'server' ][ 'db_name' ];
$GLOBALS [ 'phpgw' ] -> db -> User = $GLOBALS [ 'phpgw_info' ][ 'server' ][ 'db_user' ];
$GLOBALS [ 'phpgw' ] -> db -> Password = $GLOBALS [ 'phpgw_info' ][ 'server' ][ 'db_pass' ];
if ( $GLOBALS [ 'phpgw' ] -> debug )
2001-08-08 02:13:00 +02:00
{
2001-08-08 16:03:20 +02:00
$GLOBALS [ 'phpgw' ] -> db -> Debug = 1 ;
2001-08-08 02:13:00 +02:00
}
2001-08-07 18:02:55 +02:00
2001-08-08 16:03:20 +02:00
$GLOBALS [ 'phpgw' ] -> db -> Halt_On_Error = 'no' ;
2001-08-15 04:14:18 +02:00
@ $GLOBALS [ 'phpgw' ] -> db -> query ( " select count(config_name) from phpgw_config " );
2001-08-08 16:03:20 +02:00
if ( ! @ $GLOBALS [ 'phpgw' ] -> db -> next_record ())
2001-08-08 02:13:00 +02:00
{
2001-08-08 16:03:20 +02:00
$setup_dir = ereg_replace ( $PHP_SELF , 'index.php' , 'setup/' );
echo '<center><b>Fatal Error:</b> It appears that you have not created the database tables for '
. 'phpGroupWare. Click <a href="' . $setup_dir . '">here</a> to run setup.</center>' ;
exit ;
2001-08-08 02:13:00 +02:00
}
2001-08-08 16:03:20 +02:00
$GLOBALS [ 'phpgw' ] -> db -> Halt_On_Error = 'yes' ;
/* Fill phpgw_info["server"] array */
// An Attempt to speed things up using cache premise
$GLOBALS [ 'phpgw' ] -> db -> query ( " select config_value from phpgw_config WHERE config_app='phpgwapi' and config_name='cache_phpgw_info' " , __LINE__ , __FILE__ );
if ( $GLOBALS [ 'phpgw' ] -> db -> num_rows ())
2001-08-08 02:13:00 +02:00
{
2001-08-08 16:03:20 +02:00
$GLOBALS [ 'phpgw' ] -> db -> next_record ();
$GLOBALS [ 'phpgw_info' ][ 'server' ][ 'cache_phpgw_info' ] = stripslashes ( $GLOBALS [ 'phpgw' ] -> db -> f ( 'config_value' ));
2001-08-08 02:13:00 +02:00
}
2001-08-08 16:03:20 +02:00
$cache_query = " select content from phpgw_app_sessions where "
. " sessionid = '0' and loginid = '0' and app = 'phpgwapi' and location = 'config' " ;
$GLOBALS [ 'phpgw' ] -> db -> query ( $cache_query , __LINE__ , __FILE__ );
$server_info_cache = $GLOBALS [ 'phpgw' ] -> db -> num_rows ();
if ( @ $GLOBALS [ 'phpgw_info' ][ 'server' ][ 'cache_phpgw_info' ] && $server_info_cache )
2001-08-08 02:13:00 +02:00
{
2001-08-08 16:03:20 +02:00
$GLOBALS [ 'phpgw' ] -> db -> next_record ();
$GLOBALS [ 'phpgw_info' ][ 'server' ] = unserialize ( stripslashes ( $GLOBALS [ 'phpgw' ] -> db -> f ( 'content' )));
2001-08-08 02:13:00 +02:00
}
else
{
2001-08-08 16:03:20 +02:00
$GLOBALS [ 'phpgw' ] -> db -> query ( " select * from phpgw_config WHERE config_app='phpgwapi' " , __LINE__ , __FILE__ );
while ( $GLOBALS [ 'phpgw' ] -> db -> next_record ())
2001-08-08 02:13:00 +02:00
{
2001-08-08 16:03:20 +02:00
$GLOBALS [ 'phpgw_info' ][ 'server' ][ $GLOBALS [ 'phpgw' ] -> db -> f ( 'config_name' )] = stripslashes ( $GLOBALS [ 'phpgw' ] -> db -> f ( 'config_value' ));
2001-08-08 02:13:00 +02:00
}
2001-08-08 16:03:20 +02:00
2001-09-06 21:23:56 +02:00
if ( @ isset ( $GLOBALS [ 'phpgw_info' ][ 'server' ][ 'cache_phpgw_info' ]))
2001-08-08 02:13:00 +02:00
{
2001-08-08 16:03:20 +02:00
if ( $server_info_cache )
{
2002-01-13 05:06:40 +01:00
$cache_query = " DELETE FROM phpgw_app_sessions WHERE sessionid='0' and loginid='0' and app='phpgwapi' and location='config' " ;
$GLOBALS [ 'phpgw' ] -> db -> query ( $cache_query , __LINE__ , __FILE__ );
2001-08-08 16:03:20 +02:00
}
2002-01-13 05:06:40 +01:00
$cache_query = 'INSERT INTO phpgw_app_sessions(sessionid,loginid,app,location,content) VALUES('
. " '0','0','phpgwapi','config',' " . addslashes ( serialize ( $GLOBALS [ 'phpgw_info' ][ 'server' ])) . " ') " ;
2001-08-08 16:03:20 +02:00
$GLOBALS [ 'phpgw' ] -> db -> query ( $cache_query , __LINE__ , __FILE__ );
2001-08-08 02:13:00 +02:00
}
}
2001-08-08 16:03:20 +02:00
unset ( $cache_query );
unset ( $server_info_cache );
2002-01-13 05:06:40 +01:00
if ( @ isset ( $GLOBALS [ 'phpgw_info' ][ 'server' ][ 'enforce_ssl' ]) && ! $HTTPS )
{
Header ( 'Location: https://' . $GLOBALS [ 'phpgw_info' ][ 'server' ][ 'hostname' ] . $GLOBALS [ 'phpgw_info' ][ 'server' ][ 'webserver_url' ] . $REQUEST_URI );
exit ;
}
2001-09-06 10:27:22 +02:00
/************************************************************************ \
* Required classes *
\ ************************************************************************/
2001-08-11 16:49:12 +02:00
$GLOBALS [ 'phpgw' ] -> log = CreateObject ( 'phpgwapi.errorlog' );
2001-09-06 21:23:56 +02:00
$GLOBALS [ 'phpgw' ] -> translation = CreateObject ( 'phpgwapi.translation' );
2001-08-08 16:03:20 +02:00
$GLOBALS [ 'phpgw' ] -> common = CreateObject ( 'phpgwapi.common' );
$GLOBALS [ 'phpgw' ] -> hooks = CreateObject ( 'phpgwapi.hooks' );
$GLOBALS [ 'phpgw' ] -> auth = CreateObject ( 'phpgwapi.auth' );
$GLOBALS [ 'phpgw' ] -> accounts = CreateObject ( 'phpgwapi.accounts' );
$GLOBALS [ 'phpgw' ] -> acl = CreateObject ( 'phpgwapi.acl' );
$GLOBALS [ 'phpgw' ] -> session = CreateObject ( 'phpgwapi.sessions' );
$GLOBALS [ 'phpgw' ] -> preferences = CreateObject ( 'phpgwapi.preferences' );
$GLOBALS [ 'phpgw' ] -> applications = CreateObject ( 'phpgwapi.applications' );
// $GLOBALS['phpgw']->datetime = CreateObject('phpgwapi.datetime');
print_debug ( 'main class loaded' );
2001-09-04 06:52:47 +02:00
if ( ! isset ( $GLOBALS [ 'phpgw_info' ][ 'flags' ][ 'included_classes' ][ 'error' ]) ||
! $GLOBALS [ 'phpgw_info' ][ 'flags' ][ 'included_classes' ][ 'error' ])
2001-08-08 02:13:00 +02:00
{
2001-08-08 16:03:20 +02:00
include ( PHPGW_INCLUDE_ROOT . '/phpgwapi/inc/class.error.inc.php' );
2001-09-04 06:52:47 +02:00
$GLOBALS [ 'phpgw_info' ][ 'flags' ][ 'included_classes' ][ 'error' ] = True ;
2001-08-08 16:03:20 +02:00
}
2001-09-06 10:27:22 +02:00
/**************************************************************************** \
* This is a global constant that should be used *
* instead of / or \ in file paths *
\ ****************************************************************************/
2001-08-08 16:03:20 +02:00
define ( 'SEP' , filesystem_separator ());
2001-08-23 06:32:15 +02:00
/***************************************************************************** \
* ACL defines - moved here to work for xml - rpc / soap , also *
\ *****************************************************************************/
define ( 'PHPGW_ACL_READ' , 1 );
define ( 'PHPGW_ACL_ADD' , 2 );
define ( 'PHPGW_ACL_EDIT' , 4 );
define ( 'PHPGW_ACL_DELETE' , 8 );
define ( 'PHPGW_ACL_PRIVATE' , 16 );
2002-01-10 19:18:44 +01:00
define ( 'PHPGW_ACL_GROUP_MANAGERS' , 32 );
2001-08-23 06:32:15 +02:00
2001-09-06 10:27:22 +02:00
/**************************************************************************** \
* Stuff to use if logging in or logging out *
\ ****************************************************************************/
2001-08-08 16:03:20 +02:00
if ( $GLOBALS [ 'phpgw_info' ][ 'flags' ][ 'currentapp' ] == 'login' || $GLOBALS [ 'phpgw_info' ][ 'flags' ][ 'currentapp' ] == 'logout' )
{
if ( $GLOBALS [ 'phpgw_info' ][ 'flags' ][ 'currentapp' ] == 'login' )
2001-08-08 02:13:00 +02:00
{
2001-08-08 16:03:20 +02:00
if ( @ $login != '' )
{
$login_array = explode ( " @ " , $login );
2001-09-06 21:23:56 +02:00
print_debug ( 'LID : ' . $login_array [ 0 ]);
2001-08-08 16:03:20 +02:00
$login_id = $GLOBALS [ 'phpgw' ] -> accounts -> name2id ( $login_array [ 0 ]);
2001-09-06 21:23:56 +02:00
print_debug ( 'User ID : ' . $login_id );
2001-08-08 16:03:20 +02:00
$GLOBALS [ 'phpgw' ] -> accounts -> accounts ( $login_id );
$GLOBALS [ 'phpgw' ] -> preferences -> preferences ( $login_id );
}
2001-08-08 02:13:00 +02:00
}
2001-09-06 10:27:22 +02:00
/************************************************************************** \
* Everything from this point on will ONLY happen if *
* the currentapp is not login or logout *
\ **************************************************************************/
2001-08-08 02:13:00 +02:00
}
2001-08-08 16:03:20 +02:00
else
2001-08-08 02:13:00 +02:00
{
2001-08-08 16:03:20 +02:00
if ( ! $GLOBALS [ 'phpgw' ] -> session -> verify ())
{
Header ( 'Location: ' . $GLOBALS [ 'phpgw' ] -> redirect ( $GLOBALS [ 'phpgw' ] -> session -> link ( '/login.php' , 'cd=10' )));
exit ;
}
2001-08-07 18:02:55 +02:00
2001-08-08 16:03:20 +02:00
/* A few hacker resistant constants that will be used throught the program */
define ( 'PHPGW_TEMPLATE_DIR' , ExecMethod ( 'phpgwapi.phpgw.common.get_tpl_dir' , 'phpgwapi' ));
define ( 'PHPGW_IMAGES_DIR' , ExecMethod ( 'phpgwapi.phpgw.common.get_image_path' , 'phpgwapi' ));
define ( 'PHPGW_IMAGES_FILEDIR' , ExecMethod ( 'phpgwapi.phpgw.common.get_image_dir' , 'phpgwapi' ));
define ( 'PHPGW_APP_ROOT' , ExecMethod ( 'phpgwapi.phpgw.common.get_app_dir' ));
define ( 'PHPGW_APP_INC' , ExecMethod ( 'phpgwapi.phpgw.common.get_inc_dir' ));
define ( 'PHPGW_APP_TPL' , ExecMethod ( 'phpgwapi.phpgw.common.get_tpl_dir' ));
define ( 'PHPGW_IMAGES' , ExecMethod ( 'phpgwapi.phpgw.common.get_image_path' ));
define ( 'PHPGW_APP_IMAGES_DIR' , ExecMethod ( 'phpgwapi.phpgw.common.get_image_dir' ));
2001-08-23 06:32:15 +02:00
/* define('PHPGW_APP_IMAGES_DIR', $GLOBALS['phpgw']->common->get_image_dir()); */
2001-08-08 16:03:20 +02:00
2001-08-23 06:32:15 +02:00
/* Moved outside of this logic
2001-08-08 16:03:20 +02:00
define ( 'PHPGW_ACL_READ' , 1 );
define ( 'PHPGW_ACL_ADD' , 2 );
define ( 'PHPGW_ACL_EDIT' , 4 );
define ( 'PHPGW_ACL_DELETE' , 8 );
define ( 'PHPGW_ACL_PRIVATE' , 16 );
2001-08-23 06:32:15 +02:00
*/
2001-08-08 16:03:20 +02:00
/********* This sets the user variables *********/
$GLOBALS [ 'phpgw_info' ][ 'user' ][ 'private_dir' ] = $GLOBALS [ 'phpgw_info' ][ 'server' ][ 'files_dir' ]
. '/users/' . $GLOBALS [ 'phpgw_info' ][ 'user' ][ 'userid' ];
/* This will make sure that a user has the basic default prefs. If not it will add them */
$GLOBALS [ 'phpgw' ] -> preferences -> verify_basic_settings ();
/********* Optional classes, which can be disabled for performance increases *********/
while ( $phpgw_class_name = each ( $GLOBALS [ 'phpgw_info' ][ 'flags' ]))
2001-08-08 02:13:00 +02:00
{
2001-08-08 16:03:20 +02:00
if ( ereg ( 'enable_' , $phpgw_class_name [ 0 ]))
{
$enable_class = str_replace ( 'enable_' , '' , $phpgw_class_name [ 0 ]);
$enable_class = str_replace ( '_class' , '' , $enable_class );
eval ( '$GLOBALS["phpgw"]->' . $enable_class . ' = createobject(\'phpgwapi.' . $enable_class . '\');' );
}
2001-08-08 02:13:00 +02:00
}
2001-08-08 16:03:20 +02:00
unset ( $enable_class );
reset ( $GLOBALS [ 'phpgw_info' ][ 'flags' ]);
2001-08-07 18:02:55 +02:00
2001-08-08 16:03:20 +02:00
/************************************************************************* \
* These lines load up the templates class *
\ *************************************************************************/
if ( !@ $GLOBALS [ 'phpgw_info' ][ 'flags' ][ 'disable_Template_class' ])
{
$GLOBALS [ 'phpgw' ] -> template = CreateObject ( 'phpgwapi.Template' , PHPGW_APP_TPL );
}
2001-08-07 18:02:55 +02:00
2001-08-08 16:03:20 +02:00
/************************************************************************* \
* These lines load up the themes *
\ *************************************************************************/
if ( ! $GLOBALS [ 'phpgw_info' ][ 'user' ][ 'preferences' ][ 'common' ][ 'theme' ])
{
if ( $GLOBALS [ 'phpgw_info' ][ 'server' ][ 'template_set' ] == 'user_choice' )
{
$GLOBALS [ 'phpgw_info' ][ 'user' ][ 'preferences' ][ 'common' ][ 'theme' ] = 'default' ;
}
else
{
$GLOBALS [ 'phpgw_info' ][ 'user' ][ 'preferences' ][ 'common' ][ 'theme' ] = $GLOBALS [ 'phpgw_info' ][ 'server' ][ 'template_set' ];
}
}
if ( $GLOBALS [ 'phpgw_info' ][ 'server' ][ 'force_theme' ] == 'user_choice' )
2001-08-08 02:13:00 +02:00
{
2001-12-29 09:53:28 +01:00
if ( ! isset ( $GLOBALS [ 'phpgw_info' ][ 'user' ][ 'preferences' ][ 'common' ][ 'theme' ]))
{
$GLOBALS [ 'phpgw_info' ][ 'user' ][ 'preferences' ][ 'common' ][ 'theme' ] = 'default' ;
}
2001-08-08 02:13:00 +02:00
}
else
{
2001-12-29 09:53:28 +01:00
if ( isset ( $GLOBALS [ 'phpgw_info' ][ 'server' ][ 'force_theme' ]))
{
$GLOBALS [ 'phpgw_info' ][ 'user' ][ 'preferences' ][ 'common' ][ 'theme' ] = $GLOBALS [ 'phpgw_info' ][ 'server' ][ 'force_theme' ];
}
2001-08-08 02:13:00 +02:00
}
2001-12-29 09:53:28 +01:00
if ( @ file_exists ( PHPGW_SERVER_ROOT . '/phpgwapi/themes/' . $GLOBALS [ 'phpgw_info' ][ 'user' ][ 'preferences' ][ 'common' ][ 'theme' ] . '.theme' ))
2001-08-08 16:03:20 +02:00
{
2001-12-29 09:53:28 +01:00
include ( PHPGW_SERVER_ROOT . '/phpgwapi/themes/' . $GLOBALS [ 'phpgw_info' ][ 'user' ][ 'preferences' ][ 'common' ][ 'theme' ] . '.theme' );
2001-08-08 16:03:20 +02:00
}
elseif ( @ file_exists ( PHPGW_SERVER_ROOT . '/phpgwapi/themes/default.theme' ))
{
include ( PHPGW_SERVER_ROOT . '/phpgwapi/themes/default.theme' );
}
else
{
/* Hope we don't get to this point. Better then the user seeing a */
/* complety back screen and not know whats going on */
echo '<body bgcolor="FFFFFF">' ;
2001-09-06 10:27:22 +02:00
$GLOBALS [ 'phpgw' ] -> log -> write ( array ( 'text' => 'F-Abort, No themes found' ));
2001-08-07 18:02:55 +02:00
2001-08-08 16:03:20 +02:00
exit ;
}
unset ( $theme_to_load );
/************************************************************************* \
* If they are using frames , we need to set some variables *
\ *************************************************************************/
if ((( isset ( $GLOBALS [ 'phpgw_info' ][ 'user' ][ 'preferences' ][ 'common' ][ 'useframes' ]) &&
$GLOBALS [ 'phpgw_info' ][ 'user' ][ 'preferences' ][ 'common' ][ 'useframes' ]) &&
$GLOBALS [ 'phpgw_info' ][ 'server' ][ 'useframes' ] == 'allowed' ) ||
2001-08-08 02:13:00 +02:00
( $GLOBALS [ 'phpgw_info' ][ 'server' ][ 'useframes' ] == 'always' ))
2001-08-08 16:03:20 +02:00
{
$GLOBALS [ 'phpgw_info' ][ 'flags' ][ 'navbar_target' ] = 'phpgw_body' ;
}
2001-08-07 18:02:55 +02:00
2001-08-08 16:03:20 +02:00
/************************************************************************* \
* Verify that the users session is still active otherwise kick them out *
\ *************************************************************************/
if ( $GLOBALS [ 'phpgw_info' ][ 'flags' ][ 'currentapp' ] != 'home' &&
2001-08-08 02:13:00 +02:00
$GLOBALS [ 'phpgw_info' ][ 'flags' ][ 'currentapp' ] != 'preferences' &&
$GLOBALS [ 'phpgw_info' ][ 'flags' ][ 'currentapp' ] != 'about' )
{
2001-08-08 16:03:20 +02:00
// This will need to use ACL in the future
if ( ! $GLOBALS [ 'phpgw_info' ][ 'user' ][ 'apps' ][ $GLOBALS [ 'phpgw_info' ][ 'flags' ][ 'currentapp' ]] ||
( @ $GLOBALS [ 'phpgw_info' ][ 'flags' ][ 'admin_only' ] &&
! $GLOBALS [ 'phpgw_info' ][ 'user' ][ 'apps' ][ 'admin' ]))
2001-08-08 02:13:00 +02:00
{
2001-08-08 16:03:20 +02:00
$GLOBALS [ 'phpgw' ] -> common -> phpgw_header ();
if ( $GLOBALS [ 'phpgw_info' ][ 'flags' ][ 'noheader' ])
{
echo parse_navbar ();
}
2001-08-08 02:13:00 +02:00
2001-09-06 10:27:22 +02:00
$GLOBALS [ 'phpgw' ] -> log -> write ( array ( 'text' => 'W-Permissions, Attempted to access %1' , 'p1' => $GLOBALS [ 'phpgw_info' ][ 'flags' ][ 'currentapp' ]));
2001-08-08 02:13:00 +02:00
2001-08-08 16:03:20 +02:00
echo '<p><center><b>' . lang ( 'Access not permitted' ) . '</b></center>' ;
$GLOBALS [ 'phpgw' ] -> common -> phpgw_exit ( True );
}
2001-08-08 02:13:00 +02:00
}
2001-08-07 18:02:55 +02:00
2001-08-08 16:03:20 +02:00
/************************************************************************* \
* Load the header unless the developer turns it off *
\ *************************************************************************/
if ( !@ $GLOBALS [ 'phpgw_info' ][ 'flags' ][ 'noheader' ])
{
$GLOBALS [ 'phpgw' ] -> common -> phpgw_header ();
}
2001-08-07 18:02:55 +02:00
2001-08-08 16:03:20 +02:00
/************************************************************************* \
* Load the app include files if the exists *
\ *************************************************************************/
/* Then the include file */
2001-12-29 19:02:51 +01:00
if ( ! preg_match ( " /phpgwapi/i " , PHPGW_APP_INC ) && file_exists ( PHPGW_APP_INC . '/functions.inc.php' ) && ! isset ( $GLOBALS [ 'HTTP_GET_VARS' ][ 'menuaction' ]))
2001-08-08 16:03:20 +02:00
{
include ( PHPGW_APP_INC . '/functions.inc.php' );
}
if ( !@ $GLOBALS [ 'phpgw_info' ][ 'flags' ][ 'noheader' ] &&
2001-08-08 02:13:00 +02:00
!@ $GLOBALS [ 'phpgw_info' ][ 'flags' ][ 'noappheader' ] &&
2001-12-29 19:02:51 +01:00
file_exists ( PHPGW_APP_INC . '/header.inc.php' ) && ! isset ( $GLOBALS [ 'HTTP_GET_VARS' ][ 'menuaction' ]))
2001-08-08 16:03:20 +02:00
{
include ( PHPGW_APP_INC . '/header.inc.php' );
}
2001-08-08 02:13:00 +02:00
}
2001-08-07 18:02:55 +02:00
2001-08-08 16:03:20 +02:00
error_reporting ( E_ERROR | E_WARNING | E_PARSE );