forked from extern/egroupware
creating of eg. the files-dir was only tried if the parent dir was writable, which failed if it does not yet exist
This commit is contained in:
Ralf Becker
parent
7c4adc12aa
commit
1d0b0202e5
179
setup/inc/functions.inc.php
Normal file
179
setup/inc/functions.inc.php
Normal file
@ -0,0 +1,179 @@
|
||||
<?php
|
||||
/**************************************************************************\
|
||||
* eGroupWare - Setup *
|
||||
* http://www.egroupware.org *
|
||||
* -------------------------------------------- *
|
||||
* This file written by Joseph Engo<jengo@phpgroupware.org> *
|
||||
* and Dan Kuykendall<seek3r@phpgroupware.org> *
|
||||
* and Mark Peters<skeeter@phpgroupware.org> *
|
||||
* and Miles Lott<milosch@groupwhere.org> *
|
||||
* -------------------------------------------- *
|
||||
* 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. *
|
||||
\**************************************************************************/
|
||||
|
||||
/* $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'];
|
||||
|
||||
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'))
|
||||
{
|
||||
define('EGW_SERVER_ROOT','..');
|
||||
define('EGW_INCLUDE_ROOT','..');
|
||||
define('PHPGW_SERVER_ROOT','..');
|
||||
define('PHPGW_INCLUDE_ROOT','..');
|
||||
}
|
||||
|
||||
require(EGW_INCLUDE_ROOT . '/phpgwapi/inc/common_functions.inc.php');
|
||||
|
||||
define('SEP',filesystem_separator());
|
||||
|
||||
/**
|
||||
* Checks if a directory exists, is writable by the webserver and optionaly is in the docroot
|
||||
*
|
||||
* @param string $dir path
|
||||
* @param string &$msg error-msg: 'does not exist', 'is not writeable by the webserver' or 'is in the webservers docroot' (run through lang)
|
||||
* @param boolean $check_in_docroot=false run an optional in docroot check
|
||||
* @return boolean
|
||||
*/
|
||||
function check_dir($dir,&$msg,$check_in_docroot=false)
|
||||
{
|
||||
if (!@is_dir($dir) && !@mkdir($dir,0700,true))
|
||||
{
|
||||
$msg = lang('does not exist');
|
||||
return false;
|
||||
}
|
||||
if (!@is_writeable($dir))
|
||||
{
|
||||
$msg = lang('is not writeable by the webserver');
|
||||
return false;
|
||||
}
|
||||
if ($check_in_docroot)
|
||||
{
|
||||
$docroots = array(EGW_SERVER_ROOT,$_SERVER['DOCUMENT_ROOT']);
|
||||
$dir = realpath($dir);
|
||||
|
||||
foreach ($docroots as $docroot)
|
||||
{
|
||||
$len = strlen($docroot);
|
||||
|
||||
if ($docroot == substr($dir,0,$len))
|
||||
{
|
||||
$rest = substr($dir,$len);
|
||||
|
||||
if (!strlen($rest) || $rest[0] == DIRECTORY_SEPARATOR)
|
||||
{
|
||||
$msg = lang('is in the webservers docroot');
|
||||
return false;
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
return true;
|
||||
}
|
||||
|
||||
/**
|
||||
* 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) = split("\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('/^phpgw_([-a-z]+).lang$/i',$file,$matches))
|
||||
{
|
||||
$languages[$matches[1]]['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']))
|
||||
{
|
||||
$selected = '';
|
||||
$short = substr($data['lang'],0,2);
|
||||
if ($short == $ConfigLang || empty($ConfigLang) && $short == substr($_SERVER['HTTP_ACCEPT_LANGUAGE'],0,2))
|
||||
{
|
||||
$selected = ' selected="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'];
|
||||
Loading…
Reference in New Issue
Block a user