1 | <?php |
---|
2 | /**************************************************************************\ |
---|
3 | * eGroupWare - Setup * |
---|
4 | * http://www.egroupware.org * |
---|
5 | * -------------------------------------------- * |
---|
6 | * This file written by Joseph Engo<jengo@phpgroupware.org> * |
---|
7 | * and Dan Kuykendall<seek3r@phpgroupware.org> * |
---|
8 | * and Mark Peters<skeeter@phpgroupware.org> * |
---|
9 | * and Miles Lott<milosch@groupwhere.org> * |
---|
10 | * -------------------------------------------- * |
---|
11 | * This program is free software; you can redistribute it and/or modify it * |
---|
12 | * under the terms of the GNU General Public License as published by the * |
---|
13 | * Free Software Foundation; either version 2 of the License, or (at your * |
---|
14 | * option) any later version. * |
---|
15 | \**************************************************************************/ |
---|
16 | |
---|
17 | |
---|
18 | /* ######## Start security check ########## */ |
---|
19 | $d1 = strtolower(substr(@$GLOBALS['phpgw_info']['server']['api_inc'],0,3)); |
---|
20 | $d2 = strtolower(substr(@$GLOBALS['phpgw_info']['server']['server_root'],0,3)); |
---|
21 | $d3 = strtolower(substr(@$GLOBALS['phpgw_info']['server']['app_inc'],0,3)); |
---|
22 | if($d1 == 'htt' || $d1 == 'ftp' || $d2 == 'htt' || $d2 == 'ftp' || $d3 == 'htt' || $d3 == 'ftp') |
---|
23 | { |
---|
24 | echo 'Failed attempt to break in via an old Security Hole!<br>'; |
---|
25 | exit; |
---|
26 | } |
---|
27 | unset($d1);unset($d2);unset($d3); |
---|
28 | /* ######## End security check ########## */ |
---|
29 | |
---|
30 | error_reporting(error_reporting() & ~E_NOTICE); |
---|
31 | |
---|
32 | if(file_exists('../header.inc.php')) |
---|
33 | { |
---|
34 | include('../header.inc.php'); |
---|
35 | } |
---|
36 | |
---|
37 | if (!function_exists('version_compare'))//version_compare() is only available in PHP4.1+ |
---|
38 | { |
---|
39 | echo 'eGroupWare now requires PHP 4.1 or greater.<br>'; |
---|
40 | echo 'Please contact your System Administrator'; |
---|
41 | exit; |
---|
42 | } |
---|
43 | |
---|
44 | /* If we included the header.inc.php, but it is somehow broken, cover ourselves... */ |
---|
45 | if(!defined('PHPGW_SERVER_ROOT') && !defined('PHPGW_INCLUDE_ROOT')) |
---|
46 | { |
---|
47 | define('PHPGW_SERVER_ROOT','..'); |
---|
48 | define('PHPGW_INCLUDE_ROOT','..'); |
---|
49 | } |
---|
50 | |
---|
51 | include(PHPGW_INCLUDE_ROOT . '/phpgwapi/inc/common_functions.inc.php'); |
---|
52 | |
---|
53 | define('SEP',filesystem_separator()); |
---|
54 | |
---|
55 | /*! |
---|
56 | @function lang |
---|
57 | @abstract function to handle multilanguage support |
---|
58 | */ |
---|
59 | function lang($key,$m1='',$m2='',$m3='',$m4='',$m5='',$m6='',$m7='',$m8='',$m9='',$m10='') |
---|
60 | { |
---|
61 | if(is_array($m1)) |
---|
62 | { |
---|
63 | $vars = $m1; |
---|
64 | } |
---|
65 | else |
---|
66 | { |
---|
67 | $vars = array($m1,$m2,$m3,$m4,$m5,$m6,$m7,$m8,$m9,$m10); |
---|
68 | } |
---|
69 | $value = $GLOBALS['phpgw_setup']->translation->translate("$key", $vars ); |
---|
70 | return $value; |
---|
71 | } |
---|
72 | |
---|
73 | /*! |
---|
74 | @function get_langs |
---|
75 | @abstract returns array of languages we support, with enabled set |
---|
76 | to True if the lang file exists |
---|
77 | */ |
---|
78 | function get_langs() |
---|
79 | { |
---|
80 | $f = fopen('./lang/languages','rb'); |
---|
81 | while($line = fgets($f,200)) |
---|
82 | { |
---|
83 | list($x,$y) = preg_split('/\t/',$line); |
---|
84 | $languages[$x]['lang'] = trim($x); |
---|
85 | $languages[$x]['descr'] = trim($y); |
---|
86 | $languages[$x]['available'] = False; |
---|
87 | } |
---|
88 | fclose($f); |
---|
89 | |
---|
90 | $d = dir('./lang'); |
---|
91 | while($file=$d->read()) |
---|
92 | { |
---|
93 | if(preg_match('/^phpgw_([-a-z]+).lang$/i',$file,$matches)) |
---|
94 | { |
---|
95 | $languages[$matches[1]]['available'] = True; |
---|
96 | } |
---|
97 | } |
---|
98 | $d->close(); |
---|
99 | |
---|
100 | //print_r($languages); |
---|
101 | return $languages; |
---|
102 | } |
---|
103 | |
---|
104 | function lang_select($onChange=False,$ConfigLang='') |
---|
105 | { |
---|
106 | if (!$ConfigLang) |
---|
107 | { |
---|
108 | $ConfigLang = get_var('ConfigLang',Array('POST','COOKIE')); |
---|
109 | } |
---|
110 | $select = '<select name="ConfigLang"'.($onChange ? ' onChange="this.form.submit();"' : '').'>' . "\n"; |
---|
111 | $languages = get_langs(); |
---|
112 | usort($languages,create_function('$a,$b','return strcmp(@$a[\'descr\'],@$b[\'descr\']);')); |
---|
113 | foreach($languages as $data) |
---|
114 | { |
---|
115 | if($data['available'] && !empty($data['lang'])) |
---|
116 | { |
---|
117 | $selected = ''; |
---|
118 | $short = substr($data['lang'],0,2); |
---|
119 | if ($short == $ConfigLang || empty($ConfigLang) && $short == substr($_SERVER['HTTP_ACCEPT_LANGUAGE'],0,2)) |
---|
120 | { |
---|
121 | $selected = ' selected'; |
---|
122 | } |
---|
123 | $select .= '<option value="' . $data['lang'] . '"' . $selected . '>' . $data['descr'] . '</option>' . "\n"; |
---|
124 | } |
---|
125 | } |
---|
126 | $select .= '</select>' . "\n"; |
---|
127 | |
---|
128 | return $select; |
---|
129 | } |
---|
130 | |
---|
131 | if(file_exists(PHPGW_SERVER_ROOT.'/phpgwapi/setup/setup.inc.php')) |
---|
132 | { |
---|
133 | include(PHPGW_SERVER_ROOT.'/phpgwapi/setup/setup.inc.php'); /* To set the current core version */ |
---|
134 | /* This will change to just use setup_info */ |
---|
135 | $GLOBALS['phpgw_info']['server']['versions']['current_header'] = $setup_info['phpgwapi']['versions']['current_header']; |
---|
136 | } |
---|
137 | else |
---|
138 | { |
---|
139 | $GLOBALS['phpgw_info']['server']['versions']['phpgwapi'] = 'Undetected'; |
---|
140 | } |
---|
141 | |
---|
142 | $GLOBALS['phpgw_info']['server']['app_images'] = 'templates/default/images'; |
---|
143 | |
---|
144 | $GLOBALS['phpgw_setup'] = CreateObject('phpgwapi.setup',True,True); |
---|
145 | ?> |
---|