# First, lets read in the data already in there...
############################################################
if ( -e "config.php" ) {
# First, lets read in the data already in there...
############################################################
if ( -e "config.php" ) {
+ # Make sure that file is readable
+ if (! -r "config.php") {
+ clear_screen();
+ print "WARNING:\n";
+ print "The file \"config/config.php\" was found, but you don't\n";
+ print "have rights to read it.\n";
+ print "\n";
+ print "Press any key to continue";
+ $ctu = <STDIN>;
+ exit;
+ }
open( FILE, "config.php" );
while ( $line = <FILE> ) {
$line =~ s/^\s+//;
open( FILE, "config.php" );
while ( $line = <FILE> ) {
$line =~ s/^\s+//;
print " The file \"config/config.php\" was found, but it is for\n";
print " an older version of SquirrelMail. It is possible to still\n";
print " read the defaults from this file but be warned that many\n";
print " The file \"config/config.php\" was found, but it is for\n";
print " an older version of SquirrelMail. It is possible to still\n";
print " read the defaults from this file but be warned that many\n";
print " You are trying to use a 'config_default.php' from an older\n";
print " version of SquirrelMail. This is HIGHLY unrecommended. You\n";
print " should get the 'config_default.php' that matches the version\n";
print " You are trying to use a 'config_default.php' from an older\n";
print " version of SquirrelMail. This is HIGHLY unrecommended. You\n";
print " should get the 'config_default.php' that matches the version\n";
$sub =~ s/^fontsets\[\'//;
$fontsets{$sub} = $options[1];
} elsif ( $options[0] =~ /^theme\[[0-9]+\]\[['"]PATH|NAME['"]\]/ ) {
$sub =~ s/^fontsets\[\'//;
$fontsets{$sub} = $options[1];
} elsif ( $options[0] =~ /^theme\[[0-9]+\]\[['"]PATH|NAME['"]\]/ ) {
- ##
- ## $color themes are no longer supported. Please leave this
- ## so conf.pl doesn't barf if it encounters a $theme.
- ##
+ ##
+ ## $color themes are no longer supported. Please leave this
+ ## so conf.pl doesn't barf if it encounters a $theme.
+ ##
# add qmail-inject test here for backwards compatibility
if ( !$sendmail_args && $sendmail_path =~ /qmail-inject/ ) {
$sendmail_args = '';
# add qmail-inject test here for backwards compatibility
if ( !$sendmail_args && $sendmail_path =~ /qmail-inject/ ) {
$sendmail_args = '';
$config_location_base = '' if ( !$config_location_base );
$smtp_sitewide_user = '' if ( !$smtp_sitewide_user );
$smtp_sitewide_pass = '' if ( !$smtp_sitewide_pass );
$config_location_base = '' if ( !$config_location_base );
$smtp_sitewide_user = '' if ( !$smtp_sitewide_user );
$smtp_sitewide_pass = '' if ( !$smtp_sitewide_pass );
print ".------------------------------------.\n";
print "| t (detect user themes) |\n";
print "| + (add user theme) |\n";
print ".------------------------------------.\n";
print "| t (detect user themes) |\n";
print "| + (add user theme) |\n";
print "First, we need to have the hostname or the IP address where\n";
print "this LDAP server resides. Example: ldap.bigfoot.com\n";
print "First, we need to have the hostname or the IP address where\n";
print "this LDAP server resides. Example: ldap.bigfoot.com\n";
- print "You may change the path to the default icon theme to be used, if icons\n";
- print "have been enabled. This theme will be used when an icon cannot be\n";
- print "found in the current theme, or when no icon theme is specified. If\n";
- print "left blank, and icons are enabled, the default theme will be used\n";
- print "from images/themes/default/.\n";
+ print "You may change the path to the default icon theme to be used, if icons\n";
+ print "have been enabled. This theme will be used when an icon cannot be\n";
+ print "found in the current theme, or when no icon theme is specified. If\n";
+ print "left blank, and icons are enabled, the default theme will be used\n";
+ print "from images/themes/default/.\n";