<?php
/**
 * Control Script (Pageloader) for the CLN
 *
 * This is the main script that runs the whole CLN. All pages called
 * are routed through here.
 *
 * Developed by The Working Group Inc.
 *
 * This program is free software; you can redistribute it and/or
 * modify it under the terms of the GNU General Public License
 * 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.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program; if not, write to the Free Software
 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
 *
 * @version $Id: index.php,v 1.91 2005/12/06 05:31:11 darcy Exp $
 * @copyright Copyright (c) 2003-5 St. Christopher House
 * @package ClnCore
 * @subpackage System
 * @filesource
 */


/**
 * CLN_FILE_BASE
 *
 * This is a constant used to store where files are relative to the calling
 * script. The CLN_FILE_BASE is usually ./ unless we are on an administrative
 * page (ie. PAGETYPE=Admin)
 */
if (!defined('CLN_FILE_BASE')) {
	define('CLN_FILE_BASE', './');
}

// ****************************************************************************
// Set up the PHP environment

// Set the include path
if (!setIncludePath()) {
	print 'The include path couldn\'t be set';
	exit;
}


// Turn session auto start off, so that we have time to load the libraries
ini_set('session.auto_start','Off');

// Fix missing _SERVER vars on windows
if(!isset($_SERVER['REQUEST_URI'])) {
   $_SERVER['REQUEST_URI'] = $_SERVER['PHP_SELF'] .'?'. $_SERVER['QUERY_STRING'];
}

// ****************************************************************************
// Load the site configuration, this includes loading the local one first if it's there

if(file_exists(CLN_FILE_BASE . 'config/config.php')) {
	require_once('config/config.php');
}
require_once('config/config-default.php');


// ****************************************************************************
// Load the Core Functions
require_once(CLN_CORE_FUNCTIONS_LIBRARY);


//print_f($_SERVER);exit;


// ****************************************************************************
// This is used to catch bad url requests.  they need to end with a / or a filename
// do it here before all the libraries, so it does load too much before refreshing
/*if(isset($_GET['p']) && substr($_GET['p'],-4) != '.php' && substr($_GET['p'],-1) != '/') {
	Header('Location: ' . cleanURL($_GET['p'].'/'));
	exit;
}*/

// ****************************************************************************
// Set up PHP's error handling
error_reporting(CLN_ERROR_REPORTING_LEVEL);
require_once('PEAR.php');
require_once('Misc/Error_Functions.php');
set_error_handler('clnErrorHandler');
register_shutdown_function('clnErrorShutdown');
PEAR::setErrorHandling(PEAR_ERROR_CALLBACK, 'clnErrorHandler');


// ****************************************************************************
// Load all libraries
// Base PEAR classes
require_once('Log.php');
//require_once('DB.php');
//require_once('peardb.php');
require_once('File.php');
require_once('Benchmark/Timer.php');

// CLN Custom classes and functions
require_once($GLOBALS['classes']['module_loader']['library']);
require_once('C1Module/C1Module.php');

require_once($GLOBALS['classes']['db']['library']);
require_once($GLOBALS['classes']['ko']['library']);
require_once($GLOBALS['classes']['metadata']['library']);
require_once($GLOBALS['classes']['relationship']['library']);
require_once($GLOBALS['classes']['chronology']['library']);

require_once($GLOBALS['classes']['person']['library']);
require_once($GLOBALS['classes']['user']['library']);
require_once($GLOBALS['classes']['group']['library']);


// allows for an easy migration from php4's domxml to php5's dom
if (version_compare(PHP_VERSION,'5','>=')) {
   require_once('lib/Core/Misc/domxml-php4-to-php5.php');
   //require_once('lib/Core/Misc/xslt-php4-to-php5.php');
}


// ****************************************************************************
// Start the timer to measure how long the pages take to render
$GLOBALS['pageTimer'] = new Benchmark_Timer();
$GLOBALS['pageTimer']->start();
$GLOBALS['SQLTimer'] = '';

//debug('REQUEST_URI: '.$_SERVER['REQUEST_URI']);


// ****************************************************************************
// Strip slashes from all incoming variables right away.
Cln_stripSlashes($_REQUEST);
Cln_stripSlashes($_POST);
Cln_stripSlashes($_GET);
Cln_stripSlashes($_COOKIE);


// ****************************************************************************
// Start the session and load/prime session objects

session_name(CLN_COOKIE_NAME);
if(isset($_REQUEST['sid'])) session_id($_REQUEST['sid']);
session_start();


// ****************************************************************************
// load/prime session objects

// :DEBUG: remove specific session variables - doesn't work yet - dwc
/*if(isset($_REQUEST['clearSessionVar'])) {
	unset($_SESSION[($_REQUEST['clearSessionVar'])]);
}*/

// The Module Loader
// NOTE: This must be loaded first, before any other session variables
//unset($_SESSION['Module_Loader']);
if(!isset($_SESSION['Module_Loader'])) {
	session_register('Module_Loader');
	$_SESSION['Module_Loader'] = new $GLOBALS['classes']['module_loader']['classname']();
	//$_SESSION['Module_Loader']->loadAllModuleTypes();
	//print_f($_SESSION['Module_Loader']);
}

if (!isset($_SESSION['History'])) {
	session_register('History');
	$_SESSION['History'] = array();
}

// The Edit Mode
if (!isset($_SESSION['editMode'])) {
	session_register('editMode');
	$_SESSION['editMode'] = 'browse';
}

if($_SESSION['editMode'] == 'browse') {
	$GLOBALS['status'] = 1;
} else {
	$GLOBALS['status'] = 0;
}


// ***************************************************************************

// Load User
if(defined('MAIN_CLN_DSN')) {
	// The User Object
	if(!isset($_SESSION['User'])) {
		session_register('User');
		$thisUser =& new $GLOBALS['classes']['ko']['classname']('NEW',2);
		$thisUser->loadPartObject(0);
		$thisUser->currentPart['title'] = 'New Person';
		$_SESSION['User'] =& $thisUser->currentPart['object'];
		$_SESSION['User']->reloadGroupList();
	}
	//print_f($_SESSION['User']);exit;
	
	// catch direct login
	if(isset($_REQUEST['username']) && isset($_REQUEST['password'])) {
		$_SESSION['User']->email = $_REQUEST['username'];
		$_SESSION['User']->password = $_REQUEST['password'];
		$_SESSION['User']->login(FALSE,FALSE);  // doesn't redirect
	}
	
	// See if the user is logging in or out
	if(isset($_REQUEST['CLN_login_submit'])) {
		$_SESSION['User'] = login($_REQUEST['CLN_login_email'],$_REQUEST['CLN_login_password']);
		//print_f($_SESSION['User']);exit;
	}
	else if(isset($_REQUEST['Cln_logout'])) {	// the user is logging out
		$_SESSION['User']->logout();
	} else {
		//print 'checking authentication for user<br />';
		isLoggedIn();
	}
	
	//print_f($_SESSION['User']);exit;
}


// ***************************************************************************
// See if the user is trying to switch languages

if(isset($_REQUEST['setLanguage'])) {
	//if($_POST['setLanguage'] == $_SESSION['User']->preferredLanguages[0]) {
	//	unset($_SESSION['User']->lang);
	//} else {
		$_SESSION['User']->lang = $GLOBALS['lang'] = $_REQUEST['setLanguage'];
	//}
	$language = $_REQUEST['setLanguage'];
//	PEAR::raiseError("Your viewing language has been switched to <b>{$GLOBALS['languages'][$language]}</b>. <br /><br />This doesn't mean that you will see everything in <b>{$GLOBALS['languages'][$language]}</b> - the system does not do automatic translation. However, you will see content in  <b>{$GLOBALS['languages'][$language]}</b> whenever a translation exists in that language.", E_USER_NOTICE);
	PEAR::raiseError("Your viewing language has been switched to <b>{$GLOBALS['languages'][$language]}</b>.", E_USER_NOTICE);
	// redirect so we get clean urls
	clnRedirect(appendToURL($_SERVER['REQUEST_URI'],'setLanguage='));
} else {
	$GLOBALS['lang'] = $_SESSION['User']->lang;
}

if(isset($_POST['showLanguage'])) {
	$GLOBALS['lang'] = $_POST['showLanguage'];
}


if(isset($_GET['emptyHistory'])) {
	unset($_SESSION['History']);
	clnRedirect(cleanURL($_GET['p']));
}


// ***************************************************************************
// See if the user is trying to switch edit mode
if(isset($_GET['editMode'])) {
	$_SESSION['editMode'] = $_GET['editMode'];
	// redirect so we get clean urls
	clnRedirect(appendToURL($_SERVER['REQUEST_URI'],'editMode='));
}

		
// ***************************************************************************
// Display the Page

// If it's PAGETYPE Admin, then don't load the normal content
if ((isset($PAGETYPE) && $PAGETYPE == 'Admin')) {
	if (!defined('CLN_CLEAN_URL_BASE')) define('CLN_CLEAN_URL_BASE', CLN_FILE_BASE);
	// Do nothing now, content will be handled directly
	
	$GLOBALS['path'] = ereg_replace(realpath(CLN_FILE_BASE).'/(.*)','\1',$_SERVER['SCRIPT_FILENAME']);
	
	if(isset($GLOBALS['history']) && $GLOBALS['history']) addToHistory();
}

// check to see if we need to install
else if((isset($PAGETYPE) && $PAGETYPE == 'Install')) {
	// do nothing
}

// Otherwise load the normal content
else {

	// test messages
	//PEAR::raiseError('test',E_USER_NOTICE);
	//PEAR::raiseError('test',E_USER_WARNING);

	// config file should exist
	if(!file_exists(CLN_FILE_BASE . 'config/config.php')) {
			header('Location: install/index.php');
			exit;
	}

	// ***************************************************************************
	// Initialize the appropriate room and page session objects


	// ***************************************************************************
	// Set the location information, based on the path
	$startingKoId = setLocation();
	//d("SetLocation - ROOMID {$GLOBALS['ROOMID']}, PAGEID {$GLOBALS['PAGEID']}");
	
	if(isset($_GET['koId'])) {
		$content = getKO($_GET['koId'],TRUE,TRUE);
		
		// create simple room - someday could be special template - dwc
		$aRoom =& new $GLOBALS['classes']['ko']['classname']($startingKoId);
		$aRoom->loadPartObject(0);
		//echo "<html><head>";
		// :NOTE: not sure if this is correct yet, but it will have to do for now - dwc
		echo $aRoom->currentPart['object']->loadHeader(FALSE); // don't load template stylesheets
		//echo $aRoom->currentPart['object']->loadModuleStylesheets();
		//echo "</head><body>";
		echo $content;
		//echo "</body></html>";
	} else {
		// are they specifying a view
		if (isset($GLOBALS['view'])) {
			$view = $GLOBALS['view'];
		} else {
			$view = 'Default';
		}
		
		if(isset($GLOBALS['subview'])) {
			$view .= '/'.$GLOBALS['subview'];
		}
	
		if(isset($_GET['noheader'])) {
			$GLOBALS['EXCLUDE_ROOT_NODE'][$startingKoId] = TRUE;
			$GLOBALS['EXCLUDE_KO_CONTAINER'][$startingKoId] = TRUE;
		}
		
		//function getKO($koId, $view = 'Default', $loadHeaders = FALSE, $loadAsHTML = FALSE) {

		echo getKO($startingKoId,$view,TRUE,TRUE);
	}
	
}

// write out log all at once
clnWriteLog();


//***************************************************************************
// Functions

/**
 * Adds various folders to the include path
 *
 * @access public
 * @return bool	  TRUE on success or FALSE on failure
 */
function setIncludePath()
{
	$INCLUDE_PATH = array(
		realpath(CLN_FILE_BASE),
		realpath(CLN_FILE_BASE . 'config'),
		realpath(CLN_FILE_BASE . 'lib'),
		realpath(CLN_FILE_BASE . 'lib/CLN'),
		realpath(CLN_FILE_BASE . 'lib/Core'),
		realpath(CLN_FILE_BASE . 'lib/pear')
	);

	// Set the separator based on the OS
	$separator = ':';
	if(preg_match('/^win/i', PHP_OS)) {
		$separator = ';';
	}

	// Set the include path
	$current_include_path = ini_get('include_path');
	$new_include_path = join($separator, $INCLUDE_PATH) . $separator . $current_include_path;

	return ini_set('include_path',$new_include_path);
}


?>