From f084f987b9995152d7b76de9c6db321db992f80e Mon Sep 17 00:00:00 2001 From: jervfors Date: Tue, 21 Feb 2006 21:35:26 +0000 Subject: [PATCH 1/1] Adding more obsolete plugins. git-svn-id: https://svn.code.sf.net/p/squirrelmail/code/trunk/squirrelmail@10802 7612ce4b-ef26-0410-bec9-ea0150e637f0 --- src/configtest.php | 170 ++++++++++++++++++++++++++------------------- 1 file changed, 98 insertions(+), 72 deletions(-) diff --git a/src/configtest.php b/src/configtest.php index 9bddb39a..af93a20e 100644 --- a/src/configtest.php +++ b/src/configtest.php @@ -20,16 +20,15 @@ $warnings = 0; function do_err($str, $fatal = TRUE) { - global $IND; - global $warnings; - $level = $fatal ? 'FATAL ERROR:' : 'WARNING:'; + global $IND, $warnings; + $level = $fatal ? 'FATAL ERROR:' : 'WARNING:'; echo '

'.$IND.'' . $level . ' ' .$str. "

\n"; if($fatal) { - echo ''; - exit; + echo ''; + exit; } else { - $warnings++; - } + $warnings++; + } } $IND = str_repeat(' ',4); @@ -55,8 +54,8 @@ if (file_exists(SM_PATH . 'config/config.php')) { "http://www.w3.org/TR/1999/REC-html401-19991224/loose.dtd"> - - SquirrelMail configtest + + SquirrelMail configtest

SquirrelMail configtest

@@ -71,13 +70,13 @@ $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.'); + '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.'); + 'Check permissions on that file.'); } /* Block remote use of script */ @@ -86,17 +85,17 @@ if (! $allow_remote_configtest) { sqGetGlobalVar('SERVER_ADDR',$server_ip,SQ_SERVER); if ((! isset($client_ip) || $client_ip!='127.0.0.1') && - (! isset($client_ip) || ! isset($server_ip) || $client_ip!=$server_ip)) { + (! isset($client_ip) || ! isset($server_ip) || $client_ip!=$server_ip)) { do_err('Enable "Allow remote configtest" option in squirrelmail configuration in order to use this script.'); } } /* checking PHP specs */ echo "

\n\n" . - '\n" . - '\n
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')) . - "
\n

\n\n"; + 'Config file version:' . $config_version . "\n" . + 'Config file last modified:' . + date ('d F Y H:i:s', filemtime(SM_PATH . 'config/config.php')) . + "\n\n

\n\n"; /* check $config_version */ if ($config_version!='1.4.0') { @@ -194,17 +193,44 @@ if($data_dir == $attachment_dir) { /* check plugins and themes */ -$bad_plugins = array('view_as_html','folder_preferences'); +$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' + ); if (isset($plugins[0])) { 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); + 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); - } elseif (in_array($plugin, $bad_plugins)) { - do_err('You have enabled the '.$plugin.' plugin, which causes problems with this version of SquirrelMail. Please check the ReleaseNotes or other documentation for more information.', false); - } + do_err('You have enabled the '.$plugin.' plugin, but I cannot read its setup.php file.', FALSE); + } elseif (in_array($plugin, $bad_plugins)) { + do_err('You have enabled the '.$plugin.' plugin, which causes problems with this version of SquirrelMail. Please check the ReleaseNotes or other documentation for more information.', false); + } } echo $IND . "Plugins OK.
\n"; } else { @@ -224,13 +250,13 @@ if ( $squirrelmail_default_language != 'en_US' ) { $loc_path = SM_PATH .'locale/'.$squirrelmail_default_language.'/LC_MESSAGES/squirrelmail.mo'; if( ! file_exists( $loc_path ) ) { do_err('You have set ' . $squirrelmail_default_language . - ' as your default language, but I cannot find this translation (should be '. - 'in ' . $loc_path . '). Please note that you have to download translations '. - 'separately from the main SquirrelMail package.', FALSE); + ' as your default language, but I cannot find this translation (should be '. + 'in ' . $loc_path . '). Please note that you have to download translations '. + 'separately from the main SquirrelMail package.', FALSE); } elseif ( ! is_readable( $loc_path ) ) { do_err('You have set ' . $squirrelmail_default_language . - ' as your default language, but I cannot read this translation (file '. - 'in ' . $loc_path . ' unreadable).', FALSE); + ' as your default language, but I cannot read this translation (file '. + 'in ' . $loc_path . ' unreadable).', FALSE); } else { echo $IND . "Default language OK.
\n"; } @@ -280,17 +306,17 @@ if($useSendmail) { echo $IND . "sendmail OK
\n"; } else { $stream = fsockopen( ($use_smtp_tls==1?'tls://':'').$smtpServerAddress, $smtpPort, - $errorNumber, $errorString); + $errorNumber, $errorString); if(!$stream) { do_err("Error connecting to SMTP server \"$smtpServerAddress:$smtpPort\".". - "Server error: ($errorNumber) ".htmlspecialchars($errorString)); + "Server error: ($errorNumber) ".htmlspecialchars($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: ". - htmlspecialchars($smtpline)); + htmlspecialchars($smtpline)); } /* smtp starttls checks */ @@ -304,7 +330,7 @@ if($useSendmail) { $ehlo_error = false; while ($line=fgets($stream, 1024)){ if (preg_match("/^250(-|\s)(\S*)\s+(\S.*)/",$line,$match)|| - preg_match("/^250(-|\s)(\S*)\s+/",$line,$match)) { + preg_match("/^250(-|\s)(\S*)\s+/",$line,$match)) { if (!isset($match[3])) { // simple one word extension $ehlo[strtoupper($match[2])]=''; @@ -346,20 +372,20 @@ if($useSendmail) { fputs($stream, 'QUIT'); fclose($stream); echo $IND . 'SMTP server OK ('. - trim(htmlspecialchars($smtpline)).")
\n"; + trim(htmlspecialchars($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 . ' : ' . htmlspecialchars($err_str)); + . $err_no . ' : ' . htmlspecialchars($err_str)); } $tmp = fgets($stream, 1024); if (substr($tmp, 0, 3) != '+OK') { do_err("Error connecting to POP Server ($smtpServerAddress:110)" - . ' '.htmlspecialchars($tmp)); + . ' '.htmlspecialchars($tmp)); } fputs($stream, 'QUIT'); fclose($stream); @@ -374,18 +400,18 @@ echo "Checking IMAP service....
\n"; /** Can we open a connection? */ $stream = fsockopen( ($use_imap_tls==1?'tls://':'').$imapServerAddress, $imapPort, - $errorNumber, $errorString); + $errorNumber, $errorString); if(!$stream) { do_err("Error connecting to IMAP server \"$imapServerAddress:$imapPort\".". - "Server error: ($errorNumber) ". - htmlspecialchars($errorString)); + "Server error: ($errorNumber) ". + htmlspecialchars($errorString)); } /** Is the first response 'OK'? */ $imapline = fgets($stream, 1024); if(substr($imapline, 0,4) != '* OK') { - do_err('Error connecting to IMAP server. Server error: '. - htmlspecialchars($imapline)); + do_err('Error connecting to IMAP server. Server error: '. + htmlspecialchars($imapline)); } echo $IND . 'IMAP server ready ('. @@ -395,11 +421,11 @@ echo $IND . 'IMAP server ready ('. fputs($stream, "A001 CAPABILITY\r\n"); $capline = ''; while ($line=fgets($stream, 1024)){ - if (preg_match("/A001.*/",$line)) { - break; - } else { - $capline.=$line; - } + if (preg_match("/A001.*/",$line)) { + break; + } else { + $capline.=$line; + } } /* don't display capabilities before STARTTLS */ @@ -411,7 +437,7 @@ if ($use_imap_tls==2 && stristr($capline, 'STARTTLS') === false) { $starttls_line=fgets($stream, 1024); if (! preg_match("/^A002 OK.*/i",$starttls_line)) { $imap_starttls_err = 'IMAP STARTTLS failed. Server replied: ' - .htmlspecialchars($starttls_line); + .htmlspecialchars($starttls_line); do_err($imap_starttls_err); } elseif (! stream_socket_enable_crypto($stream,true,STREAM_CRYPTO_METHOD_TLS_CLIENT)) { do_err('Failed to enable encryption on IMAP connection.'); @@ -435,8 +461,8 @@ echo $IND . 'Capabilities: '.htmlspecialchars($capline)." \n"; if($imap_auth_mech == 'login' && stristr($capline, 'LOGINDISABLED') !== FALSE) { do_err('Your server doesn\'t allow plaintext logins. '. - 'Try enabling another authentication mechanism like CRAM-MD5, DIGEST-MD5 or TLS-encryption '. - 'in the SquirrelMail configuration.', FALSE); + 'Try enabling another authentication mechanism like CRAM-MD5, DIGEST-MD5 or TLS-encryption '. + 'in the SquirrelMail configuration.', FALSE); } /** OK, close connection */ @@ -482,9 +508,9 @@ if (function_exists('iconv')) { // same test as in include/validate.php echo "$IND timezone - "; if ( (!ini_get('safe_mode')) || - !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. \n"; + !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. \n"; } else { echo "Webmail users can't change their time zone settings. \n"; } @@ -497,20 +523,20 @@ if($addrbook_dsn || $prefs_dsn || $addrbook_global_dsn) { if (class_exists('DB')) { echo "$IND PHP Pear DB support is present. \n"; $db_functions=array( - 'dbase' => 'dbase_open', - 'fbsql' => 'fbsql_connect', - 'interbase' => 'ibase_connect', - 'informix' => 'ifx_connect', - 'msql' => 'msql_connect', - 'mssql' => 'mssql_connect', - 'mysql' => 'mysql_connect', - 'mysqli' => 'mysqli_connect', - 'oci8' => 'ocilogon', - 'odbc' => 'odbc_connect', - 'pgsql' => 'pg_connect', - 'sqlite' => 'sqlite_open', - 'sybase' => 'sybase_connect' - ); + 'dbase' => 'dbase_open', + 'fbsql' => 'fbsql_connect', + 'interbase' => 'ibase_connect', + 'informix' => 'ifx_connect', + 'msql' => 'msql_connect', + 'mssql' => 'mssql_connect', + 'mysql' => 'mysql_connect', + 'mysqli' => 'mysqli_connect', + 'oci8' => 'ocilogon', + 'odbc' => 'odbc_connect', + 'pgsql' => 'pg_connect', + 'sqlite' => 'sqlite_open', + 'sybase' => 'sybase_connect' + ); $dsns = array(); if($prefs_dsn) { @@ -534,7 +560,7 @@ if($addrbook_dsn || $prefs_dsn || $addrbook_global_dsn) { $dbh = DB::connect($dsn, true); if (DB::isError($dbh)) { do_err('Database error: '. htmlspecialchars(DB::errorMessage($dbh)) . - ' in ' .$type .' DSN.'); + ' in ' .$type .' DSN.'); } $dbh->disconnect(); echo "$IND$type database connect successful. \n"; @@ -567,10 +593,10 @@ if( empty($ldap_server) ) { $linkid = @ldap_connect($param['host'], (empty($param['port']) ? 389 : $param['port']) ); if ( $linkid ) { - echo "$IND LDAP connect to ".$param['host']." successful: ".$linkid." \n"; + echo "$IND LDAP connect to ".$param['host']." successful: ".$linkid." \n"; if ( !empty($param['protocol']) && - !ldap_set_option($linkid, LDAP_OPT_PROTOCOL_VERSION, $param['protocol']) ) { + !ldap_set_option($linkid, LDAP_OPT_PROTOCOL_VERSION, $param['protocol']) ) { do_err('Unable to set LDAP protocol'); } @@ -598,10 +624,10 @@ echo ''; echo 'Summary'; $footer = ''; if ($warnings) { - echo '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).'; - echo $footer; + echo '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).'; + echo $footer; } else { -print <<< EOF + print <<< EOF Congratulations, your SquirrelMail setup looks fine to me! Login now @@ -609,6 +635,6 @@ print <<< EOF EOF; -echo $footer; + echo $footer; } -?> +?> \ No newline at end of file -- 2.25.1

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')) . - "