Default language code changed from 'en_GB' to 'C'.
[fa-stable.git] / includes / system_tests.inc
1 <?php
2 /**********************************************************************
3     Copyright (C) FrontAccounting, LLC.
4         Released under the terms of the GNU General Public License, GPL, 
5         as published by the Free Software Foundation, either version 3 
6         of the License, or (at your option) any later version.
7     This program is distributed in the hope that it will be useful,
8     but WITHOUT ANY WARRANTY; without even the implied warranty of
9     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  
10     See the License here <http://www.gnu.org/licenses/gpl-3.0.html>.
11 ***********************************************************************/
12
13 // Type of requirement for positive test result
14 $test_level = array(
15         0 => _('Info'),
16         1 => _('Optional'),
17         2 => _('Recomended'),
18         3 => _('Required ')
19 );
20
21 // test mysql server version
22 function tst_mysql() 
23 {
24         $test['descr'] = _('MySQL version'). ' >=4.1';
25         $test['type'] = 3;
26         $test['test'] = mysql_get_server_info();
27         $test['result'] = $test['test']>='4.1';
28         $test['comments'] = _('Upgrade MySQL server to version at least 4.1');
29
30         return $test;
31 }
32 // test php mysql extension
33 function tst_phpmysql() 
34 {
35         $test['descr'] = _('PHP MySQL extension');
36         $test['type'] = 3;
37         $test['result'] = function_exists('gettext');
38         $test['test'] = $test['result'] ? _('Yes'): _('No');
39         
40         $test['comments'] = _('Your PHP has to have MySQL extension enabled.');
41         return $test;
42 }
43
44 function tst_php() 
45 {
46         $test['descr'] = _('PHP version').' >=4.3.3';
47         $test['type'] = 3;
48         $test['test'] = phpversion();
49         $test['result'] = $test['test']>='4.3.3';
50         $test['comments'] = _('Upgrade PHP to version at least 4.3.3');
51
52         return $test;
53 }
54
55 function tst_system() 
56 {
57         $test['descr'] = _('Server system');
58         $test['type'] = 0;
59         $test['test'] = PHP_OS;
60         $test['result'] = true;
61
62         return $test;
63 }
64
65 function tst_sessionpath() 
66 {
67         $test['descr'] = _('Session save path');
68         $test['type'] = 0;
69         $test['test'] = session_save_path();
70         $test['result'] = true;
71
72         return $test;
73 }
74
75 function tst_install() 
76 {
77         global $path_to_root;
78
79         $test['descr'] = _('Removed install wizard folder');
80         $test['type'] = 2;
81         $test['result'] = !is_dir($path_to_root.'/install');
82         $test['test'] = _('Not removed');
83         $test['comments'] = _('Remove or rename install wizard folder for security reasons.');
84
85         return $test;
86 }
87
88 function tst_browser() 
89 {
90         $test['descr'] = _('Browser type');
91         $test['type'] = 0;
92         $test['test'] = $_SERVER['HTTP_USER_AGENT'];
93         $test['result'] = true;
94         $test['comments'] = _('Any browser is supported');
95
96         return $test;
97 }
98
99 function tst_server() 
100 {
101         $test['descr'] = _('Http server type');
102         $test['test'] = $_SERVER['SERVER_SOFTWARE'];
103         $test['type'] = 0;
104         $test['result'] = true;
105         $test['comments'] = _('Any server is supported');
106
107         return $test;
108 }
109
110 function tst_gettext() 
111 {
112         $test['descr'] = _('Native gettext');
113         $test['test'] = function_exists('gettext') ? _('Yes'): _('No');
114         $test['type'] = 1;
115         $test['result'] = true;
116         $test['comments'] = _('In case of no getext support, php emulation is used');
117
118         return $test;
119 }
120
121 function tst_debug() 
122 {
123         global $go_debug;
124         $test['descr'] = _('Debugging mode');
125         $test['type'] = 0;
126         $test['test'] = $go_debug ? _("Yes") : _("No");
127         $test['result'] = $go_debug != 0;
128         $test['comments'] = _('To switch debugging on set $go_debug>0 in config.php file');
129
130         return $test;
131 }
132
133 function tst_logging() 
134 {
135         global $error_logfile;
136         
137         $test['descr'] = _('Error logging');
138         $test['type'] = 2;
139         // if error lgging is on, but log file does not exists try write
140         if ($error_logfile && !is_file($error_logfile)) 
141         {
142                 @fclose(@fopen($error_logfile, 'w'));
143         }
144         $test['result'] = @$error_logfile != '' && is_writable($error_logfile);
145         $test['test'] = @$error_logfile == '' ? _("Disabled") : $error_logfile;
146         
147         if (@$error_logfile == '')
148                 $test['comments'] = _('To switch error logging set $error_logging in config.php file');
149         else
150         if (!is_writable($error_logfile))
151                 $test['comments'] = _('Log file is not writeable');
152         
153         return $test;
154 }
155 //
156 //      Installed FA database structure version
157 //
158 function tst_dbversion()
159 {
160         global $db_version;
161         $test['descr'] = _('Current database version');
162         $test['type'] = 3;
163         $test['test'] = get_company_pref('version_id');
164         $test['result'] = $test['test'] == $db_version;
165         $test['comments'] = _('Database structure seems to be not upgraded to current version')
166                 ." ($db_version)";
167
168         return $test;
169 }
170
171
172 function tst_subdirs($install=false)
173 {
174         global $db_connections;
175
176         $comps = $install ? array('0') : array_keys($db_connections);
177
178         $comp_subdirs = array('images', 'pdf_files', 'backup','js_cache');
179
180         $test['descr'] = _('Company subdirectories consistency');
181         $test['type'] = 3;
182         $test['test'] = array(company_path().'/*');
183         foreach($comp_subdirs as $sub) {
184                 $test['test'][] = company_path().'/*/'.$sub;
185         }
186         $test['result'] = true;
187         
188         $comp_path = company_path();
189         foreach ($comps as $n) {
190                 $path = company_path($n);
191                 if (!is_dir($path) || !is_writable($path) ) {
192                         $test['result'] = false;
193                         $test['comments'][] = sprintf(_("'%s' is not writeable"), $path);
194                         continue;
195                 };
196                 foreach($comp_subdirs as $sub) {
197                         $spath = $path.'/'.$sub;
198                         if (!is_dir($spath) || !is_writable($spath) ) {
199                                 $test['result'] = false;
200                                 $test['comments'][] = sprintf(_("'%s' is not writeable"), $spath);
201                         } else {
202                                 $dir = opendir($spath);
203                                 while (false !== ($fname = readdir($dir))) {
204                                         // check only *.js files. Manually installed package can contain other
205                                         // non-writable files which are non-crucial for normal operations
206                                         if (preg_match('/.*(\.js)/', $fname) && !is_writable("$spath/$fname")) {
207                                                 $test['result'] = false;
208                                                 $test['comments'][] = sprintf(_("'%s' is not writeable"), "$spath/$fname");
209                                         }
210                                 }
211                         }
212                 }
213         }
214         return $test;
215 }
216
217 function tst_tmpdir()
218 {
219         global $path_to_root;
220         
221         $test['descr'] = _('Temporary directory');
222         $test['type'] = 3;
223         $test['test'] = $path_to_root.'/tmp';
224         $test['result'] = is_dir($test['test']) && is_writable($test['test']);
225         $test['comments'][] = sprintf(_("'%s' is not writeable"), $test['test']);
226         return $test;
227 }
228
229 function tst_langs()
230 {
231         global $installed_languages, $path_to_root;
232         
233         $test['descr'] = _('Language configuration consistency');
234         $test['type'] = 3;
235         $test['result'] = true;
236         $test['comments'] = array();
237
238         $fname =  $path_to_root.'/lang';
239         $test['test'] = $fname;
240         if (!(is_dir($fname) && is_writable($fname))) {
241                 $test['result'] = false;
242                 $test['comments'][] = _("Languages folder should be writeable.");
243                 return $test;
244         }
245         
246         $fname =  $path_to_root.'/lang/installed_languages.inc';
247         $test['test'] = $fname;
248         if (!(is_file($fname) && is_writable($fname))) {
249                 $test['result'] = false;
250                 $test['comments'][] = _("Languages configuration file should be writeable.");
251                 return $test;
252         }
253
254         $langs = array();
255         
256         foreach ($installed_languages as $lang) {
257
258                 if ($lang['code'] == 'C') continue; // no translation (English)
259                 $langs[] = $lang['code'];
260
261                 $file = $path_to_root.'/lang/'.$lang['code'].'/LC_MESSAGES/'.$lang['code'];
262                 if (@$lang['version'])
263                         $file .= '-'.$lang['version'];
264                 $file .= function_exists('gettext') ? '.mo' : '.po';
265
266                 if (!is_file($file)) {
267                         $test['result'] = false;
268                         $test['comments'][] = sprintf( _('Missing %s translation file.'), $file);
269                 }
270                 if (!$_SESSION['get_text']->check_support($lang['code'], $lang['encoding']))
271                 {
272                         $test['result'] = false;
273                         $test['comments'][] = sprintf(_('Missing system locale: %s'), $lang['code'].".".$lang['encoding']);
274                 };
275         }
276
277         $test['test'] = $langs;
278
279         return $test;
280 }
281
282 function tst_config($install)
283 {
284         global $path_to_root;
285
286         $test['descr'] = _('Main config file');
287         $test['test'] = $path_to_root.'/config.php';
288         if ($install) {
289                 $test['type'] = 3;
290                 $writable = check_write($test['test']);
291                 $test['result'] = $writable==1;
292                 $test['comments'][] = $writable == 0 ?
293                         sprintf(_("Can't write '%s' file. Check FA directory write permissions."), $test['test'])
294                         : sprintf(_("'%s' file exists."), $test['test']);
295         } else {
296                 $test['type'] = 2;
297                 $test['result'] = is_file($test['test']) && !is_writable($test['test']);
298                 $test['comments'][] = sprintf(_("'%s' file should be read-only"), $test['test']);
299         }
300         return $test;
301 }
302
303 function tst_dbconfig($install)
304 {
305         global $path_to_root;
306
307         $test['descr'] = _('Database auth file');
308         $test['test'] = $path_to_root.'/config_db.php';
309
310         if ($install) {
311                 $test['type'] = 3;
312                 $writable = check_write($test['test']);
313                 $test['result'] = $writable==1;
314                 $test['comments'][] = $writable == 0 ?
315                         sprintf(_("Can't write '%s' file. Check FA directory write permissions."), $test['test'])
316                         : sprintf(_("'%s' file exists."), $test['test']);
317         } else {
318                 $test['type'] = 2;
319                 $test['result'] = is_file($test['test']) && !is_writable($test['test']);
320                 $test['comments'][] = sprintf(_("'%s' file should be read-only if you do not plan to add or change companies"), $test['test']);
321         }
322         return $test;
323 }
324
325 function tst_extconfig($install)
326 {
327         global $path_to_root, $db_connections;
328
329         $comps = $install ? array('0') : array_keys($db_connections);
330         
331         $test['descr'] = _('Extensions system');
332         $test['type'] = 3;
333         $fname =  $path_to_root.'/installed_extensions.php';
334         $test['test'][] = $fname;
335         $test['result'] = is_file($fname) && is_writable($fname);
336         $test['test'][] = company_path().'/*/installed_extensions.php';
337
338         foreach ($comps as $n) {
339                 $path = company_path($n);
340                 if (!is_dir($path)) continue;
341
342                 $path .= "/installed_extensions.php";
343                 if (!is_file($path) || !is_writable($path) ) {
344                         $test['result'] = false;
345                         $test['comments'][] = sprintf(_("'%s' is not writeable"), $path);
346                         continue;
347                 };
348         }
349         $fname =  $path_to_root.'/modules';
350         $test['test'][] = $fname;
351         $test['result'] &= is_dir($fname) && is_writable($fname);
352
353         $fname =  $path_to_root.'/modules/_cache';
354         $test['test'][] = $fname;
355         $test['result'] &= is_dir($fname) && is_writable($fname);
356
357         $fname =  $path_to_root.'/themes';
358         $test['test'][] = $fname;
359         $test['result'] &= is_dir($fname) && is_writable($fname);
360
361         $fname =  $path_to_root.'/sql';
362         $test['test'][] = $fname;
363         $test['result'] &= is_dir($fname) && is_writable($fname);
364
365         if(!$test['result'])
366                 $test['comments'][] = _("Extensions configuration files and directories should be writeable");
367
368         $themedir = opendir($fname);
369         while (false !== ($fname = readdir($themedir)))
370         {
371                 if ($fname!='.' && $fname!='..' && $fname!='CVS' && is_dir($path_to_root.'/themes/'.$fname)
372                         && !in_array($fname, array('aqua', 'cool', 'default')))
373                 {
374                         $test['test'][] = $fname;
375                         $test['result'] = is_writable($path_to_root.'/themes/'.$fname);
376                         if (!$test['result']) {
377                                 $test['comments'][] = 
378                                         sprintf(_("Non-standard theme directory '%s' is not writable"), $fname);
379                                 break;
380                         }
381                 }
382         }
383         closedir($themedir);
384
385         $test['test'][] = 'OpenSSL PHP extension';
386         if (!extension_loaded('openssl')) {
387                 $test['result'] = false;
388                 $test['comments'][] = _("OpenSSL PHP extension have to be enabled to use extension repository system.");
389         } elseif (!function_exists('openssl_verify')) {
390                 $test['result'] = false;
391                 $test['comments'][] = _("OpenSSL have to be available on your server to use extension repository system.");
392         }
393         return $test;
394 }
395
396 function display_system_tests($install = false)
397 {
398         global $test_level;
399
400         if ($install)
401                 $system_tests = array('tst_php', 'tst_phpmysql', 'tst_system', 'tst_dbconfig', 
402                         'tst_config',
403                         'tst_subdirs', 'tst_langs', 'tst_tmpdir', 'tst_sessionpath', 'tst_extconfig'
404                 );
405         else
406                 $system_tests = array('tst_mysql', 'tst_php', 'tst_server', 'tst_system', 'tst_browser',
407                         'tst_gettext', 'tst_debug', 'tst_logging',
408                         'tst_dbversion', 'tst_subdirs', 'tst_langs', 'tst_tmpdir', 'tst_sessionpath',
409                         'tst_install', 'tst_dbconfig', 'tst_config', 'tst_extconfig'
410                 );
411
412
413         start_table(TABLESTYLE, "width=80%");
414         $th = array(_("Test"), _('Test type'), _("Value"), _("Comments"));
415         table_header($th);
416
417         $ret = true;
418         $k = 0; //row colour counter
419         foreach ($system_tests as $test) 
420         {
421                 alt_table_row_color($k);
422                 $result = $test($install);
423                 if (!$result) continue;
424                 
425                 label_cell($result['descr']);
426                 label_cell($test_level[$result['type']]);
427
428                 $res = is_array(@$result['test']) ? implode('<br>', $result['test']) 
429                         : $result['test'];
430                 label_cell($res);
431
432                 $comm = is_array(@$result['comments']) ? implode('<br>', $result['comments']) 
433                         : @$result['comments'];
434                 $color = ($result['result'] ? 'green': 
435                         ($result['type']==3 ? 'red' :
436                          ($result['type']==2 ? 'orange' : 'green')));
437                 label_cell("<span style='color:$color'>".
438                         ($result['result'] ? _('Ok') : '<b>'.$comm.'</b>').'</span>');
439                 end_row();
440                 $ret = $ret && (($result['result']!=0) || ($result['type'] < 3));
441         }
442         end_table();
443
444         return $ret;
445 }