From d1ae9d4c3b77fc06c98012b3e732fcf9f66437f7 Mon Sep 17 00:00:00 2001
From: tassium
Date: Wed, 9 Apr 2003 16:22:20 +0000
Subject: [PATCH] Thijs yanked this from stable, but there's no reason it can't
go into devel. I really do like this idea, it reminds me of Gallery. Now, if
we could eliminate this entire conf.pl portion and do fully online config a
la Gallery, that'd be slick...
git-svn-id: https://svn.code.sf.net/p/squirrelmail/code/trunk/squirrelmail@4760 7612ce4b-ef26-0410-bec9-ea0150e637f0
---
config/configtest.php | 236 ++++++++++++++++++++++++++++++++++++++++++
1 file changed, 236 insertions(+)
create mode 100644 config/configtest.php
diff --git a/config/configtest.php b/config/configtest.php
new file mode 100644
index 00000000..39c1e53b
--- /dev/null
+++ b/config/configtest.php
@@ -0,0 +1,236 @@
+
+
+
+ SquirrelMail configtest
+
+
+SquirrelMail configtest
+
+This script will try to check some aspects of your SquirrelMail configuration
+and point you to errors whereever it can find them. You need to go run conf.pl
+in this directory first before you run this script.
+
+ERROR: ' .$str. "
\n";
+ if($exit) {
+ echo '';
+ exit;
+ }
+}
+
+$IND = str_repeat(' ',4);
+
+ob_implicit_flush();
+define('SM_PATH', '../');
+
+include(SM_PATH . 'config/config.php');
+include(SM_PATH . 'functions/strings.php');
+
+$included = array_map('basename', get_included_files() );
+if(!in_array('config.php', $included)) {
+ if(!file_exists(SM_PATH . 'config/config.php')) {
+ do_err('Config file '.SM_PATH . 'config/config.php does not exist!
'.
+ 'You need to run conf.pl first.');
+ }
+ do_err('Could not read '.SM_PATH.'config/config.php! Check file permissions.');
+}
+if(!in_array('strings.php', $included)) {
+ do_err('Could not include '.SM_PATH.'functions/strings.php!
'.
+ 'Check permissions on that file.');
+}
+
+/* checking PHP specs */
+
+echo 'SquirrelMail version: '.$version.'
'.
+ 'Config file version: '.$config_version . '
'.
+ 'Config file last modified: '.date ('d F Y H:i:s', filemtime(SM_PATH . 'config/config.php')).'
';
+
+echo "Checking PHP configuration...
\n";
+
+if(!check_php_version(4,0,6)) {
+ do_err('Insufficient PHP version: '. PHP_VERSION . '! Minimum required: 4.0.6');
+}
+
+echo $IND . 'PHP version '.PHP_VERSION.' OK.
';
+
+$php_exts = array('session','pcre');
+$diff = array_diff($php_exts, get_loaded_extensions());
+if(count($diff)) {
+ do_err('Required PHP extensions missing: '.implode(', ',$diff) );
+}
+
+echo $IND . 'PHP extensions OK.
';
+
+
+/* checking paths */
+
+echo "Checking paths...
\n";
+
+if(!file_exists($data_dir)) {
+ do_err("Data dir ($data_dir) does not exist!");
+}
+if(!is_dir($data_dir)) {
+ do_err("Data dir ($data_dir) is not a directory!");
+}
+if(!is_readable($data_dir)) {
+ do_err("I cannot read from data dir ($data_dir)!");
+}
+if(!is_writable($data_dir)) {
+ do_err("I cannot write to data dir ($data_dir)!");
+}
+
+// todo_ornot: actually write something and read it back.
+echo $IND . "Data dir OK.
\n";
+
+
+if($data_dir == $attachment_dir) {
+ echo $IND . "Attachment dir is the same as data dir.
\n";
+} else {
+ if(!file_exists($attachment_dir)) {
+ do_err("Attachment dir ($attachment_dir) does not exist!");
+ }
+ if (!is_dir($attachment_dir)) {
+ do_err("Attachment dir ($attachment_dir) is not a directory!");
+ }
+ if (!is_readable($attachment_dir)) {
+ do_err("I cannot read from attachment dir ($attachment_dir)!");
+ }
+ if (!is_writable($attachment_dir)) {
+ do_err("I cannot write to attachment dir ($attachment_dir)!");
+ }
+ echo $IND . "Attachment dir OK.
\n";
+}
+
+
+/* check plugins and themes */
+
+foreach($plugins as $plugin) {
+ if(!file_exists(SM_PATH .'plugins/'.$plugin)) {
+ do_err('You have enabled the '.$plugin.' plugin but I cannot find it.', FALSE);
+ } elseif (!is_readable(SM_PATH .'plugins/'.$plugin.'/setup.php')) {
+ do_err('You have enabled the '.$plugin.' plugin but I cannot read its setup.php file.', FALSE);
+ }
+}
+
+echo $IND . "Plugins OK.
\n";
+
+foreach($theme as $thm) {
+ if(!file_exists($thm['PATH'])) {
+ do_err('You have enabled the '.$thm['NAME'].' theme but I cannot find it ('.$thm['PATH'].').', FALSE);
+ } elseif(!is_readable($thm['PATH'])) {
+ do_err('You have enabled the '.$thm['NAME'].' theme but I cannot read it ('.$thm['PATH'].').', FALSE);
+ }
+}
+
+echo $IND . "Themes OK.
\n";
+
+
+/* check outgoing mail */
+
+if($use_smtp_tls || $use_imap_tls) {
+ if(!check_php_version(4,3,0)) {
+ do_err('You need at least PHP 4.3.0 for SMTP/IMAP TLS!');
+ }
+ if(!extension_loaded('openssl')) {
+ do_err('You need the openssl PHP extension to use SMTP/IMAP TLS!');
+ }
+}
+
+echo "Checking outgoing mail service....
\n";
+
+if($useSendmail) {
+ // is_executable also checks for existance, but we want to be as precise as possible with the errors
+ if(!file_exists($sendmail_path)) {
+ do_err("Location of sendmail program incorrect ($sendmail_path)!");
+ }
+ if(!is_executable($sendmail_path)) {
+ do_err("I cannot execute the sendmail program ($sendmail_path)!");
+ }
+
+ echo $IND . "sendmail OK
\n";
+} else {
+ $stream = fsockopen( ($use_smtp_tls?'tls://':'').$smtpServerAddress, $smtpPort,
+ $errorNumber, $errorString);
+ if(!$stream) {
+ do_err("Error connecting to SMTP server \"$smtpServerAddress:$smtpPort\".".
+ "Server error: ($errorNumber) $errorString");
+ }
+
+ // check for SMTP code; should be 2xx to allow us access
+ $smtpline = fgets($stream, 1024);
+ if(((int) $smtpline{0}) > 3) {
+ do_err("Error connecting to SMTP server. Server error: ".$smtpline);
+ }
+
+ fputs($stream, 'QUIT');
+ fclose($stream);
+ echo $IND . 'SMTP server OK ('.trim($smtpline).")
\n";
+
+ /* POP before SMTP */
+ if($pop_before_smtp) {
+ $stream = fsockopen($smtpServerAddress, 110, $err_no, $err_str);
+ if (!$stream) {
+ do_err("Error connecting to POP Server ($smtpServerAddress:110)"
+ . " $err_no : $err_str");
+ }
+
+ $tmp = fgets($stream, 1024);
+ if (substr($tmp, 0, 3) != '+OK') {
+ do_err("Error connecting to POP Server ($smtpServerAddress:110)"
+ . ' '.$tmp);
+ }
+ fputs($stream, 'QUIT');
+ fclose($stream);
+ echo $IND . "POP-before-SMTP OK.
\n";
+ }
+}
+
+echo "Checking IMAP service....
\n";
+
+$stream = fsockopen( ($use_imap_tls?'tls://':'').$imapServerAddress, $imapPort,
+ $errorNumber, $errorString);
+if(!$stream) {
+ do_err("Error connecting to SMTP server \"$smtpServerAddress:$smtpPort\".".
+ "Server error: ($errorNumber) $errorString");
+}
+
+$imapline = fgets($stream, 1024);
+if(substr($imapline, 0,4) != '* OK') {
+ do_err('Error connecting to IMAP server. Server error: '.$imapline);
+}
+
+fputs($stream, '001 LOGOUT');
+fclose($stream);
+
+echo $IND . 'IMAP server OK ('.trim($imapline).")
\n";
+
+// other possible checks:
+// ? prefs/abook DSN
+// ? locale/gettext
+// ? actually start a session to see if it works
+// ? ...
+?>
+
+Congratulations, your SquirrelMail setup looks fine to me!
+
+Login now
+
+