Source for file configtest.php

Documentation is available at configtest.php

  1. <?php
  2.  
  3. /**
  4.  * SquirrelMail configtest script
  5.  *
  6.  * @copyright &copy; 2003-2006 The SquirrelMail Project Team
  7.  * @license http://opensource.org/licenses/gpl-license.php GNU Public License
  8.  * @version $Id: configtest.php,v 1.52 2006/10/07 11:21:17 tokul Exp $
  9.  * @package squirrelmail
  10.  * @subpackage config
  11.  */
  12.  
  13. /**********************************************************
  14.  * NOTE: you do not need to change this script!             *
  15.  * If it throws errors you need to adjust your config.      *
  16.  ************************************************************/
  17.  
  18.  
  19. // This script could really use some restructuring as it has grown quite rapidly
  20. // but is not very 'clean'. Feel free to get some structure into this thing.
  21.  
  22. /** force verbose error reporting and turn on display of errors */
  23. error_reporting(E_ALL);
  24. ini_set('display_errors',1);
  25.  
  26. /** Blockcopy from init.php. Cleans globals. */
  27. if ((bool) ini_get('register_globals') &&
  28.     strtolower(ini_get('register_globals'))!='off') {
  29.     /**
  30.      * Remove all globals that are not reserved by PHP
  31.      * 'value' and 'key' are used by foreach. Don't unset them inside foreach.
  32.      */
  33.     foreach ($GLOBALS as $key => $value) {
  34.         switch($key) {
  35.         case 'HTTP_POST_VARS':
  36.         case '_POST':
  37.         case 'HTTP_GET_VARS':
  38.         case '_GET':
  39.         case 'HTTP_COOKIE_VARS':
  40.         case '_COOKIE':
  41.         case 'HTTP_SERVER_VARS':
  42.         case '_SERVER':
  43.         case 'HTTP_ENV_VARS':
  44.         case '_ENV':
  45.         case 'HTTP_POST_FILES':
  46.         case '_FILES':
  47.         case '_REQUEST':
  48.         case 'HTTP_SESSION_VARS':
  49.         case '_SESSION':
  50.         case 'GLOBALS':
  51.         case 'key':
  52.         case 'value':
  53.             break;
  54.         default:
  55.             unset($GLOBALS[$key]);
  56.         }
  57.     }
  58.     // Unset variables used in foreach
  59.         unset($GLOBALS['key']);
  60.     unset($GLOBALS['value']);
  61. }
  62.  
  63.  
  64. /**
  65.  * Displays error messages and warnings
  66.  * @param string $str message
  67.  * @param boolean $fatal fatal error or only warning
  68.  */
  69. function do_err($str, $fatal = TRUE) {
  70.     global $IND, $warnings;
  71.     $level = $fatal ? 'FATAL ERROR:' : 'WARNING:';
  72.     echo '<p>'.$IND.'<font color="red"><b>' . $level . '</b></font> ' .$str. "</p>\n";
  73.     if($fatal) {
  74.         echo '</body></html>';
  75.         exit;
  76.     } else {
  77.         $warnings++;
  78.     }
  79. }
  80.  
  81. ob_implicit_flush();
  82. /** @ignore */
  83. define('SM_PATH', '../');
  84. /** load minimal function set */
  85. require(SM_PATH . 'functions/global.php');
  86. require(SM_PATH . 'functions/strings.php');
  87.  
  88. /** set default value in order to block remote access */
  89. $allow_remote_configtest=false;
  90.  
  91. /** Load all configuration files before output begins */
  92.  
  93. /* load default configuration */
  94. require(SM_PATH . 'config/config_default.php');
  95. /* reset arrays in default configuration */
  96. $ldap_server = array();
  97. $plugins = array();
  98. $fontsets = array();
  99. $theme = array();
  100. $theme[0]['PATH'] = SM_PATH . 'themes/default_theme.php';
  101. $theme[0]['NAME'] = 'Default';
  102. $aTemplateSet = array();
  103. $aTemplateSet[0]['ID'] = 'default';
  104. $aTemplateSet[0]['NAME'] = 'Default';
  105. /* load site configuration */
  106. if (file_exists(SM_PATH . 'config/config.php')) {
  107.     require(SM_PATH . 'config/config.php');
  108. }
  109. /* load local configuration overrides */
  110. if (file_exists(SM_PATH . 'config/config_local.php')) {
  111.     require(SM_PATH . 'config/config_local.php');
  112. }
  113.  
  114. /** Warning counter */
  115. $warnings = 0;
  116.  
  117. /** indent */
  118. $IND = str_repeat('&nbsp;',4);
  119.  
  120. /**
  121.  * get_location starts session and must be run before output is started.
  122.  */
  123. $test_location = get_location();
  124.  
  125. ?><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
  126.   "http://www.w3.org/TR/1999/REC-html401-19991224/loose.dtd">
  127. <html>
  128. <head>
  129.   <meta name="robots" content="noindex,nofollow">
  130.   <title>SquirrelMail configtest</title>
  131. </head>
  132. <body>
  133. <h1>SquirrelMail configtest</h1>
  134.  
  135. <p>This script will try to check some aspects of your SquirrelMail configuration
  136. and point you to errors whereever it can find them. You need to go run <tt>conf.pl</tt>
  137. in the <tt>config/</tt> directory first before you run this script.</p>
  138.  
  139. <?php
  140.  
  141. $included = array_map('basename', get_included_files() );
  142. if(!in_array('config.php', $included)) {
  143.     if(!file_exists(SM_PATH . 'config/config.php')) {
  144.         do_err('Config file '.SM_PATH . 'config/config.php does not exist!<br />'.
  145.                 'You need to run <tt>conf.pl</tt> first.');
  146.     }
  147.     do_err('Could not read '.SM_PATH.'config/config.php! Check file permissions.');
  148. }
  149. if(!in_array('strings.php', $included)) {
  150.     do_err('Could not include '.SM_PATH.'functions/strings.php!<br />'.
  151.             'Check permissions on that file.');
  152. }
  153.  
  154. /* Block remote use of script */
  155. if (! $allow_remote_configtest) {
  156.     sqGetGlobalVar('REMOTE_ADDR',$client_ip,SQ_SERVER);
  157.     sqGetGlobalVar('SERVER_ADDR',$server_ip,SQ_SERVER);
  158.  
  159.     if ((! isset($client_ip) || $client_ip!='127.0.0.1') &&
  160.             (! isset($client_ip) || ! isset($server_ip) || $client_ip!=$server_ip)) {
  161.         do_err('Enable "Allow remote configtest" option in squirrelmail configuration in order to use this script.');
  162.     }
  163. }
  164. /* checking PHP specs */
  165.  
  166. echo "<p><table>\n<tr><td>SquirrelMail version:</td><td><b>" . $version . "</b></td></tr>\n" .
  167.     '<tr><td>Config file version:</td><td><b>' . $config_version . "</b></td></tr>\n" .
  168.     '<tr><td>Config file last modified:</td><td><b>' .
  169.     date ('d F Y H:i:s', filemtime(SM_PATH . 'config/config.php')) .
  170.     "</b></td></tr>\n</table>\n</p>\n\n";
  171.  
  172. /* check $config_version */
  173. if ($config_version!='1.5.0') {
  174.     do_err('Configuration file version does not match required version. Please update your configuration file.');
  175. }
  176.  
  177. echo "Checking PHP configuration...<br />\n";
  178.  
  179. if(!check_php_version(4,1,0)) {
  180.     do_err('Insufficient PHP version: '. PHP_VERSION . '! Minimum required: 4.1.0');
  181. }
  182.  
  183. echo $IND . 'PHP version ' . PHP_VERSION . ' OK. (You have: ' . phpversion() . ". Minimum: 4.1.0)<br />\n";
  184. /* test for boolean false and any string that is not equal to 'off' */
  185. if ((bool) ini_get('register_globals') && 
  186.     strtolower(ini_get('register_globals'))!='off') {
  187.     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);
  188. }
  189. $php_exts = array('session','pcre');
  190. $diff = array_diff($php_exts, get_loaded_extensions());
  191. if(count($diff)) {
  192.     do_err('Required PHP extensions missing: '.implode(', ',$diff) );
  193. }
  194.  
  195. echo $IND . "PHP extensions OK.<br />\n";
  196.  
  197. /* dangerous php settings */
  198. /**
  199.  * mbstring.func_overload allows to replace original string and regexp functions
  200.  * with their equivalents from php mbstring extension. It causes problems when
  201.  * scripts analyze 8bit strings byte after byte or use 8bit strings in regexp tests.
  202.  * Setting can be controlled in php.ini (php 4.2.0), webserver config (php 4.2.0)
  203.  * and .htaccess files (php 4.3.5).
  204.  */
  205. if (function_exists('mb_internal_encoding') &&
  206.     check_php_version(4,2,0) &&
  207.     (int)ini_get('mbstring.func_overload')!=0) {
  208.     $mb_error='You have enabled mbstring overloading.'
  209.         .' It can cause problems with SquirrelMail scripts that rely on single byte string functions.';
  210.     do_err($mb_error);
  211. }
  212.  
  213. /* checking paths */
  214.  
  215. echo "Checking paths...<br />\n";
  216.  
  217. if(!file_exists($data_dir)) {
  218.     // data_dir is not that important in db_setups.
  219.         if (isset($prefs_dsn) && ! empty($prefs_dsn)) {
  220.         $data_dir_error = "Data dir ($data_dir) does not exist!\n";
  221.         echo $IND .'<font color="red"><b>ERROR:</b></font> ' . $data_dir_error;
  222.     } else {
  223.         do_err("Data dir ($data_dir) does not exist!");
  224.     }
  225. }
  226. // don't check if errors
  227. if(!isset($data_dir_error) && !is_dir($data_dir)) {
  228.     if (isset($prefs_dsn) && ! empty($prefs_dsn)) {
  229.         $data_dir_error = "Data dir ($data_dir) is not a directory!\n";
  230.         echo $IND . '<font color="red"><b>ERROR:</b></font> ' . $data_dir_error;
  231.     } else {
  232.         do_err("Data dir ($data_dir) is not a directory!");
  233.     }
  234. }
  235. // datadir should be executable - but no clean way to test on that
  236. if(!isset($data_dir_error) && !is_writable($data_dir)) {
  237.     if (isset($prefs_dsn) && ! empty($prefs_dsn)) {
  238.         $data_dir_error = "Data dir ($data_dir) is not writable!\n";
  239.         echo $IND . '<font color="red"><b>ERROR:</b></font> ' . $data_dir_error;
  240.     } else {
  241.         do_err("Data dir ($data_dir) is not writable!");
  242.     }
  243. }
  244.  
  245. if (isset($data_dir_error)) {
  246.     echo " Some plugins might need access to data directory.<br />\n";
  247. } else {
  248.     // todo_ornot: actually write something and read it back.
  249.         echo $IND . "Data dir OK.<br />\n";
  250. }
  251.  
  252. if($data_dir == $attachment_dir) {
  253.     echo $IND . "Attachment dir is the same as data dir.<br />\n";
  254.     if (isset($data_dir_error)) {
  255.         do_err($data_dir_error);
  256.     }
  257. } else {
  258.     if(!file_exists($attachment_dir)) {
  259.         do_err("Attachment dir ($attachment_dir) does not exist!");
  260.     }
  261.     if (!is_dir($attachment_dir)) {
  262.         do_err("Attachment dir ($attachment_dir) is not a directory!");
  263.     }
  264.     if (!is_writable($attachment_dir)) {
  265.         do_err("I cannot write to attachment dir ($attachment_dir)!");
  266.     }
  267.     echo $IND . "Attachment dir OK.<br />\n";
  268. }
  269.  
  270.  
  271. /* check plugins and themes */
  272. $bad_plugins = array(
  273.         'attachment_common',      // Integrated into SquirrelMail 1.2 core
  274.                 'auto_prune_sent',        // Obsolete: See Proon Automatic Folder Pruning plugin
  275.                 'compose_new_window',     // Integrated into SquirrelMail 1.4 core
  276.                 'delete_move_next',       // Integrated into SquirrelMail 1.5 core
  277.                 'disk_quota',             // Obsolete: See Check Quota plugin
  278.                 'email_priority',         // Integrated into SquirrelMail 1.2 core
  279.                 'emoticons',              // Obsolete: See HTML Mail plugin
  280.                 'focus_change',           // Integrated into SquirrelMail 1.2 core
  281.                 'folder_settings',        // Integrated into SquirrelMail 1.5.1 core
  282.                 'global_sql_addressbook', // Integrated into SquirrelMail 1.4 core
  283.                 'hancock',                // Not Working: See Random Signature Taglines plugin
  284.                 'msg_flags',              // Integrated into SquirrelMail 1.5.1 core
  285.                 'message_source',         // Added to SquirrelMail 1.4 Core Plugins (message_details)
  286.                 'motd',                   // Integrated into SquirrelMail 1.2 core
  287.                 'paginator',              // Integrated into SquirrelMail 1.2 core
  288.                 'printer_friendly',       // Integrated into SquirrelMail 1.2 core
  289.                 'procfilter',             // Obsolete: See Server Side Filter plugin
  290.                 'redhat_php_cgi_fix',     // Integrated into SquirrelMail 1.1.1 core
  291.                 'send_to_semicolon',      // Integrated into SquirrelMail 1.4.1 core
  292.                 'spamassassin',           // Not working beyond SquirrelMail 1.2.7: See Spamassassin SpamFilter (Frontend) v2 plugin
  293.                 'sqcalendar',             // Added to SquirrelMail 1.2 Core Plugins (calendar)
  294.                 'sqclock',                // Integrated into SquirrelMail 1.2 core
  295.                 'sql_squirrel_logger',    // Obsolete: See Squirrel Logger plugin
  296.                 'tmda',                   // Obsolete: See TMDA Tools plugin
  297.                 'vacation',               // Obsolete: See Vacation Local plugin
  298.                 'view_as_html',           // Integrated into SquirrelMail 1.5.1 core
  299.                 'xmailer'                 // Integrated into SquirrelMail 1.2 core
  300.                 );
  301.  
  302. if (isset($plugins[0])) {
  303.     foreach($plugins as $plugin) {
  304.         if(!file_exists(SM_PATH .'plugins/'.$plugin)) {
  305.             do_err('You have enabled the <i>'.$plugin.'</i> plugin, but I cannot find it.', FALSE);
  306.         } elseif (!is_readable(SM_PATH .'plugins/'.$plugin.'/setup.php')) {
  307.             do_err('You have enabled the <i>'.$plugin.'</i> plugin, but I cannot read its setup.php file.', FALSE);
  308.         } elseif (in_array($plugin, $bad_plugins)) {
  309.             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);
  310.         }
  311.     }
  312.     // load plugin functions
  313.         include_once(SM_PATH . 'functions/plugin.php');
  314.     // turn on output buffering in order to prevent output of new lines
  315.         ob_start();
  316.     foreach ($plugins as $name) {
  317.         use_plugin($name);
  318.     }
  319.     // get output and remove whitespace
  320.         $output = trim(ob_get_contents());
  321.     ob_end_clean();
  322.     // if plugins output more than newlines and spacing, stop script execution.
  323.         if (!empty($output)) {
  324.         $plugin_load_error = 'Some output is produced when plugins are loaded.'
  325.             .' Usually it means error. Output said: '.htmlspecialchars($output);
  326.         do_err($plugin_load_error);
  327.     }
  328.     /**
  329.      * Hook is added in 1.5.2. Plugins should print error message and return true
  330.      * if there is an error in plugin.
  331.      */
  332.     $plugin_err = boolean_hook_function('configtest');
  333.     if($plugin_err) {
  334.         do_err('Some plugin tests failed.');
  335.     } else {
  336.         echo $IND . "Plugins OK.<br />\n";
  337.     }
  338. } else {
  339.     echo $IND . "Plugins are not enabled in config.<br />\n";
  340. }
  341. foreach($theme as $thm) {
  342.     if(!file_exists($thm['PATH'])) {
  343.         do_err('You have enabled the <i>'.$thm['NAME'].'</i> theme but I cannot find it ('.$thm['PATH'].').', FALSE);
  344.     } elseif(!is_readable($thm['PATH'])) {
  345.         do_err('You have enabled the <i>'.$thm['NAME'].'</i> theme but I cannot read it ('.$thm['PATH'].').', FALSE);
  346.     }
  347. }
  348.  
  349. echo $IND . "Themes OK.<br />\n";
  350.  
  351. if ( $squirrelmail_default_language != 'en_US' ) {
  352.     $loc_path = SM_PATH .'locale/'.$squirrelmail_default_language.'/LC_MESSAGES/squirrelmail.mo';
  353.     if( ! file_exists( $loc_path ) ) {
  354.         do_err('You have set <i>' . $squirrelmail_default_language .
  355.                 '</i> as your default language, but I cannot find this translation (should be '.
  356.                 'in <tt>' . $loc_path . '</tt>). Please note that you have to download translations '.
  357.                 'separately from the main SquirrelMail package.', FALSE);
  358.     } elseif ( ! is_readable( $loc_path ) ) {
  359.         do_err('You have set <i>' . $squirrelmail_default_language .
  360.                 '</i> as your default language, but I cannot read this translation (file '.
  361.                 'in <tt>' . $loc_path . '</tt> unreadable).', FALSE);
  362.     } else {
  363.         echo $IND . "Default language OK.<br />\n";
  364.     }
  365. } else {
  366.     echo $IND . "Default language OK.<br />\n";
  367. }
  368.  
  369. echo $IND . "Base URL detected as: <tt>" . htmlspecialchars($test_location) .
  370.     "</tt> (location base " . (empty($config_location_base) ? 'autodetected' : 'set to <tt>' .
  371.     htmlspecialchars($config_location_base)."</tt>") . ")<br />\n";
  372.  
  373. /* check minimal requirements for other security options */
  374.  
  375. /* imaps or ssmtp */
  376. if($use_smtp_tls == 1 || $use_imap_tls == 1) {
  377.     if(!check_php_version(4,3,0)) {
  378.         do_err('You need at least PHP 4.3.0 for SMTP/IMAP TLS!');
  379.     }
  380.     if(!extension_loaded('openssl')) {
  381.         do_err('You need the openssl PHP extension to use SMTP/IMAP TLS!');
  382.     }
  383. }
  384. /* starttls extensions */
  385. if($use_smtp_tls === 2 || $use_imap_tls === 2) {
  386.     if (! function_exists('stream_socket_enable_crypto')) {
  387.         do_err('If you want to use STARTTLS extension, you need stream_socket_enable_crypto() function from PHP 5.1.0 and newer.');
  388.     }
  389. }
  390. /* digest-md5 */
  391. if ($smtp_auth_mech=='digest-md5' || $imap_auth_mech =='digest-md5') {
  392.     if (!extension_loaded('xml')) {
  393.         do_err('You need the PHP XML extension to use Digest-MD5 authentication!');
  394.     }
  395. }
  396.  
  397. /* check outgoing mail */
  398.  
  399. echo "Checking outgoing mail service....<br />\n";
  400.  
  401. if($useSendmail) {
  402.     // is_executable also checks for existance, but we want to be as precise as possible with the errors
  403.         if(!file_exists($sendmail_path)) {
  404.         do_err("Location of sendmail program incorrect ($sendmail_path)!");
  405.     }
  406.     if(!is_executable($sendmail_path)) {
  407.         do_err("I cannot execute the sendmail program ($sendmail_path)!");
  408.     }
  409.  
  410.     echo $IND . "sendmail OK<br />\n";
  411. } else {
  412.     $stream = fsockopen( ($use_smtp_tls==1?'tls://':'').$smtpServerAddress, $smtpPort,
  413.             $errorNumber, $errorString);
  414.     if(!$stream) {
  415.         do_err("Error connecting to SMTP server \"$smtpServerAddress:$smtpPort\".".
  416.                 "Server error: ($errorNumber) ".htmlspecialchars($errorString));
  417.     }
  418.  
  419.     // check for SMTP code; should be 2xx to allow us access
  420.         $smtpline = fgets($stream, 1024);
  421.     if(((int) $smtpline{0}) > 3) {
  422.         do_err("Error connecting to SMTP server. Server error: ".
  423.                 htmlspecialchars($smtpline));
  424.     }
  425.  
  426.     /* smtp starttls checks */
  427.     if ($use_smtp_tls===2) {
  428.         // if something breaks, script should close smtp connection on exit.
  429.  
  430.         // say helo
  431.                 fwrite($stream,"EHLO $client_ip\r\n");
  432.  
  433.         $ehlo=array();
  434.         $ehlo_error = false;
  435.         while ($line=fgets($stream, 1024)){
  436.             if (preg_match("/^250(-|\s)(\S*)\s+(\S.*)/",$line,$match)||
  437.                     preg_match("/^250(-|\s)(\S*)\s+/",$line,$match)) {
  438.                 if (!isset($match[3])) {
  439.                     // simple one word extension
  440.                                         $ehlo[strtoupper($match[2])]='';
  441.                 } else {
  442.                     // ehlo-keyword + ehlo-param
  443.                                         $ehlo[strtoupper($match[2])]=trim($match[3]);
  444.                 }
  445.                 if ($match[1]==' ') {
  446.                     $ret = $line;
  447.                     break;
  448.                 }
  449.             } else {
  450.                 // 
  451.                                 $ehlo_error = true;
  452.                 $ehlo[]=$line;
  453.                 break;
  454.             }
  455.         }
  456.         if ($ehlo_error) {
  457.             do_err('SMTP EHLO failed. You need ESMTP support for SMTP STARTTLS');
  458.         } elseif (!array_key_exists('STARTTLS',$ehlo)) {
  459.             do_err('STARTTLS support is not declared by SMTP server.');
  460.         }
  461.  
  462.         fwrite($stream,"STARTTLS\r\n");
  463.         $starttls_response=fgets($stream, 1024);
  464.         if ($starttls_response[0]!=2) {
  465.             $starttls_cmd_err = 'SMTP STARTTLS failed. Server replied: '
  466.                 .htmlspecialchars($starttls_response);
  467.             do_err($starttls_cmd_err);
  468.         } elseif(! stream_socket_enable_crypto($stream,true,STREAM_CRYPTO_METHOD_TLS_CLIENT)) {
  469.             do_err('Failed to enable encryption on SMTP STARTTLS connection.');
  470.         } else {
  471.             echo $IND . "SMTP STARTTLS extension looks OK.<br />\n";
  472.         }
  473.         // According to RFC we should second ehlo call here.
  474.         }
  475.  
  476.     fputs($stream, 'QUIT');
  477.     fclose($stream);
  478.     echo $IND . 'SMTP server OK (<tt><small>'.
  479.             trim(htmlspecialchars($smtpline))."</small></tt>)<br />\n";
  480.  
  481.     /* POP before SMTP */
  482.     if($pop_before_smtp) {
  483.         $stream = fsockopen($smtpServerAddress, 110, $err_no, $err_str);
  484.         if (!$stream) {
  485.             do_err("Error connecting to POP Server ($smtpServerAddress:110) "
  486.                 . $err_no . ' : ' . htmlspecialchars($err_str));
  487.         }
  488.  
  489.         $tmp = fgets($stream, 1024);
  490.         if (substr($tmp, 0, 3) != '+OK') {
  491.             do_err("Error connecting to POP Server ($smtpServerAddress:110)"
  492.                 . ' '.htmlspecialchars($tmp));
  493.         }
  494.         fputs($stream, 'QUIT');
  495.         fclose($stream);
  496.         echo $IND . "POP-before-SMTP OK.<br />\n";
  497.     }
  498. }
  499.  
  500. /**
  501.  * Check the IMAP server
  502.  */
  503. echo "Checking IMAP service....<br />\n";
  504.  
  505. /** Can we open a connection? */
  506. $stream = fsockopen( ($use_imap_tls==1?'tls://':'').$imapServerAddress, $imapPort,
  507.         $errorNumber, $errorString);
  508. if(!$stream) {
  509.     do_err("Error connecting to IMAP server \"$imapServerAddress:$imapPort\".".
  510.             "Server error: ($errorNumber) ".
  511.             htmlspecialchars($errorString));
  512. }
  513.  
  514. /** Is the first response 'OK'? */
  515. $imapline = fgets($stream, 1024);
  516. if(substr($imapline, 0,4) != '* OK') {
  517.     do_err('Error connecting to IMAP server. Server error: '.
  518.             htmlspecialchars($imapline));
  519. }
  520.  
  521. echo $IND . 'IMAP server ready (<tt><small>'.
  522.     htmlspecialchars(trim($imapline))."</small></tt>)<br />\n";
  523.  
  524. /** Check capabilities */
  525. fputs($stream, "A001 CAPABILITY\r\n");
  526. $capline = '';
  527. while ($line=fgets($stream, 1024)){
  528.     if (preg_match("/A001.*/",$line)) {
  529.         break;
  530.     } else {
  531.         $capline.=$line;
  532.     }
  533. }
  534.  
  535. /* don't display capabilities before STARTTLS */
  536. if ($use_imap_tls===2 && stristr($capline, 'STARTTLS') === false) {
  537.     do_err('Your server doesn\'t support STARTTLS.');
  538. } elseif($use_imap_tls===2) {
  539.     /* try starting starttls */
  540.     fwrite($stream,"A002 STARTTLS\r\n");
  541.     $starttls_line=fgets($stream, 1024);
  542.     if (! preg_match("/^A002 OK.*/i",$starttls_line)) {
  543.         $imap_starttls_err = 'IMAP STARTTLS failed. Server replied: '
  544.             .htmlspecialchars($starttls_line);
  545.         do_err($imap_starttls_err);
  546.     } elseif (! stream_socket_enable_crypto($stream,true,STREAM_CRYPTO_METHOD_TLS_CLIENT)) {
  547.         do_err('Failed to enable encryption on IMAP connection.');
  548.     } else {
  549.         echo $IND . "IMAP STARTTLS extension looks OK.<br />\n";
  550.     }
  551.  
  552.     // get new capability line
  553.         fwrite($stream,"A003 CAPABILITY\r\n");
  554.     $capline='';
  555.     while ($line=fgets($stream, 1024)){
  556.         if (preg_match("/A003.*/",$line)) {
  557.             break;
  558.         } else {
  559.             $capline.=$line;
  560.         }
  561.     }
  562. }
  563.  
  564. echo $IND . 'Capabilities: <tt>'.htmlspecialchars($capline)."</tt><br />\n";
  565.  
  566. if($imap_auth_mech == 'login' && stristr($capline, 'LOGINDISABLED') !== FALSE) {
  567.     do_err('Your server doesn\'t allow plaintext logins. '.
  568.             'Try enabling another authentication mechanism like CRAM-MD5, DIGEST-MD5 or TLS-encryption '.
  569.             'in the SquirrelMail configuration.', FALSE);
  570. }
  571.  
  572. if (stristr($capline, 'XMAGICTRASH') !== false) {
  573.     $magic_trash = 'It looks like IMAP_MOVE_EXPUNGE_TO_TRASH option is turned on '
  574.         .'in your Courier IMAP configuration. Courier does not provide tools that '
  575.         .'allow to detect folder used for Trash or commands are not documented. '
  576.         .'SquirrelMail can\'t detect special trash folder. SquirrelMail manages '
  577.         .'all message deletion or move operations internally and '
  578.         .'IMAP_MOVE_EXPUNGE_TO_TRASH option can cause errors in message and '
  579.         .'folder management operations. Please turn off IMAP_MOVE_EXPUNGE_TO_TRASH '
  580.         .'option in Courier imapd configuration.';
  581.     do_err($magic_trash,false);
  582. }
  583.  
  584. /* add warning about IMAP delivery */
  585. if (stristr($capline, 'XCOURIEROUTBOX') !== false) {
  586.     $courier_outbox = 'OUTBOX setting is enabled in your Courier imapd '
  587.         .'configuration. SquirrelMail uses standard SMTP protocol or sendmail '
  588.         .'binary to send emails. Courier IMAP delivery method is not supported'
  589.         .' and can create duplicate email messages.';
  590.     do_err($courier_outbox,false);
  591. }
  592.  
  593. /** OK, close connection */
  594. fputs($stream, "A004 LOGOUT\r\n");
  595. fclose($stream);
  596.  
  597. echo "Checking internationalization (i18n) settings...<br />\n";
  598. echo "$IND gettext - ";
  599. if (function_exists('gettext')) {
  600.     echo 'Gettext functions are available.'
  601.         .' On some systems you must have appropriate system locales compiled.'
  602.         ."<br />\n";
  603.  
  604.     /* optional setlocale() tests. Should work only on glibc systems. */
  605.     if (sqgetGlobalVar('testlocales',$testlocales,SQ_GET)) {
  606.         include_once(SM_PATH . 'include/languages.php');
  607.         echo $IND . $IND . 'Testing translations:<br>';
  608.         foreach ($languages as $lang_code => $lang_data) {
  609.             /* don't test aliases */
  610.             if (isset($lang_data['NAME'])) {
  611.                 /* locale can be $lang_code or $lang_data['LOCALE'] */
  612.                 if (isset($lang_data['LOCALE'])) {
  613.                     $setlocale = $lang_data['LOCALE'];
  614.                 } else {
  615.                     $setlocale = $lang_code;
  616.                 }
  617.                 /* prepare information about tested locales */
  618.                 if (is_array($setlocale)) {
  619.                     $display_locale = implode(', ',$setlocale);
  620.                     $locale_count = count($setlocale);
  621.                 } else {
  622.                     $display_locale = $setlocale;
  623.                     $locale_count = 1;
  624.                 }
  625.                 $tested_locales_msg = 'Tested '.htmlspecialchars($display_locale).' '
  626.                     .($locale_count>1 ? 'locales':'locale'). '.';
  627.  
  628.                 echo $IND . $IND .$IND . $lang_data['NAME'].' (' .$lang_code. ') - ';
  629.                 $retlocale = sq_setlocale(LC_ALL,$setlocale);
  630.                 if (is_bool($retlocale)) {
  631.                     echo '<font color="red">unsupported</font>. ';
  632.                     echo $tested_locales_msg;
  633.                 } else {
  634.                     echo 'supported. '
  635.                         .$tested_locales_msg
  636.                         .' setlocale() returned "'.htmlspecialchars($retlocale).'"';
  637.                 }
  638.                 echo "<br />\n";
  639.             }
  640.         }
  641.         echo $IND . $IND . '<a href="configtest.php">Don\'t test translations</a>';
  642.     } else {
  643.         echo $IND . $IND . '<a href="configtest.php?testlocales=1">Test translations</a>. '
  644.             .'This test is not accurate and might work only on some systems.'
  645.             ."\n";
  646.     }
  647.     echo "<br />\n";
  648.     /* end of translation tests */
  649. } else {
  650.     echo 'Gettext functions are unavailable.'
  651.         .' SquirrelMail will use slower internal gettext functions.'
  652.         ."<br />\n";
  653. }
  654. echo "$IND mbstring - ";
  655. if (function_exists('mb_detect_encoding')) {
  656.     echo "Mbstring functions are available.<br />\n";
  657. } else {
  658.     echo 'Mbstring functions are unavailable.'
  659.         ." Japanese translation won't work.<br />\n";
  660. }
  661. echo "$IND recode - ";
  662. if (function_exists('recode')) {
  663.     echo "Recode functions are available.<br />\n";
  664. } elseif (isset($use_php_recode) && $use_php_recode) {
  665.     echo "Recode functions are unavailable.<br />\n";
  666.     do_err('Your configuration requires recode support, but recode support is missing.');
  667. } else {
  668.     echo "Recode functions are unavailable.<br />\n";
  669. }
  670. echo "$IND iconv - ";
  671. if (function_exists('iconv')) {
  672.     echo "Iconv functions are available.<br />\n";
  673. } elseif (isset($use_php_iconv) && $use_php_iconv) {
  674.     echo "Iconv functions are unavailable.<br />\n";
  675.     do_err('Your configuration requires iconv support, but iconv support is missing.');
  676. } else {
  677.     echo "Iconv functions are unavailable.<br />\n";
  678. }
  679. // same test as in include/init.php + date_default_timezone_set check
  680. echo "$IND timezone - ";
  681. if ( (!ini_get('safe_mode')) || function_exists('date_default_timezone_set') ||
  682.         !strcmp(ini_get('safe_mode_allowed_env_vars'),'') ||
  683.         preg_match('/^([\w_]+,)*TZ/', ini_get('safe_mode_allowed_env_vars')) ) {
  684.     echo "Webmail users can change their time zone settings. \n";
  685. } else {
  686.     echo "Webmail users can't change their time zone settings. \n";
  687. }
  688. if (isset($_ENV['TZ'])) {
  689.     echo 'Default time zone is '.htmlspecialchars($_ENV['TZ']);
  690. } else {
  691.     echo 'Current time zone is '.date('T');
  692. }
  693. echo ".<br />\n";
  694.  
  695. // Pear DB tests
  696. echo "Checking database functions...<br />\n";
  697. if($addrbook_dsn || $prefs_dsn || $addrbook_global_dsn) {
  698.     @include_once('DB.php');
  699.     if (class_exists('DB')) {
  700.         echo "$IND PHP Pear DB support is present.<br />\n";
  701.         $db_functions=array(
  702.                 'dbase' => 'dbase_open',
  703.                 'fbsql' => 'fbsql_connect',
  704.                 'interbase' => 'ibase_connect',
  705.                 'informix' => 'ifx_connect',
  706.                 'msql' => 'msql_connect',
  707.                 'mssql' => 'mssql_connect',
  708.                 'mysql' => 'mysql_connect',
  709.                 'mysqli' => 'mysqli_connect',
  710.                 'oci8' => 'ocilogon',
  711.                 'odbc' => 'odbc_connect',
  712.                 'pgsql' => 'pg_connect',
  713.                 'sqlite' => 'sqlite_open',
  714.                 'sybase' => 'sybase_connect'
  715.                 );
  716.  
  717.         $dsns = array();
  718.         if($prefs_dsn) {
  719.             $dsns['preferences'] = $prefs_dsn;
  720.         }
  721.         if($addrbook_dsn) {
  722.             $dsns['addressbook'] = $addrbook_dsn;
  723.         }
  724.         if($addrbook_global_dsn) {
  725.             $dsns['global addressbook'] = $addrbook_global_dsn;
  726.         }
  727.  
  728.         foreach($dsns as $type => $dsn) {
  729.             $aDsn = explode(':', $dsn);
  730.             $dbtype = array_shift($aDsn);
  731.             if(isset($db_functions[$dbtype]) && function_exists($db_functions[$dbtype])) {
  732.                 echo "$IND$dbtype database support present.<br />\n";
  733.  
  734.                 // now, test this interface:
  735.  
  736.                 
  737.                 $dbh = DB::connect($dsn, true);
  738.                 if (DB::isError($dbh)) {
  739.                     do_err('Database error: '. htmlspecialchars(DB::errorMessage($dbh)) .
  740.                             ' in ' .$type .' DSN.');
  741.                 }
  742.                 $dbh->disconnect();
  743.                 echo "$IND$type database connect successful.<br />\n";
  744.  
  745.             } else {
  746.                 do_err($dbtype.' database support not present!');
  747.             }
  748.         }
  749.     } else {
  750.         $db_error='Required PHP PEAR DB support is not available.'
  751.             .' Is PEAR installed and is the include path set correctly to find <tt>DB.php</tt>?'
  752.             .' The include path is now:<tt>' . ini_get('include_path') . '</tt>.';
  753.         do_err($db_error);
  754.     }
  755. } else {
  756.     echo $IND."not using database functionality.<br />\n";
  757. }
  758.  
  759. // LDAP DB tests
  760. echo "Checking LDAP functions...<br />\n";
  761. if( empty($ldap_server) ) {
  762.     echo $IND."not using LDAP functionality.<br />\n";
  763. } else {
  764.     if ( !function_exists('ldap_connect') ) {
  765.         do_err('Required LDAP support is not available.');
  766.     } else {
  767.         echo "$IND LDAP support present.<br />\n";
  768.         foreach ( $ldap_server as $param ) {
  769.  
  770.             $linkid = @ldap_connect($param['host'], (empty($param['port']) ? 389 : $param['port']) );
  771.  
  772.             if ( $linkid ) {
  773.                 echo "$IND LDAP connect to ".$param['host']." successful: ".$linkid."<br />\n";
  774.  
  775.                 if ( !empty($param['protocol']) &&
  776.                         !ldap_set_option($linkid, LDAP_OPT_PROTOCOL_VERSION, $param['protocol']) ) {
  777.                     do_err('Unable to set LDAP protocol');
  778.                 }
  779.  
  780.                 if ( empty($param['binddn']) ) {
  781.                     $bind = @ldap_bind($linkid);
  782.                 } else {
  783.                     $bind = @ldap_bind($param['binddn'], $param['bindpw']);
  784.                 }
  785.  
  786.                 if ( $bind ) {
  787.                     echo "$IND LDAP Bind Successful <br />";
  788.                 } else {
  789.                     do_err('Unable to Bind to LDAP Server');
  790.                 }
  791.  
  792.                 @ldap_close($linkid);
  793.             } else {
  794.                 do_err('Connection to LDAP failed');
  795.             }
  796.         }
  797.     }
  798. }
  799.  
  800. echo '<hr width="75%" align="center">';
  801. echo '<h2 align="center">Summary</h2>';
  802. $footer = '<hr width="75%" align="center">';
  803. if ($warnings) {
  804.     echo '<p>No fatal errors were found, but there was at least 1 warning.  Please check the flagged issue(s) carefully, as correcting them may prevent erratic, undefined, or incorrect behavior (or flat out breakage).</p>';
  805.     echo $footer;
  806. } else {
  807.     print <<< EOF
  808. <p>Congratulations, your SquirrelMail setup looks fine to me!</p>
  809.  
  810. <p><a href="login.php">Login now</a></p>
  811.  
  812. </body>
  813. </html>
  814. EOF;
  815.     echo $footer;
  816. }
  817. ?>

Documentation generated on Sat, 07 Oct 2006 16:09:49 +0300 by phpDocumentor 1.3.0RC6