resubmitting last Monday updates and adding php 5.1.0 timezone support
[squirrelmail.git] / src / configtest.php
index 82a3ac9e571bc711a9489022de88c956879348d4..1ffb18d2f418b95e801ea78964b650654641276a 100644 (file)
@@ -47,9 +47,16 @@ $allow_remote_configtest=false;
  * later.
  */
 if (file_exists(SM_PATH . 'config/config.php')) {
-    include(SM_PATH . 'config/config.php');
-    include(SM_PATH . 'functions/strings.php');
+       require(SM_PATH . 'config/config.php');
 }
+require(SM_PATH . 'functions/global.php');
+require(SM_PATH . 'functions/strings.php');
+
+/**
+ * get_location starts session and must be run before output is started.
+ */
+$test_location = get_location();
+
 ?><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
   "http://www.w3.org/TR/1999/REC-html401-19991224/loose.dtd">
 <html>
@@ -109,7 +116,11 @@ if(!check_php_version(4,1,0)) {
 }
 
 echo $IND . 'PHP version ' . PHP_VERSION . ' OK. (You have: ' . phpversion() . ". Minimum: 4.1.0)<br />\n";
-
+/* test for boolean false and any string that is not equal to 'off' */
+if ((bool) ini_get('register_globals') && 
+    strtolower(ini_get('register_globals'))!='off') {
+       do_err('You have register_globals turned on.  This is not an error, but it CAN be a security hazard.  Consider turning register_globals off.', false);
+}
 $php_exts = array('session','pcre');
 $diff = array_diff($php_exts, get_loaded_extensions());
 if(count($diff)) {
@@ -194,32 +205,33 @@ if($data_dir == $attachment_dir) {
 
 /* check plugins and themes */
 $bad_plugins = array(
-        'attachment_common',
-        'auto_prune_sent',
-        'compose_new_window',
-        'delete_move_next',
-        'disk_quota',
-        'email_priority',
-        'emoticons',
-        'focus_change',
-        'folder_preferences',
-        'global_sql_addressbook',
-        'hancock',
-        'message_source',
-        'motd',
-        'paginator',
-        'printer_friendly',
-        'procfilter',
-        'redhat_php_cgi_fix',
-        'send_to_semicolon',
-        'spamassassin',
-        'sqcalendar',
-        'sqclock',
-        'sql_squirrel_logger',
-        'tmda',
-        'vacation',
-        'view_as_html',
-        'xmailer'
+        'attachment_common',      // Integrated into SquirrelMail 1.2 core
+        'auto_prune_sent',        // Obsolete: See Proon Automatic Folder Pruning plugin
+        'compose_new_window',     // Integrated into SquirrelMail 1.4 core
+        'delete_move_next',       // Integrated into SquirrelMail 1.5 core
+        'disk_quota',             // Obsolete: See Check Quota plugin
+        'email_priority',         // Integrated into SquirrelMail 1.2 core
+        'emoticons',              // Obsolete: See HTML Mail plugin
+        'focus_change',           // Integrated into SquirrelMail 1.2 core
+        'folder_settings',        // Integrated into SquirrelMail 1.5.1 core
+        'global_sql_addressbook', // Integrated into SquirrelMail 1.4 core
+        'hancock',                // Not Working: See Random Signature Taglines plugin
+        'msg_flags',              // Integrated into SquirrelMail 1.5.1 core
+        'message_source',         // Added to SquirrelMail 1.4 Core Plugins (message_details)
+        'motd',                   // Integrated into SquirrelMail 1.2 core
+        'paginator',              // Integrated into SquirrelMail 1.2 core
+        'printer_friendly',       // Integrated into SquirrelMail 1.2 core
+        'procfilter',             // Obsolete: See Server Side Filter plugin
+        'redhat_php_cgi_fix',     // Integrated into SquirrelMail 1.1.1 core
+        'send_to_semicolon',      // Integrated into SquirrelMail 1.4.1 core
+        'spamassassin',           // Not working beyond SquirrelMail 1.2.7: See Spamassassin SpamFilter (Frontend) v2 plugin
+        'sqcalendar',             // Added to SquirrelMail 1.2 Core Plugins (calendar)
+        'sqclock',                // Integrated into SquirrelMail 1.2 core
+        'sql_squirrel_logger',    // Obsolete: See Squirrel Logger plugin
+        'tmda',                   // Obsolete: See TMDA Tools plugin
+        'vacation',               // Obsolete: See Vacation Local plugin
+        'view_as_html',           // Integrated into SquirrelMail 1.5.1 core
+        'xmailer'                 // Integrated into SquirrelMail 1.2 core
         );
 
 if (isset($plugins[0])) {
@@ -232,7 +244,32 @@ if (isset($plugins[0])) {
             do_err('You have enabled the <i>'.$plugin.'</i> plugin, which causes problems with this version of SquirrelMail. Please check the ReleaseNotes or other documentation for more information.', false);
         }
     }
-    echo $IND . "Plugins OK.<br />\n";
+    // load plugin functions
+    include_once(SM_PATH . 'functions/plugin.php');
+    // turn on output buffering in order to prevent output of new lines
+    ob_start();
+    foreach ($plugins as $name) {
+        use_plugin($name);
+    }
+    // get output and remove whitespace
+    $output = trim(ob_get_contents());
+    ob_end_clean();
+    // if plugins output more than newlines and spacing, stop script execution.
+    if (!empty($output)) {
+        $plugin_load_error = 'Some output is produced when plugins are loaded.'
+            .' Usually it means error. Output said: '.htmlspecialchars($output);
+        do_err($plugin_load_error);
+    }
+    /**
+     * Hook is added in 1.5.2. Plugins should print error message and return true
+     * if there is an error in plugin.
+     */
+    $plugin_err = boolean_hook_function('configtest');
+    if($plugin_err) {
+        do_err('Some plugin tests failed.');
+    } else {
+        echo $IND . "Plugins OK.<br />\n";
+    }
 } else {
     echo $IND . "Plugins are not enabled in config.<br />\n";
 }
@@ -264,7 +301,7 @@ if ( $squirrelmail_default_language != 'en_US' ) {
     echo $IND . "Default language OK.<br />\n";
 }
 
-echo $IND . "Base URL detected as: <tt>" . htmlspecialchars(get_location()) . "</tt><br />\n";
+echo $IND . "Base URL detected as: <tt>" . htmlspecialchars($test_location) . "</tt><br />\n";
 
 /* check minimal requirements for other security options */
 
@@ -278,7 +315,7 @@ if($use_smtp_tls == 1 || $use_imap_tls == 1) {
     }
 }
 /* starttls extensions */
-if($use_smtp_tls == 2 || $use_imap_tls == 2) {
+if($use_smtp_tls === 2 || $use_imap_tls === 2) {
     if (! function_exists('stream_socket_enable_crypto')) {
         do_err('If you want to use STARTTLS extension, you need stream_socket_enable_crypto() function from PHP 5.1.0 and newer.');
     }
@@ -320,7 +357,7 @@ if($useSendmail) {
     }
 
     /* smtp starttls checks */
-    if ($use_smtp_tls==2) {
+    if ($use_smtp_tls===2) {
         // if something breaks, script should close smtp connection on exit.
 
         // say helo
@@ -429,9 +466,9 @@ while ($line=fgets($stream, 1024)){
 }
 
 /* don't display capabilities before STARTTLS */
-if ($use_imap_tls==2 && stristr($capline, 'STARTTLS') === false) {
+if ($use_imap_tls===2 && stristr($capline, 'STARTTLS') === false) {
     do_err('Your server doesn\'t support STARTTLS.');
-} elseif($use_imap_tls==2) {
+} elseif($use_imap_tls===2) {
     /* try starting starttls */
     fwrite($stream,"A002 STARTTLS\r\n");
     $starttls_line=fgets($stream, 1024);
@@ -475,6 +512,52 @@ if (function_exists('gettext')) {
     echo 'Gettext functions are available.'
         .' On some systems you must have appropriate system locales compiled.'
         ."<br />\n";
+
+    /* optional setlocale() tests. Should work only on glibc systems. */
+    if (sqgetGlobalVar('testlocales',$testlocales,SQ_GET)) {
+        include_once(SM_PATH . 'include/languages.php');
+        echo $IND . $IND . 'Testing translations:<br>';
+        foreach ($languages as $lang_code => $lang_data) {
+            /* don't test aliases */
+            if (isset($lang_data['NAME'])) {
+                /* locale can be $lang_code or $lang_data['LOCALE'] */
+                if (isset($lang_data['LOCALE'])) {
+                    $setlocale = $lang_data['LOCALE'];
+                } else {
+                    $setlocale = $lang_code;
+                }
+                /* prepare information about tested locales */
+                if (is_array($setlocale)) {
+                    $display_locale = implode(', ',$setlocale);
+                    $locale_count = count($setlocale);
+                } else {
+                    $display_locale = $setlocale;
+                    $locale_count = 1;
+                }
+                $tested_locales_msg = 'Tested '.htmlspecialchars($display_locale).' '
+                    .($locale_count>1 ? 'locales':'locale'). '.';
+
+                echo $IND . $IND .$IND . $lang_data['NAME'].' (' .$lang_code. ') - ';
+                $retlocale = sq_setlocale(LC_ALL,$setlocale);
+                if (is_bool($retlocale)) {
+                    echo '<font color="red">unsupported</font>. ';
+                    echo $tested_locales_msg;
+                } else {
+                    echo 'supported. '
+                        .$tested_locales_msg
+                        .' setlocale() returned "'.htmlspecialchars($retlocale).'"';
+                }
+                echo "<br />\n";
+            }
+        }
+        echo $IND . $IND . '<a href="configtest.php">Don\'t test translations</a>';
+    } else {
+        echo $IND . $IND . '<a href="configtest.php?testlocales=1">Test translations</a>. '
+            .'This test is not accurate and might work only on some systems.'
+            ."\n";
+    }
+    echo "<br />\n";
+    /* end of translation tests */
 } else {
     echo 'Gettext functions are unavailable.'
         .' SquirrelMail will use slower internal gettext functions.'
@@ -505,16 +588,21 @@ if (function_exists('iconv')) {
 } else {
     echo "Iconv functions are unavailable.<br />\n";
 }
-// same test as in include/validate.php
+// same test as in include/init.php + date_default_timezone_set check
 echo "$IND timezone - ";
-if ( (!ini_get('safe_mode')) ||
+if ( (!ini_get('safe_mode')) || function_exists('date_default_timezone_set') ||
         !strcmp(ini_get('safe_mode_allowed_env_vars'),'') ||
         preg_match('/^([\w_]+,)*TZ/', ini_get('safe_mode_allowed_env_vars')) ) {
-    echo "Webmail users can change their time zone settings.<br />\n";
+    echo "Webmail users can change their time zone settings. \n";
 } else {
-    echo "Webmail users can't change their time zone settings.<br />\n";
+    echo "Webmail users can't change their time zone settings. \n";
 }
-
+if (isset($_ENV['TZ'])) {
+    echo 'Default time zone is '.htmlspecialchars($_ENV['TZ']);
+} else {
+    echo 'Current time zone is '.date('T');
+}
+echo ".<br />\n";
 
 // Pear DB tests
 echo "Checking database functions...<br />\n";
@@ -637,4 +725,4 @@ if ($warnings) {
 EOF;
     echo $footer;
 }
-?>
\ No newline at end of file
+?>