forked from extern/egroupware
232252475f
Patch is mostly created by script in egroupware/doc/fix_depricated.php in separate commit. I do NOT advice to apply this patch to a production system (it's commited to trunk!), as the automatic modified regular expressions have a good change to break something ...
152 lines
4.2 KiB
PHP
152 lines
4.2 KiB
PHP
<?php
|
|
/**
|
|
* Setup
|
|
*
|
|
* @link http://www.egroupware.org
|
|
* @package setup
|
|
* @author Joseph Engo <jengo@phpgroupware.org>
|
|
* @author Dan Kuykendall <seek3r@phpgroupware.org>
|
|
* @author Mark Peters <skeeter@phpgroupware.org>
|
|
* @author Miles Lott <milos@groupwhere.org>
|
|
* @author Ralf Becker <RalfBecker-AT-outdoor-training.de>
|
|
* @license http://opensource.org/licenses/gpl-license.php GPL - GNU General Public License
|
|
* @version $Id$
|
|
*/
|
|
|
|
error_reporting(error_reporting() & ~E_NOTICE);
|
|
|
|
// for an old header, we need to setup the reference before including it
|
|
$GLOBALS['phpgw_info'] =& $GLOBALS['egw_info'];
|
|
|
|
$GLOBALS['egw_info'] = array(
|
|
'flags' => array(
|
|
'noheader' => True,
|
|
'nonavbar' => True,
|
|
'currentapp' => 'setup',
|
|
'noapi' => True
|
|
));
|
|
if(file_exists('../header.inc.php'))
|
|
{
|
|
include('../header.inc.php');
|
|
}
|
|
// for an old header we need to setup a reference for the domains
|
|
if (!is_array($GLOBALS['egw_domain'])) $GLOBALS['egw_domain'] =& $GLOBALS['phpgw_domain'];
|
|
|
|
if (!function_exists('version_compare'))//version_compare() is only available in PHP4.1+
|
|
{
|
|
echo 'eGroupWare now requires PHP 4.1 or greater.<br>';
|
|
echo 'Please contact your System Administrator';
|
|
exit;
|
|
}
|
|
|
|
/* If we included the header.inc.php, but it is somehow broken, cover ourselves... */
|
|
if(!defined('EGW_SERVER_ROOT') && !defined('EGW_INCLUDE_ROOT'))
|
|
{
|
|
if (defined('PHPGW_SERVER_ROOT') && defined('PHPGW_INCLUDE_ROOT')) // pre 1.2 install
|
|
{
|
|
define('EGW_SERVER_ROOT',PHPGW_SERVER_ROOT);
|
|
define('EGW_INCLUDE_ROOT',PHPGW_INCLUDE_ROOT);
|
|
}
|
|
else // no install
|
|
{
|
|
define('EGW_SERVER_ROOT','..');
|
|
define('EGW_INCLUDE_ROOT','..');
|
|
define('PHPGW_SERVER_ROOT','..');
|
|
define('PHPGW_INCLUDE_ROOT','..');
|
|
}
|
|
define('EGW_API_INC',EGW_SERVER_ROOT.'/phpgwapi/inc');
|
|
}
|
|
|
|
require_once(EGW_INCLUDE_ROOT . '/phpgwapi/inc/common_functions.inc.php');
|
|
|
|
define('SEP',filesystem_separator());
|
|
|
|
/**
|
|
* function to handle multilanguage support
|
|
*
|
|
*/
|
|
function lang($key,$vars=null)
|
|
{
|
|
if(!is_array($vars))
|
|
{
|
|
$vars = func_get_args();
|
|
array_shift($vars); // remove $key
|
|
}
|
|
return $GLOBALS['egw_setup']->translation->translate("$key", $vars);
|
|
}
|
|
|
|
/**
|
|
* returns array of languages we support, with enabled set to True if the lang file exists
|
|
*/
|
|
function get_langs()
|
|
{
|
|
$f = fopen('./lang/languages','rb');
|
|
while($line = fgets($f,200))
|
|
{
|
|
list($x,$y) = explode("\t",$line);
|
|
$languages[$x]['lang'] = trim($x);
|
|
$languages[$x]['descr'] = trim($y);
|
|
$languages[$x]['available'] = False;
|
|
}
|
|
fclose($f);
|
|
|
|
$d = dir('./lang');
|
|
while($file=$d->read())
|
|
{
|
|
if(preg_match('/^(php|e)gw_([-a-z]+).lang$/i',$file,$matches))
|
|
{
|
|
$languages[$matches[2]]['available'] = True;
|
|
}
|
|
}
|
|
$d->close();
|
|
|
|
//print_r($languages);
|
|
return $languages;
|
|
}
|
|
|
|
function lang_select($onChange=False,$ConfigLang='')
|
|
{
|
|
if (!$ConfigLang)
|
|
{
|
|
$ConfigLang = get_var('ConfigLang',Array('POST','COOKIE'));
|
|
}
|
|
$select = '<select name="ConfigLang"'.($onChange ? ' onchange="this.form.submit();"' : '').'>' . "\n";
|
|
$languages = get_langs();
|
|
usort($languages,create_function('$a,$b','return strcmp(@$a[\'descr\'],@$b[\'descr\']);'));
|
|
foreach($languages as $data)
|
|
{
|
|
if($data['available'] && !empty($data['lang']))
|
|
{
|
|
$short = substr($data['lang'],0,2);
|
|
if ($short == $ConfigLang || $data['lang'] == $ConfigLang || empty($ConfigLang) && $short == substr($_SERVER['HTTP_ACCEPT_LANGUAGE'],0,2))
|
|
{
|
|
$selected = ' selected';
|
|
}
|
|
else
|
|
{
|
|
$selected = '';
|
|
}
|
|
$select .= '<option value="' . $data['lang'] . '"' . $selected . '>' . $data['descr'] . '</option>' . "\n";
|
|
}
|
|
}
|
|
$select .= '</select>' . "\n";
|
|
|
|
return $select;
|
|
}
|
|
|
|
if(file_exists(EGW_SERVER_ROOT.'/phpgwapi/setup/setup.inc.php'))
|
|
{
|
|
include(EGW_SERVER_ROOT.'/phpgwapi/setup/setup.inc.php'); /* To set the current core version */
|
|
/* This will change to just use setup_info */
|
|
$GLOBALS['egw_info']['server']['versions']['current_header'] = $setup_info['phpgwapi']['versions']['current_header'];
|
|
}
|
|
else
|
|
{
|
|
$GLOBALS['egw_info']['server']['versions']['phpgwapi'] = 'Undetected';
|
|
}
|
|
|
|
$GLOBALS['egw_info']['server']['app_images'] = 'templates/default/images';
|
|
|
|
CreateObject('setup.setup',True,True); // setup constuctor assigns itself to $GLOBALS['egw_setup'], doing it twice fails on some php4
|
|
$GLOBALS['phpgw_setup'] =& $GLOBALS['egw_setup'];
|