config/conf.pl

   1 #!/usr/bin/env perl
   2 # conf.pl
   3 #
   4 # Copyright (c) 1999-2007 The SquirrelMail Project Team
   5 # Licensed under the GNU GPL. For full terms see COPYING.
   6 #
   7 # A simple configure script to configure SquirrelMail
   8 #
   9 # $Id$
  10 ############################################################
  11 $conf_pl_version = "1.5.0";
  12
  13 ############################################################
  14 # Check what directory we're supposed to be running in, and
  15 # change there if necessary.  File::Basename has been in
  16 # Perl since at least 5.003_7, and nobody sane runs anything
  17 # before that, but just in case.
  18 ############################################################
  19 my $dir;
  20 if ( eval q{require "File/Basename.pm"} ) {
  21     $dir = File::Basename::dirname($0);
  22     chdir($dir);
  23 }
  24
  25 ############################################################
  26 # Some people try to run this as a CGI. That's wrong!
  27 ############################################################
  28 if ( defined( $ENV{'PATH_INFO'} )
  29     || defined( $ENV{'QUERY_STRING'} )
  30     || defined( $ENV{'REQUEST_METHOD'} ) ) {
  31     print "Content-Type: text/html\n\n";
  32     print "You must run this script from the command line.";
  33     exit;
  34     }
  35
  36 ############################################################
  37 # If we got here, use Cwd to get the full directory path
  38 # (the Basename stuff above will sometimes return '.' as
  39 # the base directory, which is not helpful here).
  40 ############################################################
  41 use Cwd;
  42 $dir = cwd();
  43
  44
  45 ############################################################
  46 # First, lets read in the data already in there...
  47 ############################################################
  48 if ( -e "config.php" ) {
  49     # Make sure that file is readable
  50     if (! -r "config.php") {
  51         clear_screen();
  52         print "WARNING:\n";
  53         print "The file \"config/config.php\" was found, but you don't\n";
  54         print "have rights to read it.\n";
  55         print "\n";
  56         print "Press enter to continue";
  57         $ctu = <STDIN>;
  58         exit;
  59     }
  60     open( FILE, "config.php" );
  61     while ( $line = <FILE> ) {
  62         $line =~ s/^\s+//;
  63         $line =~ s/^\$//;
  64         $var = $line;
  65
  66         $var =~ s/=/EQUALS/;
  67         if ( $var =~ /^([a-z])/i ) {
  68             @o = split ( /\s*EQUALS\s*/, $var );
  69             if ( $o[0] eq "config_version" ) {
  70                 $o[1] =~ s/[\n\r]//g;
  71                 $o[1] =~ s/[\'\"];\s*$//;
  72                 $o[1] =~ s/;$//;
  73                 $o[1] =~ s/^[\'\"]//;
  74
  75                 $config_version = $o[1];
  76                 close(FILE);
  77             }
  78         }
  79     }
  80     close(FILE);
  81
  82     if ( $config_version ne $conf_pl_version ) {
  83         clear_screen();
  84         print "WARNING:\n";
  85         print "  The file \"config/config.php\" was found, but it is for\n";
  86         print "  an older version of SquirrelMail. It is possible to still\n";
  87         print "  read the defaults from this file but be warned that many\n";
  88         print "  preferences change between versions. It is recommended that\n";
  89         print "  you start with a clean config.php for each upgrade that you\n";
  90         print "  do. To do this, just move config/config.php out of the way.\n";
  91         print "\n";
  92         print "Continue loading with the old config.php [y/N]? ";
  93         $ctu = <STDIN>;
  94
  95         if ( ( $ctu !~ /^y\n/i ) || ( $ctu =~ /^\n/ ) ) {
  96             exit;
  97         }
  98
  99         print "\nDo you want me to stop warning you [y/N]? ";
 100         $ctu = <STDIN>;
 101         if ( $ctu =~ /^y\n/i ) {
 102             $print_config_version = $conf_pl_version;
 103         } else {
 104             $print_config_version = $config_version;
 105         }
 106     } else {
 107         $print_config_version = $config_version;
 108     }
 109
 110     $config = 1;
 111     open( FILE, "config.php" );
 112 } elsif ( -e "config_default.php" ) {
 113     open( FILE, "config_default.php" );
 114     while ( $line = <FILE> ) {
 115         $line =~ s/^\s+//;
 116         $line =~ s/^\$//;
 117         $var = $line;
 118
 119         $var =~ s/=/EQUALS/;
 120         if ( $var =~ /^([a-z])/i ) {
 121             @o = split ( /\s*EQUALS\s*/, $var );
 122             if ( $o[0] eq "config_version" ) {
 123                 $o[1] =~ s/[\n\r]//g;
 124                 $o[1] =~ s/[\'\"];\s*$//;
 125                 $o[1] =~ s/;$//;
 126                 $o[1] =~ s/^[\'\"]//;
 127
 128                 $config_version = $o[1];
 129                 close(FILE);
 130             }
 131         }
 132     }
 133     close(FILE);
 134
 135     if ( $config_version ne $conf_pl_version ) {
 136         clear_screen();
 137         print "WARNING:\n";
 138         print "  You are trying to use a 'config_default.php' from an older\n";
 139         print "  version of SquirrelMail. This is HIGHLY unrecommended. You\n";
 140         print "  should get the 'config_default.php' that matches the version\n";
 141         print "  of SquirrelMail that you are running. You can get this from\n";
 142         print "  the SquirrelMail web page by going to the following URL:\n";
 143         print "      http://squirrelmail.org.\n";
 144         print "\n";
 145         print "Continue loading with old config_default.php (a bad idea) [y/N]? ";
 146         $ctu = <STDIN>;
 147
 148         if ( ( $ctu !~ /^y\n/i ) || ( $ctu =~ /^\n/ ) ) {
 149             exit;
 150         }
 151
 152         print "\nDo you want me to stop warning you [y/N]? ";
 153         $ctu = <STDIN>;
 154         if ( $ctu =~ /^y\n/i ) {
 155             $print_config_version = $conf_pl_version;
 156         } else {
 157             $print_config_version = $config_version;
 158         }
 159     } else {
 160         $print_config_version = $config_version;
 161     }
 162     $config = 2;
 163     open( FILE, "config_default.php" );
 164 } else {
 165     print "No configuration file found. Please get config_default.php\n";
 166     print "or config.php before running this again. This program needs\n";
 167     print "a default config file to get default values.\n";
 168     exit;
 169 }
 170
 171 # Read and parse the current configuration file
 172 # (either config.php or config_default.php).
 173 while ( $line = <FILE> ) {
 174     $line =~ s/^\s+//;
 175     $line =~ s/^\$//;
 176     $var = $line;
 177
 178     $var =~ s/=/EQUALS/;
 179     if ( $var =~ /^([a-z])/i ) {
 180         @options = split ( /\s*EQUALS\s*/, $var );
 181         $options[1] =~ s/[\n\r]//g;
 182         $options[1] =~ s/[\'\"];\s*$//;
 183         $options[1] =~ s/;$//;
 184         $options[1] =~ s/^[\'\"]//;
 185         # de-escape escaped strings
 186         $options[1] =~ s/\\'/'/g;
 187         $options[1] =~ s/\\\\/\\/g;
 188
 189         if ( $options[0] =~ /^user_themes\[[0-9]+\]\[['"]PATH['"]\]/ ) {
 190             $sub = $options[0];
 191             $sub =~ s/\]\[['"]PATH['"]\]//;
 192             $sub =~ s/.*\[//;
 193             if ( -e "../css/" ) {
 194                 $options[1] =~ s/^\.\.\/config/\.\.\/css/;
 195             }
 196             $user_theme_path[$sub] = &change_to_rel_path($options[1]);
 197         } elsif ( $options[0] =~ /^user_themes\[[0-9]+\]\[['"]NAME['"]\]/ ) {
 198             $sub = $options[0];
 199             $sub =~ s/\]\[['"]NAME['"]\]//;
 200             $sub =~ s/.*\[//;
 201             $user_theme_name[$sub] = $options[1];
 202         } elsif ( $options[0] =~ /^icon_themes\[[0-9]+\]\[['"]PATH['"]\]/ ) {
 203             $sub = $options[0];
 204             $sub =~ s/\]\[['"]PATH['"]\]//;
 205             $sub =~ s/.*\[//;
 206             if ( -e "../images/" ) {
 207                 $options[1] =~ s/^\.\.\/config/\.\.\/images/;
 208             }
 209             $icon_theme_path[$sub] = &change_to_rel_path($options[1]);
 210         } elsif ( $options[0] =~ /^icon_themes\[[0-9]+\]\[['"]NAME['"]\]/ ) {
 211             $sub = $options[0];
 212             $sub =~ s/\]\[['"]NAME['"]\]//;
 213             $sub =~ s/.*\[//;
 214             $icon_theme_name[$sub] = $options[1];
 215         } elsif ( $options[0] =~ /^aTemplateSet\[[0-9]+\]\[['"]ID['"]\]/ ) {
 216             $sub = $options[0];
 217             $sub =~ s/\]\[['"]ID['"]\]//;
 218             $sub =~ s/.*\[//;
 219             if ( -e "../templates" ) {
 220                 $options[1] =~ s/^\.\.\/config/\.\.\/templates/;
 221             }
 222             $templateset_id[$sub] = $options[1];
 223 ##### FIXME: This section BELOW here so old prefs files don't blow up when running conf.pl
 224 #####        Remove after a month or two
 225 } elsif ( $options[0] =~ /^aTemplateSet\[[0-9]+\]\[['"]PATH['"]\]/ ) {
 226     $sub = $options[0];
 227     $sub =~ s/\]\[['"]PATH['"]\]//;
 228     $sub =~ s/.*\[//;
 229     if ( -e "../templates" ) {
 230         $options[1] =~ s/^\.\.\/config/\.\.\/templates/;
 231     }
 232     $templateset_id[$sub] = $options[1];
 233 ##### FIXME: This section ABOVE here so old prefs files don't blow up when running conf.pl
 234 #####        Remove after a month or two
 235         } elsif ( $options[0] =~ /^aTemplateSet\[[0-9]+\]\[['"]NAME['"]\]/ ) {
 236             $sub = $options[0];
 237             $sub =~ s/\]\[['"]NAME['"]\]//;
 238             $sub =~ s/.*\[//;
 239             $templateset_name[$sub] = $options[1];
 240         } elsif ( $options[0] =~ /^plugins\[[0-9]*\]/ ) {
 241             $sub = $options[0];
 242             $sub =~ s/\]//;
 243             $sub =~ s/^plugins\[//;
 244             if ($sub eq '') {
 245                push @plugins, $options[1];
 246             } else {
 247                $plugins[$sub] = $options[1];
 248             }
 249         } elsif ($options[0] =~ /^fontsets\[\'[a-z]*\'\]/) {
 250             # parse associative $fontsets array
 251             $sub = $options[0];
 252             $sub =~ s/\'\]//;
 253             $sub =~ s/^fontsets\[\'//;
 254             $fontsets{$sub} = $options[1];
 255         } elsif ( $options[0] =~ /^theme\[[0-9]+\]\[['"]PATH|NAME['"]\]/ ) {
 256             ##
 257             ## $color themes are no longer supported.  Please leave this
 258             ## so conf.pl doesn't barf if it encounters a $theme.
 259             ##
 260         } elsif ( $options[0] =~ /^ldap_server\[[0-9]+\]/ ) {
 261             $sub = $options[0];
 262             $sub =~ s/\]//;
 263             $sub =~ s/^ldap_server\[//;
 264             $continue = 0;
 265             while ( ( $tmp = <FILE> ) && ( $continue != 1 ) ) {
 266                 if ( $tmp =~ /\);\s*$/ ) {
 267                     $continue = 1;
 268                 }
 269
 270                 if ( $tmp =~ /^\s*[\'\"]host[\'\"]/i ) {
 271                     $tmp =~ s/^\s*[\'\"]host[\'\"]\s*=>\s*[\'\"]//i;
 272                     $tmp =~ s/[\'\"],?\s*$//;
 273                     $tmp =~ s/[\'\"]\);\s*$//;
 274                     $host = $tmp;
 275                 } elsif ( $tmp =~ /^\s*[\'\"]base[\'\"]/i ) {
 276                     $tmp =~ s/^\s*[\'\"]base[\'\"]\s*=>\s*[\'\"]//i;
 277                     $tmp =~ s/[\'\"],?\s*$//;
 278                     $tmp =~ s/[\'\"]\);\s*$//;
 279                     $base = $tmp;
 280                 } elsif ( $tmp =~ /^\s*[\'\"]charset[\'\"]/i ) {
 281                     $tmp =~ s/^\s*[\'\"]charset[\'\"]\s*=>\s*[\'\"]//i;
 282                     $tmp =~ s/[\'\"],?\s*$//;
 283                     $tmp =~ s/[\'\"]\);\s*$//;
 284                     $charset = $tmp;
 285                 } elsif ( $tmp =~ /^\s*[\'\"]port[\'\"]/i ) {
 286                     $tmp =~ s/^\s*[\'\"]port[\'\"]\s*=>\s*[\'\"]?//i;
 287                     $tmp =~ s/[\'\"]?,?\s*$//;
 288                     $tmp =~ s/[\'\"]?\);\s*$//;
 289                     $port = $tmp;
 290                 } elsif ( $tmp =~ /^\s*[\'\"]maxrows[\'\"]/i ) {
 291                     $tmp =~ s/^\s*[\'\"]maxrows[\'\"]\s*=>\s*[\'\"]?//i;
 292                     $tmp =~ s/[\'\"]?,?\s*$//;
 293                     $tmp =~ s/[\'\"]?\);\s*$//;
 294                     $maxrows = $tmp;
 295                 } elsif ( $tmp =~ /^\s*[\'\"]filter[\'\"]/i ) {
 296                     $tmp =~ s/^\s*[\'\"]filter[\'\"]\s*=>\s*[\'\"]?//i;
 297                     $tmp =~ s/[\'\"]?,?\s*$//;
 298                     $tmp =~ s/[\'\"]?\);\s*$//;
 299                     $filter = $tmp;
 300                 } elsif ( $tmp =~ /^\s*[\'\"]name[\'\"]/i ) {
 301                     $tmp =~ s/^\s*[\'\"]name[\'\"]\s*=>\s*[\'\"]//i;
 302                     $tmp =~ s/[\'\"],?\s*$//;
 303                     $tmp =~ s/[\'\"]\);\s*$//;
 304                     $name = $tmp;
 305                 } elsif ( $tmp =~ /^\s*[\'\"]binddn[\'\"]/i ) {
 306                     $tmp =~ s/^\s*[\'\"]binddn[\'\"]\s*=>\s*[\'\"]//i;
 307                     $tmp =~ s/[\'\"],?\s*$//;
 308                     $tmp =~ s/[\'\"]\);\s*$//;
 309                     $binddn = $tmp;
 310                 } elsif ( $tmp =~ /^\s*[\'\"]bindpw[\'\"]/i ) {
 311                     $tmp =~ s/^\s*[\'\"]bindpw[\'\"]\s*=>\s*[\'\"]//i;
 312                     $tmp =~ s/[\'\"],?\s*$//;
 313                     $tmp =~ s/[\'\"]\);\s*$//;
 314                     $bindpw = $tmp;
 315                 } elsif ( $tmp =~ /^\s*[\'\"]protocol[\'\"]/i ) {
 316                     $tmp =~ s/^\s*[\'\"]protocol[\'\"]\s*=>\s*[\'\"]?//i;
 317                     $tmp =~ s/[\'\"]?,?\s*$//;
 318                     $tmp =~ s/[\'\"]?\);\s*$//;
 319                     $protocol = $tmp;
 320                 } elsif ( $tmp =~ /^\s*[\'\"]limit_scope[\'\"]/i ) {
 321                     $tmp =~ s/^\s*[\'\"]limit_scope[\'\"]\s*=>\s*[\'\"]?//i;
 322                     $tmp =~ s/[\'\"]?,?\s*$//;
 323                     $tmp =~ s/[\'\"]?\);\s*$//;
 324                     $limit_scope = $tmp;
 325                 } elsif ( $tmp =~ /^\s*[\'\"]listing[\'\"]/i ) {
 326                     $tmp =~ s/^\s*[\'\"]listing[\'\"]\s*=>\s*[\'\"]?//i;
 327                     $tmp =~ s/[\'\"]?,?\s*$//;
 328                     $tmp =~ s/[\'\"]?\);\s*$//;
 329                     $listing = $tmp;
 330                 } elsif ( $tmp =~ /^\s*[\'\"]writeable[\'\"]/i ) {
 331                     $tmp =~ s/^\s*[\'\"]writeable[\'\"]\s*=>\s*[\'\"]?//i;
 332                     $tmp =~ s/[\'\"]?,?\s*$//;
 333                     $tmp =~ s/[\'\"]?\);\s*$//;
 334                     $writeable = $tmp;
 335                 } elsif ( $tmp =~ /^\s*[\'\"]search_tree[\'\"]/i ) {
 336                     $tmp =~ s/^\s*[\'\"]search_tree[\'\"]\s*=>\s*[\'\"]?//i;
 337                     $tmp =~ s/[\'\"]?,?\s*$//;
 338                     $tmp =~ s/[\'\"]?\);\s*$//;
 339                     $search_tree = $tmp;
 340                 } elsif ( $tmp =~ /^\s*[\'\"]starttls[\'\"]/i ) {
 341                     $tmp =~ s/^\s*[\'\"]starttls[\'\"]\s*=>\s*[\'\"]?//i;
 342                     $tmp =~ s/[\'\"]?,?\s*$//;
 343                     $tmp =~ s/[\'\"]?\);\s*$//;
 344                     $starttls = $tmp;
 345                 }
 346             }
 347             $ldap_host[$sub]    = $host;
 348             $ldap_base[$sub]    = $base;
 349             $ldap_name[$sub]    = $name;
 350             $ldap_port[$sub]    = $port;
 351             $ldap_maxrows[$sub] = $maxrows;
 352             $ldap_filter[$sub]  = $filter;
 353             $ldap_charset[$sub] = $charset;
 354             $ldap_binddn[$sub]  = $binddn;
 355             $ldap_bindpw[$sub]  = $bindpw;
 356             $ldap_protocol[$sub] = $protocol;
 357             $ldap_limit_scope[$sub] = $limit_scope;
 358             $ldap_listing[$sub] = $listing;
 359             $ldap_writeable[$sub] = $writeable;
 360             $ldap_search_tree[$sub] = $search_tree;
 361             $ldap_starttls[$sub] = $starttls;
 362         } elsif ( $options[0] =~ /^(data_dir|attachment_dir|org_logo|signout_page|icon_theme_def)$/ ) {
 363             ${ $options[0] } = &change_to_rel_path($options[1]);
 364         } else {
 365             ${ $options[0] } = $options[1];
 366         }
 367     }
 368 }
 369 close FILE;
 370
 371 # FIXME: unknown introduction date
 372 $useSendmail = 'false'                  if ( lc($useSendmail) ne 'true' );
 373 $sendmail_path = "/usr/sbin/sendmail"   if ( !$sendmail_path );
 374 $pop_before_smtp = 'false'              if ( !$pop_before_smtp );
 375 $default_unseen_notify = 2              if ( !$default_unseen_notify );
 376 $default_unseen_type = 1                if ( !$default_unseen_type );
 377 $config_use_color = 0                   if ( !$config_use_color );
 378 $invert_time = 'false'                  if ( !$invert_time );
 379 $force_username_lowercase = 'false'     if ( !$force_username_lowercase );
 380 $optional_delimiter = "detect"          if ( !$optional_delimiter );
 381 $auto_create_special = 'false'          if ( !$auto_create_special );
 382 $default_use_priority = 'true'          if ( !$default_use_priority );
 383 $default_use_mdn = 'true'               if ( !$default_use_mdn );
 384 $delete_folder = 'false'                if ( !$delete_folder );
 385 $noselect_fix_enable = 'false'          if ( !$noselect_fix_enable );
 386 $frame_top = "_top"                     if ( !$frame_top );
 387 $provider_uri = ''                      if ( !$provider_uri );
 388 $provider_name = ''                     if ( !$provider_name || $provider_name eq 'SquirrelMail');
 389 $no_list_for_subscribe = 'false'        if ( !$no_list_for_subscribe );
 390 $allow_charset_search = 'true'          if ( !$allow_charset_search );
 391 $allow_advanced_search = 0              if ( !$allow_advanced_search) ;
 392 $prefs_user_field = 'user'              if ( !$prefs_user_field );
 393 $prefs_key_field = 'prefkey'            if ( !$prefs_key_field );
 394 $prefs_val_field = 'prefval'            if ( !$prefs_val_field );
 395 $session_name = 'SQMSESSID'             if ( !$session_name );
 396 $skip_SM_header = 'false'               if ( !$skip_SM_header );
 397 $default_use_javascript_addr_book = 'false' if (! $default_use_javascript_addr_book);
 398
 399 # since 1.2.0
 400 $hide_sm_attributions = 'false'         if ( !$hide_sm_attributions );
 401 # since 1.2.5
 402 $edit_identity = 'true'                 if ( !$edit_identity );
 403 $edit_name = 'true'                     if ( !$edit_name );
 404
 405 # since 1.4.0
 406 $use_smtp_tls= 'false'                  if ( !$use_smtp_tls);
 407 $smtp_auth_mech = 'none'                if ( !$smtp_auth_mech );
 408 $use_imap_tls = 'false'                 if ( !$use_imap_tls );
 409 $imap_auth_mech = 'login'               if ( !$imap_auth_mech );
 410
 411 # since 1.5.0
 412 $show_alternative_names = 'false'       if ( !$show_alternative_names );
 413 # $available_languages option available only in 1.5.0. removed due to $languages
 414 # implementation changes. options are provided by limit_languages plugin
 415 # $available_languages = 'all'            if ( !$available_languages );
 416 $aggressive_decoding = 'false'          if ( !$aggressive_decoding );
 417 # available only in 1.5.0 and 1.5.1
 418 # $advanced_tree = 'false'                if ( !$advanced_tree );
 419 $use_php_recode = 'false'               if ( !$use_php_recode );
 420 $use_php_iconv = 'false'                if ( !$use_php_iconv );
 421
 422 # since 1.5.1
 423 $use_icons = 'false'                    if ( !$use_icons );
 424 $use_iframe = 'false'                   if ( !$use_iframe );
 425 $lossy_encoding = 'false'               if ( !$lossy_encoding );
 426 $allow_remote_configtest = 'false'      if ( !$allow_remote_configtest );
 427 $secured_config = 'true'                if ( !$secured_config );
 428
 429 $sm_debug_mode = 'SM_DEBUG_MODE_MODERATE' if ( !$sm_debug_mode );
 430 #FIXME: When this is STABLE software, remove the line above and uncomment the one below:
 431 #$sm_debug_mode = 'SM_DEBUG_MODE_OFF'    if ( !$sm_debug_mode );
 432 $sm_debug_mode = convert_debug_binary_integer_to_constants($sm_debug_mode);
 433
 434 $addrbook_global_table = 'global_abook' if ( !$addrbook_global_table );
 435 $addrbook_global_writeable = 'false'    if ( !$addrbook_global_writeable );
 436 $addrbook_global_listing = 'false'      if ( !$addrbook_global_listing );
 437 $abook_global_file = ''                 if ( !$abook_global_file);
 438 $abook_global_file_writeable = 'false'  if ( !$abook_global_file_writeable);
 439 $abook_global_file_listing = 'true'     if ( !$abook_global_file_listing );
 440 $encode_header_key = ''                 if ( !$encode_header_key );
 441 $hide_auth_header = 'false'             if ( !$hide_auth_header );
 442 $time_zone_type = '0'                   if ( !$time_zone_type );
 443 $prefs_user_size = 128                  if ( !$prefs_user_size );
 444 $prefs_key_size = 64                    if ( !$prefs_key_size );
 445 $prefs_val_size = 65536                 if ( !$prefs_val_size );
 446
 447 # add qmail-inject test here for backwards compatibility
 448 if ( !$sendmail_args && $sendmail_path =~ /qmail-inject/ ) {
 449     $sendmail_args = '';
 450 } elsif ( !$sendmail_args ) {
 451     $sendmail_args = '-i -t';
 452 }
 453
 454 $default_fontsize = ''                  if ( !$default_fontsize);
 455 $default_fontset = ''                   if ( !$default_fontset);
 456 if ( !%fontsets) {
 457     %fontsets = ('serif',     'serif',
 458                  'sans',      'helvetica,arial,sans-serif',
 459                  'comicsans', 'comic sans ms,sans-serif',
 460                  'tahoma',    'tahoma,sans-serif',
 461                  'verasans',  'bitstream vera sans,verdana,sans-serif');
 462 }
 463
 464 # $use_imap_tls and $use_smtp_tls are switched to integer since 1.5.1
 465 $use_imap_tls = 0                      if ( $use_imap_tls eq 'false');
 466 $use_imap_tls = 1                      if ( $use_imap_tls eq 'true');
 467 $use_smtp_tls = 0                      if ( $use_smtp_tls eq 'false');
 468 $use_smtp_tls = 1                      if ( $use_smtp_tls eq 'true');
 469 # sorting options changed names and reversed values in 1.5.1
 470 $disable_thread_sort = 'false'         if ( !$disable_thread_sort );
 471 $disable_server_sort = 'false'         if ( !$disable_server_sort );
 472
 473 # since 1.5.2
 474 $abook_file_line_length = 2048         if ( !$abook_file_line_length );
 475 $config_location_base = ''             if ( !$config_location_base );
 476 $smtp_sitewide_user = ''               if ( !$smtp_sitewide_user );
 477 $smtp_sitewide_pass = ''               if ( !$smtp_sitewide_pass );
 478 $icon_theme_def = ''                   if ( !$icon_theme_def );
 479 $disable_plugins = 'false'             if ( !$disable_plugins );
 480 $disable_plugins_user = ''             if ( !$disable_plugins_user );
 481 $only_secure_cookies = 'true'          if ( !$only_secure_cookies );
 482 $ask_user_info = 'true'                if ( !$ask_user_info );
 483
 484 if ( $ARGV[0] eq '--install-plugin' ) {
 485     print "Activating plugin " . $ARGV[1] . "\n";
 486     if ( -d "../plugins/" . $ARGV[1]) {
 487         push @plugins, $ARGV[1];
 488         save_data();
 489         exit(0);
 490     } else {
 491         print "No such plugin.\n";
 492         exit(1);
 493     }
 494 } elsif ( $ARGV[0] eq '--remove-plugin' ) {
 495     print "Removing plugin " . $ARGV[1] . "\n";
 496     foreach $plugin (@plugins) {
 497         if ( $plugin ne $ARGV[1] ) {
 498             push @newplugins, $plugin;
 499         }
 500     }
 501     @plugins = @newplugins;
 502     save_data();
 503     exit(0);
 504 } elsif ( $ARGV[0] eq '--update-plugins' or $ARGV[0] eq '-u') {
 505     build_plugin_hook_array();
 506     exit(0);
 507 } elsif ( $ARGV[0] eq '--help' or $ARGV[0] eq '-h') {
 508     print "SquirrelMail Configuration Script\n";
 509     print "Usage:\n";
 510     print " * No arguments: initiates the configuration dialog\n";
 511     print " * --install-plugin <plugin> : activates the specified plugin\n";
 512     print " * --remove-plugin <plugin>  : deactivates the specified plugin\n";
 513     print " * --update-plugins , -u     : rebuilds plugin_hooks.php according\n";
 514     print "                               to plugins activated in config.php\n";
 515     print " * --help , -h               : Displays this help\n";
 516     print "\n";
 517     exit(0);
 518 }
 519
 520
 521
 522 ####################################################################################
 523
 524 # used in multiple places, define once
 525 $list_supported_imap_servers =
 526     "    bincimap    = Binc IMAP server\n" .
 527     "    courier     = Courier IMAP server\n" .
 528     "    cyrus       = Cyrus IMAP server\n" .
 529     "    dovecot     = Dovecot Secure IMAP server\n" .
 530     "    exchange    = Microsoft Exchange IMAP server\n" .
 531     "    hmailserver = hMailServer\n" .
 532     "    macosx      = Mac OS X Mailserver\n" .
 533     "    mercury32   = Mercury/32\n" .
 534     "    uw          = University of Washington's IMAP server\n";
 535
 536 #####################################################################################
 537 if ( $config_use_color == 1 ) {
 538     $WHT = "\x1B[37;1m";
 539     $NRM = "\x1B[0m";
 540 } else {
 541     $WHT              = "";
 542     $NRM              = "";
 543     $config_use_color = 2;
 544 }
 545
 546 while ( ( $command ne "q" ) && ( $command ne "Q" ) && ( $command ne ":q" ) ) {
 547     clear_screen();
 548     print $WHT. "SquirrelMail Configuration : " . $NRM;
 549     if    ( $config == 1 ) { print "Read: config.php"; }
 550     elsif ( $config == 2 ) { print "Read: config_default.php"; }
 551     print " ($print_config_version)\n";
 552     print "---------------------------------------------------------\n";
 553
 554     if ( $menu == 0 ) {
 555         print $WHT. "Main Menu --\n" . $NRM;
 556         print "1.  Organization Preferences\n";
 557         print "2.  Server Settings\n";
 558         print "3.  Folder Defaults\n";
 559         print "4.  General Options\n";
 560         print "5.  User Interface\n";
 561         print "6.  Address Books\n";
 562         print "7.  Message of the Day (MOTD)\n";
 563         print "8.  Plugins\n";
 564         print "9.  Database\n";
 565         print "10. Language settings\n";
 566         print "11. Tweaks\n";
 567         print "\n";
 568         print "D.  Set pre-defined settings for specific IMAP servers\n";
 569         print "\n";
 570     } elsif ( $menu == 1 ) {
 571         print $WHT. "Organization Preferences\n" . $NRM;
 572         print "1.  Organization Name      : $WHT$org_name$NRM\n";
 573         print "2.  Organization Logo      : $WHT$org_logo$NRM\n";
 574         print "3.  Org. Logo Width/Height : $WHT($org_logo_width/$org_logo_height)$NRM\n";
 575         print "4.  Organization Title     : $WHT$org_title$NRM\n";
 576         print "5.  Signout Page           : $WHT$signout_page$NRM\n";
 577         print "6.  Top Frame              : $WHT$frame_top$NRM\n";
 578         print "7.  Provider link          : $WHT$provider_uri$NRM\n";
 579         print "8.  Provider link text     : $WHT$provider_name$NRM\n";
 580
 581         print "\n";
 582         print "R   Return to Main Menu\n";
 583     } elsif ( $menu == 2 ) {
 584         print $WHT. "Server Settings\n\n" . $NRM;
 585         print $WHT . "General" . $NRM . "\n";
 586         print "-------\n";
 587         print "1.  Domain                 : $WHT$domain$NRM\n";
 588         print "2.  Invert Time            : $WHT$invert_time$NRM\n";
 589         print "3.  Sendmail or SMTP       : $WHT";
 590         if ( lc($useSendmail) eq 'true' ) {
 591             print "Sendmail";
 592         } else {
 593             print "SMTP";
 594         }
 595         print "$NRM\n";
 596         print "\n";
 597
 598         if ( $show_imap_settings ) {
 599           print $WHT . "IMAP Settings". $NRM . "\n--------------\n";
 600           print "4.  IMAP Server            : $WHT$imapServerAddress$NRM\n";
 601           print "5.  IMAP Port              : $WHT$imapPort$NRM\n";
 602           print "6.  Authentication type    : $WHT$imap_auth_mech$NRM\n";
 603           print "7.  Secure IMAP (TLS)      : $WHT" . display_use_tls($use_imap_tls) . "$NRM\n";
 604           print "8.  Server software        : $WHT$imap_server_type$NRM\n";
 605           print "9.  Delimiter              : $WHT$optional_delimiter$NRM\n";
 606           print "\n";
 607         } elsif ( $show_smtp_settings ) {
 608           if ( lc($useSendmail) eq 'true' ) {
 609             print $WHT . "Sendmail" . $NRM . "\n--------\n";
 610             print "4.   Sendmail Path         : $WHT$sendmail_path$NRM\n";
 611             print "5.   Sendmail arguments    : $WHT$sendmail_args$NRM\n";
 612             print "6.   Header encryption key : $WHT$encode_header_key$NRM\n";
 613             print "\n";
 614           } else {
 615             print $WHT . "SMTP Settings" . $NRM . "\n-------------\n";
 616             print "4.   SMTP Server           : $WHT$smtpServerAddress$NRM\n";
 617             print "5.   SMTP Port             : $WHT$smtpPort$NRM\n";
 618             print "6.   POP before SMTP       : $WHT$pop_before_smtp$NRM\n";
 619             print "7.   SMTP Authentication   : $WHT$smtp_auth_mech" . display_smtp_sitewide_userpass() ."$NRM\n";
 620             print "8.   Secure SMTP (TLS)     : $WHT" . display_use_tls($use_smtp_tls) . "$NRM\n";
 621             print "9.   Header encryption key : $WHT$encode_header_key$NRM\n";
 622             print "\n";
 623           }
 624         }
 625
 626         if ($show_imap_settings == 0) {
 627           print "A.  Update IMAP Settings   : ";
 628           print "$WHT$imapServerAddress$NRM:";
 629           print "$WHT$imapPort$NRM ";
 630           print "($WHT$imap_server_type$NRM)\n";
 631         }
 632         if ($show_smtp_settings == 0) {
 633           if ( lc($useSendmail) eq 'true' ) {
 634             print "B.  Change Sendmail Config : $WHT$sendmail_path$NRM\n";
 635           } else {
 636             print "B.  Update SMTP Settings   : ";
 637             print "$WHT$smtpServerAddress$NRM:";
 638             print "$WHT$smtpPort$NRM\n";
 639           }
 640         }
 641         if ( $show_smtp_settings || $show_imap_settings )
 642         {
 643           print "H.  Hide " .
 644                 ($show_imap_settings ? "IMAP Server" :
 645                   (lc($useSendmail) eq 'true') ? "Sendmail" : "SMTP") . " Settings\n";
 646         }
 647
 648         print "\n";
 649         print "R   Return to Main Menu\n";
 650     } elsif ( $menu == 3 ) {
 651         print $WHT. "Folder Defaults\n" . $NRM;
 652         print "1.  Default Folder Prefix          : $WHT$default_folder_prefix$NRM\n";
 653         print "2.  Show Folder Prefix Option      : $WHT$show_prefix_option$NRM\n";
 654         print "3.  Trash Folder                   : $WHT$trash_folder$NRM\n";
 655         print "4.  Sent Folder                    : $WHT$sent_folder$NRM\n";
 656         print "5.  Drafts Folder                  : $WHT$draft_folder$NRM\n";
 657         print "6.  By default, move to trash      : $WHT$default_move_to_trash$NRM\n";
 658         print "7.  By default, save sent messages : $WHT$default_move_to_sent$NRM\n";
 659         print "8.  By default, save as draft      : $WHT$default_save_as_draft$NRM\n";
 660         print "9.  List Special Folders First     : $WHT$list_special_folders_first$NRM\n";
 661         print "10. Show Special Folders Color     : $WHT$use_special_folder_color$NRM\n";
 662         print "11. Auto Expunge                   : $WHT$auto_expunge$NRM\n";
 663         print "12. Default Sub. of INBOX          : $WHT$default_sub_of_inbox$NRM\n";
 664         print "13. Show 'Contain Sub.' Option     : $WHT$show_contain_subfolders_option$NRM\n";
 665         print "14. Default Unseen Notify          : $WHT$default_unseen_notify$NRM\n";
 666         print "15. Default Unseen Type            : $WHT$default_unseen_type$NRM\n";
 667         print "16. Auto Create Special Folders    : $WHT$auto_create_special$NRM\n";
 668         print "17. Folder Delete Bypasses Trash   : $WHT$delete_folder$NRM\n";
 669         print "18. Enable /NoSelect folder fix    : $WHT$noselect_fix_enable$NRM\n";
 670         print "\n";
 671         print "R   Return to Main Menu\n";
 672     } elsif ( $menu == 4 ) {
 673         print $WHT. "General Options\n" . $NRM;
 674         print "1.  Data Directory               : $WHT$data_dir$NRM\n";
 675         print "2.  Attachment Directory         : $WHT$attachment_dir$NRM\n";
 676         print "3.  Directory Hash Level         : $WHT$dir_hash_level$NRM\n";
 677         print "4.  Default Left Size            : $WHT$default_left_size$NRM\n";
 678         print "5.  Usernames in Lowercase       : $WHT$force_username_lowercase$NRM\n";
 679         print "6.  Allow use of priority        : $WHT$default_use_priority$NRM\n";
 680         print "7.  Hide SM attributions         : $WHT$hide_sm_attributions$NRM\n";
 681         print "8.  Allow use of receipts        : $WHT$default_use_mdn$NRM\n";
 682         print "9.  Allow editing of identity    : $WHT$edit_identity$NRM\n";
 683         print "    Allow editing of name        : $WHT$edit_name$NRM\n";
 684         print "    Remove username from header  : $WHT$hide_auth_header$NRM\n";
 685         print "10. Disable server thread sort   : $WHT$disable_thread_sort$NRM\n";
 686         print "11. Disable server-side sorting  : $WHT$disable_server_sort$NRM\n";
 687         print "12. Allow server charset search  : $WHT$allow_charset_search$NRM\n";
 688         print "13. Allow advanced search        : $WHT$allow_advanced_search$NRM\n";
 689         print "14. PHP session name             : $WHT$session_name$NRM\n";
 690         print "15. Time zone configuration      : $WHT$time_zone_type$NRM\n";
 691         print "16. Location base                : $WHT$config_location_base$NRM\n";
 692         print "17. Only secure cookies if poss. : $WHT$only_secure_cookies$NRM\n";
 693         print "\n";
 694         print "R   Return to Main Menu\n";
 695     } elsif ( $menu == 5 ) {
 696         print $WHT. "User Interface\n" . $NRM;
 697         print "1.  Use Icons?                   : $WHT$use_icons$NRM\n";
 698 #        print "3.  Default Icon Set             : $WHT$icon_theme_def$NRM\n";
 699         print "2.  Default font size            : $WHT$default_fontsize$NRM\n";
 700         print "3.  Manage template sets (skins)\n";
 701         print "4.  Manage user themes\n";
 702         print "5.  Manage font sets\n";
 703         print "6.  Manage icon themes\n";
 704
 705         print "\n";
 706         print "R   Return to Main Menu\n";
 707     } elsif ( $menu == 6 ) {
 708         print $WHT. "Address Books\n" . $NRM;
 709         print "1.  Change LDAP Servers\n";
 710         for ( $count = 0 ; $count <= $#ldap_host ; $count++ ) {
 711             print "    >  $ldap_host[$count]\n";
 712         }
 713         print "2.  Use Javascript address book search          : $WHT$default_use_javascript_addr_book$NRM\n";
 714         print "3.  Global address book file                    : $WHT$abook_global_file$NRM\n";
 715         print "4.  Allow writing into global file address book : $WHT$abook_global_file_writeable$NRM\n";
 716         print "5.  Allow listing of global file address book   : $WHT$abook_global_file_listing$NRM\n";
 717         print "6.  Allowed address book line length            : $WHT$abook_file_line_length$NRM\n";
 718         print "\n";
 719         print "R   Return to Main Menu\n";
 720     } elsif ( $menu == 7 ) {
 721         print $WHT. "Message of the Day (MOTD)\n" . $NRM;
 722         print "\n$motd\n";
 723         print "\n";
 724         print "1   Edit the MOTD\n";
 725         print "\n";
 726         print "R   Return to Main Menu\n";
 727     } elsif ( $menu == 8 ) {
 728         if (lc($disable_plugins) eq 'true' && $disable_plugins_user ne '') {
 729             print $WHT. "Plugins (WARNING: All plugins are currently disabled\n                  for the user \"$disable_plugins_user\"!)\n" . $NRM;
 730         } elsif (lc($disable_plugins) eq 'true') {
 731             print $WHT. "Plugins (WARNING: All plugins are currently disabled!)\n" . $NRM;
 732         } else {
 733             print $WHT. "Plugins\n" . $NRM;
 734         }
 735         print "  Installed Plugins\n";
 736         $num = 0;
 737         for ( $count = 0 ; $count <= $#plugins ; $count++ ) {
 738             $num = $count + 1;
 739             $english_name = get_plugin_english_name($plugins[$count]);
 740             if ( $english_name eq "" ) {
 741                 print "    $num. $plugins[$count]" . get_plugin_version($plugins[$count]) . "\n";
 742             } else {
 743                 print "    $num. $english_name ($plugins[$count])" . get_plugin_version($plugins[$count]) . "\n";
 744             }
 745         }
 746         print "\n  Available Plugins:\n";
 747         opendir( DIR, "../plugins" );
 748         @files          = sort(readdir(DIR));
 749         $pos            = 0;
 750         @unused_plugins = ();
 751         for ( $i = 0 ; $i <= $#files ; $i++ ) {
 752             if ( -d "../plugins/" . $files[$i] && $files[$i] !~ /^\./ && $files[$i] ne ".svn" ) {
 753                 $match = 0;
 754                 for ( $k = 0 ; $k <= $#plugins ; $k++ ) {
 755                     if ( $plugins[$k] eq $files[$i] ) {
 756                         $match = 1;
 757                     }
 758                 }
 759                 if ( $match == 0 ) {
 760                     $unused_plugins[$pos] = $files[$i];
 761                     $pos++;
 762                 }
 763             }
 764         }
 765
 766         for ( $i = 0 ; $i <= $#unused_plugins ; $i++ ) {
 767             $num = $num + 1;
 768             $english_name = get_plugin_english_name($unused_plugins[$i]);
 769             if ( $english_name eq "" ) {
 770                 print "    $num. $unused_plugins[$i]" . get_plugin_version($unused_plugins[$i]) . "\n";
 771             } else {
 772                 print "    $num. $english_name ($unused_plugins[$i])" . get_plugin_version($unused_plugins[$i]) . "\n";
 773             }
 774         }
 775         closedir DIR;
 776
 777         print "\n";
 778         if (lc($disable_plugins) eq 'true' && $disable_plugins_user ne '') {
 779             print "E   Enable active plugins (all plugins currently\n    disabled for the user \"$disable_plugins_user\")\n";
 780         } elsif (lc($disable_plugins) eq 'true') {
 781             print "E   Enable active plugins (all plugins currently\n    disabled)\n";
 782         } else {
 783             print "D   Disable all plugins\n";
 784         }
 785         print "U   Set the user for whom plugins can be disabled\n";
 786         print "R   Return to Main Menu\n";
 787     } elsif ( $menu == 9 ) {
 788         print $WHT. "Database\n" . $NRM;
 789         print "1.  DSN for Address Book   : $WHT$addrbook_dsn$NRM\n";
 790         print "2.  Table for Address Book : $WHT$addrbook_table$NRM\n";
 791         print "\n";
 792         print "3.  DSN for Preferences    : $WHT$prefs_dsn$NRM\n";
 793         print "4.  Table for Preferences  : $WHT$prefs_table$NRM\n";
 794         print "5.  Field for username     : $WHT$prefs_user_field$NRM ($prefs_user_size)\n";
 795         print "6.  Field for prefs key    : $WHT$prefs_key_field$NRM ($prefs_key_size)\n";
 796         print "7.  Field for prefs value  : $WHT$prefs_val_field$NRM ($prefs_val_size)\n";
 797         print "\n";
 798         print "8.  DSN for Global Address Book            : $WHT$addrbook_global_dsn$NRM\n";
 799         print "9.  Table for Global Address Book          : $WHT$addrbook_global_table$NRM\n";
 800         print "10. Allow writing into Global Address Book : $WHT$addrbook_global_writeable$NRM\n";
 801         print "11. Allow listing of Global Address Book   : $WHT$addrbook_global_listing$NRM\n";
 802         print "\n";
 803         print "R   Return to Main Menu\n";
 804     } elsif ( $menu == 10 ) {
 805     print $WHT. "Language settings\n" . $NRM;
 806     print "1.  Default Language                : $WHT$squirrelmail_default_language$NRM\n";
 807     print "2.  Default Charset                 : $WHT$default_charset$NRM\n";
 808     print "3.  Show alternative language names : $WHT$show_alternative_names$NRM\n";
 809     print "4.  Enable aggressive decoding      : $WHT$aggressive_decoding$NRM\n";
 810     print "5.  Enable lossy encoding           : $WHT$lossy_encoding$NRM\n";
 811     print "\n";
 812         print "R   Return to Main Menu\n";
 813     } elsif ( $menu == 11 ) {
 814     print $WHT. "Interface tweaks\n" . $NRM;
 815     print "1.  Display html mails in iframe : $WHT$use_iframe$NRM\n";
 816     print "2.  Ask user info on first login : $WHT$ask_user_info$NRM\n";
 817     print "\n";
 818     print $WHT. "PHP tweaks\n" . $NRM;
 819     print "4.  Use php recode functions     : $WHT$use_php_recode$NRM\n";
 820     print "5.  Use php iconv functions      : $WHT$use_php_iconv$NRM\n";
 821     print "\n";
 822     print $WHT. "Configuration tweaks\n" . $NRM;
 823     print "6.  Allow remote configtest     : $WHT$allow_remote_configtest$NRM\n";
 824     print "7.  Debug mode                  : $WHT$sm_debug_mode$NRM\n";
 825     print "8.  Secured configuration mode  : $WHT$secured_config$NRM\n";
 826     print "\n";
 827         print "R   Return to Main Menu\n";
 828     }
 829     if ( $config_use_color == 1 ) {
 830         print "C   Turn color off\n";
 831     } else {
 832         print "C   Turn color on\n";
 833     }
 834     print "S   Save data\n";
 835     print "Q   Quit\n";
 836
 837     print "\n";
 838     print "Command >> " . $WHT;
 839     $command = <STDIN>;
 840     $command =~ s/[\n\r]//g;
 841     $command =~ tr/A-Z/a-z/;
 842     print "$NRM\n";
 843
 844     # Read the commands they entered.
 845     if ( $command eq "r" ) {
 846         $menu = 0;
 847     } elsif ( $command eq "s" ) {
 848         save_data();
 849         print "Press enter to continue...";
 850         $tmp   = <STDIN>;
 851         $saved = 1;
 852     } elsif ( ( $command eq "q" ) && ( $saved == 0 ) ) {
 853         print "You have not saved your data.\n";
 854         print "Save?  [" . $WHT . "Y" . $NRM . "/n]: ";
 855         $save = <STDIN>;
 856         if ( ( $save =~ /^y/i ) || ( $save =~ /^\s*$/ ) ) {
 857             save_data();
 858         }
 859     } elsif ( $command eq "c" ) {
 860         if ( $config_use_color == 1 ) {
 861             $config_use_color = 2;
 862             $WHT              = "";
 863             $NRM              = "";
 864         } else {
 865             $config_use_color = 1;
 866             $WHT              = "\x1B[37;1m";
 867             $NRM              = "\x1B[0m";
 868         }
 869     } elsif ( $command eq "d" && $menu == 0 ) {
 870         set_defaults();
 871     } else {
 872         $saved = 0;
 873         if ( $menu == 0 ) {
 874             if ( ( $command > 0 ) && ( $command < 12 ) ) {
 875                 $menu = $command;
 876             }
 877         } elsif ( $menu == 1 ) {
 878             if    ( $command == 1 ) { $org_name                      = command1(); }
 879             elsif ( $command == 2 ) { $org_logo                      = command2(); }
 880             elsif ( $command == 3 ) { ($org_logo_width,$org_logo_height)  = command2a(); }
 881             elsif ( $command == 4 ) { $org_title                     = command3(); }
 882             elsif ( $command == 5 ) { $signout_page                  = command4(); }
 883             elsif ( $command == 6 ) { $frame_top                     = command6(); }
 884             elsif ( $command == 7 ) { $provider_uri                  = command7(); }
 885             elsif ( $command == 8 ) { $provider_name                 = command8(); }
 886
 887         } elsif ( $menu == 2 ) {
 888             if ( $command eq "a" )    { $show_imap_settings = 1; $show_smtp_settings = 0; }
 889             elsif ( $command eq "b" ) { $show_imap_settings = 0; $show_smtp_settings = 1; }
 890             elsif ( $command eq "h" ) { $show_imap_settings = 0; $show_smtp_settings = 0; }
 891             elsif ( $command <= 3 ) {
 892               if    ( $command == 1 )  { $domain                 = command11(); }
 893               elsif ( $command == 2 )  { $invert_time            = command110(); }
 894               elsif ( $command == 3 )  { $useSendmail            = command14(); }
 895               $show_imap_settings = 0; $show_smtp_settings = 0;
 896             } elsif ( $show_imap_settings ) {
 897               if    ( $command == 4 )  { $imapServerAddress      = command12(); }
 898               elsif ( $command == 5 )  { $imapPort               = command13(); }
 899               elsif ( $command == 6 )  { $imap_auth_mech     = command112a(); }
 900               elsif ( $command == 7 )  { $use_imap_tls       = command_use_tls("IMAP",$use_imap_tls); }
 901               elsif ( $command == 8 )  { $imap_server_type       = command19(); }
 902               elsif ( $command == 9 )  { $optional_delimiter     = command111(); }
 903             } elsif ( $show_smtp_settings && lc($useSendmail) eq 'true' ) {
 904               if    ( $command == 4 )  { $sendmail_path          = command15(); }
 905               elsif ( $command == 5 )  { $sendmail_args          = command_sendmail_args(); }
 906               elsif ( $command == 6 )  { $encode_header_key      = command114(); }
 907             } elsif ( $show_smtp_settings ) {
 908               if    ( $command == 4 )  { $smtpServerAddress      = command16(); }
 909               elsif ( $command == 5 )  { $smtpPort               = command17(); }
 910               elsif ( $command == 6 )  { $pop_before_smtp        = command18a(); }
 911               elsif ( $command == 7 )  { $smtp_auth_mech    = command112b(); }
 912               elsif ( $command == 8 )  { $use_smtp_tls      = command_use_tls("SMTP",$use_smtp_tls); }
 913               elsif ( $command == 9 )  { $encode_header_key      = command114(); }
 914             }
 915         } elsif ( $menu == 3 ) {
 916             if    ( $command == 1 )  { $default_folder_prefix          = command21(); }
 917             elsif ( $command == 2 )  { $show_prefix_option             = command22(); }
 918             elsif ( $command == 3 )  { $trash_folder                   = command23a(); }
 919             elsif ( $command == 4 )  { $sent_folder                    = command23b(); }
 920             elsif ( $command == 5 )  { $draft_folder                   = command23c(); }
 921             elsif ( $command == 6 )  { $default_move_to_trash          = command24a(); }
 922             elsif ( $command == 7 )  { $default_move_to_sent           = command24b(); }
 923             elsif ( $command == 8 )  { $default_save_as_draft          = command24c(); }
 924             elsif ( $command == 9 )  { $list_special_folders_first     = command27(); }
 925             elsif ( $command == 10 ) { $use_special_folder_color       = command28(); }
 926             elsif ( $command == 11 ) { $auto_expunge                   = command29(); }
 927             elsif ( $command == 12 ) { $default_sub_of_inbox           = command210(); }
 928             elsif ( $command == 13 ) { $show_contain_subfolders_option = command211(); }
 929             elsif ( $command == 14 ) { $default_unseen_notify          = command212(); }
 930             elsif ( $command == 15 ) { $default_unseen_type            = command213(); }
 931             elsif ( $command == 16 ) { $auto_create_special            = command214(); }
 932             elsif ( $command == 17 ) { $delete_folder                  = command215(); }
 933             elsif ( $command == 18 ) { $noselect_fix_enable            = command216(); }
 934         } elsif ( $menu == 4 ) {
 935             if    ( $command == 1 )  { $data_dir                 = command33a(); }
 936             elsif ( $command == 2 )  { $attachment_dir           = command33b(); }
 937             elsif ( $command == 3 )  { $dir_hash_level           = command33c(); }
 938             elsif ( $command == 4 )  { $default_left_size        = command35(); }
 939             elsif ( $command == 5 )  { $force_username_lowercase = command36(); }
 940             elsif ( $command == 6 )  { $default_use_priority     = command37(); }
 941             elsif ( $command == 7 )  { $hide_sm_attributions     = command38(); }
 942             elsif ( $command == 8 )  { $default_use_mdn          = command39(); }
 943             elsif ( $command == 9 )  { $edit_identity            = command310(); }
 944             elsif ( $command == 10 ) { $disable_thread_sort     = command312(); }
 945             elsif ( $command == 11 ) { $disable_server_sort     = command313(); }
 946             elsif ( $command == 12 ) { $allow_charset_search     = command314(); }
 947             elsif ( $command == 13 ) { $allow_advanced_search    = command316(); }
 948             elsif ( $command == 14 ) { $session_name             = command317(); }
 949             elsif ( $command == 15 ) { $time_zone_type           = command318(); }
 950             elsif ( $command == 16 ) { $config_location_base     = command_config_location_base(); }
 951             elsif ( $command == 17 ) { $only_secure_cookies = command319(); }
 952         } elsif ( $menu == 5 ) {
 953             if ( $command == 1 )     { $use_icons      = commandB3(); }
 954 #            elsif ( $command == 3 )  { $icon_theme_def = commandB7(); }
 955             elsif ( $command == 2 )  { $default_fontsize = command_default_fontsize(); }
 956             elsif ( $command == 3 )  { $templateset_default = command_templates(); }
 957             elsif ( $command == 4 )  { command_userThemes(); }
 958             elsif ( $command == 5 )  { command_fontsets(); }
 959             elsif ( $command == 6 )  { command_iconSets(); }
 960         } elsif ( $menu == 6 ) {
 961             if    ( $command == 1 ) { command61(); }
 962             elsif ( $command == 2 ) { command62(); }
 963             elsif ( $command == 3 ) { $abook_global_file=command63(); }
 964             elsif ( $command == 4 ) { command64(); }
 965             elsif ( $command == 5 ) { command65(); }
 966             elsif ( $command == 6 ) { command_abook_file_line_length(); }
 967         } elsif ( $menu == 7 ) {
 968             if ( $command == 1 ) { $motd = command71(); }
 969         } elsif ( $menu == 8 ) {
 970             if    ( $command =~ /^[0-9]+/ ) { @plugins              = command81(); }
 971             elsif ( $command eq "u" )       { $disable_plugins_user = command82(); }
 972             elsif ( $command eq "d" )       { $disable_plugins      = 'true'; }
 973             elsif ( $command eq "e" )       { $disable_plugins      = 'false'; }
 974         } elsif ( $menu == 9 ) {
 975             if    ( $command == 1 ) { $addrbook_dsn     = command91(); }
 976             elsif ( $command == 2 ) { $addrbook_table   = command92(); }
 977             elsif ( $command == 3 ) { $prefs_dsn        = command93(); }
 978             elsif ( $command == 4 ) { $prefs_table      = command94(); }
 979             elsif ( $command == 5 ) { $prefs_user_field = command95(); }
 980             elsif ( $command == 6 ) { $prefs_key_field  = command96(); }
 981             elsif ( $command == 7 ) { $prefs_val_field  = command97(); }
 982             elsif ( $command == 8 ) { $addrbook_global_dsn       = command98(); }
 983             elsif ( $command == 9 ) { $addrbook_global_table     = command99(); }
 984             elsif ( $command == 10 ) { $addrbook_global_writeable = command910(); }
 985             elsif ( $command == 11 ) { $addrbook_global_listing  = command911(); }
 986         } elsif ( $menu == 10 ) {
 987             if    ( $command == 1 ) { $squirrelmail_default_language = commandA1(); }
 988             elsif ( $command == 2 ) { $default_charset               = commandA2(); }
 989             elsif ( $command == 3 ) { $show_alternative_names        = commandA3(); }
 990             elsif ( $command == 4 ) { $aggressive_decoding           = commandA4(); }
 991             elsif ( $command == 5 ) { $lossy_encoding                = commandA5(); }
 992         } elsif ( $menu == 11 ) {
 993             if    ( $command == 1 ) { $use_iframe     = commandB2(); }
 994             elsif ( $command == 2 ) { $ask_user_info  = command_ask_user_info(); }
 995             elsif ( $command == 4 ) { $use_php_recode = commandB4(); }
 996             elsif ( $command == 5 ) { $use_php_iconv  = commandB5(); }
 997             elsif ( $command == 6 ) { $allow_remote_configtest = commandB6(); }
 998             elsif ( $command == 7 ) { $sm_debug_mode = commandB8(); }
 999             elsif ( $command == 8 ) { $secured_config = commandB9(); }
1000         }
1001     }
1002 }
1003
1004 # we exit here
1005 print "\nExiting conf.pl.\n".
1006     "You might want to test your configuration by browsing to\n".
1007     "http://your-squirrelmail-location/src/configtest.php\n".
1008     "Happy SquirrelMailing!\n\n";
1009
1010
1011 ####################################################################################
1012
1013 # org_name
1014 sub command1 {
1015     print "We have tried to make the name SquirrelMail as transparent as\n";
1016     print "possible.  If you set up an organization name, most places where\n";
1017     print "SquirrelMail would take credit will be credited to your organization.\n";
1018     print "\n";
1019     print "If your Organization Name includes a '\$', please precede it with a \\. \n";
1020     print "Other '\$' will be considered the beginning of a variable that\n";
1021     print "must be defined before the \$org_name is printed.\n";
1022     print "\n";
1023     print "[$WHT$org_name$NRM]: $WHT";
1024     $new_org_name = <STDIN>;
1025     if ( $new_org_name eq "\n" ) {
1026         $new_org_name = $org_name;
1027     } else {
1028         $new_org_name =~ s/[\r\n]//g;
1029     $new_org_name =~ s/\"/&quot;/g;
1030     }
1031     return $new_org_name;
1032 }
1033
1034 # org_logo
1035 sub command2 {
1036     print "Your organization's logo is an image that will be displayed at\n";
1037     print "different times throughout SquirrelMail. ";
1038     print "\n";
1039     print "Please be aware of the following: \n";
1040     print "  - Relative URLs are relative to the config dir\n";
1041     print "    to use the default logo, use ../images/sm_logo.png\n";
1042     print "  - To specify a logo defined outside the SquirrelMail source tree\n";
1043     print "    use the absolute URL the webserver would use to include the file\n";
1044     print "    e.g. http://example.com/images/mylogo.gif or /images/mylogo.jpg\n";
1045     print "\n";
1046     print "[$WHT$org_logo$NRM]: $WHT";
1047     $new_org_logo = <STDIN>;
1048     if ( $new_org_logo eq "\n" ) {
1049         $new_org_logo = $org_logo;
1050     } else {
1051         $new_org_logo =~ s/[\r\n]//g;
1052     }
1053     return $new_org_logo;
1054 }
1055
1056 # org_logo_width
1057 sub command2a {
1058     print "Your organization's logo is an image that will be displayed at\n";
1059     print "different times throughout SquirrelMail.  Width\n";
1060     print "and Height of your logo image.  Use '0' to disable.\n";
1061     print "\n";
1062     print "Width: [$WHT$org_logo_width$NRM]: $WHT";
1063     $new_org_logo_width = <STDIN>;
1064     $new_org_logo_width =~ tr/0-9//cd;  # only want digits!
1065     if ( $new_org_logo_width eq '' ) {
1066         $new_org_logo_width = $org_logo_width;
1067     }
1068     if ( $new_org_logo_width > 0 ) {
1069         print "Height: [$WHT$org_logo_height$NRM]: $WHT";
1070         $new_org_logo_height = <STDIN>;
1071         $new_org_logo_height =~ tr/0-9//cd;  # only want digits!
1072         if( $new_org_logo_height eq '' ) {
1073         $new_org_logo_height = $org_logo_height;
1074     }
1075     } else {
1076         $new_org_logo_height = 0;
1077     }
1078     return ($new_org_logo_width, $new_org_logo_height);
1079 }
1080
1081 # org_title
1082 sub command3 {
1083     print "A title is what is displayed at the top of the browser window in\n";
1084     print "the titlebar.  Usually this will end up looking something like:\n";
1085     print "\"Netscape: $org_title\"\n";
1086     print "\n";
1087     print "If your Organization Title includes a '\$', please precede it with a \\. \n";
1088     print "Other '\$' will be considered the beginning of a variable that\n";
1089     print "must be defined before the \$org_title is printed.\n";
1090     print "\n";
1091     print "[$WHT$org_title$NRM]: $WHT";
1092     $new_org_title = <STDIN>;
1093     if ( $new_org_title eq "\n" ) {
1094         $new_org_title = $org_title;
1095     } else {
1096         $new_org_title =~ s/[\r\n]//g;
1097     $new_org_title =~ s/\"/\'/g;
1098     }
1099     return $new_org_title;
1100 }
1101
1102 # signout_page
1103 sub command4 {
1104     print "When users click the Sign Out button they will be logged out and\n";
1105     print "then sent to signout_page.  If signout_page is left empty,\n";
1106     print "(hit space and then return) they will be taken, as normal,\n";
1107     print "to the default and rather sparse SquirrelMail signout page.\n";
1108     print "\n";
1109     print "[$WHT$signout_page$NRM]: $WHT";
1110     $new_signout_page = <STDIN>;
1111     if ( $new_signout_page eq "\n" ) {
1112         $new_signout_page = $signout_page;
1113     } else {
1114         $new_signout_page =~ s/[\r\n]//g;
1115         $new_signout_page =~ s/^\s+$//g;
1116     }
1117     return $new_signout_page;
1118 }
1119
1120 # Default top frame
1121 sub command6 {
1122     print "SquirrelMail defaults to using the whole of the browser window.\n";
1123     print "This allows you to keep it within a specified frame. The default\n";
1124     print "is '_top'\n";
1125     print "\n";
1126     print "[$WHT$frame_top$NRM]: $WHT";
1127     $new_frame_top = <STDIN>;
1128     if ( $new_frame_top eq "\n" ) {
1129         $new_frame_top = '_top';
1130     } else {
1131         $new_frame_top =~ s/[\r\n]//g;
1132         $new_frame_top =~ s/^\s+$//g;
1133     }
1134     return $new_frame_top;
1135 }
1136
1137 # Default link to provider
1138 sub command7 {
1139     print "Here you can set the link on the top-right of the message list.\n";
1140     print "If empty, it will not be displayed.\n";
1141     print "\n";
1142     print "[$WHT$provider_uri$NRM]: $WHT";
1143     $new_provider_uri = <STDIN>;
1144     if ( $new_provider_uri eq "\n" ) {
1145         $new_provider_uri = '';
1146     } else {
1147         $new_provider_uri =~ s/[\r\n]//g;
1148         $new_provider_uri =~ s/^\s+$//g;
1149     }
1150     return $new_provider_uri;
1151 }
1152
1153 sub command8 {
1154     print "Here you can set the name of the link on the top-right of the message list.\n";
1155     print "The default is empty (do not display anything).'\n";
1156     print "\n";
1157     print "[$WHT$provider_name$NRM]: $WHT";
1158     $new_provider_name = <STDIN>;
1159     if ( $new_provider_name eq "\n" ) {
1160         $new_provider_name = '';
1161     } else {
1162         $new_provider_name =~ s/[\r\n]//g;
1163         $new_provider_name =~ s/^\s+$//g;
1164         $new_provider_name =~ s/\'/\\'/g;
1165     }
1166     return $new_provider_name;
1167 }
1168
1169 ####################################################################################
1170
1171 # domain
1172 sub command11 {
1173     print "The domain name is the suffix at the end of all email addresses.  If\n";
1174     print "for example, your email address is jdoe\@example.com, then your domain\n";
1175     print "would be example.com.\n";
1176     print "\n";
1177     print "[$WHT$domain$NRM]: $WHT";
1178     $new_domain = <STDIN>;
1179     if ( $new_domain eq "\n" ) {
1180         $new_domain = $domain;
1181     } else {
1182         $new_domain =~ s/\s//g;
1183     }
1184     return $new_domain;
1185 }
1186
1187 # imapServerAddress
1188 sub command12 {
1189     print "This is the hostname where your IMAP server can be contacted.\n";
1190     print "[$WHT$imapServerAddress$NRM]: $WHT";
1191     $new_imapServerAddress = <STDIN>;
1192     if ( $new_imapServerAddress eq "\n" ) {
1193         $new_imapServerAddress = $imapServerAddress;
1194     } else {
1195         $new_imapServerAddress =~ s/[\r\n]//g;
1196     }
1197     return $new_imapServerAddress;
1198 }
1199
1200 # imapPort
1201 sub command13 {
1202     print "This is the port that your IMAP server is on.  Usually this is 143.\n";
1203     print "[$WHT$imapPort$NRM]: $WHT";
1204     $new_imapPort = <STDIN>;
1205     if ( $new_imapPort eq "\n" ) {
1206         $new_imapPort = $imapPort;
1207     } else {
1208         $new_imapPort =~ s/[\r\n]//g;
1209     }
1210     return $new_imapPort;
1211 }
1212
1213 # useSendmail
1214 sub command14 {
1215     print "You now need to choose the method that you will use for sending\n";
1216     print "messages in SquirrelMail.  You can either connect to an SMTP server\n";
1217     print "or use sendmail directly.\n";
1218     if ( lc($useSendmail) eq 'true' ) {
1219         $default_value = "1";
1220     } else {
1221         $default_value = "2";
1222     }
1223     print "\n";
1224     print "  1.  Sendmail\n";
1225     print "  2.  SMTP\n";
1226     print "Your choice [1/2] [$WHT$default_value$NRM]: $WHT";
1227     $use_sendmail = <STDIN>;
1228     if ( ( $use_sendmail =~ /^1\n/i )
1229         || ( ( $use_sendmail =~ /^\n/ ) && ( $default_value eq "1" ) ) ) {
1230         $useSendmail = 'true';
1231         } else {
1232         $useSendmail = 'false';
1233         }
1234     return $useSendmail;
1235 }
1236
1237 # sendmail_path
1238 sub command15 {
1239     print "Specify where the sendmail executable is located.  Usually /usr/sbin/sendmail\n";
1240     print "[$WHT$sendmail_path$NRM]: $WHT";
1241     $new_sendmail_path = <STDIN>;
1242     if ( $new_sendmail_path eq "\n" ) {
1243         $new_sendmail_path = $sendmail_path;
1244     } else {
1245         $new_sendmail_path =~ s/[\r\n]//g;
1246     }
1247     return $new_sendmail_path;
1248 }
1249
1250 # Extra sendmail arguments
1251 sub command_sendmail_args {
1252     print "Specify additional sendmail program arguments.\n";
1253     print "\n";
1254     print "Make sure that arguments are supported by your sendmail program. -f argument \n";
1255     print "is added automatically by SquirrelMail scripts. Variable defaults to standard\n";
1256     print "/usr/sbin/sendmail arguments. If you use qmail-inject, nbsmtp or any other \n";
1257     print "sendmail wrapper, which does not support -i and -t arguments, set variable to\n";
1258     print "empty string or use arguments suitable for your mailer.\n";
1259     print "\n";
1260     print "[$WHT$sendmail_args$NRM]: $WHT";
1261     $new_sendmail_args = <STDIN>;
1262     if ( $new_sendmail_args eq "\n" ) {
1263         $new_sendmail_args = $sendmail_args;
1264     } else {
1265         # strip linefeeds and crs.
1266         $new_sendmail_args =~ s/[\r\n]//g;
1267     }
1268     return trim($new_sendmail_args);
1269 }
1270
1271 # smtpServerAddress
1272 sub command16 {
1273     print "This is the hostname of your SMTP server.\n";
1274     print "[$WHT$smtpServerAddress$NRM]: $WHT";
1275     $new_smtpServerAddress = <STDIN>;
1276     if ( $new_smtpServerAddress eq "\n" ) {
1277         $new_smtpServerAddress = $smtpServerAddress;
1278     } else {
1279         $new_smtpServerAddress =~ s/[\r\n]//g;
1280     }
1281     return $new_smtpServerAddress;
1282 }
1283
1284 # smtpPort
1285 sub command17 {
1286     print "This is the port to connect to for SMTP.  Usually 25.\n";
1287     print "[$WHT$smtpPort$NRM]: $WHT";
1288     $new_smtpPort = <STDIN>;
1289     if ( $new_smtpPort eq "\n" ) {
1290         $new_smtpPort = $smtpPort;
1291     } else {
1292         $new_smtpPort =~ s/[\r\n]//g;
1293     }
1294     return $new_smtpPort;
1295 }
1296
1297 # pop before SMTP
1298 sub command18a {
1299     print "Do you wish to use POP3 before SMTP?  Your server must\n";
1300     print "support this in order for SquirrelMail to work with it.\n";
1301
1302     $YesNo = 'n';
1303     $YesNo = 'y' if ( lc($pop_before_smtp) eq 'true' );
1304
1305     print "Use pop before SMTP (y/n) [$WHT$YesNo$NRM]: $WHT";
1306
1307     $new_pop_before_smtp = <STDIN>;
1308     $new_pop_before_smtp =~ tr/yn//cd;
1309     return 'true'  if ( $new_pop_before_smtp eq "y" );
1310     return 'false'  if ( $new_pop_before_smtp eq "n" );
1311     return $pop_before_smtp;
1312 }
1313
1314 # imap_server_type
1315 sub command19 {
1316     print "Each IMAP server has its own quirks.  As much as we tried to stick\n";
1317     print "to standards, it doesn't help much if the IMAP server doesn't follow\n";
1318     print "the same principles.  We have made some work-arounds for some of\n";
1319     print "these servers.  If you would like to use them, please select your\n";
1320     print "IMAP server.  If you do not wish to use these work-arounds, you can\n";
1321     print "set this to \"other\", and none will be used.\n";
1322     print $list_supported_imap_servers;
1323     print "\n";
1324     print "    other       = Not one of the above servers\n";
1325     print "\n";
1326     print "[$WHT$imap_server_type$NRM]: $WHT";
1327     $new_imap_server_type = <STDIN>;
1328
1329     if ( $new_imap_server_type eq "\n" ) {
1330         $new_imap_server_type = $imap_server_type;
1331     } else {
1332         $new_imap_server_type =~ s/[\r\n]//g;
1333     }
1334     return $new_imap_server_type;
1335 }
1336
1337 # invert_time
1338 sub command110 {
1339     print "Sometimes the date of messages sent is messed up (off by a few hours\n";
1340     print "on some machines).  Typically this happens if the system doesn't support\n";
1341     print "tm_gmtoff.  It will happen only if your time zone is \"negative\".\n";
1342     print "This most often occurs on Solaris 7 machines in the United States.\n";
1343     print "By default, this is off.  It should be kept off unless problems surface\n";
1344     print "about the time that messages are sent.\n";
1345     print "    no  = Do NOT fix time -- almost always correct\n";
1346     print "    yes = Fix the time for this system\n";
1347
1348     $YesNo = 'n';
1349     $YesNo = 'y' if ( lc($invert_time) eq 'true' );
1350
1351     print "Fix the time for this system (y/n) [$WHT$YesNo$NRM]: $WHT";
1352
1353     $new_invert_time = <STDIN>;
1354     $new_invert_time =~ tr/yn//cd;
1355     return 'true'  if ( $new_invert_time eq "y" );
1356     return 'false' if ( $new_invert_time eq "n" );
1357     return $invert_time;
1358 }
1359
1360 sub command111 {
1361     print "This is the delimiter that your IMAP server uses to distinguish between\n";
1362     print "folders.  For example, Cyrus uses '.' as the delimiter and a complete\n";
1363     print "folder would look like 'INBOX.Friends.Bob', while UW uses '/' and would\n";
1364     print "look like 'INBOX/Friends/Bob'.  Normally this should be left at 'detect'\n";
1365     print "but if you are sure you know what delimiter your server uses, you can\n";
1366     print "specify it here.\n";
1367     print "\nTo have it autodetect the delimiter, set it to 'detect'.\n\n";
1368     print "[$WHT$optional_delimiter$NRM]: $WHT";
1369     $new_optional_delimiter = <STDIN>;
1370
1371     if ( $new_optional_delimiter eq "\n" ) {
1372         $new_optional_delimiter = $optional_delimiter;
1373     } else {
1374         $new_optional_delimiter =~ s/[\r\n]//g;
1375     }
1376     return $new_optional_delimiter;
1377 }
1378 # IMAP authentication type
1379 # Possible values: login, plain, cram-md5, digest-md5
1380 # Now offers to detect supported mechs, assuming server & port are set correctly
1381
1382 sub command112a {
1383     if ($use_imap_tls ne "0") {
1384         # 1. Script does not handle TLS.
1385         # 2. Server does not have to declare all supported authentication mechs when
1386         #    STARTTLS is used. Supported mechs are declared only after STARTTLS.
1387         print "Auto-detection of login methods is unavailable when using TLS or STARTTLS.\n";
1388     } else {
1389         print "If you have already set the hostname and port number, I can try to\n";
1390         print "detect the mechanisms your IMAP server supports.\n";
1391         print "I will try to detect CRAM-MD5 and DIGEST-MD5 support.  I can't test\n";
1392         print "for \"login\" or \"plain\" without knowing a username and password.\n";
1393         print "Auto-detecting is optional - you can safely say \"n\" here.\n";
1394         print "\nTry to detect supported mechanisms? [y/N]: ";
1395         $inval=<STDIN>;
1396         chomp($inval);
1397         if ($inval =~ /^y\b/i) {
1398           # Yes, let's try to detect.
1399           print "Trying to detect IMAP capabilities...\n";
1400           my $host = $imapServerAddress . ':'. $imapPort;
1401           print "CRAM-MD5:\t";
1402           my $tmp = detect_auth_support('IMAP',$host,'CRAM-MD5');
1403           if (defined($tmp)) {
1404               if ($tmp eq 'YES') {
1405                   print "$WHT SUPPORTED$NRM\n";
1406               } else {
1407                 print "$WHT NOT SUPPORTED$NRM\n";
1408               }
1409           } else {
1410             print $WHT . " ERROR DETECTING$NRM\n";
1411           }
1412
1413           print "DIGEST-MD5:\t";
1414           $tmp = detect_auth_support('IMAP',$host,'DIGEST-MD5');
1415           if (defined($tmp)) {
1416               if ($tmp eq 'YES') {
1417                 print "$WHT SUPPORTED$NRM\n";
1418             } else {
1419                 print "$WHT NOT SUPPORTED$NRM\n";
1420             }
1421           } else {
1422             print $WHT . " ERROR DETECTING$NRM\n";
1423           }
1424
1425         }
1426     }
1427       print "\nWhat authentication mechanism do you want to use for IMAP connections?\n\n";
1428       print $WHT . "login" . $NRM . " - Plaintext. If you can do better, you probably should.\n";
1429       print $WHT . "plain" . $NRM . " - SASL PLAIN. If you need this, you already know it.\n";
1430       print $WHT . "cram-md5" . $NRM . " - Slightly better than plaintext methods.\n";
1431       print $WHT . "digest-md5" . $NRM . " - Privacy protection - better than cram-md5.\n";
1432       print "\n*** YOUR IMAP SERVER MUST SUPPORT THE MECHANISM YOU CHOOSE HERE ***\n";
1433       print "If you don't understand or are unsure, you probably want \"login\"\n\n";
1434       print "login, plain, cram-md5, or digest-md5 [$WHT$imap_auth_mech$NRM]: $WHT";
1435       $inval=<STDIN>;
1436       chomp($inval);
1437       if ( ($inval =~ /^cram-md5\b/i) || ($inval =~ /^digest-md5\b/i) || ($inval =~ /^login\b/i) || ($inval =~ /^plain\b/i)) {
1438         return lc($inval);
1439       } else {
1440         # user entered garbage or default value so nothing needs to be set
1441         return $imap_auth_mech;
1442       }
1443 }
1444
1445
1446 # SMTP authentication type
1447 # Possible choices: none, plain, cram-md5, digest-md5
1448 sub command112b {
1449     if ($use_smtp_tls ne "0") {
1450         print "Auto-detection of login methods is unavailable when using TLS or STARTTLS.\n";
1451     } elsif (eval ("use IO::Socket; 1")) {
1452         # try loading IO::Socket module
1453         print "If you have already set the hostname and port number, I can try to\n";
1454         print "automatically detect some of the mechanisms your SMTP server supports.\n";
1455         print "Auto-detection is *optional* - you can safely say \"n\" here.\n";
1456         print "\nTry to detect auth mechanisms? [y/N]: ";
1457         $inval=<STDIN>;
1458         chomp($inval);
1459         if ($inval =~ /^y\b/i) {
1460             # Yes, let's try to detect.
1461             print "Trying to detect supported methods (SMTP)...\n";
1462
1463             # Special case!
1464             # Check none by trying to relay to junk@microsoft.com
1465             $host = $smtpServerAddress . ':' . $smtpPort;
1466             my $sock = IO::Socket::INET->new($host);
1467             print "Testing none:\t\t$WHT";
1468             if (!defined($sock)) {
1469                 print " ERROR TESTING\n";
1470                 close $sock;
1471             } else {
1472                 $got = <$sock>;  # Discard greeting
1473                 print $sock "HELO $domain\r\n";
1474                 $got = <$sock>;  # Discard
1475                 print $sock "MAIL FROM:<tester\@squirrelmail.org>\r\n";
1476                 $got = <$sock>;  # Discard
1477                 print $sock "RCPT TO:<junk\@microsoft.com\r\n";
1478                 $got = <$sock>;  # This is the important line
1479                 if ($got =~ /^250\b/) {  # SMTP will relay without auth
1480                     print "SUPPORTED$NRM\n";
1481                 } else {
1482                   print "NOT SUPPORTED$NRM\n";
1483                 }
1484                 print $sock "RSET\r\n";
1485                 print $sock "QUIT\r\n";
1486                 close $sock;
1487             }
1488             # Try login (SquirrelMail default)
1489             print "Testing login:\t\t";
1490             $tmp=detect_auth_support('SMTP',$host,'LOGIN');
1491             if (defined($tmp)) {
1492                 if ($tmp eq 'YES') {
1493                     print $WHT . "SUPPORTED$NRM\n";
1494                 } else {
1495                     print $WHT . "NOT SUPPORTED$NRM\n";
1496                 }
1497               } else {
1498                   print $WHT . "ERROR DETECTING$NRM\n";
1499               }
1500
1501             # Try CRAM-MD5
1502             print "Testing CRAM-MD5:\t";
1503             $tmp=detect_auth_support('SMTP',$host,'CRAM-MD5');
1504             if (defined($tmp)) {
1505                 if ($tmp eq 'YES') {
1506                     print $WHT . "SUPPORTED$NRM\n";
1507                 } else {
1508                     print $WHT . "NOT SUPPORTED$NRM\n";
1509                 }
1510               } else {
1511                   print $WHT . "ERROR DETECTING$NRM\n";
1512             }
1513
1514
1515             print "Testing DIGEST-MD5:\t";
1516             $tmp=detect_auth_support('SMTP',$host,'DIGEST-MD5');
1517             if (defined($tmp)) {
1518                 if ($tmp eq 'YES') {
1519                     print $WHT . "SUPPORTED$NRM\n";
1520                 } else {
1521                     print $WHT . "NOT SUPPORTED$NRM\n";
1522                 }
1523               } else {
1524                   print $WHT . "ERROR DETECTING$NRM\n";
1525             }
1526         }
1527     }
1528     print "\nWhat authentication mechanism do you want to use for SMTP connections?\n";
1529     print $WHT . "none" . $NRM . " - Your SMTP server does not require authorization.\n";
1530     print $WHT . "login" . $NRM . " - Plaintext. If you can do better, you probably should.\n";
1531     print $WHT . "plain" . $NRM . " - SASL PLAIN.  You already know it if you need this.\n";
1532     print $WHT . "cram-md5" . $NRM . " - Slightly better than plaintext.\n";
1533     print $WHT . "digest-md5" . $NRM . " - Privacy protection - better than cram-md5.\n";
1534     print $WHT . "\n*** YOUR SMTP SERVER MUST SUPPORT THE MECHANISM YOU CHOOSE HERE ***\n" . $NRM;
1535     print "If you don't understand or are unsure, you probably want \"none\"\n\n";
1536     print "none, login, cram-md5, or digest-md5 [$WHT$smtp_auth_mech$NRM]: $WHT";
1537     $inval=<STDIN>;
1538     chomp($inval);
1539     if ($inval =~ /^none\b/i) {
1540         # remove sitewide smtp authentication information
1541         $smtp_sitewide_user = '';
1542         $smtp_sitewide_pass = '';
1543         # SMTP doesn't necessarily require logins
1544         return "none";
1545     } elsif ( ($inval =~ /^cram-md5\b/i) || ($inval =~ /^digest-md5\b/i) ||
1546               ($inval =~ /^login\b/i) || ($inval =~/^plain\b/i)) {
1547         command_smtp_sitewide_userpass($inval);
1548         return lc($inval);
1549     } elsif (trim($inval) eq '') {
1550         # user selected default value
1551         command_smtp_sitewide_userpass($smtp_auth_mech);
1552         return $smtp_auth_mech;
1553     } else {
1554         # user entered garbage
1555         return $smtp_auth_mech;
1556     }
1557 }
1558
1559 sub command_smtp_sitewide_userpass($) {
1560     # get first function argument
1561     my $auth_mech = shift(@_);
1562     my $default, $tmp;
1563     $auth_mech = lc(trim($auth_mech));
1564     if ($auth_mech eq 'none') {
1565         return;
1566     }
1567     print "SMTP authentication uses IMAP username and password by default.\n";
1568     print "\n";
1569     print "Would you like to use other login and password for all SquirrelMail \n";
1570     print "SMTP connections?";
1571     if ($smtp_sitewide_user ne '') {
1572         $default = 'y';
1573         print " [Y/n]:";
1574     } else {
1575         $default = 'n';
1576         print " [y/N]:";
1577     }
1578     $tmp=<STDIN>;
1579     $tmp = trim($tmp);
1580
1581     if ($tmp eq '') {
1582         $tmp = $default;
1583     } else {
1584         $tmp = lc($tmp);
1585     }
1586
1587     if ($tmp eq 'n') {
1588         $smtp_sitewide_user = '';
1589         $smtp_sitewide_pass = '';
1590     } elsif ($tmp eq 'y') {
1591         print "Enter username [$smtp_sitewide_user]:";
1592         my $new_user = <STDIN>;
1593         $new_user = trim($new_user);
1594         if ($new_user ne '') {
1595             $smtp_sitewide_user = $new_user;
1596         }
1597         if ($smtp_sitewide_user ne '') {
1598             print "If you don't enter any password, current sitewide password will be used.\n";
1599             print "If you enter space, password will be set to empty string.\n";
1600             print "Enter password:";
1601             my $new_pass = <STDIN>;
1602             if ($new_pass ne "\n") {
1603                 $smtp_sitewide_pass = trim($new_pass);
1604             }
1605         } else {
1606             print "Invalid input. You must set username used for SMTP authentication.\n";
1607             print "Click enter to continue\n";
1608             $tmp = <STDIN>;
1609         }
1610     } else {
1611         print "Invalid input\n";
1612         print "Click enter to continue\n";
1613         $tmp = <STDIN>;
1614     }
1615 }
1616
1617 # Sub adds information about SMTP authentication type to menu
1618 sub display_smtp_sitewide_userpass() {
1619     my $ret = '';
1620     if ($smtp_auth_mech ne 'none') {
1621         if ($smtp_sitewide_user ne '') {
1622             $ret = ' (with custom username and password)';
1623         } else {
1624             $ret = ' (with IMAP username and password)';
1625         }
1626     }
1627     return $ret;
1628 }
1629
1630 # TLS
1631 # This sub is reused for IMAP and SMTP
1632 # Args: service name, default value
1633 sub command_use_tls {
1634     my($default_val,$service,$inval);
1635     $service=$_[0];
1636     $default_val=$_[1];
1637     print "TLS (Transport Layer Security) encrypts the traffic between server and client.\n";
1638     print "STARTTLS extensions allow to start encryption on existing plain text connection.\n";
1639     print "These options add specific PHP and IMAP server configuration requirements.\n";
1640     print "See SquirrelMail documentation about connection security.\n";
1641     print "\n";
1642     print "If your " . $service . " server is localhost, you can safely disable this.\n";
1643     print "If it is remote, you may wish to seriously consider enabling this.\n";
1644     $valid_input=0;
1645     while ($valid_input eq 0) {
1646         print "\nSelect connection security model:\n";
1647         print " 0 - Use plain text connection\n";
1648         print " 1 - Use TLS connection\n";
1649         print " 2 - Use STARTTLS extension\n";
1650         print "Select [$default_val]: ";
1651         $inval=<STDIN>;
1652         $inval=trim($inval);
1653         if ($inval =~ /^[012]$/ || $inval eq '') {
1654             $valid_input = 1;
1655         }
1656     }
1657     if ($inval ne '') {$default_val = $inval};
1658     return $default_val;
1659 }
1660
1661 # This sub is used to display human readable text for
1662 # $use_imap_tls and $use_smtp_tls values in conf.pl menu
1663 sub display_use_tls($) {
1664     my $val = shift(@_);
1665     my $ret = 'disabled';
1666     if ($val eq '2') {
1667         $ret = 'STARTTLS';
1668     } elsif ($val eq '1') {
1669         $ret = 'TLS';
1670     }
1671     return $ret;
1672 }
1673
1674 # $encode_header_key
1675 sub command114{
1676     print "Encryption key allows to hide SquirrelMail Received: headers\n";
1677     print "in outbound messages. Interface uses encryption key to encode\n";
1678     print "username, remote address and proxied address, then stores encoded\n";
1679     print "information in X-Squirrel-* headers.\n";
1680     print "\n";
1681     print "Warning: used encryption function is not bulletproof. When used\n";
1682     print "with static encryption keys, it provides only minimal security\n";
1683     print "measures and information can be decoded quickly.\n";
1684     print "\n";
1685     print "Encoded information can be decoded with decrypt_headers.php script\n";
1686     print "from SquirrelMail contrib/ directory.\n";
1687     print "\n";
1688     print "Enter encryption key: ";
1689     $new_encode_header_key = <STDIN>;
1690     if ( $new_encode_header_key eq "\n" ) {
1691         $new_encode_header_key = $encode_header_key;
1692     } else {
1693         $new_encode_header_key =~ s/[\r\n]//g;
1694     }
1695     return $new_encode_header_key;
1696 }
1697
1698 # MOTD
1699 sub command71 {
1700     print "\nYou can now create the welcome message that is displayed\n";
1701     print "every time a user logs on.  You can use HTML or just plain\n";
1702     print
1703 "text.  If you do not wish to have one, just make it blank.\n\n(Type @ on a blank line to exit)\n";
1704
1705     $new_motd = "";
1706     do {
1707         print "] ";
1708         $line = <STDIN>;
1709         $line =~ s/[\r\n]//g;
1710         if ( $line ne "@" ) {
1711             $line =~ s/  /\&nbsp;\&nbsp;/g;
1712             $line =~ s/\t/\&nbsp;\&nbsp;\&nbsp;\&nbsp;/g;
1713             $line =~ s/$/ /;
1714             $line =~ s/\"/\\\"/g;
1715
1716             $new_motd = $new_motd . $line;
1717         }
1718     } while ( $line ne "@" );
1719     return $new_motd;
1720 }
1721
1722 ################# PLUGINS ###################
1723
1724 sub command81 {
1725     $command =~ s/[\s\n\r]*//g;
1726     if ( $command > 0 ) {
1727         $command = $command - 1;
1728         if ( $command <= $#plugins ) {
1729             @newplugins = ();
1730             $ct         = 0;
1731             while ( $ct <= $#plugins ) {
1732                 if ( $ct != $command ) {
1733                     @newplugins = ( @newplugins, $plugins[$ct] );
1734                 }
1735                 $ct++;
1736             }
1737             @plugins = @newplugins;
1738         } elsif ( $command <= $#plugins + $#unused_plugins + 1 ) {
1739             $num        = $command - $#plugins - 1;
1740             @newplugins = @plugins;
1741             $ct         = 0;
1742             while ( $ct <= $#unused_plugins ) {
1743                 if ( $ct == $num ) {
1744                     @newplugins = ( @newplugins, $unused_plugins[$ct] );
1745                 }
1746                 $ct++;
1747             }
1748             @plugins = @newplugins;
1749         }
1750     }
1751     return @plugins;
1752 }
1753
1754 # disable_plugins_user
1755 sub command82 {
1756     print "When all active plugins are disabled, they can be disabled only\n";
1757     print "for the one user named here.  If left blank, plugins will be\n";
1758     print "disabled for ALL users.  This setting has no effect if plugins\n";
1759     print "are not disabled.\n";
1760     print "\n";
1761     print "This must be the exact IMAP login name for the desired user.\n";
1762     print "\n";
1763     print "[$WHT$disable_plugins_user$NRM]: $WHT";
1764     $new_disable_plugins_user = <STDIN>;
1765     if ( $new_disable_plugins_user eq "\n" ) {
1766         $new_disable_plugins_user = $disable_plugins_user;
1767     } else {
1768         $new_disable_plugins_user =~ s/[\r\n]//g;
1769     }
1770     return $new_disable_plugins_user;
1771 }
1772
1773 ################# FOLDERS ###################
1774
1775 # default_folder_prefix
1776 sub command21 {
1777     print "Some IMAP servers (UW, for example) store mail and folders in\n";
1778     print "your user space in a separate subdirectory.  This is where you\n";
1779     print "specify what that directory is.\n";
1780     print "\n";
1781     print "EXAMPLE:  mail/";
1782     print "\n";
1783     print "NOTE:  If you use Cyrus, or some server that would not use this\n";
1784     print "       option, you must set this to 'none'.\n";
1785     print "\n";
1786     print "[$WHT$default_folder_prefix$NRM]: $WHT";
1787     $new_default_folder_prefix = <STDIN>;
1788
1789     if ( $new_default_folder_prefix eq "\n" ) {
1790         $new_default_folder_prefix = $default_folder_prefix;
1791     } else {
1792         $new_default_folder_prefix =~ s/[\r\n]//g;
1793     }
1794     if ( ( $new_default_folder_prefix =~ /^\s*$/ ) || ( $new_default_folder_prefix =~ m/^none$/i ) ) {
1795         $new_default_folder_prefix = "";
1796     } else {
1797         # add the trailing delimiter only if we know what the server is.
1798         if (($imap_server_type eq 'cyrus' and
1799                   $optional_delimiter eq 'detect') or
1800                  ($imap_server_type eq 'courier' and
1801                   $optional_delimiter eq 'detect')) {
1802            $new_default_folder_prefix =~ s/\.*$/\./;
1803         } elsif ($imap_server_type eq 'uw' and
1804                  $optional_delimiter eq 'detect') {
1805            $new_default_folder_prefix =~ s/\/*$/\//;
1806         }
1807     }
1808     return $new_default_folder_prefix;
1809 }
1810
1811 # Show Folder Prefix
1812 sub command22 {
1813     print "It is possible to set up the default folder prefix as a user\n";
1814     print "specific option, where each user can specify what their mail\n";
1815     print "folder is.  If you set this to false, they will never see the\n";
1816     print "option, but if it is true, this option will appear in the\n";
1817     print "'options' section.\n";
1818     print "\n";
1819     print "NOTE:  You set the default folder prefix in option '1' of this\n";
1820     print "       section.  That will be the default if the user doesn't\n";
1821     print "       specify anything different.\n";
1822     print "\n";
1823
1824     if ( lc($show_prefix_option) eq 'true' ) {
1825         $default_value = "y";
1826     } else {
1827         $default_value = "n";
1828     }
1829     print "\n";
1830     print "Show option (y/n) [$WHT$default_value$NRM]: $WHT";
1831     $new_show = <STDIN>;
1832     if ( ( $new_show =~ /^y\n/i ) || ( ( $new_show =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
1833         $show_prefix_option = 'true';
1834     } else {
1835         $show_prefix_option = 'false';
1836     }
1837     return $show_prefix_option;
1838 }
1839
1840 # Trash Folder
1841 sub command23a {
1842     print "You can now specify where the default trash folder is located.\n";
1843     print "On servers where you do not want this, you can set it to anything\n";
1844     print "and set option 6 to false.\n";
1845     print "\n";
1846     print "This is relative to where the rest of your email is kept.  You do\n";
1847     print "not need to worry about their mail directory.  If this folder\n";
1848     print "would be ~/mail/trash on the filesystem, you only need to specify\n";
1849     print "that this is 'trash', and be sure to put 'mail/' in option 1.\n";
1850     print "\n";
1851
1852     print "[$WHT$trash_folder$NRM]: $WHT";
1853     $new_trash_folder = <STDIN>;
1854     if ( $new_trash_folder eq "\n" ) {
1855         $new_trash_folder = $trash_folder;
1856     } else {
1857         if (check_imap_folder($new_trash_folder)) {
1858             $new_trash_folder =~ s/[\r\n]//g;
1859         } else {
1860             $new_trash_folder = $trash_folder;
1861         }
1862     }
1863     return $new_trash_folder;
1864 }
1865
1866 # Sent Folder
1867 sub command23b {
1868     print "This is where messages that are sent will be stored.  SquirrelMail\n";
1869     print "by default puts a copy of all outgoing messages in this folder.\n";
1870     print "\n";
1871     print "This is relative to where the rest of your email is kept.  You do\n";
1872     print "not need to worry about their mail directory.  If this folder\n";
1873     print "would be ~/mail/sent on the filesystem, you only need to specify\n";
1874     print "that this is 'sent', and be sure to put 'mail/' in option 1.\n";
1875     print "\n";
1876
1877     print "[$WHT$sent_folder$NRM]: $WHT";
1878     $new_sent_folder = <STDIN>;
1879     if ( $new_sent_folder eq "\n" ) {
1880         $new_sent_folder = $sent_folder;
1881     } else {
1882         if (check_imap_folder($new_sent_folder)) {
1883             $new_sent_folder =~ s/[\r\n]//g;
1884         } else {
1885             $new_sent_folder = $sent_folder;
1886         }
1887     }
1888     return $new_sent_folder;
1889 }
1890
1891 # Draft Folder
1892 sub command23c {
1893     print "You can now specify where the default draft folder is located.\n";
1894     print "On servers where you do not want this, you can set it to anything\n";
1895     print "and set option 9 to false.\n";
1896     print "\n";
1897     print "This is relative to where the rest of your email is kept.  You do\n";
1898     print "not need to worry about their mail directory.  If this folder\n";
1899     print "would be ~/mail/drafts on the filesystem, you only need to specify\n";
1900     print "that this is 'drafts', and be sure to put 'mail/' in option 1.\n";
1901     print "\n";
1902
1903     print "[$WHT$draft_folder$NRM]: $WHT";
1904     $new_draft_folder = <STDIN>;
1905     if ( $new_draft_folder eq "\n" ) {
1906         $new_draft_folder = $draft_folder;
1907     } else {
1908         if (check_imap_folder($new_draft_folder)) {
1909             $new_draft_folder =~ s/[\r\n]//g;
1910         } else {
1911             $new_draft_folder = $draft_folder;
1912         }
1913     }
1914     return $new_draft_folder;
1915 }
1916
1917 # default move to trash
1918 sub command24a {
1919     print "By default, should messages get moved to the trash folder?  You\n";
1920     print "can specify the default trash folder in option 3.  If this is set\n";
1921     print "to false, messages will get deleted immediately without moving\n";
1922     print "to the trash folder.\n";
1923     print "\n";
1924     print "Trash folder is currently: $trash_folder\n";
1925     print "\n";
1926
1927     if ( lc($default_move_to_trash) eq 'true' ) {
1928         $default_value = "y";
1929     } else {
1930         $default_value = "n";
1931     }
1932     print "By default, move to trash (y/n) [$WHT$default_value$NRM]: $WHT";
1933     $new_show = <STDIN>;
1934     if ( ( $new_show =~ /^y\n/i ) || ( ( $new_show =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
1935         $default_move_to_trash = 'true';
1936     } else {
1937         $default_move_to_trash = 'false';
1938     }
1939     return $default_move_to_trash;
1940 }
1941
1942 # default move to sent (save sent messages)
1943 sub command24b {
1944     print "By default, should copies of outgoing messages get saved in the\n";
1945     print "sent folder?  You can specify the default sent folder in option 4.\n";
1946     print "If this is set to false, messages will get sent and no copy will\n";
1947     print "be made.\n";
1948     print "\n";
1949     print "Sent folder is currently: $sent_folder\n";
1950     print "\n";
1951
1952     if ( lc($default_move_to_sent) eq 'true' ) {
1953         $default_value = "y";
1954     } else {
1955         $default_value = "n";
1956     }
1957     print "By default, save sent messages (y/n) [$WHT$default_value$NRM]: $WHT";
1958     $new_show = <STDIN>;
1959     if ( ( $new_show =~ /^y\n/i ) || ( ( $new_show =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
1960         $default_move_to_sent = 'true';
1961     } else {
1962         $default_move_to_sent = 'false';
1963     }
1964     return $default_move_to_sent;
1965 }
1966
1967 # default save as draft
1968 sub command24c {
1969     print "By default, should the save to draft option be shown? You can\n";
1970     print "specify the default drafts folder in option 5. If this is set\n";
1971     print "to false, users will not be shown the save to draft option.\n";
1972     print "\n";
1973     print "Drafts folder is currently: $draft_folder\n";
1974     print "\n";
1975
1976     if ( lc($default_save_as_draft) eq 'true' ) {
1977         $default_value = "y";
1978     } else {
1979         $default_value = "n";
1980     }
1981     print "By default, save as draft (y/n) [$WHT$default_value$NRM]: $WHT";
1982     $new_show = <STDIN>;
1983     if ( ( $new_show =~ /^y\n/i ) || ( ( $new_show =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
1984         $default_save_as_draft = 'true';
1985     } else {
1986         $default_save_as_draft = 'false';
1987     }
1988     return $default_save_as_draft;
1989 }
1990
1991 # List special folders first
1992 sub command27 {
1993     print "SquirrelMail has what we call 'special folders' that are not\n";
1994     print "manipulated and viewed like normal folders.  Some examples of\n";
1995     print "these folders would be INBOX, Trash, Sent, etc.  This option\n";
1996     print "Simply asks if you want these folders listed first in the folder\n";
1997     print "listing.\n";
1998     print "\n";
1999
2000     if ( lc($list_special_folders_first) eq 'true' ) {
2001         $default_value = "y";
2002     } else {
2003         $default_value = "n";
2004     }
2005     print "\n";
2006     print "List first (y/n) [$WHT$default_value$NRM]: $WHT";
2007     $new_show = <STDIN>;
2008     if ( ( $new_show =~ /^y\n/i ) || ( ( $new_show =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
2009         $list_special_folders_first = 'true';
2010     } else {
2011         $list_special_folders_first = 'false';
2012     }
2013     return $list_special_folders_first;
2014 }
2015
2016 # Show special folders color
2017 sub command28 {
2018     print "SquirrelMail has what we call 'special folders' that are not\n";
2019     print "manipulated and viewed like normal folders.  Some examples of\n";
2020     print "these folders would be INBOX, Trash, Sent, etc.  This option\n";
2021     print "wants to know if we should display special folders in a\n";
2022     print "color than the other folders.\n";
2023     print "\n";
2024
2025     if ( lc($use_special_folder_color) eq 'true' ) {
2026         $default_value = "y";
2027     } else {
2028         $default_value = "n";
2029     }
2030     print "\n";
2031     print "Show color (y/n) [$WHT$default_value$NRM]: $WHT";
2032     $new_show = <STDIN>;
2033     if ( ( $new_show =~ /^y\n/i ) || ( ( $new_show =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
2034         $use_special_folder_color = 'true';
2035     } else {
2036         $use_special_folder_color = 'false';
2037     }
2038     return $use_special_folder_color;
2039 }
2040
2041 # Auto expunge
2042 sub command29 {
2043     print "The way that IMAP handles deleting messages is as follows.  You\n";
2044     print "mark the message as deleted, and then to 'really' delete it, you\n";
2045     print "expunge it.  This option asks if you want to just have messages\n";
2046     print "marked as deleted, or if you want SquirrelMail to expunge the \n";
2047     print "messages too.\n";
2048     print "\n";
2049
2050     if ( lc($auto_expunge) eq 'true' ) {
2051         $default_value = "y";
2052     } else {
2053         $default_value = "n";
2054     }
2055     print "Auto expunge (y/n) [$WHT$default_value$NRM]: $WHT";
2056     $new_show = <STDIN>;
2057     if ( ( $new_show =~ /^y\n/i ) || ( ( $new_show =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
2058         $auto_expunge = 'true';
2059     } else {
2060         $auto_expunge = 'false';
2061     }
2062     return $auto_expunge;
2063 }
2064
2065 # Default sub of inbox
2066 sub command210 {
2067     print "Some IMAP servers (Cyrus) have all folders as subfolders of INBOX.\n";
2068     print "This can cause some confusion in folder creation for users when\n";
2069     print "they try to create folders and don't put it as a subfolder of INBOX\n";
2070     print "and get permission errors.  This option asks if you want folders\n";
2071     print "to be subfolders of INBOX by default.\n";
2072     print "\n";
2073
2074     if ( lc($default_sub_of_inbox) eq 'true' ) {
2075         $default_value = "y";
2076     } else {
2077         $default_value = "n";
2078     }
2079     print "Default sub of INBOX (y/n) [$WHT$default_value$NRM]: $WHT";
2080     $new_show = <STDIN>;
2081     if ( ( $new_show =~ /^y\n/i ) || ( ( $new_show =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
2082         $default_sub_of_inbox = 'true';
2083     } else {
2084         $default_sub_of_inbox = 'false';
2085     }
2086     return $default_sub_of_inbox;
2087 }
2088
2089 # Show contain subfolder option
2090 sub command211 {
2091     print "Some IMAP servers (UW) make it so that there are two types of\n";
2092     print "folders.  Those that contain messages, and those that contain\n";
2093     print "subfolders.  If this is the case for your server, set this to\n";
2094     print "true, and it will ask the user whether the folder they are\n";
2095     print "creating contains subfolders or messages.\n";
2096     print "\n";
2097
2098     if ( lc($show_contain_subfolders_option) eq 'true' ) {
2099         $default_value = "y";
2100     } else {
2101         $default_value = "n";
2102     }
2103     print "Show option (y/n) [$WHT$default_value$NRM]: $WHT";
2104     $new_show = <STDIN>;
2105     if ( ( $new_show =~ /^y\n/i ) || ( ( $new_show =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
2106         $show_contain_subfolders_option = 'true';
2107     } else {
2108         $show_contain_subfolders_option = 'false';
2109     }
2110     return $show_contain_subfolders_option;
2111 }
2112
2113 # Default Unseen Notify
2114 sub command212 {
2115     print "This option specifies where the users will receive notification\n";
2116     print "about unseen messages by default.  This is of course an option that\n";
2117     print "can be changed on a user level.\n";
2118     print "  1 = No notification\n";
2119     print "  2 = Only on the INBOX\n";
2120     print "  3 = On all folders\n";
2121     print "\n";
2122
2123     print "Which one should be default (1,2,3)? [$WHT$default_unseen_notify$NRM]: $WHT";
2124     $new_show = <STDIN>;
2125     if ( $new_show =~ /^[123]\n/i ) {
2126         $default_unseen_notify = $new_show;
2127     }
2128     $default_unseen_notify =~ s/[\r\n]//g;
2129     return $default_unseen_notify;
2130 }
2131
2132 # Default Unseen Type
2133 sub command213 {
2134     print "Here you can define the default way that unseen messages will be displayed\n";
2135     print "to the user in the folder listing on the left side.\n";
2136     print "  1 = Only unseen messages   (4)\n";
2137     print "  2 = Unseen and Total messages  (4/27)\n";
2138     print "\n";
2139
2140     print "Which one should be default (1,2)? [$WHT$default_unseen_type$NRM]: $WHT";
2141     $new_show = <STDIN>;
2142     if ( $new_show =~ /^[12]\n/i ) {
2143         $default_unseen_type = $new_show;
2144     }
2145     $default_unseen_type =~ s/[\r\n]//g;
2146     return $default_unseen_type;
2147 }
2148
2149 # Auto create special folders
2150 sub command214 {
2151     print "Would you like the Sent, Trash, and Drafts folders to be created\n";
2152     print "automatically print for you when a user logs in?  If the user\n";
2153     print "accidentally deletes their special folders, this option will\n";
2154     print "automatically create it again for them.\n";
2155     print "\n";
2156
2157     if ( lc($auto_create_special) eq 'true' ) {
2158         $default_value = "y";
2159     } else {
2160         $default_value = "n";
2161     }
2162     print "Auto create special folders? (y/n) [$WHT$default_value$NRM]: $WHT";
2163     $new_show = <STDIN>;
2164     if ( ( $new_show =~ /^y\n/i ) || ( ( $new_show =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
2165         $auto_create_special = 'true';
2166     } else {
2167         $auto_create_special = 'false';
2168     }
2169     return $auto_create_special;
2170 }
2171
2172 # Automatically delete folders
2173 sub command215 {
2174     if ( $imap_server_type eq "uw" ) {
2175         print "UW IMAP servers will not allow folders containing mail to also contain folders.\n";
2176         print "Deleting folders will bypass the trash folder and be immediately deleted\n\n";
2177         print "If this is not the correct value for your server,\n";
2178         print "please use option D on the Main Menu to configure your server correctly.\n\n";
2179         print "Press enter to continue...\n";
2180         $new_delete = <STDIN>;
2181         $delete_folder = 'true';
2182     } else {
2183         if ( $imap_server_type eq "courier" ) {
2184             print "Courier (or Courier-IMAP) IMAP servers may not support ";
2185             print "subfolders of Trash. \n";
2186             print "Specifically, if Courier is set to always move messages to Trash, \n";
2187             print "Trash will be treated by Courier as a special folder that does not \n";
2188             print "allow subfolders. \n\n";
2189             print "Please verify your Courier configuration, and test folder deletion \n";
2190             print "when changing this setting.\n\n";
2191         }
2192
2193         print "Are subfolders of the Trash supported by your IMAP server?\n";
2194         print "If so, should deleted folders be sent to Trash?\n";
2195         print "If not, say no (deleted folders should not be sent to Trash)\n\n";
2196         # reversal of logic.
2197         # question was: Should folders be automatically deleted instead of sent to trash..
2198         # we've changed the question to make it more clear,
2199         # and are here handling that to avoid changing the answers..
2200         if ( lc($delete_folder) eq 'true' ) {
2201             $default_value = "n";
2202         } else {
2203             $default_value = "y";
2204         }
2205         print "Send deleted folders to Trash? (y/n) [$WHT$default_value$NRM]: $WHT";
2206         $new_delete = <STDIN>;
2207         if ( ( $new_delete =~ /^y\n/i ) || ( ( $new_delete =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
2208             $delete_folder = 'false';
2209         } else {
2210             $delete_folder = 'true';
2211         }
2212     }
2213     return $delete_folder;
2214 }
2215
2216 #noselect fix
2217 sub command216 {
2218     print "Some IMAP servers allow subfolders to exist even if the parent\n";
2219     print "folders do not. This fixes some problems with the folder list\n";
2220     print "when this is the case, causing the /NoSelect folders to be displayed\n";
2221     print "\n";
2222
2223     if ( lc($noselect_fix_enable) eq 'true' ) {
2224         $default_value = "y";
2225     } else {
2226         $default_value = "n";
2227     }
2228     print "enable noselect fix? (y/n) [$WHT$noselect_fix_enable$NRM]: $WHT";
2229     $noselect_fix_enable = <STDIN>;
2230     if ( ( $noselect_fix_enable =~ /^y\n/i ) || ( ( $noselect_fix_enable =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
2231         $noselect_fix_enable = 'true';
2232     } else {
2233         $noselect_fix_enable = 'false';
2234     }
2235     return $noselect_fix_enable;
2236 }
2237 ############# GENERAL OPTIONS #####################
2238
2239 # Data directory
2240 sub command33a {
2241     print "Specify the location for your data directory.\n";
2242     print "You need to create this directory yourself.\n";
2243     print "The path name can be absolute or relative (to the config directory).\n";
2244     print "Here are two examples:\n";
2245     print "  Absolute:    /var/local/squirrelmail/data/\n";
2246     print "  Relative:    ../data/\n";
2247     print "Relative paths to directories outside of the SquirrelMail distribution\n";
2248     print "will be converted to their absolute path equivalents in config.php.\n\n";
2249     print "Note: There are potential security risks with having a writeable directory\n";
2250     print "under the web server's root directory (ex: /home/httpd/html).\n";
2251     print "For this reason, it is recommended to put the data directory\n";
2252     print "in an alternate location of your choice. \n";
2253     print "\n";
2254
2255     print "[$WHT$data_dir$NRM]: $WHT";
2256     $new_data_dir = <STDIN>;
2257     if ( $new_data_dir eq "\n" ) {
2258         $new_data_dir = $data_dir;
2259     } else {
2260         $new_data_dir =~ s/[\r\n]//g;
2261     }
2262     if ( $new_data_dir =~ /^\s*$/ ) {
2263         $new_data_dir = "";
2264     } else {
2265         $new_data_dir =~ s/\/*$//g;
2266         $new_data_dir =~ s/$/\//g;
2267     }
2268     return $new_data_dir;
2269 }
2270
2271 # Attachment directory
2272 sub command33b {
2273     print "Path to directory used for storing attachments while a mail is\n";
2274     print "being composed. The path name can be absolute or relative (to the\n";
2275     print "config directory). Here are two examples:\n";
2276     print "  Absolute:    /var/local/squirrelmail/attach/\n";
2277     print "  Relative:    ../attach/\n";
2278     print "Relative paths to directories outside of the SquirrelMail distribution\n";
2279     print "will be converted to their absolute path equivalents in config.php.\n\n";
2280     print "Note:  There are a few security considerations regarding this\n";
2281     print "directory:\n";
2282     print "  1.  It should have the permission 733 (rwx-wx-wx) to make it\n";
2283     print "      impossible for a random person with access to the webserver\n";
2284     print "      to list files in this directory.  Confidential data might\n";
2285     print "      be laying around in there.\n";
2286     print "      Depending on your user:group assignments, 730 (rwx-wx---)\n";
2287     print "      may be possible, and more secure (e.g. root:apache)\n";
2288     print "  2.  Since the webserver is not able to list the files in the\n";
2289     print "      content is also impossible for the webserver to delete files\n";
2290     print "      lying around there for too long.\n";
2291     print "  3.  It should probably be another directory than the data\n";
2292     print "      directory specified in option 3.\n";
2293     print "\n";
2294
2295     print "[$WHT$attachment_dir$NRM]: $WHT";
2296     $new_attachment_dir = <STDIN>;
2297     if ( $new_attachment_dir eq "\n" ) {
2298         $new_attachment_dir = $attachment_dir;
2299     } else {
2300         $new_attachment_dir =~ s/[\r\n]//g;
2301     }
2302     if ( $new_attachment_dir =~ /^\s*$/ ) {
2303         $new_attachment_dir = "";
2304     } else {
2305         $new_attachment_dir =~ s/\/*$//g;
2306         $new_attachment_dir =~ s/$/\//g;
2307     }
2308     return $new_attachment_dir;
2309 }
2310
2311 sub command33c {
2312     print "The directory hash level setting allows you to configure the level\n";
2313     print "of hashing that SquirrelMail employs in your data and attachment\n";
2314     print "directories. This value must be an integer ranging from 0 to 4.\n";
2315     print "When this value is set to 0, SquirrelMail will simply store all\n";
2316     print "files as normal in the data and attachment directories. However,\n";
2317     print "when set to a value from 1 to 4, a simple hashing scheme will be\n";
2318     print "used to organize the files in this directory. In short, the crc32\n";
2319     print "value for a username will be computed. Then, up to the first 4\n";
2320     print "digits of the hash, as set by this configuration value, will be\n";
2321     print "used to directory hash the files for that user in the data and\n";
2322     print "attachment directory. This allows for better performance on\n";
2323     print "servers with larger numbers of users.\n";
2324     print "\n";
2325
2326     print "[$WHT$dir_hash_level$NRM]: $WHT";
2327     $new_dir_hash_level = <STDIN>;
2328     if ( $new_dir_hash_level eq "\n" ) {
2329         $new_dir_hash_level = $dir_hash_level;
2330     } else {
2331         $new_dir_hash_level =~ s/[\r\n]//g;
2332     }
2333     if ( ( int($new_dir_hash_level) < 0 )
2334         || ( int($new_dir_hash_level) > 4 )
2335         || !( int($new_dir_hash_level) eq $new_dir_hash_level ) ) {
2336         print "Invalid Directory Hash Level.\n";
2337         print "Value must be an integer ranging from 0 to 4\n";
2338         print "Hit enter to continue.\n";
2339         $enter_key = <STDIN>;
2340
2341         $new_dir_hash_level = $dir_hash_level;
2342         }
2343
2344     return $new_dir_hash_level;
2345 }
2346
2347 sub command35 {
2348     print "This is the default size (in pixels) of the left folder list.\n";
2349     print "Default is 200, but you can set it to whatever you wish.  This\n";
2350     print "is a user preference, so this will only show up as their default.\n";
2351     print "\n";
2352     print "[$WHT$default_left_size$NRM]: $WHT";
2353     $new_default_left_size = <STDIN>;
2354     if ( $new_default_left_size eq "\n" ) {
2355         $new_default_left_size = $default_left_size;
2356     } else {
2357         $new_default_left_size =~ s/[\r\n]//g;
2358     }
2359     return $new_default_left_size;
2360 }
2361
2362 sub command36 {
2363     print "Some IMAP servers only have lowercase letters in the usernames\n";
2364     print "but they still allow people with uppercase to log in.  This\n";
2365     print "causes a problem with the user's preference files.  This option\n";
2366     print "transparently changes all usernames to lowercase.";
2367     print "\n";
2368
2369     if ( lc($force_username_lowercase) eq 'true' ) {
2370         $default_value = "y";
2371     } else {
2372         $default_value = "n";
2373     }
2374     print "Convert usernames to lowercase (y/n) [$WHT$default_value$NRM]: $WHT";
2375     $new_show = <STDIN>;
2376     if ( ( $new_show =~ /^y\n/i ) || ( ( $new_show =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
2377         return 'true';
2378     }
2379     return 'false';
2380 }
2381
2382 sub command37 {
2383     print "";
2384     print "\n";
2385
2386     if ( lc($default_use_priority) eq 'true' ) {
2387         $default_value = "y";
2388     } else {
2389         $default_value = "n";
2390     }
2391
2392     print "Allow users to specify priority of outgoing mail (y/n) [$WHT$default_value$NRM]: $WHT";
2393     $new_show = <STDIN>;
2394     if ( ( $new_show =~ /^y\n/i ) || ( ( $new_show =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
2395         return 'true';
2396     }
2397     return 'false';
2398 }
2399
2400 sub command38 {
2401     print "";
2402     print "\n";
2403
2404     if ( lc($hide_sm_attributions) eq 'true' ) {
2405         $default_value = "y";
2406     } else {
2407         $default_value = "n";
2408     }
2409
2410     print "Hide SM attributions (y/n) [$WHT$default_value$NRM]: $WHT";
2411     $new_show = <STDIN>;
2412     if ( ( $new_show =~ /^y\n/i ) || ( ( $new_show =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
2413         return 'true';
2414     }
2415     return 'false';
2416 }
2417
2418 sub command39 {
2419     print "";
2420     print "\n";
2421
2422     if ( lc($default_use_mdn) eq 'true' ) {
2423         $default_value = "y";
2424     } else {
2425         $default_value = "n";
2426     }
2427
2428     print "Enable support for read/delivery receipt support (y/n) [$WHT$default_value$NRM]: $WHT";
2429     $new_show = <STDIN>;
2430     if ( ( $new_show =~ /^y\n/i ) || ( ( $new_show =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
2431         return 'true';
2432     }
2433     return 'false';
2434 }
2435
2436
2437 sub command310 {
2438     print "  In loosely managed environments, you may want to allow users
2439   to edit their full name and email address. In strictly managed
2440   environments, you may want to force users to use the name
2441   and email address assigned to them.
2442
2443   'y' - allow a user to edit their full name and email address,
2444   'n' - users must use the assigned values.
2445
2446   ";
2447
2448     if ( lc($edit_identity) eq 'true' ) {
2449         $default_value = "y";
2450     } else {
2451         $default_value = "n";
2452     }
2453     print "Allow editing of user's identity? (y/n) [$WHT$default_value$NRM]: $WHT";
2454     $new_edit = <STDIN>;
2455     if ( ( $new_edit =~ /^y\n/i ) || ( ( $new_edit =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
2456         $edit_identity = 'true';
2457         $edit_name = 'true';
2458         $hide_auth_header = command311b();
2459     } else {
2460         $edit_identity = 'false';
2461         $edit_name = command311();
2462         $hide_auth_header = command311b();
2463     }
2464     return $edit_identity;
2465 }
2466
2467 sub command311 {
2468     print "  Given that users are not allowed to modify their
2469   email address, can they edit their full name?
2470
2471   ";
2472
2473     if ( lc($edit_name) eq 'true' ) {
2474         $default_value = "y";
2475     } else {
2476         $default_value = "n";
2477     }
2478     print "Allow the user to edit their full name? (y/n) [$WHT$default_value$NRM]: $WHT";
2479     $new_edit = <STDIN>;
2480     if ( ( $new_edit =~ /^y\n/i ) || ( ( $new_edit =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
2481         $edit_name = 'true';
2482     } else {
2483         $edit_name = 'false';
2484     }
2485     return $edit_name;
2486 }
2487
2488 sub command311b {
2489     print "  SquirrelMail adds username information to every sent email
2490   in order to prevent possible sender forging when users are allowed
2491   to change their email and/or full name.
2492
2493   You can remove user information from this header (y), if you think that
2494   it violates privacy or security.
2495
2496   Note: If users are allowed to change their email addresses,
2497   this setting will make it difficult to determine who sent what where.
2498   Use at your own risk.
2499
2500   ";
2501
2502     if ( lc($hide_auth_header) eq "true" ) {
2503         $default_value = "y";
2504     } else {
2505         $default_value = "n";
2506     }
2507     print "Remove username from email headers? (y/n) [$WHT$default_value$NRM]: $WHT";
2508     $new_header = <STDIN>;
2509     if ( ( $new_header =~ /^y\n/i ) || ( ( $new_header =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
2510         $hide_auth_header = "true";
2511     } else {
2512         $hide_auth_header = "false";
2513     }
2514     return $hide_auth_header;
2515 }
2516
2517 sub command312 {
2518     print "This option allows you to disable server side thread sorting if your server \n";
2519     print "declares THREAD support, but you don't want to provide threading options \n";
2520     print "to end users or THREAD extension is broken or extension does not work with \n";
2521     print "options used by SquirrelMail. Option is not used, if THREAD extension is \n";
2522     print "not declared in IMAP CAPABILITY.\n";
2523     print "\n";
2524
2525     if ( lc($disable_thread_sort) eq 'true' ) {
2526         $default_value = "y";
2527     } else {
2528         $default_value = "n";
2529     }
2530     print "Disable server side thread sorting? (y/n) [$WHT$default_value$NRM]: $WHT";
2531     $disable_thread_sort = <STDIN>;
2532     if ( ( $disable_thread_sort =~ /^y\n/i ) || ( ( $disable_thread_sort =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
2533         $disable_thread_sort = 'true';
2534     } else {
2535         $disable_thread_sort = 'false';
2536     }
2537     return $disable_thread_sort;
2538 }
2539
2540 sub command313 {
2541     print "This option allows you to disable server side sorting if your server declares \n";
2542     print "SORT support, but SORT extension is broken or does not work with options \n";
2543     print "used by SquirrelMail. Option is not used, if SORT extension is not declared \n";
2544     print "in IMAP CAPABILITY.\n";
2545     print "\n";
2546     print "It is strongly recommended to keep server side sorting enabled, if your ";
2547     print "IMAP server supports it.";
2548     print "\n";
2549
2550     if ( lc($disable_server_sort) eq 'true' ) {
2551         $default_value = "y";
2552     } else {
2553         $default_value = "n";
2554     }
2555     print "Disable server-side sorting? (y/n) [$WHT$default_value$NRM]: $WHT";
2556     $disable_server_sort = <STDIN>;
2557     if ( ( $disable_server_sort =~ /^y\n/i ) || ( ( $disable_server_sort =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
2558         $disable_server_sort = 'true';
2559     } else {
2560         $disable_server_sort = 'false';
2561     }
2562     return $disable_server_sort;
2563 }
2564
2565 sub command314 {
2566     print "This option allows you to choose if SM uses charset search\n";
2567     print "Your IMAP server must support the SEARCH CHARSET command for this to work\n";
2568     print "\n";
2569
2570     if ( lc($allow_charset_search) eq 'true' ) {
2571         $default_value = "y";
2572     } else {
2573         $default_value = "n";
2574     }
2575     print "Allow charset searching? (y/n) [$WHT$default_value$NRM]: $WHT";
2576     $allow_charset_search = <STDIN>;
2577     if ( ( $allow_charset_search =~ /^y\n/i ) || ( ( $allow_charset_search =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
2578         $allow_charset_search = 'true';
2579     } else {
2580         $allow_charset_search = 'false';
2581     }
2582     return $allow_charset_search;
2583 }
2584
2585 # command315 (UID support) obsoleted.
2586
2587 # advanced search option
2588 sub command316 {
2589     print "This option allows you to control the use of advanced search form.\n";
2590     print "  0 = enable basic search only\n";
2591     print "  1 = enable advanced search only\n";
2592     print "  2 = enable both\n";
2593     print "\n";
2594
2595     print "Allowed search (0,1,2)? [$WHT$allow_advanced_search$NRM]: $WHT";
2596     $new_allow_advanced_search = <STDIN>;
2597     if ( $new_allow_advanced_search =~ /^[012]\n/i ) {
2598         $allow_advanced_search = $new_allow_advanced_search;
2599     }
2600     $allow_advanced_search =~ s/[\r\n]//g;
2601     return $allow_advanced_search;
2602 }
2603
2604
2605 sub command317 {
2606     print "This option allows you to change the name of the PHP session used\n";
2607     print "by SquirrelMail.  Unless you know what you are doing, you probably\n";
2608     print "don't need or want to change this from the default of SQMSESSID.\n";
2609     print "[$WHT$session_name$NRM]: $WHT";
2610     $new_session_name = <STDIN>;
2611     chomp($new_session_name);
2612     if ( $new_session_name eq "" ) {
2613         $new_session_name = $session_name;
2614     }
2615     return $new_session_name;
2616 }
2617
2618 # time zone config (since 1.5.1)
2619 sub command318 {
2620     print "This option allows you to control the use of time zones.\n";
2621     print "  0 = (default) standard, GNU C time zone names\n";
2622     print "  1 = strict, generic time zone codes with offsets\n";
2623     print "  2 = custom, GNU C time zones loaded from config/timezones.php\n";
2624     print "  3 = custom strict, generic time zone codes with offsets loaded \n";
2625     print "      from config/timezones.php\n";
2626     print "See SquirrelMail documentation about format of config/timezones.php file.\n";
2627     print "\n";
2628
2629     print "Desired time zone configuration (0,1,2,3)? [$WHT$time_zone_type$NRM]: $WHT";
2630     $new_time_zone_type = <STDIN>;
2631     if ( $new_time_zone_type =~ /^[0123]\n/i ) {
2632         $time_zone_type = $new_time_zone_type;
2633     } else {
2634         print "\nInvalid configuration value.\n";
2635         print "\nPress enter to continue...";
2636         $tmp = <STDIN>;
2637     }
2638     $time_zone_type =~ s/[\r\n]//g;
2639     return $time_zone_type;
2640 }
2641
2642 # set the location base for redirects (since 1.5.2)
2643 sub command_config_location_base {
2644     print "Here you can set the base part of the SquirrelMail URL.\n";
2645     print "It is normally autodetected but if that fails, use this\n";
2646     print "option to override.\n";
2647     print "It should contain only the protocol and hostname/port parts\n";
2648     print "of the URL; the full path will be appended automatically.\n\n";
2649     print "Examples:\nhttp://webmail.example.org\nhttp://webmail.example.com:8080\nhttps://webmail.example.com:6691\n\n";
2650     print "Do not add any path elements.\n";
2651
2652     print "URL base? [" .$WHT."autodetect$NRM]: $WHT";
2653     $new_config_location_base = <STDIN>;
2654     chomp($new_config_location_base);
2655     $config_location_base = $new_config_location_base;
2656
2657     return $config_location_base;
2658 }
2659
2660 # only_secure_cookies (since 1.5.2)
2661 sub command319 {
2662     print "This option allows you to specify that if a user session is initiated\n";
2663     print "under a secure (HTTPS, SSL-encrypted) connection, the cookies given to\n";
2664     print "the browser will ONLY be transmitted via a secure connection henceforth.\n\n";
2665     print "Generally this is a Good Thing, and should NOT be disabled.  However,\n";
2666     print "if you intend to use the Secure Login or Show SSL Link plugins to\n";
2667     print "encrypt the user login, but not the rest of the SquirrelMail session,\n";
2668     print "this can be turned off.  Think twice before doing so.\n";
2669     print "\n";
2670
2671     if ( lc($only_secure_cookies) eq 'true' ) {
2672         $default_value = "y";
2673     } else {
2674         $default_value = "n";
2675     }
2676     print "Transmit cookies only on secure connection when available? (y/n) [$WHT$default_value$NRM]: $WHT";
2677     $only_secure_cookies = <STDIN>;
2678     if ( ( $only_secure_cookies =~ /^y\n/i ) || ( ( $only_secure_cookies =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
2679         $only_secure_cookies = 'true';
2680     } else {
2681         $only_secure_cookies = 'false';
2682     }
2683     return $only_secure_cookies;
2684 }
2685
2686
2687 sub command_userThemes {
2688     print "\nDefine the user themes that you wish to use.  If you have added\n";
2689     print "a theme of your own, just follow the instructions (?) about\n";
2690     print "how to add them.  You can also change the default theme.\n\n";
2691
2692     print "Available user themes:\n";
2693     $count = 0;
2694     while ( $count <= $#user_theme_name ) {
2695         if ( $count == $user_theme_default ) {
2696             print " *";
2697         } else {
2698             print "  ";
2699         }
2700         if ( $count < 10 ) {
2701             print " ";
2702         }
2703         $name       = $user_theme_name[$count];
2704         $num_spaces = 35 - length($name);
2705         for ( $i = 0 ; $i < $num_spaces ; $i++ ) {
2706             $name = $name . " ";
2707         }
2708
2709         print " $count.  $name";
2710         print "($user_theme_path[$count])\n";
2711
2712         $count++;
2713     }
2714
2715     print "\n";
2716     print ".------------------------------------.\n";
2717     print "| t             (detect user themes) |\n";
2718     print "| +                 (add user theme) |\n";
2719     print "| - N            (remove user theme) |\n";
2720     print "| m N      (mark default user theme) |\n";
2721     print "| l               (list user themes) |\n";
2722     print "| d                           (done) |\n";
2723     print "`------------------------------------'\n";
2724
2725     print "\n[user_themes] command (?=help) > ";
2726     $input = <STDIN>;
2727     $input =~ s/[\r\n]//g;
2728     while ( $input ne "d" ) {
2729         if ( $input =~ /^\s*l\s*/i ) {
2730             $count = 0;
2731             while ( $count <= $#user_theme_name ) {
2732                 if ( $count == $user_theme_default ) {
2733                     print " *";
2734                 } else {
2735                     print "  ";
2736                 }
2737                 if ( $count < 10 ) {
2738                     print " ";
2739                 }
2740                 $name       = $user_theme_name[$count];
2741                 $num_spaces = 35 - length($name);
2742                 for ( $i = 0 ; $i < $num_spaces ; $i++ ) {
2743                     $name = $name . " ";
2744                 }
2745
2746                 print " $count.  $name";
2747                 print "($user_theme_path[$count])\n";
2748
2749                 $count++;
2750             }
2751         } elsif ( $input =~ /^\s*m\s*[0-9]+/i ) {
2752             $old_def       = $user_theme_default;
2753             $user_theme_default = $input;
2754             $user_theme_default =~ s/^\s*m\s*//;
2755             if ( ( $user_theme_default > $#user_theme_name ) || ( $user_theme_default < 0 ) ) {
2756                 print "Cannot set default theme to $user_theme_default.  That theme does not exist.\n";
2757                 $user_theme_default = $old_def;
2758             }
2759         } elsif ( $input =~ /^\s*\+/ ) {
2760             print "What is the name of this theme? ";
2761             $name = <STDIN>;
2762             $name =~ s/[\r\n]//g;
2763             $user_theme_name[ $#user_theme_name + 1 ] = $name;
2764             print "Be sure to put ../css/ before the filename.\n";
2765             print "What file is this stored in (ex: ../css/my_theme/): ";
2766             $name = <STDIN>;
2767             $name =~ s/[\r\n]//g;
2768             $user_theme_path[ $#user_theme_path + 1 ] = $name;
2769         } elsif ( $input =~ /^\s*-\s*[0-9]?/ ) {
2770             if ( $input =~ /[0-9]+\s*$/ ) {
2771                 $rem_num = $input;
2772                 $rem_num =~ s/^\s*-\s*//g;
2773                 $rem_num =~ s/\s*$//;
2774             } else {
2775                 $rem_num = $#user_theme_name;
2776             }
2777             if ( $rem_num == $user_theme_default ) {
2778                 print "You cannot remove the default theme!\n";
2779             } else {
2780                 $count          = 0;
2781                 @new_theme_name = ();
2782                 @new_theme_path = ();
2783                 while ( $count <= $#user_theme_name ) {
2784                     if ( $count != $rem_num ) {
2785                         @new_theme_name = ( @new_theme_name, $user_theme_name[$count] );
2786                         @new_theme_path = ( @new_theme_path, $user_theme_path[$count] );
2787                     }
2788                     $count++;
2789                 }
2790                 @user_theme_name = @new_theme_name;
2791                 @user_theme_path = @new_theme_path;
2792                 if ( $user_theme_default > $rem_num ) {
2793                     $user_theme_default--;
2794                 }
2795             }
2796         } elsif ( $input =~ /^\s*t\s*/i ) {
2797             print "\nStarting detection...\n\n";
2798
2799             opendir( DIR, "../css" );
2800             @files = sort(readdir(DIR));
2801             $cnt = 0;
2802             while ( $cnt <= $#files ) {
2803                 $filename = "../css/" . $files[$cnt] .'/';
2804                 if ( $files[$cnt] !~ /^\./ && $filename ne "../css/rtl.css" && -e $filename . "default.css" ) {
2805                     $found = 0;
2806                     for ( $x = 0 ; $x <= $#user_theme_path ; $x++ ) {
2807                         if ( $user_theme_path[$x] eq $filename ) {
2808                             $found = 1;
2809                         }
2810                     }
2811                     if ( $found != 1 ) {
2812                         print "** Found user theme: $filename\n";
2813                         $def = $files[$cnt];
2814                         $def =~ s/_/ /g;
2815                         $def = lc($def);
2816                         #$def =~ s/(^\w+)/ucfirst $1/eg;
2817                         #$def =~ s/(\s+)(\w+)/$1 . ucfirst $2/eg;
2818                         $def =~ s/(^\w+)|(\s+)(\w+)/ucfirst $1 . $2 . ucfirst $3/eg;
2819                         print "   What is its name? [$def]: ";
2820                         $nm = <STDIN>;
2821                         $nm =~ s/^\s+|\s+$|[\n\r]//g;
2822                         if ( $nm eq '' ) { $nm = $def; }
2823                         $user_theme_name[ $#user_theme_name + 1 ] = $nm;
2824                         $user_theme_path[ $#user_theme_path + 1 ] = $filename;
2825                     }
2826                 }
2827                 $cnt++;
2828             }
2829             print "\n";
2830             for ( $cnt = 0 ; $cnt <= $#user_theme_path ; $cnt++ ) {
2831                 $filename = $user_theme_path[$cnt];
2832                 if ( $filename != 'none' && !( -e $filename ."/default.css" ) ) {
2833                     print "  Removing $filename (file not found)\n";
2834                     $offset         = 0;
2835                     @new_user_theme_name = ();
2836                     @new_user_theme_path = ();
2837                     for ( $x = 0 ; $x < $#user_theme_path ; $x++ ) {
2838                         if ( $user_theme_path[$x] eq $filename ) {
2839                             $offset = 1;
2840                         }
2841                         if ( $offset == 1 ) {
2842                             $new_user_theme_name[$x] = $user_theme_name[ $x + 1 ];
2843                             $new_user_theme_path[$x] = $user_theme_path[ $x + 1 ];
2844                         } else {
2845                             $new_user_theme_name[$x] = $user_theme_name[$x];
2846                             $new_user_theme_path[$x] = $user_theme_path[$x];
2847                         }
2848                     }
2849                     @user_theme_name = @new_user_theme_name;
2850                     @user_theme_path = @new_user_theme_path;
2851                 }
2852             }
2853             print "\nDetection complete!\n\n";
2854
2855             closedir DIR;
2856         } elsif ( $input =~ /^\s*\?\s*/ ) {
2857             print ".------------------------------------.\n";
2858             print "| t             (detect user themes) |\n";
2859             print "| +                 (add user theme) |\n";
2860             print "| - N            (remove user theme) |\n";
2861             print "| m N      (mark default user theme) |\n";
2862             print "| l               (list user themes) |\n";
2863             print "| d                           (done) |\n";
2864             print "`------------------------------------'\n";
2865         }
2866         print "[user_themes] command (?=help) > ";
2867         $input = <STDIN>;
2868         $input =~ s/[\r\n]//g;
2869     }
2870 }
2871
2872 sub command_iconSets {
2873     print "\nDefine the icon themes that you wish to use.  If you have added\n";
2874     print "a theme of your own, just follow the instructions (?) about\n";
2875     print "how to add them.  You can also change the default and fallback\n";
2876     print "themes.  The default theme will be used when no icon theme is\n";
2877     print "set by the user.  The fallback theme will be used if an icon\n";
2878     print "cannot be found in the currently selected icon theme.\n\n";
2879
2880     print "Available icon themes:\n\n";
2881
2882     $count = 0;
2883     while ( $count <= $#icon_theme_name ) {
2884         if ( $count == $icon_theme_def ) {
2885             print " d";
2886         } else {
2887             print "  ";
2888         }
2889         if ( $count eq $icon_theme_fallback ) {
2890             print "f ";
2891         } else {
2892             print "  ";
2893         }
2894         if ( $count < 10 ) {
2895             print " ";
2896         }
2897         $name       = $icon_theme_name[$count];
2898         $num_spaces = 35 - length($name);
2899         for ( $i = 0 ; $i < $num_spaces ; $i++ ) {
2900             $name = $name . " ";
2901         }
2902
2903         print " $count.  $name";
2904         print "($icon_theme_path[$count])\n";
2905
2906         $count++;
2907     }
2908
2909     print "\n d = Default icon theme\n";
2910     print " f = Fallback icon theme\n";
2911     print "\n";
2912     print ".------------------------------------.\n";
2913     print "| t             (detect icon themes) |\n";
2914     print "| +                 (add icon theme) |\n";
2915     print "| - N            (remove icon theme) |\n";
2916     print "| m N      (mark default icon theme) |\n";
2917     print "| f N        (set fallback icon set) |\n";
2918     print "| l               (list icon themes) |\n";
2919     print "| d                           (done) |\n";
2920     print "`------------------------------------'\n";
2921
2922     print "\n[icon_themes] command (?=help) > ";
2923     $input = <STDIN>;
2924     $input =~ s/[\r\n]//g;
2925     while ( $input ne "d" ) {
2926         if ( $input =~ /^\s*l\s*/i ) {
2927             $count = 0;
2928             print "\n";
2929             while ( $count <= $#icon_theme_name ) {
2930                         if ( $count == $icon_theme_def ) {
2931                             print " d";
2932                         } else {
2933                             print "  ";
2934                         }
2935                         if ( $count eq $icon_theme_fallback ) {
2936                             print "f ";
2937                         } else {
2938                             print "  ";
2939                         }
2940                 $name       = $icon_theme_name[$count];
2941                 $num_spaces = 35 - length($name);
2942                 for ( $i = 0 ; $i < $num_spaces ; $i++ ) {
2943                     $name = $name . " ";
2944                 }
2945
2946                 print " $count.  $name";
2947                 print "($icon_theme_path[$count])\n";
2948
2949                 $count++;
2950             }
2951                     print "\n d = Default icon theme\n";
2952                     print " f = Fallback icon theme\n\n";
2953         } elsif ( $input =~ /^\s*m\s*[0-9]+/i ) {
2954             $old_def       = $icon_theme_def;
2955             $icon_theme_def = $input;
2956             $icon_theme_def =~ s/^\s*m\s*//;
2957             if ( ( $icon_theme_default > $#icon_theme_name ) || ( $icon_theme_default < 0 ) ) {
2958                 print "Cannot set default icon theme to $icon_theme_default.  That theme does not exist.\n";
2959                 $icon_theme_def = $old_def;
2960             }
2961         } elsif ( $input =~ /^\s*f\s*[0-9]+/i ) {
2962             $old_fb       = $icon_theme_fallback;
2963             $icon_theme_fallback = $input;
2964             $icon_theme_fallback =~ s/^\s*f\s*//;
2965             if ( ( $icon_theme_fallback > $#icon_theme_name ) || ( $icon_theme_fallback < 0 ) ) {
2966                 print "Cannot set fallback icon theme to $icon_theme_fallback.  That theme does not exist.\n";
2967                 $icon_theme_fallback = $old_fb;
2968             }
2969         } elsif ( $input =~ /^\s*\+/ ) {
2970             print "What is the name of this icon theme? ";
2971             $name = <STDIN>;
2972             $name =~ s/[\r\n]//g;
2973             $icon_theme_name[ $#icon_theme_name + 1 ] = $name;
2974             print "Be sure to put ../images/themes/ before the filename.\n";
2975             print "What directory is this icon theme stored in (ex: ../images/themes/my_theme/)? ";
2976             $name = <STDIN>;
2977             $name =~ s/[\r\n]//g;
2978             $icon_theme_path[ $#icon_theme_path + 1 ] = $name;
2979         } elsif ( $input =~ /^\s*-\s*[0-9]?/ ) {
2980             if ( $input =~ /[0-9]+\s*$/ ) {
2981                 $rem_num = $input;
2982                 $rem_num =~ s/^\s*-\s*//g;
2983                 $rem_num =~ s/\s*$//;
2984             } else {
2985                 $rem_num = $#icon_theme_name;
2986             }
2987             if ( $rem_num == $icon_theme_def ) {
2988                 print "You cannot remove the default icon theme!\n";
2989             } elsif ( $rem_num == $icon_theme_fallback ) {
2990                 print "You cannot remove the fallback icon theme!\n";
2991             } else {
2992                 $count          = 0;
2993                 @new_theme_name = ();
2994                 @new_theme_path = ();
2995                 while ( $count <= $#icon_theme_name ) {
2996                     if ( $count != $rem_num ) {
2997                         @new_theme_name = ( @new_theme_name, $icon_theme_name[$count] );
2998                         @new_theme_path = ( @new_theme_path, $icon_theme_path[$count] );
2999                     }
3000                     $count++;
3001                 }
3002                 @icon_theme_name = @new_theme_name;
3003                 @icon_theme_path = @new_theme_path;
3004                 if ( $icon_theme_def > $rem_num ) {
3005                     $icon_theme_def--;
3006                 }
3007             }
3008         } elsif ( $input =~ /^\s*t\s*/i ) {
3009             print "\nStarting detection...\n\n";
3010
3011             opendir( DIR, "../images/themes/" );
3012             @files = sort(readdir(DIR));
3013             $cnt = 0;
3014             while ( $cnt <= $#files ) {
3015                 $filename = "../images/themes/" . $files[$cnt] .'/';
3016                 if ( -d "../images/themes/" . $files[$cnt] && $files[$cnt] !~ /^\./ && $files[$cnt] ne ".svn" ) {
3017                     $found = 0;
3018                     for ( $x = 0 ; $x <= $#icon_theme_path ; $x++ ) {
3019                         if ( $icon_theme_path[$x] eq $filename ) {
3020                             $found = 1;
3021                         }
3022                     }
3023                     if ( $found != 1 ) {
3024                         print "** Found icon theme: $filename\n";
3025                         $def = $files[$cnt];
3026                         $def =~ s/_/ /g;
3027                         $def = lc($def);
3028                         #$def =~ s/(^\w+)/ucfirst $1/eg;
3029                         #$def =~ s/(\s+)(\w+)/$1 . ucfirst $2/eg;
3030                         $def =~ s/(^\w+)|(\s+)(\w+)/ucfirst $1 . $2 . ucfirst $3/eg;
3031                         print "   What is its name? [$def]: ";
3032                         $nm = <STDIN>;
3033                         $nm =~ s/^\s+|\s+$|[\n\r]//g;
3034                         if ( $nm eq '' ) { $nm = $def; }
3035                         $icon_theme_name[ $#icon_theme_name + 1 ] = $nm;
3036                         $icon_theme_path[ $#icon_theme_path + 1 ] = $filename;
3037                     }
3038                 }
3039                 $cnt++;
3040             }
3041             print "\n";
3042             for ( $cnt = 0 ; $cnt <= $#icon_theme_path ; $cnt++ ) {
3043                 $filename = $icon_theme_path[$cnt];
3044                 if ( $filename ne "none" && $filename ne "template" && ! -d $filename ) {
3045                     print "  Removing $filename (file not found)\n";
3046                     $offset         = 0;
3047                     @new_icon_theme_name = ();
3048                     @new_icon_theme_path = ();
3049                     for ( $x = 0 ; $x < $#icon_theme_path ; $x++ ) {
3050                         if ( $icon_theme_path[$x] eq $filename ) {
3051                             $offset = 1;
3052                         }
3053                         if ( $offset == 1 ) {
3054                             $new_icon_theme_name[$x] = $icon_theme_name[ $x + 1 ];
3055                             $new_icon_theme_path[$x] = $icon_theme_path[ $x + 1 ];
3056                         } else {
3057                             $new_icon_theme_name[$x] = $icon_theme_name[$x];
3058                             $new_icon_theme_path[$x] = $icon_theme_path[$x];
3059                         }
3060                     }
3061                     @icon_theme_name = @new_icon_theme_name;
3062                     @icon_theme_path = @new_icon_theme_path;
3063                 }
3064             }
3065             print "\nDetection complete!\n\n";
3066
3067             closedir DIR;
3068         } elsif ( $input =~ /^\s*\?\s*/ ) {
3069             print ".------------------------------------.\n";
3070             print "| t             (detect icon themes) |\n";
3071             print "| +                 (add icon theme) |\n";
3072             print "| - N            (remove icon theme) |\n";
3073             print "| m N      (mark default icon theme) |\n";
3074             print "| f N        (set fallback icon set) |\n";
3075             print "| l               (list icon themes) |\n";
3076             print "| d                           (done) |\n";
3077             print "`------------------------------------'\n";
3078         }
3079         print "[icon_themes] command (?=help) > ";
3080         $input = <STDIN>;
3081         $input =~ s/[\r\n]//g;
3082     }
3083 }
3084
3085 sub command_templates {
3086     print "\nDefine the template sets (skins) that you wish to use.  If you have added\n";
3087     print "a template set of your own, just follow the instructions (?) about\n";
3088     print "how to add them.  You can also change the default template.\n";
3089
3090     print "\n  Available Templates:\n";
3091
3092     $count = 0;
3093     while ( $count <= $#templateset_name ) {
3094         if ( $templateset_id[$count] eq $templateset_default ) {
3095             print " d";
3096         } else {
3097             print "  ";
3098         }
3099         if ( $templateset_id[$count] eq $templateset_fallback ) {
3100             print "f ";
3101         } else {
3102             print "  ";
3103         }
3104         if ( $count < 10 ) {
3105             print " ";
3106         }
3107         $name       = $templateset_name[$count];
3108         $num_spaces = 35 - length($name);
3109         for ( $i = 0 ; $i < $num_spaces ; $i++ ) {
3110             $name = $name . " ";
3111         }
3112
3113         print " $count.  $name";
3114         print "($templateset_id[$count])\n";
3115
3116         $count++;
3117    }
3118    print "\n  d = default template set\n"
3119        . "  f = fallback template set\n\n";
3120
3121     $menu_text = ".-------------------------------------.\n"
3122                . "| t             (detect template set) |\n"
3123                . "| +                (add template set) |\n"
3124                . "| - N           (remove template set) |\n"
3125                . "| m N     (mark default template set) |\n"
3126                . "| f N     (set fallback template set) |\n"
3127                . "| l        (list template sets/skins) |\n"
3128                . "| d                            (done) |\n"
3129                . "|-------------------------------------|\n"
3130                . "| where N is a template set number    |\n"
3131                . "`-------------------------------------'\n";
3132     print "\n";
3133     print $menu_text;
3134     print "\n[template set] command (?=help) > ";
3135
3136     $input = <STDIN>;
3137     $input =~ s/[\r\n]//g;
3138     while ( $input ne "d" ) {
3139
3140         # list template sets
3141         #
3142         if ( $input =~ /^\s*l\s*/i ) {
3143             $count = 0;
3144             while ( $count <= $#templateset_name ) {
3145                 if ( $templateset_id[$count] eq $templateset_default ) {
3146                     print " d";
3147                 } else {
3148                     print "  ";
3149                 }
3150                 if ( $templateset_id[$count] eq $templateset_fallback ) {
3151                     print "f ";
3152                 } else {
3153                     print "  ";
3154                 }
3155                 if ( $count < 10 ) {
3156                     print " ";
3157                 }
3158                 $name       = $templateset_name[$count];
3159                 $num_spaces = 35 - length($name);
3160                 for ( $i = 0 ; $i < $num_spaces ; $i++ ) {
3161                     $name = $name . " ";
3162                 }
3163
3164                 print " $count.  $name";
3165                 print "($templateset_id[$count])\n";
3166
3167                 $count++;
3168             }
3169             print "\n  d = default template set\n"
3170                 . "  f = fallback template set\n\n";
3171
3172         # mark default template set
3173         #
3174         } elsif ( $input =~ /^\s*m\s*[0-9]+/i ) {
3175             $old_def       = $templateset_default;
3176             $input =~ s/^\s*m\s*//;
3177             $templateset_default = $templateset_id[$input];
3178             if ( $templateset_default =~ /^\s*$/ ) {
3179                 print "Cannot set default template set to $input.  That template set does not exist.\n";
3180                 $templateset_default = $old_def;
3181             }
3182
3183         # set fallback template set
3184         #
3185         } elsif ( $input =~ /^\s*f\s*[0-9]+/i ) {
3186             $old_def       = $templateset_fallback;
3187             $input =~ s/^\s*f\s*//;
3188             $templateset_fallback = $templateset_id[$input];
3189             if ( $templateset_fallback =~ /^\s*$/ ) {
3190                 print "Cannot set fallback template set to $input.  That template set does not exist.\n";
3191                 $templateset_fallback = $old_def;
3192             }
3193
3194         # add template set
3195         #
3196         } elsif ( $input =~ /^\s*\+/ ) {
3197             print "\nWhat is the name of this template (as shown to your users): ";
3198             $name = <STDIN>;
3199             $name =~ s/[\r\n]//g;
3200             $templateset_name[ $#templateset_name + 1 ] = $name;
3201             print "\n\nThe directory name should not contain any path information\n"
3202                 . "or slashes, and should be the name of the directory that the\n"
3203                 . "template set is found in within the SquirrelMail templates\n"
3204                 . "directory.\n\n";
3205             print "What directory is this stored in (ex: default_advanced): ";
3206             $name = <STDIN>;
3207             $name =~ s/[\r\n]//g;
3208             $templateset_id[ $#templateset_id + 1 ] = $name;
3209
3210         # detect template sets
3211         #
3212         } elsif ( $input =~ /^\s*t\s*/i ) {
3213             print "\nStarting detection...\n\n";
3214             opendir( DIR, "../templates" );
3215             @files = sort(readdir(DIR));
3216             $cnt = 0;
3217             while ( $cnt <= $#files ) {
3218                 if ( -d "../templates/" . $files[$cnt] && $files[$cnt] !~ /^\./ && $files[$cnt] ne ".svn" ) {
3219                     $filename = $files[$cnt];
3220                     $found = 0;
3221                     for ( $x = 0 ; $x <= $#templateset_id ; $x++ ) {
3222                         if ( $templateset_id[$x] eq $filename ) {
3223                             $found = 1;
3224                             last;
3225                         }
3226                     }
3227                     if ( $found != 1) {
3228                         print "** Found template set: $filename\n";
3229                         $def = $files[$cnt];
3230                         $def =~ s/_/ /g;
3231                         $def = lc($def);
3232                         #$def =~ s/(^\w+)/ucfirst $1/eg;
3233                         #$def =~ s/(\s+)(\w+)/$1 . ucfirst $2/eg;
3234                         $def =~ s/(^\w+)|(\s+)(\w+)/ucfirst $1 . $2 . ucfirst $3/eg;
3235                         print "   What is it's name (as shown to your users)? [$def]: ";
3236                         $nm = <STDIN>;
3237                         $nm =~ s/^\s+|\s+$|[\n\r]//g;
3238                         if ( $nm eq '' ) { $nm = $def; }
3239                         $templateset_id[ $#templateset_id + 1 ] = $filename;
3240                         $templateset_name[ $#templateset_name + 1 ] = $nm;
3241                     }
3242                 }
3243                 $cnt++;
3244             }
3245             print "\n";
3246             for ( $cnt= 0 ; $cnt <= $#templateset_id ; ) {
3247                 $filename = $templateset_id[$cnt];
3248                 if ( !(-d  change_to_rel_path('SM_PATH . \'templates/' . $filename)) ) {
3249                     print "  Removing \"$filename\" (template set directory not found)\n";
3250                     if ( $templateset_default eq $filename ) { $templateset_default = 'default'; }
3251                     if ( $templateset_fallback eq $filename ) { $templateset_fallback = 'default'; }
3252                     $offset         = 0;
3253                     @new_templateset_name = ();
3254                     @new_templateset_id = ();
3255                     for ( $x = 0 ; $x < $#templateset_id ; $x++ ) {
3256                         if ( $templateset_id[$x] eq $filename ) {
3257                             $offset = 1;
3258                         }
3259                         if ( $offset == 1 ) {
3260                             $new_templateset_name[$x] = $templateset_name[ $x + 1 ];
3261                             $new_templateset_id[$x] = $templateset_id[ $x + 1 ];
3262                         } else {
3263                             $new_templateset_name[$x] = $templateset_name[$x];
3264                             $new_templateset_id[$x] = $templateset_id[$x];
3265                         }
3266                     }
3267                     @templateset_name = @new_templateset_name;
3268                     @templateset_id = @new_templateset_id;
3269                 } else { $cnt++; }
3270             }
3271             print "\nDetection complete!\n\n";
3272
3273             closedir DIR;
3274
3275         # remove template set
3276         #
3277         # undocumented functionality of removing last template set isn't that great
3278         #} elsif ( $input =~ /^\s*-\s*[0-9]?/ ) {
3279         } elsif ( $input =~ /^\s*-\s*[0-9]+/ ) {
3280             if ( $input =~ /[0-9]+\s*$/ ) {
3281                 $rem_num = $input;
3282                 $rem_num =~ s/^\s*-\s*//g;
3283                 $rem_num =~ s/\s*$//;
3284             } else {
3285                 $rem_num = $#templateset_name;
3286             }
3287             if ( $templateset_id[$rem_num] eq $templateset_default ) {
3288                 print "You cannot remove the default template set!\n";
3289             } elsif ( $templateset_id[$rem_num] eq $templateset_fallback ) {
3290                 print "You cannot remove the fallback template set!\n";
3291             } else {
3292                 $count          = 0;
3293                 @new_templateset_name = ();
3294                 @new_templateset_id = ();
3295                 while ( $count <= $#templateset_name ) {
3296                     if ( $count != $rem_num ) {
3297                         @new_templateset_name = ( @new_templateset_name, $templateset_name[$count] );
3298                         @new_templateset_id = ( @new_templateset_id, $templateset_id[$count] );
3299                     }
3300                     $count++;
3301                 }
3302                 @templateset_name = @new_templateset_name;
3303                 @templateset_id = @new_templateset_id;
3304             }
3305
3306         # help
3307         #
3308         } elsif ( $input =~ /^\s*\?\s*/ ) {
3309             print $menu_text;
3310
3311         # command not understood
3312         #
3313         } else {
3314             print "Command not understood\n";
3315         }
3316
3317         print "[template set] command (?=help) > ";
3318         $input = <STDIN>;
3319         $input =~ s/[\r\n]//g;
3320     }
3321     return $templateset_default;
3322 }
3323
3324
3325 # sets default font size option
3326 sub command_default_fontsize {
3327     print "Enter default font size [$WHT$$default_fontsize$NRM]: $WHT";
3328     $new_size = <STDIN>;
3329     if ( $new_size eq "\n" ) {
3330         $new_size = $size;
3331     } else {
3332         $new_size =~ s/[\r\n]//g;
3333     }
3334     return $new_size;
3335 }
3336
3337 # controls available fontsets
3338 sub command_fontsets {
3339     # Greeting
3340     print "You can control fontsets available to end users here.\n";
3341     # set initial $input value
3342     $input = 'l';
3343     while ( $input ne "x" ) {
3344         if ( $input =~ /^\s*a\s*/i ) {
3345             # add new fontset
3346             print "\nFontset name: ";
3347             $name = <STDIN>;
3348             if (! $fontsets{trim($name)}) {
3349                 print "Fontset string: ";
3350                 $value = <STDIN>;
3351                 $fontsets{trim($name)} = trim($value);
3352             } else {
3353                 print "\nERROR: Such fontset already exists.\n";
3354             }
3355         } elsif ( $input =~ /^\s*e\s*/i ) {
3356             # edit existing fontset
3357             print "\nFontset name: ";
3358             $name = <STDIN>;
3359             if (! $fontsets{trim($name)}) {
3360                 print "\nERROR: No such fontset.\n";
3361             } else {
3362                 print "Fontset string [$fontsets{trim($name)}]: ";
3363                 $value = <STDIN>;
3364                 $fontsets{trim($name)} = trim($value);
3365             }
3366         } elsif ( $input =~ /^\s*d\s*/ ) {
3367             # delete existing fontset
3368             print "\nFontset name: ";
3369             $name = <STDIN>;
3370             if (! $fontsets{trim($name)}) {
3371                 print "\nERROR: No such fontset.\n";
3372             } else {
3373                 delete $fontsets{trim($name)};
3374             }
3375         } elsif ( $input =~ /^\s*l\s*/ ) {
3376             # list fontsets
3377             print "\nConfigured fontsets:\n";
3378             while (($fontset_name, $fontset_string) = each(%fontsets)) {
3379                 print "  $fontset_name = $fontset_string\n";
3380             }
3381             print "Default fontset: $default_fontset\n";
3382         } elsif ( $input =~ /^\s*m\s*/ ) {
3383             # set default fontset
3384             print "\nSet default fontset [$default_fontset]: ";
3385             $name = <STDIN>;
3386             if (trim($name) ne '' and ! $fontsets{trim($name)}) {
3387                 print "\nERROR: No such fontset.\n";
3388             } else {
3389                 $default_fontset = trim($name);
3390             }
3391         } else {
3392             # print available commands on any other input
3393             print "\nAvailable commands:\n";
3394             print "  a - Adds new fontset.\n";
3395             print "  d - Deletes existing fontset.\n";
3396             print "  e - Edits existing fontset.\n";
3397             print "  h or ? - Shows this help screen.\n";
3398             print "  l - Lists available fontsets.\n";
3399             print "  m - Sets default fontset.\n";
3400             print "  x - Exits fontset editor mode.\n";
3401         }
3402         print "\nCommand [fontsets] (a,d,e,h,?=help,l,m,x)> ";
3403         $input = <STDIN>;
3404         $input =~ s/[\r\n]//g;
3405     }
3406 }
3407
3408 sub command61 {
3409     print "You can now define different LDAP servers.\n";
3410     print "Please ensure proper permissions for config.php when including\n";
3411     print "sensitive passwords.\n\n";
3412     print "[ldap] command (?=help) > ";
3413     $input = <STDIN>;
3414     $input =~ s/[\r\n]//g;
3415     while ( $input ne "d" ) {
3416         if ( $input =~ /^\s*l\s*/i ) {
3417             $count = 0;
3418             while ( $count <= $#ldap_host ) {
3419                 print "$count. $ldap_host[$count]\n";
3420                 print "        base: $ldap_base[$count]\n";
3421                 if ( $ldap_charset[$count] ) {
3422                     print "     charset: $ldap_charset[$count]\n";
3423                 }
3424                 if ( $ldap_port[$count] ) {
3425                     print "        port: $ldap_port[$count]\n";
3426                 }
3427                 if ( $ldap_name[$count] ) {
3428                     print "        name: $ldap_name[$count]\n";
3429                 }
3430                 if ( $ldap_maxrows[$count] ) {
3431                     print "     maxrows: $ldap_maxrows[$count]\n";
3432                 }
3433                 if ( $ldap_filter[$count] ) {
3434                     print "      filter: $ldap_filter[$count]\n";
3435                 }
3436                 if ( $ldap_binddn[$count] ) {
3437                     print "      binddn: $ldap_binddn[$count]\n";
3438                     if ( $ldap_bindpw[$count] ) {
3439                         print "      bindpw: $ldap_bindpw[$count]\n";
3440                     }
3441                 }
3442                 if ( $ldap_protocol[$count] ) {
3443                     print "    protocol: $ldap_protocol[$count]\n";
3444                 }
3445                 if ( $ldap_limit_scope[$count] ) {
3446                     print " limit_scope: $ldap_limit_scope[$count]\n";
3447                 }
3448                 if ( $ldap_listing[$count] ) {
3449                     print "     listing: $ldap_listing[$count]\n";
3450                 }
3451                 if ( $ldap_writeable[$count] ) {
3452                     print "   writeable: $ldap_writeable[$count]\n";
3453                 }
3454                 if ( $ldap_search_tree[$count] ) {
3455                     print " search_tree: $ldap_search_tree[$count]\n";
3456                 }
3457                 if ( $ldap_starttls[$count] ) {
3458                     print "    starttls: $ldap_starttls[$count]\n";
3459                 }
3460
3461                 print "\n";
3462                 $count++;
3463             }
3464         } elsif ( $input =~ /^\s*\+/ ) {
3465             $sub = $#ldap_host + 1;
3466
3467             print "First, we need to have the hostname or the IP address where\n";
3468             print "this LDAP server resides. Example: ldap.bigfoot.com\n";
3469             print "\n";
3470             print "You can use any URI compatible with your LDAP library. Please\n";
3471             print "note that StartTLS option is not compatible with ldaps and\n";
3472             print "ldapi URIs.\n";
3473             print "hostname: ";
3474             $name = <STDIN>;
3475             $name =~ s/[\r\n]//g;
3476             $ldap_host[$sub] = $name;
3477
3478             print "\n";
3479
3480             print "Next, we need the server root (base dn).  For this, an empty\n";
3481             print "string is allowed.\n";
3482             print "Example: ou=member_directory,o=netcenter.com\n";
3483             print "base: ";
3484             $name = <STDIN>;
3485             $name =~ s/[\r\n]//g;
3486             $ldap_base[$sub] = $name;
3487
3488             print "\n";
3489
3490             print "This is the TCP/IP port number for the LDAP server.  Default\n";
3491             print "port is 389.  This is optional.  Press ENTER for default.\n";
3492             print "port: ";
3493             $name = <STDIN>;
3494             $name =~ s/[\r\n]//g;
3495             $ldap_port[$sub] = $name;
3496
3497             print "\n";
3498
3499             print "This is the charset for the server.  Default is utf-8.  This\n";
3500             print "is also optional.  Press ENTER for default.\n";
3501             print "charset: ";
3502             $name = <STDIN>;
3503             $name =~ s/[\r\n]//g;
3504             $ldap_charset[$sub] = $name;
3505
3506             print "\n";
3507
3508             print "This is the name for the server, used to tag the results of\n";
3509             print "the search.  Default it \"LDAP: hostname\".  Press ENTER for default\n";
3510             print "name: ";
3511             $name = <STDIN>;
3512             $name =~ s/[\r\n]//g;
3513             $ldap_name[$sub] = $name;
3514
3515             print "\n";
3516
3517             print "You can specify the maximum number of rows in the search result.\n";
3518             print "Default value is equal to 250 rows.  Press ENTER for default.\n";
3519             print "maxrows: ";
3520             $name = <STDIN>;
3521             $name =~ s/[\r\n]//g;
3522             $ldap_maxrows[$sub] = $name;
3523
3524
3525             print "\n";
3526
3527             print "If your LDAP server does not like anonymous logins, you can specify bind DN.\n";
3528             print "Default is none, anonymous bind.  Press ENTER for default.\n";
3529             print "binddn: ";
3530             $name = <STDIN>;
3531             $name =~ s/[\r\n]//g;
3532             $ldap_binddn[$sub] = $name;
3533
3534             print "\n";
3535
3536             if ( $ldap_binddn[$sub] ne '' ) {
3537
3538                 print "Now, please specify password for that DN.\n";
3539                 print "bindpw: ";
3540                 $name = <STDIN>;
3541                 $name =~ s/[\r\n]//g;
3542                 $ldap_bindpw[$sub] = $name;
3543
3544                 print "\n";
3545             }
3546
3547             print "You can specify bind protocol version here.\n";
3548             print "Default protocol version depends on your php ldap settings.\n";
3549             print "Press ENTER for default.\n";
3550             print "protocol: ";
3551             $name = <STDIN>;
3552             $name =~ s/[\r\n]//g;
3553             $ldap_protocol[$sub] = $name;
3554
3555             print "\n";
3556
3557             print "This configuration section allows to set some rarely used\n";
3558             print "options and options specific to some LDAP implementations.\n";
3559             print "\n";
3560             print "Do you want to set advanced LDAP directory settings? (y/N):";
3561             $ldap_advanced_settings = <STDIN>;
3562             if ( $ldap_advanced_settings =~ /^y\n/i ) {
3563                 $ldap_advanced_settings = 'true';
3564             } else {
3565                 $ldap_advanced_settings = 'false';
3566             }
3567
3568             if ($ldap_advanced_settings eq 'true') {
3569               print "\n";
3570
3571               print "You can control LDAP directory listing here. This option can\n";
3572               print "be useful if you run small LDAP server and want to provide listing\n";
3573               print "of all addresses stored in LDAP to users of webmail interface.\n";
3574               print "Number of displayed entries is limited by maxrows setting.\n";
3575               print "\n";
3576               print "Don't enable this option for public LDAP directories.\n";
3577               print "\n";
3578               print "Allow listing of LDAP directory? (y/N):";
3579               $name = <STDIN>;
3580               if ( $name =~ /^y\n/i ) {
3581                 $name = 'true';
3582               } else {
3583                 $name = 'false';
3584               }
3585               $ldap_listing[$sub] = $name;
3586
3587               print "\n";
3588
3589               print "You can control write access to LDAP address book here. This option can\n";
3590               print "be useful if you run small LDAP server and want to provide writable\n";
3591               print "shared address book stored in LDAP to users of webmail interface.\n";
3592               print "\n";
3593               print "Don't enable this option for public LDAP directories.\n";
3594               print "\n";
3595               print "Allow writing to LDAP directory? (y/N):";
3596               $name = <STDIN>;
3597               if ( $name =~ /^y\n/i ) {
3598                 $name = 'true';
3599               } else {
3600                 $name = 'false';
3601               }
3602               $ldap_writeable[$sub] = $name;
3603
3604               print "\n";
3605
3606               print "You can specify an additional search filter.\n";
3607               print "This could be something like \"(objectclass=posixAccount)\".\n";
3608               print "No filtering is performed by default. Press ENTER for default.\n";
3609               print "filter: ";
3610               $name = <STDIN>;
3611               $name =~ s/[\r|\n]//g;
3612               $ldap_filter[$sub] = $name;
3613
3614               print "\n";
3615
3616               print "You can control search scope here.\n";
3617               print "This option is specific to Microsoft ADS implementation.\n";
3618               print "It requires use of v3 or newer LDAP protocol.\n";
3619               print "Don't enable it, if you use other LDAP server.\n";
3620               print "\n";
3621               print "Limit ldap scope? (y/N):";
3622               $name = <STDIN>;
3623               if ( $name =~ /^y\n/i ) {
3624                 $name = 'true';
3625               } else {
3626                 $name = 'false';
3627               }
3628               $ldap_limit_scope[$sub] = $name;
3629
3630               print "\n";
3631
3632               print "You can control ldap search type here.\n";
3633               print "Addresses can be searched in entire LDAP subtree (default)\n";
3634               print "or only first level entries are returned.\n";
3635               print "\n";
3636               print "Search entire LDAP subtree? (Y/n):";
3637               $name = <STDIN>;
3638               if ( $name =~ /^n\n/i ) {
3639                 $name = 'false';
3640               } else {
3641                 $name = 'true';
3642               }
3643               $ldap_search_tree[$sub] = $name;
3644
3645               print "\n";
3646
3647               print "You can control use of StartTLS on LDAP connection here.\n";
3648               print "This option requires use of v3 or newer LDAP protocol and php 4.2+.\n";
3649               print "\n";
3650               print "Use StartTLS? (y/N):";
3651               $name = <STDIN>;
3652               if ( $name =~ /^y\n/i ) {
3653                 $name = 'true';
3654               } else {
3655                 $name = 'false';
3656               }
3657               $ldap_starttls[$sub] = $name;
3658             }
3659             print "\n";
3660
3661         } elsif ( $input =~ /^\s*-\s*[0-9]?/ ) {
3662             if ( $input =~ /[0-9]+\s*$/ ) {
3663                 $rem_num = $input;
3664                 $rem_num =~ s/^\s*-\s*//g;
3665                 $rem_num =~ s/\s*$//;
3666             } else {
3667                 $rem_num = $#ldap_host;
3668             }
3669             $count            = 0;
3670             @new_ldap_host    = ();
3671             @new_ldap_base    = ();
3672             @new_ldap_port    = ();
3673             @new_ldap_name    = ();
3674             @new_ldap_charset = ();
3675             @new_ldap_maxrows = ();
3676             @new_ldap_filter  = ();
3677             @new_ldap_bindpw  = ();
3678             @new_ldap_binddn  = ();
3679             @new_ldap_protocol = ();
3680             @new_ldap_limit_scope = ();
3681             @new_ldap_listing = ();
3682             @new_ldap_writeable = ();
3683             @new_ldap_search_tree = ();
3684             @new_ldap_starttls = ();
3685
3686             while ( $count <= $#ldap_host ) {
3687                 if ( $count != $rem_num ) {
3688                     @new_ldap_host    = ( @new_ldap_host,    $ldap_host[$count] );
3689                     @new_ldap_base    = ( @new_ldap_base,    $ldap_base[$count] );
3690                     @new_ldap_port    = ( @new_ldap_port,    $ldap_port[$count] );
3691                     @new_ldap_name    = ( @new_ldap_name,    $ldap_name[$count] );
3692                     @new_ldap_charset = ( @new_ldap_charset, $ldap_charset[$count] );
3693                     @new_ldap_maxrows = ( @new_ldap_maxrows, $ldap_maxrows[$count] );
3694                     @new_ldap_filter  = ( @new_ldap_filter,  $ldap_filter[$count] );
3695                     @new_ldap_binddn  = ( @new_ldap_binddn,  $ldap_binddn[$count] );
3696                     @new_ldap_bindpw  = ( @new_ldap_bindpw,  $ldap_bindpw[$count] );
3697                     @new_ldap_protocol  = ( @new_ldap_protocol,  $ldap_protocol[$count] );
3698                     @new_ldap_limit_scope = ( @new_ldap_limit_scope,  $ldap_limit_scope[$count] );
3699                     @new_ldap_listing = ( @new_ldap_listing, $ldap_listing[$count] );
3700                     @new_ldap_writeable = ( @new_ldap_writeable, $ldap_writeable[$count] );
3701                     @new_ldap_search_tree = ( @new_ldap_search_tree, $ldap_search_tree[$count] );
3702                     @new_ldap_starttls = ( @new_ldap_starttls, $ldap_starttls[$count] );
3703                 }
3704                 $count++;
3705             }
3706             @ldap_host    = @new_ldap_host;
3707             @ldap_base    = @new_ldap_base;
3708             @ldap_port    = @new_ldap_port;
3709             @ldap_name    = @new_ldap_name;
3710             @ldap_charset = @new_ldap_charset;
3711             @ldap_maxrows = @new_ldap_maxrows;
3712             @ldap_filter  = @new_ldap_filter;
3713             @ldap_binddn  = @new_ldap_binddn;
3714             @ldap_bindpw  = @new_ldap_bindpw;
3715             @ldap_protocol = @new_ldap_protocol;
3716             @ldap_limit_scope = @new_ldap_limit_scope;
3717             @ldap_listing = @new_ldap_listing;
3718             @ldap_writeable = @new_ldap_writeable;
3719             @ldap_search_tree = @new_ldap_search_tree;
3720             @ldap_starttls = @new_ldap_starttls;
3721
3722         } elsif ( $input =~ /^\s*\?\s*/ ) {
3723             print ".-------------------------.\n";
3724             print "| +            (add host) |\n";
3725             print "| - N       (remove host) |\n";
3726             print "| l          (list hosts) |\n";
3727             print "| d                (done) |\n";
3728             print "`-------------------------'\n";
3729         }
3730         print "[ldap] command (?=help) > ";
3731         $input = <STDIN>;
3732         $input =~ s/[\r\n]//g;
3733     }
3734 }
3735
3736 sub command62 {
3737     print "Some of our developers have come up with very good javascript interface\n";
3738     print "for searching through address books, however, our original goals said\n";
3739     print "that we would be 100% HTML.  In order to make it possible to use their\n";
3740     print "interface, and yet stick with our goals, we have also written a plain\n";
3741     print "HTML version of the search.  Here, you can choose which version to use.\n";
3742     print "\n";
3743     print "This is just the default value.  It is also a user option that each\n";
3744     print "user can configure individually\n";
3745     print "\n";
3746
3747     if ( lc($default_use_javascript_addr_book) eq 'true' ) {
3748         $default_value = "y";
3749     } else {
3750         $default_use_javascript_addr_book = 'false';
3751         $default_value                    = "n";
3752     }
3753     print "Use javascript version by default (y/n) [$WHT$default_value$NRM]: $WHT";
3754     $new_show = <STDIN>;
3755     if ( ( $new_show =~ /^y\n/i ) || ( ( $new_show =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
3756         $default_use_javascript_addr_book = 'true';
3757     } else {
3758         $default_use_javascript_addr_book = 'false';
3759     }
3760     return $default_use_javascript_addr_book;
3761 }
3762
3763 # global filebased address book
3764 sub command63 {
3765     print "If you want to use global file address book, then you\n";
3766     print "must set this option to a valid value. If option does\n";
3767     print "not have path elements, system assumes that file is\n";
3768     print "stored in data directory. If relative path is set, it is\n";
3769     print "relative to main SquirrelMail directory. If value is empty,\n";
3770     print "address book is not enabled.\n";
3771     print "\n";
3772
3773     print "[$WHT$abook_global_file$NRM]: $WHT";
3774     $new_abook_global_file = <STDIN>;
3775     if ( $new_abook_global_file eq "\n" ) {
3776         $new_abook_global_file = $abook_global_file;
3777     } else {
3778         $new_abook_global_file =~ s/[\r\n]//g;
3779     }
3780     return $new_abook_global_file;
3781 }
3782
3783 # writing into global filebased abook control
3784 sub command64 {
3785     print "This setting controls writing into global file address\n";
3786     print "book options. Address book file must be writeable by\n";
3787     print "webserver's user, if you want to enable this option.\n";
3788     print "\n";
3789
3790     if ( lc($abook_global_file_writeable) eq 'true' ) {
3791         $default_value = "y";
3792     } else {
3793         $abook_global_file_writeable = 'false';
3794         $default_value               = "n";
3795     }
3796     print "Allow writing into global file address book (y/n) [$WHT$default_value$NRM]: $WHT";
3797     $new_show = <STDIN>;
3798     if ( ( $new_show =~ /^y\n/i ) || ( ( $new_show =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
3799         $abook_global_file_writeable = 'true';
3800     } else {
3801         $abook_global_file_writeable = 'false';
3802     }
3803     return $abook_global_file_writeable;
3804 }
3805
3806 # listing of global filebased abook control
3807 sub command65 {
3808     print "This setting controls listing of global file address\n";
3809     print "book in addresses page.\n";
3810     print "\n";
3811
3812     if ( lc($abook_global_file_listing) eq 'true' ) {
3813         $default_value = "y";
3814     } else {
3815         $abook_global_file_listing = 'false';
3816         $default_value               = "n";
3817     }
3818     print "Allow listing of global file address book (y/n) [$WHT$default_value$NRM]: $WHT";
3819     $new_show = <STDIN>;
3820     if ( ( $new_show =~ /^y\n/i ) || ( ( $new_show =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
3821         $abook_global_file_listing = 'true';
3822     } else {
3823         $abook_global_file_listing = 'false';
3824     }
3825     return $abook_global_file_listing;
3826 }
3827
3828 # controls $abook_file_line_length setting
3829 sub command_abook_file_line_length {
3830     print "This setting controls space allocated to file based address book records.\n";
3831     print "End users will be unable to save address book entry, if total entry size \n";
3832     print "(quoted address book fields + 4 delimiters + linefeed) exceeds allowed \n";
3833     print "address book length size.\n";
3834     print "\n";
3835     print "Same setting is applied to personal and global file based address books.\n";
3836     print "\n";
3837     print "It is strongly recommended to keep default setting value. Change it only\n";
3838     print "if you really want to store address book entries that are bigger than two\n";
3839     print "kilobytes (2048).\n";
3840     print "\n";
3841
3842     print "Enter allowed address book line length [$abook_file_line_length]: ";
3843     my $tmp = <STDIN>;
3844     $tmp = trim($tmp);
3845     # value is not modified, if user hits Enter or enters space
3846     if ($tmp ne '') {
3847         # make sure that input is numeric
3848         if ($tmp =~ /^\d+$/) {
3849             $abook_file_line_length = $tmp;
3850         } else {
3851             print "If you want to change this setting, you must enter number.\n";
3852             print "If you want to keep original setting - enter space.\n\n";
3853             print "Press Enter to continue...";
3854             $tmp = <STDIN>;
3855         }
3856     }
3857 }
3858
3859 sub command91 {
3860     print "If you want to store your users address book details in a database then\n";
3861     print "you need to set this DSN to a valid value. The format for this is:\n";
3862     print "mysql://user:pass\@hostname/dbname\n";
3863     print "Where mysql can be one of the databases PHP supports, the most common\n";
3864     print "of these are mysql, msql and pgsql.\n";
3865     print "Please ensure proper permissions for config.php when including\n";
3866     print "sensitive passwords.\n\n";
3867     print "If the DSN is left empty (hit space and then return) the database\n";
3868     print "related code for address books will not be used.\n";
3869     print "\n";
3870
3871     if ( $addrbook_dsn eq "" ) {
3872         $default_value = "Disabled";
3873     } else {
3874         $default_value = $addrbook_dsn;
3875     }
3876     print "[$WHT$addrbook_dsn$NRM]: $WHT";
3877     $new_dsn = <STDIN>;
3878     if ( $new_dsn eq "\n" ) {
3879         $new_dsn = "";
3880     } else {
3881         $new_dsn =~ s/[\r\n]//g;
3882         $new_dsn =~ s/^\s+$//g;
3883     }
3884     return $new_dsn;
3885 }
3886
3887 sub command92 {
3888     print "This is the name of the table you want to store the address book\n";
3889     print "data in, it defaults to 'address'\n";
3890     print "\n";
3891     print "[$WHT$addrbook_table$NRM]: $WHT";
3892     $new_table = <STDIN>;
3893     if ( $new_table eq "\n" ) {
3894         $new_table = $addrbook_table;
3895     } else {
3896         $new_table =~ s/[\r\n]//g;
3897     }
3898     return $new_table;
3899 }
3900
3901 sub command93 {
3902     print "If you want to store your users preferences in a database then\n";
3903     print "you need to set this DSN to a valid value. The format for this is:\n";
3904     print "mysql://user:pass\@hostname/dbname\n";
3905     print "Where mysql can be one of the databases PHP supports, the most common\n";
3906     print "of these are mysql, msql and pgsql.\n";
3907     print "Please ensure proper permissions for config.php when including\n";
3908     print "sensitive passwords.\n\n";
3909     print "If the DSN is left empty (hit space and then return) the database\n";
3910     print "related code for address books will not be used.\n";
3911     print "\n";
3912
3913     if ( $prefs_dsn eq "" ) {
3914         $default_value = "Disabled";
3915     } else {
3916         $default_value = $prefs_dsn;
3917     }
3918     print "[$WHT$prefs_dsn$NRM]: $WHT";
3919     $new_dsn = <STDIN>;
3920     if ( $new_dsn eq "\n" ) {
3921         $new_dsn = "";
3922     } else {
3923         $new_dsn =~ s/[\r\n]//g;
3924         $new_dsn =~ s/^\s+$//g;
3925     }
3926     return $new_dsn;
3927 }
3928
3929 sub command94 {
3930     print "This is the name of the table you want to store the preferences\n";
3931     print "data in, it defaults to 'userprefs'\n";
3932     print "\n";
3933     print "[$WHT$prefs_table$NRM]: $WHT";
3934     $new_table = <STDIN>;
3935     if ( $new_table eq "\n" ) {
3936         $new_table = $prefs_table;
3937     } else {
3938         $new_table =~ s/[\r\n]//g;
3939     }
3940     return $new_table;
3941 }
3942
3943 sub command95 {
3944     print "This is the name of the field in which you want to store the\n";
3945     print "username of the person the prefs are for. It default to 'user'\n";
3946     print "which clashes with a reserved keyword in PostgreSQL so this\n";
3947     print "will need to be changed for that database at least\n";
3948     print "\n";
3949     print "[$WHT$prefs_user_field$NRM]: $WHT";
3950     $new_field = <STDIN>;
3951     if ( $new_field eq "\n" ) {
3952         $new_field = $prefs_user_field;
3953     } else {
3954         $new_field =~ s/[\r\n]//g;
3955     }
3956     $prefs_user_size = db_pref_size($prefs_user_size);
3957     return $new_field;
3958 }
3959
3960 sub command96 {
3961     print "This is the name of the field in which you want to store the\n";
3962     print "preferences keyword. It defaults to 'prefkey'\n";
3963     print "\n";
3964     print "[$WHT$prefs_key_field$NRM]: $WHT";
3965     $new_field = <STDIN>;
3966     if ( $new_field eq "\n" ) {
3967         $new_field = $prefs_key_field;
3968     } else {
3969         $new_field =~ s/[\r\n]//g;
3970     }
3971     $prefs_key_size = db_pref_size($prefs_key_size);
3972     return $new_field;
3973 }
3974
3975 sub command97 {
3976     print "This is the name of the field in which you want to store the\n";
3977     print "preferences value. It defaults to 'prefval'\n";
3978     print "\n";
3979     print "[$WHT$prefs_val_field$NRM]: $WHT";
3980     $new_field = <STDIN>;
3981     if ( $new_field eq "\n" ) {
3982         $new_field = $prefs_val_field;
3983     } else {
3984         $new_field =~ s/[\r\n]//g;
3985     }
3986     $prefs_val_size = db_pref_size($prefs_val_size);
3987     return $new_field;
3988 }
3989
3990 # routine is used to set database field limits
3991 # it needs one argument
3992 sub db_pref_size() {
3993     my ($size) = $_[0];
3994     print "\nDatabase fields have size limits.\n";
3995     print "\n";
3996     print "What limit is set for this field? [$WHT$size$NRM]: $WHT";
3997     $new_size = <STDIN>;
3998     if ( $new_size eq "\n" ) {
3999         $new_size = $size;
4000     } else {
4001         $new_size =~ s/[\r\n]//g;
4002     }
4003     return $new_size;
4004 }
4005
4006 sub command98 {
4007     print "If you want to store your global address book in a database then\n";
4008     print "you need to set this DSN to a valid value. The format for this is:\n";
4009     print "mysql://user:pass\@hostname/dbname\n";
4010     print "Where mysql can be one of the databases PHP supports, the most common\n";
4011     print "of these are mysql, msql and pgsql.\n";
4012     print "Please ensure proper permissions for config.php when including\n";
4013     print "sensitive passwords.\n\n";
4014     print "If the DSN is left empty (hit space and then return) the database\n";
4015     print "related code for global SQL address book will not be used.\n";
4016     print "\n";
4017
4018     if ( $addrbook_global_dsn eq "" ) {
4019         $default_value = "Disabled";
4020     } else {
4021         $default_value = $addrbook_global_dsn;
4022     }
4023     print "[$WHT$addrbook_global_dsn$NRM]: $WHT";
4024     $new_dsn = <STDIN>;
4025     if ( $new_dsn eq "\n" ) {
4026         $new_dsn = "";
4027     } else {
4028         $new_dsn =~ s/[\r\n]//g;
4029         $new_dsn =~ s/^\s+$//g;
4030     }
4031     return $new_dsn;
4032 }
4033
4034 sub command99 {
4035     print "This is the name of the table you want to store the global address book\n";
4036     print "data in. Default table name is 'global_abook'. Address book uses same\n";
4037     print "database format as personal address book.\n";
4038     print "\n";
4039     print "[$WHT$addrbook_global_table$NRM]: $WHT";
4040     $new_table = <STDIN>;
4041     if ( $new_table eq "\n" ) {
4042         $new_table = $addrbook_global_table;
4043     } else {
4044         $new_table =~ s/[\r\n]//g;
4045     }
4046     return $new_table;
4047 }
4048
4049 sub command910 {
4050     print "This option controls users\' ability to add or modify records stored \n";
4051     print "in global address book\n";
4052
4053     if ( lc($addrbook_global_writeable) eq 'true' ) {
4054         $default_value = "y";
4055     } else {
4056         $default_value = "n";
4057     }
4058     print "Allow writing into global address book? (y/n) [$WHT$default_value$NRM]: $WHT";
4059     $addrbook_global_writeable = <STDIN>;
4060     if ( ( $addrbook_global_writeable =~ /^y\n/i ) || ( ( $addrbook_global_writeable =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
4061         $addrbook_global_writeable = 'true';
4062     } else {
4063         $addrbook_global_writeable = 'false';
4064     }
4065     return $addrbook_global_writeable;
4066 }
4067
4068 sub command911 {
4069     print "Enable this option if you want to see listing of addresses stored \n";
4070     print "in global address book\n";
4071
4072     if ( lc($addrbook_global_listing) eq 'true' ) {
4073         $default_value = "y";
4074     } else {
4075         $default_value = "n";
4076     }
4077     print "Allow listing of global address book? (y/n) [$WHT$default_value$NRM]: $WHT";
4078     $addrbook_global_listing = <STDIN>;
4079     if ( ( $addrbook_global_listing =~ /^y\n/i ) || ( ( $addrbook_global_listing =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
4080         $addrbook_global_listing = 'true';
4081     } else {
4082         $addrbook_global_listing = 'false';
4083     }
4084     return $addrbook_global_listing;
4085 }
4086
4087
4088 # Default language
4089 sub commandA1 {
4090     print "SquirrelMail attempts to set the language in many ways.  If it\n";
4091     print "can not figure it out in another way, it will default to this\n";
4092     print "language.  Please use the code for the desired language.\n";
4093     print "\n";
4094     print "[$WHT$squirrelmail_default_language$NRM]: $WHT";
4095     $new_squirrelmail_default_language = <STDIN>;
4096     if ( $new_squirrelmail_default_language eq "\n" ) {
4097         $new_squirrelmail_default_language = $squirrelmail_default_language;
4098     } else {
4099         $new_squirrelmail_default_language =~ s/[\r\n]//g;
4100         $new_squirrelmail_default_language =~ s/^\s+$//g;
4101     }
4102     return $new_squirrelmail_default_language;
4103 }
4104 # Default Charset
4105 sub commandA2 {
4106     print "This option controls what character set is used when sending\n";
4107     print "mail and when sending HTML to the browser. Option works only\n";
4108     print "with US English (en_US) translation. Other translations use\n";
4109     print "charsets that are set in translation settings.\n";
4110     print "\n";
4111
4112     print "[$WHT$default_charset$NRM]: $WHT";
4113     $new_default_charset = <STDIN>;
4114     if ( $new_default_charset eq "\n" ) {
4115         $new_default_charset = $default_charset;
4116     } else {
4117         $new_default_charset =~ s/[\r\n]//g;
4118     }
4119     return $new_default_charset;
4120 }
4121 # Alternative language names
4122 sub commandA3 {
4123     print "Enable this option if you want to see localized language names in\n";
4124     print "language selection box. Note, that this option can trigger\n";
4125     print "installation of foreign language support modules in some browsers.\n";
4126     print "\n";
4127
4128     if ( lc($show_alternative_names) eq 'true' ) {
4129         $default_value = "y";
4130     } else {
4131         $default_value = "n";
4132     }
4133     print "Show alternative language names? (y/n) [$WHT$default_value$NRM]: $WHT";
4134     $show_alternative_names = <STDIN>;
4135     if ( ( $show_alternative_names =~ /^y\n/i ) || ( ( $show_alternative_names =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
4136         $show_alternative_names = 'true';
4137     } else {
4138         $show_alternative_names = 'false';
4139     }
4140     return $show_alternative_names;
4141 }
4142
4143 # Aggressive decoding
4144 sub commandA4 {
4145     print "Enable this option if you want to use CPU and memory intensive decoding\n";
4146     print "functions. This option allows reading multibyte charset, that are used\n";
4147     print "in Eastern Asia. SquirrelMail will try to use recode functions here,\n";
4148     print "even when you have disabled use of recode in Tweaks section.\n";
4149     print "\n";
4150
4151     if ( lc($aggressive_decoding) eq 'true' ) {
4152         $default_value = "y";
4153     } else {
4154         $default_value = "n";
4155     }
4156     print "Enable aggressive decoding? (y/n) [$WHT$default_value$NRM]: $WHT";
4157     $aggressive_decoding = <STDIN>;
4158     if ( ( $aggressive_decoding =~ /^y\n/i ) || ( ( $aggressive_decoding =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
4159         $aggressive_decoding = 'true';
4160     } else {
4161         $aggressive_decoding = 'false';
4162     }
4163     return $aggressive_decoding;
4164 }
4165
4166 # Lossy encoding
4167 sub commandA5 {
4168     print "Enable this option if you want to allow lossy charset encoding in message\n";
4169     print "composition pages. This option allows charset conversions when output\n";
4170     print "charset does not support all symbols used in original charset. Symbols\n";
4171     print "unsupported by output charset will be replaced with question marks.\n";
4172     print "\n";
4173
4174     if ( lc($lossy_encoding) eq 'true' ) {
4175         $default_value = "y";
4176     } else {
4177         $default_value = "n";
4178     }
4179     print "Enable lossy encoding? (y/n) [$WHT$default_value$NRM]: $WHT";
4180     $lossy_encoding = <STDIN>;
4181     if ( ( $lossy_encoding =~ /^y\n/i ) || ( ( $lossy_encoding =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
4182         $lossy_encoding = 'true';
4183     } else {
4184         $lossy_encoding = 'false';
4185     }
4186     return $lossy_encoding;
4187 }
4188
4189 # display html emails in iframe
4190 sub commandB2 {
4191     print "This option can enable html email rendering inside iframe.\n";
4192     print "Inline frames are used in order to provide sandbox environment";
4193     print "for html code included in html formated emails.";
4194     print "Option is experimental and might have glitches in some parts of code.";
4195     print "\n";
4196
4197     if ( lc($use_iframe) eq 'true' ) {
4198         $default_value = "y";
4199     } else {
4200         $default_value = "n";
4201     }
4202     print "Display html emails in iframe? (y/n) [$WHT$default_value$NRM]: $WHT";
4203     $use_iframe = <STDIN>;
4204     if ( ( $use_iframe =~ /^y\n/i ) || ( ( $use_iframe =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
4205         $use_iframe = 'true';
4206     } else {
4207         $use_iframe = 'false';
4208     }
4209     return $use_iframe;
4210 }
4211
4212 # ask user info
4213 sub command_ask_user_info {
4214     print "New users need to supply their real name and email address to\n";
4215     print "send out proper mails. When this option is enabled, a user that\n";
4216     print "logs in for the first time will be redirected to the Personal\n";
4217     print "Options screen and asked to supply their personal data.\n";
4218     print "\n";
4219
4220     if ( lc($ask_user_info) eq 'true' ) {
4221         $default_value = "y";
4222     } else {
4223         $default_value = "n";
4224     }
4225     print "Ask user info? (y/n) [$WHT$default_value$NRM]: $WHT";
4226     $ask_user_info = <STDIN>;
4227     if ( ( $ask_user_info =~ /^y\n/i ) || ( ( $ask_user_info =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
4228         $ask_user_info = 'true';
4229     } else {
4230         $ask_user_info = 'false';
4231     }
4232     return $ask_user_info;
4233 }
4234
4235 # use icons
4236 sub commandB3 {
4237     print "Enabling this option will cause icons to be used instead of text\n";
4238     print "markers next to each message in mailbox lists that represent\n";
4239     print "new, read, flagged, and deleted messages, as well as those that\n";
4240     print "have been replied to and forwarded. Icons are also used next to\n";
4241     print "(un)expanded folders in the folder list (Oldway = false).  These\n";
4242     print "icons are quite small, but will obviously be more of a resource\n";
4243     print "drain than text markers.\n";
4244     print "\n";
4245
4246     if ( lc($use_icons) eq 'true' ) {
4247         $default_value = "y";
4248     } else {
4249         $default_value = "n";
4250     }
4251     print "Use icons? (y/n) [$WHT$default_value$NRM]: $WHT";
4252     $use_icons = <STDIN>;
4253     if ( ( $use_icons =~ /^y\n/i ) || ( ( $use_icons =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
4254         $use_icons = 'true';
4255     } else {
4256         $use_icons = 'false';
4257     }
4258     return $use_icons;
4259 }
4260 # php recode
4261 sub commandB4 {
4262     print "Enable this option if you want to use php recode functions to read\n";
4263     print "emails written in charset that differs from the one that is set in\n";
4264     print "translation selected by user. Code is experimental, it might cause\n";
4265     print "errors, if email contains charset unsupported by recode or if your\n";
4266     print "php does not have recode support.\n";
4267     print "\n";
4268
4269     if ( lc($use_php_recode) eq 'true' ) {
4270         $default_value = "y";
4271     } else {
4272         $default_value = "n";
4273     }
4274     print "Use php recode functions? (y/n) [$WHT$default_value$NRM]: $WHT";
4275     $use_php_recode = <STDIN>;
4276     if ( ( $use_php_recode =~ /^y\n/i ) || ( ( $use_php_recode =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
4277         $use_php_recode = 'true';
4278     } else {
4279         $use_php_recode = 'false';
4280     }
4281     return $use_php_recode;
4282 }
4283 # php iconv
4284 sub commandB5 {
4285     print "Enable this option if you want to use php iconv functions to read\n";
4286     print "emails written in charset that differs from the one that is set in\n";
4287     print "translation selected by user. Code is experimental, it works only\n";
4288     print "with translations that use utf-8 charset. Code might cause errors,\n";
4289     print "if email contains charset unsupported by iconv or if your php does\n";
4290     print "not have iconv support.\n";
4291     print "\n";
4292
4293     if ( lc($use_php_iconv) eq 'true' ) {
4294         $default_value = "y";
4295     } else {
4296         $default_value = "n";
4297     }
4298     print "Use php iconv functions? (y/n) [$WHT$default_value$NRM]: $WHT";
4299     $use_php_iconv = <STDIN>;
4300     if ( ( $use_php_iconv =~ /^y\n/i ) || ( ( $use_php_iconv =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
4301         $use_php_iconv = 'true';
4302     } else {
4303         $use_php_iconv = 'false';
4304     }
4305     return $use_php_iconv;
4306 }
4307
4308 # configtest block
4309 sub commandB6 {
4310     print "Enable this option if you want to check SquirrelMail configuration\n";
4311     print "remotely with configtest.php script.\n";
4312     print "\n";
4313
4314     if ( lc($allow_remote_configtest) eq 'true' ) {
4315         $default_value = "y";
4316     } else {
4317         $default_value = "n";
4318     }
4319     print "Allow remote configuration tests? (y/n) [$WHT$default_value$NRM]: $WHT";
4320     $allow_remote_configtest = <STDIN>;
4321     if ( ( $allow_remote_configtest =~ /^y\n/i ) || ( ( $allow_remote_configtest =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
4322         $allow_remote_configtest = 'true';
4323     } else {
4324         $allow_remote_configtest = 'false';
4325     }
4326     return $allow_remote_configtest;
4327 }
4328
4329 # Default Icon theme
4330 sub commandB7 {
4331     print "You may change the path to the default icon theme to be used, if icons\n";
4332     print "have been enabled.  This theme will be used when an icon cannot be\n";
4333     print "found in the current theme, or when no icon theme is specified.  If\n";
4334     print "left blank, and icons are enabled, the default theme will be used\n";
4335     print "from images/themes/default/.\n";
4336     print "\n";
4337     print "To clear out an existing value, just type a space for the input.\n";
4338     print "\n";
4339     print "Please be aware of the following: \n";
4340     print "  - Relative URLs are relative to the config dir\n";
4341     print "    to use the icon themes directory, use ../images/themes/newtheme/\n";
4342     print "  - The icon theme may be outside the SquirrelMail directory, but\n";
4343     print "    it must be web accessible.\n";
4344     print "[$WHT$icon_theme_def$NRM]: $WHT";
4345     $new_icon_theme_def = <STDIN>;
4346
4347     if ( $new_icon_theme_def eq "\n" ) {
4348         $new_icon_theme_def = $icon_theme_def;
4349     } else {
4350         $new_icon_theme_def =~ s/[\r\n]//g;
4351     }
4352     $new_icon_theme_def =~ s/^\s*//;
4353     return $new_icon_theme_def;
4354 }
4355
4356 # SquirrelMail debug mode (since 1.5.2)
4357 sub commandB8 {
4358     print "When debugging or developing SquirrelMail, you may want to increase\n";
4359     print "the verbosity of certain kinds of errors, notices, and/or diagnostics.\n";
4360     print "You may enable one or more of the debugging modes here.  Please make\n";
4361     print "sure that you have turned off debugging if you are using SquirrelMail\n";
4362     print "in a production environment.\n\n";
4363
4364     $input = "";
4365     while ( $input ne "d\n" ) {
4366         $sm_debug_mode = convert_debug_constants_to_binary_integer($sm_debug_mode);
4367
4368         # per include/constants.php, here are the debug mode values:
4369         #
4370         # 0          SM_DEBUG_MODE_OFF
4371         # 1          SM_DEBUG_MODE_SIMPLE
4372         # 512        SM_DEBUG_MODE_MODERATE
4373         # 524288     SM_DEBUG_MODE_ADVANCED
4374         # 536870912  SM_DEBUG_MODE_STRICT
4375         #
4376         print "\n#  Enabled?  Description\n";
4377         print "---------------------------------------------------------------------\n";
4378         print "0     " . ($sm_debug_mode == 0 ? "y" : " ")
4379             . "      No debugging (recommended in production environments)\n";
4380         print "1     " . ($sm_debug_mode & 1 ? "y" : " ")
4381             . "      Simple debugging (PHP E_ERROR)\n";
4382         print "2     " . ($sm_debug_mode & 512 ? "y" : " ")
4383             . "      Moderate debugging (PHP E_ALL)\n";
4384         print "3     " . ($sm_debug_mode & 524288 ? "y" : " ")
4385             . "      Advanced debugging (PHP E_ALL plus log errors\n";
4386         print "             intentionally suppressed)\n";
4387         print "4     " . ($sm_debug_mode & 536870912 ? "y" : " ")
4388             . "      Strict debugging (PHP E_STRICT)\n";
4389         print "\n";
4390
4391         print "SquirrelMail debug mode (0,1,2,3,4) or d when done? : $WHT";
4392         $input = <STDIN>;
4393         if ( $input eq "d\n" ) {
4394             # nothing
4395         } elsif ($input !~ /^[0-9]+\n$/) {
4396             print "\nInvalid configuration value.\n";
4397             print "\nPress enter to continue...";
4398             $tmp = <STDIN>;
4399         } elsif ( $input == "0\n" ) {
4400             $sm_debug_mode = 0;
4401         } elsif ( $input == "1\n" ) {
4402             if ($sm_debug_mode & 1) {
4403                 $sm_debug_mode ^= 1;
4404             } else {
4405                 $sm_debug_mode |= 1;
4406             }
4407         } elsif ( $input == "2\n" ) {
4408             if ($sm_debug_mode & 512) {
4409                 $sm_debug_mode ^= 512;
4410             } else {
4411                 $sm_debug_mode |= 512;
4412             }
4413         } elsif ( $input == "3\n" ) {
4414             if ($sm_debug_mode & 524288) {
4415                 $sm_debug_mode ^= 524288;
4416             } else {
4417                 $sm_debug_mode |= 524288;
4418             }
4419         } elsif ( $input == "4\n" ) {
4420             if ($sm_debug_mode & 536870912) {
4421                 $sm_debug_mode ^= 536870912;
4422             } else {
4423                 $sm_debug_mode |= 536870912;
4424             }
4425         } else {
4426             print "\nInvalid configuration value.\n";
4427             print "\nPress enter to continue...";
4428             $tmp = <STDIN>;
4429         }
4430         print "\n";
4431     }
4432     $sm_debug_mode = convert_debug_binary_integer_to_constants($sm_debug_mode);
4433     return $sm_debug_mode;
4434 }
4435
4436 # Secured configuration mode (since 1.5.2)
4437 sub commandB9 {
4438     print "This option allows you to enable \"Secured Configuration\" mode,\n";
4439     print "which will guarantee that certain settings made herein will be\n";
4440     print "made immutable and will not be subject to override by either friendly\n";
4441     print "or unfriendly code/plugins.  Only a small number of settings herein\n";
4442     print "will be used in this manner - just those that are deemed to be a\n";
4443     print "potential security threat when rouge plugin or other code may be\n";
4444     print "executed inside SquirrelMail.\n";
4445     print "\n";
4446
4447     if ( lc($secured_config) eq 'true' ) {
4448         $default_value = "y";
4449     } else {
4450         $default_value = "n";
4451     }
4452     print "Enable secured configuration mode? (y/n) [$WHT$default_value$NRM]: $WHT";
4453     $secured_config = <STDIN>;
4454     if ( ( $secured_config =~ /^y\n/i ) || ( ( $secured_config =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
4455         $secured_config = 'true';
4456     } else {
4457         $secured_config = 'false';
4458     }
4459     return $secured_config;
4460 }
4461
4462 sub save_data {
4463     $tab = "    ";
4464     if ( open( CF, ">config.php" ) ) {
4465         print CF "<?php\n";
4466         print CF "\n";
4467
4468         print CF "/**\n";
4469         print CF " * SquirrelMail Configuration File\n";
4470         print CF " * Created using the configure script, conf.pl\n";
4471         print CF " */\n";
4472         print CF "\n";
4473
4474         if ($print_config_version) {
4475             print CF "\$config_version = '$print_config_version';\n";
4476         }
4477         # integer
4478         print CF "\$config_use_color = $config_use_color;\n";
4479         print CF "\n";
4480
4481         # string
4482         print CF "\$org_name      = \"$org_name\";\n";
4483         # string
4484         print CF "\$org_logo      = " . &change_to_SM_path($org_logo) . ";\n";
4485         $org_logo_width |= 0;
4486         $org_logo_height |= 0;
4487         # string
4488         print CF "\$org_logo_width  = '$org_logo_width';\n";
4489         # string
4490         print CF "\$org_logo_height = '$org_logo_height';\n";
4491         # string that can contain variables.
4492         print CF "\$org_title     = \"$org_title\";\n";
4493         # string
4494         print CF "\$signout_page  = " . &change_to_SM_path($signout_page) . ";\n";
4495         # string
4496         print CF "\$frame_top     = '$frame_top';\n";
4497         print CF "\n";
4498
4499         print CF "\$provider_uri     = '$provider_uri';\n";
4500         print CF "\n";
4501
4502         print CF "\$provider_name     = '$provider_name';\n";
4503         print CF "\n";
4504
4505         # string that can contain variables
4506         print CF "\$motd = \"$motd\";\n";
4507         print CF "\n";
4508
4509         # string
4510         print CF "\$squirrelmail_default_language = '$squirrelmail_default_language';\n";
4511         # string
4512         print CF "\$default_charset          = '$default_charset';\n";
4513         # boolean
4514         print CF "\$show_alternative_names   = $show_alternative_names;\n";
4515         # boolean
4516         print CF "\$aggressive_decoding   = $aggressive_decoding;\n";
4517         # boolean
4518         print CF "\$lossy_encoding        = $lossy_encoding;\n";
4519         print CF "\n";
4520
4521         # string
4522         print CF "\$domain                 = '$domain';\n";
4523         # string
4524         print CF "\$imapServerAddress      = '$imapServerAddress';\n";
4525         # integer
4526         print CF "\$imapPort               = $imapPort;\n";
4527         # boolean
4528         print CF "\$useSendmail            = $useSendmail;\n";
4529         # string
4530         print CF "\$smtpServerAddress      = '$smtpServerAddress';\n";
4531         # integer
4532         print CF "\$smtpPort               = $smtpPort;\n";
4533         # string
4534         print CF "\$sendmail_path          = '$sendmail_path';\n";
4535         # string
4536         print CF "\$sendmail_args          = '$sendmail_args';\n";
4537         # boolean
4538 #        print CF "\$use_authenticated_smtp = $use_authenticated_smtp;\n";
4539         # boolean
4540         print CF "\$pop_before_smtp        = $pop_before_smtp;\n";
4541         # string
4542         print CF "\$imap_server_type       = '$imap_server_type';\n";
4543         # boolean
4544         print CF "\$invert_time            = $invert_time;\n";
4545         # string
4546         print CF "\$optional_delimiter     = '$optional_delimiter';\n";
4547         # string
4548         print CF "\$encode_header_key      = '$encode_header_key';\n";
4549         print CF "\n";
4550
4551         # string
4552         print CF "\$default_folder_prefix          = '$default_folder_prefix';\n";
4553         # string
4554         print CF "\$trash_folder                   = '$trash_folder';\n";
4555         # string
4556         print CF "\$sent_folder                    = '$sent_folder';\n";
4557         # string
4558         print CF "\$draft_folder                   = '$draft_folder';\n";
4559         # boolean
4560         print CF "\$default_move_to_trash          = $default_move_to_trash;\n";
4561         # boolean
4562         print CF "\$default_move_to_sent           = $default_move_to_sent;\n";
4563         # boolean
4564         print CF "\$default_save_as_draft          = $default_save_as_draft;\n";
4565         # boolean
4566         print CF "\$show_prefix_option             = $show_prefix_option;\n";
4567         # boolean
4568         print CF "\$list_special_folders_first     = $list_special_folders_first;\n";
4569         # boolean
4570         print CF "\$use_special_folder_color       = $use_special_folder_color;\n";
4571         # boolean
4572         print CF "\$auto_expunge                   = $auto_expunge;\n";
4573         # boolean
4574         print CF "\$default_sub_of_inbox           = $default_sub_of_inbox;\n";
4575         # boolean
4576         print CF "\$show_contain_subfolders_option = $show_contain_subfolders_option;\n";
4577         # integer
4578         print CF "\$default_unseen_notify          = $default_unseen_notify;\n";
4579         # integer
4580         print CF "\$default_unseen_type            = $default_unseen_type;\n";
4581         # boolean
4582         print CF "\$auto_create_special            = $auto_create_special;\n";
4583         # boolean
4584         print CF "\$delete_folder                  = $delete_folder;\n";
4585         # boolean
4586         print CF "\$noselect_fix_enable            = $noselect_fix_enable;\n";
4587
4588         print CF "\n";
4589
4590         # string
4591         print CF "\$data_dir                 = " . &change_to_SM_path($data_dir) . ";\n";
4592         # string that can contain a variable
4593         print CF "\$attachment_dir           = " . &change_to_SM_path($attachment_dir) . ";\n";
4594         # integer
4595         print CF "\$dir_hash_level           = $dir_hash_level;\n";
4596         # string
4597         print CF "\$default_left_size        = '$default_left_size';\n";
4598         # boolean
4599         print CF "\$force_username_lowercase = $force_username_lowercase;\n";
4600         # boolean
4601         print CF "\$default_use_priority     = $default_use_priority;\n";
4602         # boolean
4603         print CF "\$hide_sm_attributions     = $hide_sm_attributions;\n";
4604         # boolean
4605         print CF "\$default_use_mdn          = $default_use_mdn;\n";
4606         # boolean
4607         print CF "\$edit_identity            = $edit_identity;\n";
4608         # boolean
4609         print CF "\$edit_name                = $edit_name;\n";
4610         # boolean
4611         print CF "\$hide_auth_header         = $hide_auth_header;\n";
4612         # boolean
4613         print CF "\$disable_thread_sort      = $disable_thread_sort;\n";
4614         # boolean
4615         print CF "\$disable_server_sort      = $disable_server_sort;\n";
4616         # boolean
4617         print CF "\$allow_charset_search     = $allow_charset_search;\n";
4618         # integer
4619         print CF "\$allow_advanced_search    = $allow_advanced_search;\n";
4620         print CF "\n";
4621         # integer
4622         print CF "\$time_zone_type           = $time_zone_type;\n";
4623         print CF "\n";
4624         # string
4625         print CF "\$config_location_base     = '$config_location_base';\n";
4626         print CF "\n";
4627         # boolean
4628         print CF "\$disable_plugins          = $disable_plugins;\n";
4629         # string
4630         print CF "\$disable_plugins_user     = '$disable_plugins_user';\n";
4631         print CF "\n";
4632
4633         # all plugins are strings
4634         for ( $ct = 0 ; $ct <= $#plugins ; $ct++ ) {
4635             print CF "\$plugins[] = '$plugins[$ct]';\n";
4636         }
4637         print CF "\n";
4638
4639         # strings
4640         if ( $user_theme_default eq '' ) { $user_theme_default = '0'; }
4641         print CF "\$user_theme_default = $user_theme_default;\n";
4642
4643         for ( $count = 0 ; $count <= $#user_theme_name ; $count++ ) {
4644             if ($user_theme_path[$count] eq 'none') {
4645                 $path = '\'none\'';
4646             } else {
4647                 $path = &change_to_SM_path($user_theme_path[$count]);
4648             }
4649             print CF "\$user_themes[$count]['PATH'] = " . $path . ";\n";
4650             # escape theme name so it can contain single quotes.
4651             $esc_name =  $user_theme_name[$count];
4652             $esc_name =~ s/\\/\\\\/g;
4653             $esc_name =~ s/'/\\'/g;
4654             print CF "\$user_themes[$count]['NAME'] = '$esc_name';\n";
4655         }
4656         print CF "\n";
4657
4658         if ( $icon_theme_def eq '' ) { $icon_theme_def = '0'; }
4659         print CF "\$icon_theme_def = $icon_theme_def;\n";
4660         if ( $icon_theme_fallback eq '' ) { $icon_theme_fallback = '0'; }
4661             print CF "\$icon_theme_fallback = $icon_theme_fallback;\n";
4662
4663         for ( $count = 0 ; $count <= $#icon_theme_name ; $count++ ) {
4664             $path = $icon_theme_path[$count];
4665             if ($path eq 'none' || $path eq 'template') {
4666                 $path = "'".$path."'";
4667             } else {
4668                 $path = &change_to_SM_path($icon_theme_path[$count]);
4669             }
4670             print CF "\$icon_themes[$count]['PATH'] = " . $path . ";\n";
4671             # escape theme name so it can contain single quotes.
4672             $esc_name =  $icon_theme_name[$count];
4673             $esc_name =~ s/\\/\\\\/g;
4674             $esc_name =~ s/'/\\'/g;
4675             print CF "\$icon_themes[$count]['NAME'] = '$esc_name';\n";
4676         }
4677         print CF "\n";
4678
4679         if ( $templateset_default eq '' ) { $templateset_default = 'default'; }
4680         print CF "\$templateset_default = '$templateset_default';\n";
4681
4682         if ( $templateset_fallback eq '' ) { $templateset_fallback = 'default'; }
4683         print CF "\$templateset_fallback = '$templateset_fallback';\n";
4684
4685         for ( $count = 0 ; $count <= $#templateset_name ; $count++ ) {
4686             print CF "\$aTemplateSet[$count]['ID'] = '" . $templateset_id[$count] . "';\n";
4687             # escape theme name so it can contain single quotes.
4688             $esc_name =  $templateset_name[$count];
4689             $esc_name =~ s/\\/\\\\/g;
4690             $esc_name =~ s/'/\\'/g;
4691             print CF "\$aTemplateSet[$count]['NAME'] = '$esc_name';\n";
4692         }
4693         print CF "\n";
4694
4695
4696         # integer
4697         print CF "\$default_fontsize = '$default_fontsize';\n";
4698         # string
4699         print CF "\$default_fontset = '$default_fontset';\n";
4700         print CF "\n";
4701         # assoc. array (maybe initial value should be set somewhere else)
4702         print CF '$fontsets = array();'."\n";
4703         while (($fontset_name, $fontset_value) = each(%fontsets)) {
4704             print CF "\$fontsets\['$fontset_name'\] = '$fontset_value';\n";
4705         }
4706         print CF "\n";
4707
4708         ## Address books
4709         # boolean
4710         print CF "\$default_use_javascript_addr_book = $default_use_javascript_addr_book;\n";
4711         for ( $count = 0 ; $count <= $#ldap_host ; $count++ ) {
4712             print CF "\$ldap_server[$count] = array(\n";
4713             # string
4714             print CF "    'host' => '$ldap_host[$count]',\n";
4715             # string
4716             print CF "    'base' => '$ldap_base[$count]'";
4717             if ( $ldap_name[$count] ) {
4718                 print CF ",\n";
4719                 # string
4720                 print CF "    'name' => '$ldap_name[$count]'";
4721             }
4722             if ( $ldap_port[$count] ) {
4723                 print CF ",\n";
4724                 # integer
4725                 print CF "    'port' => $ldap_port[$count]";
4726             }
4727             if ( $ldap_charset[$count] ) {
4728                 print CF ",\n";
4729                 # string
4730                 print CF "    'charset' => '$ldap_charset[$count]'";
4731             }
4732             if ( $ldap_maxrows[$count] ) {
4733                 print CF ",\n";
4734                 # integer
4735                 print CF "    'maxrows' => $ldap_maxrows[$count]";
4736             }
4737             # string
4738             if ( $ldap_filter[$count] ) {
4739                 print CF ",\n";
4740                 print CF "    'filter' => '$ldap_filter[$count]'";
4741             }
4742             if ( $ldap_binddn[$count] ) {
4743                 print CF ",\n";
4744                 # string
4745                 print CF "    'binddn' => '$ldap_binddn[$count]'";
4746                 if ( $ldap_bindpw[$count] ) {
4747                     print CF ",\n";
4748                     # string
4749                     print CF "    'bindpw' => '$ldap_bindpw[$count]'";
4750                 }
4751             }
4752             if ( $ldap_protocol[$count] ) {
4753                 print CF ",\n";
4754                 # integer
4755                 print CF "    'protocol' => $ldap_protocol[$count]";
4756             }
4757             if ( $ldap_limit_scope[$count] ) {
4758                 print CF ",\n";
4759                 # boolean
4760                 print CF "    'limit_scope' => $ldap_limit_scope[$count]";
4761             }
4762             if ( $ldap_listing[$count] ) {
4763                 print CF ",\n";
4764                 # boolean
4765                 print CF "    'listing' => $ldap_listing[$count]";
4766             }
4767            if ( $ldap_writeable[$count] ) {
4768                 print CF ",\n";
4769                 # boolean
4770                 print CF "    'writeable' => $ldap_writeable[$count]";
4771             }
4772             if ( $ldap_search_tree[$count] ) {
4773                 print CF ",\n";
4774                 # integer
4775                 print CF "    'search_tree' => $ldap_search_tree[$count]";
4776             }
4777             if ( $ldap_listing[$count] ) {
4778                 print CF ",\n";
4779                 # boolean
4780                 print CF "    'starttls' => $ldap_starttls[$count]";
4781             }
4782             print CF "\n";
4783             print CF ");\n";
4784             print CF "\n";
4785         }
4786
4787         # string
4788         print CF "\$addrbook_dsn = '$addrbook_dsn';\n";
4789         # string
4790         print CF "\$addrbook_table = '$addrbook_table';\n\n";
4791         # string
4792         print CF "\$prefs_dsn = '$prefs_dsn';\n";
4793         # string
4794         print CF "\$prefs_table = '$prefs_table';\n";
4795         # string
4796         print CF "\$prefs_user_field = '$prefs_user_field';\n";
4797         # integer
4798         print CF "\$prefs_user_size = $prefs_user_size;\n";
4799         # string
4800         print CF "\$prefs_key_field = '$prefs_key_field';\n";
4801         # integer
4802         print CF "\$prefs_key_size = $prefs_key_size;\n";
4803         # string
4804         print CF "\$prefs_val_field = '$prefs_val_field';\n";
4805         # integer
4806         print CF "\$prefs_val_size = $prefs_val_size;\n\n";
4807         # string
4808         print CF "\$addrbook_global_dsn = '$addrbook_global_dsn';\n";
4809         # string
4810         print CF "\$addrbook_global_table = '$addrbook_global_table';\n";
4811         # boolean
4812         print CF "\$addrbook_global_writeable = $addrbook_global_writeable;\n";
4813         # boolean
4814         print CF "\$addrbook_global_listing = $addrbook_global_listing;\n\n";
4815         # string
4816         print CF "\$abook_global_file = '$abook_global_file';\n";
4817         # boolean
4818         print CF "\$abook_global_file_writeable = $abook_global_file_writeable;\n\n";
4819         # boolean
4820         print CF "\$abook_global_file_listing = $abook_global_file_listing;\n\n";
4821         # integer
4822         print CF "\$abook_file_line_length = $abook_file_line_length;\n\n";
4823         # boolean
4824         print CF "\$no_list_for_subscribe = $no_list_for_subscribe;\n";
4825
4826         # string
4827         print CF "\$smtp_auth_mech        = '$smtp_auth_mech';\n";
4828         print CF "\$smtp_sitewide_user    = '". quote_single($smtp_sitewide_user) ."';\n";
4829         print CF "\$smtp_sitewide_pass    = '". quote_single($smtp_sitewide_pass) ."';\n";
4830         # string
4831         print CF "\$imap_auth_mech        = '$imap_auth_mech';\n";
4832         # boolean
4833         print CF "\$use_imap_tls          = $use_imap_tls;\n";
4834         # boolean
4835         print CF "\$use_smtp_tls          = $use_smtp_tls;\n";
4836         # string
4837         print CF "\$session_name          = '$session_name';\n";
4838         # boolean
4839         print CF "\$only_secure_cookies   = $only_secure_cookies;\n";
4840
4841         print CF "\n";
4842
4843         # boolean
4844         print CF "\$use_iframe = $use_iframe;\n";
4845         # boolean
4846         print CF "\$ask_user_info = $ask_user_info;\n";
4847         # boolean
4848         print CF "\$use_icons = $use_icons;\n";
4849         print CF "\n";
4850         # boolean
4851         print CF "\$use_php_recode = $use_php_recode;\n";
4852         # boolean
4853         print CF "\$use_php_iconv = $use_php_iconv;\n";
4854         print CF "\n";
4855         # boolean
4856         print CF "\$allow_remote_configtest = $allow_remote_configtest;\n";
4857         print CF "\$secured_config = $secured_config;\n";
4858         # (binary) integer or constant - convert integer
4859         # values to constants before output
4860         $sm_debug_mode = convert_debug_binary_integer_to_constants($sm_debug_mode);
4861         print CF "\$sm_debug_mode = $sm_debug_mode;\n";
4862         print CF "\n";
4863
4864         close CF;
4865
4866         print "Data saved in config.php\n";
4867
4868         build_plugin_hook_array();
4869
4870     } else {
4871         print "Error saving config.php: $!\n";
4872     }
4873 }
4874
4875 sub set_defaults {
4876     clear_screen();
4877     print $WHT. "SquirrelMail Configuration : " . $NRM;
4878     if    ( $config == 1 ) { print "Read: config.php"; }
4879     elsif ( $config == 2 ) { print "Read: config_default.php"; }
4880     print "\n";
4881     print "---------------------------------------------------------\n";
4882
4883     print "While we have been building SquirrelMail, we have discovered some\n";
4884     print "preferences that work better with some servers that don't work so\n";
4885     print "well with others.  If you select your IMAP server, this option will\n";
4886     print "set some pre-defined settings for that server.\n";
4887     print "\n";
4888     print "Please note that you will still need to go through and make sure\n";
4889     print "everything is correct.  This does not change everything.  There are\n";
4890     print "only a few settings that this will change.\n";
4891     print "\n";
4892
4893     $continue = 0;
4894     while ( $continue != 1 ) {
4895         print "Please select your IMAP server:\n";
4896         print $list_supported_imap_servers;
4897         print "\n";
4898         print "    quit        = Do not change anything\n";
4899         print "\n";
4900         print "Command >> ";
4901         $server = <STDIN>;
4902         $server =~ s/[\r\n]//g;
4903
4904         # variable is used to display additional messages.
4905         $message = "";
4906
4907         print "\n";
4908         if ( $server eq "cyrus" ) {
4909             $imap_server_type               = "cyrus";
4910             $default_folder_prefix          = "";
4911             $trash_folder                   = "INBOX.Trash";
4912             $sent_folder                    = "INBOX.Sent";
4913             $draft_folder                   = "INBOX.Drafts";
4914             $show_prefix_option             = false;
4915             $default_sub_of_inbox           = true;
4916             $show_contain_subfolders_option = false;
4917             $optional_delimiter             = ".";
4918             $disp_default_folder_prefix     = "<none>";
4919             $force_username_lowercase       = false;
4920
4921             # Delimiter might differ if unixhierarchysep is set to yes.
4922             $message = "\nIf you have enabled unixhierarchysep, you must change delimiter and special folder names.\n";
4923
4924             $continue = 1;
4925         } elsif ( $server eq "uw" ) {
4926             $imap_server_type               = "uw";
4927             $default_folder_prefix          = "mail/";
4928             $trash_folder                   = "Trash";
4929             $sent_folder                    = "Sent";
4930             $draft_folder                   = "Drafts";
4931             $show_prefix_option             = true;
4932             $default_sub_of_inbox           = false;
4933             $show_contain_subfolders_option = true;
4934             $optional_delimiter             = "/";
4935             $disp_default_folder_prefix     = $default_folder_prefix;
4936             $delete_folder                  = true;
4937             $force_username_lowercase       = true;
4938
4939             $continue = 1;
4940         } elsif ( $server eq "exchange" ) {
4941             $imap_server_type               = "exchange";
4942             $default_folder_prefix          = "";
4943             $default_sub_of_inbox           = true;
4944             $trash_folder                   = "INBOX/Deleted Items";
4945             $sent_folder                    = "INBOX/Sent Items";
4946             $drafts_folder                  = "INBOX/Drafts";
4947             $show_prefix_option             = false;
4948             $show_contain_subfolders_option = false;
4949             $optional_delimiter             = "detect";
4950             $disp_default_folder_prefix     = "<none>";
4951             $force_username_lowercase       = true;
4952
4953             $continue = 1;
4954         } elsif ( $server eq "courier" ) {
4955             $imap_server_type               = "courier";
4956             $default_folder_prefix          = "INBOX.";
4957             $trash_folder                   = "Trash";
4958             $sent_folder                    = "Sent";
4959             $draft_folder                   = "Drafts";
4960             $show_prefix_option             = false;
4961             $default_sub_of_inbox           = false;
4962             $show_contain_subfolders_option = false;
4963             $optional_delimiter             = ".";
4964             $disp_default_folder_prefix     = $default_folder_prefix;
4965             $delete_folder                  = true;
4966             $force_username_lowercase       = false;
4967
4968             $continue = 1;
4969         } elsif ( $server eq "macosx" ) {
4970             $imap_server_type               = "macosx";
4971             $default_folder_prefix          = "INBOX/";
4972             $trash_folder                   = "Trash";
4973             $sent_folder                    = "Sent";
4974             $draft_folder                   = "Drafts";
4975             $show_prefix_option             = false;
4976             $default_sub_of_inbox           = true;
4977             $show_contain_subfolders_option = false;
4978             $optional_delimiter             = "detect";
4979             $allow_charset_search           = false;
4980             $disp_default_folder_prefix     = $default_folder_prefix;
4981
4982             $continue = 1;
4983         } elsif ( $server eq "hmailserver" ) {
4984             $imap_server_type               = "hmailserver";
4985             $default_folder_prefix          = "";
4986             $trash_folder                   = "INBOX.Trash";
4987             $sent_folder                    = "INBOX.Sent";
4988             $draft_folder                   = "INBOX.Drafts";
4989             $show_prefix_option             = false;
4990             $default_sub_of_inbox           = true;
4991             $show_contain_subfolders_option = false;
4992             $optional_delimiter             = "detect";
4993             $allow_charset_search           = false;
4994             $disp_default_folder_prefix     = $default_folder_prefix;
4995             $delete_folder                  = false;
4996             $force_username_lowercase       = false;
4997
4998             $continue = 1;
4999         } elsif ( $server eq "mercury32" ) {
5000             $imap_server_type               = "mercury32";
5001             $default_folder_prefix          = "";
5002             $trash_folder                   = "Trash";
5003             $sent_folder                    = "Sent";
5004             $draft_folder                   = "Drafts";
5005             $show_prefix_option             = false;
5006             $default_sub_of_inbox           = true;
5007             $show_contain_subfolders_option = true;
5008             $optional_delimiter             = "detect";
5009             $delete_folder                  = true;
5010             $force_username_lowercase       = true;
5011
5012             $continue = 1;
5013         } elsif ( $server eq "dovecot" ) {
5014             $imap_server_type               = "dovecot";
5015             $default_folder_prefix          = "";
5016             $trash_folder                   = "Trash";
5017             $sent_folder                    = "Sent";
5018             $draft_folder                   = "Drafts";
5019             $show_prefix_option             = false;
5020             $default_sub_of_inbox           = false;
5021             $show_contain_subfolders_option = false;
5022             $delete_folder                  = false;
5023             $force_username_lowercase       = true;
5024             $optional_delimiter             = "detect";
5025             $disp_default_folder_prefix     = "<none>";
5026
5027             $continue = 1;
5028         } elsif ( $server eq "bincimap" ) {
5029             $imap_server_type               = "bincimap";
5030             $default_folder_prefix          = "INBOX/";
5031             $trash_folder                   = "Trash";
5032             $sent_folder                    = "Sent";
5033             $draft_folder                   = "Drafts";
5034             $show_prefix_option             = false;
5035             $default_sub_of_inbox           = false;
5036             $show_contain_subfolders_option = false;
5037             $delete_folder                  = true;
5038             $force_username_lowercase       = false;
5039             $optional_delimiter             = "detect";
5040             $disp_default_folder_prefix     = $default_folder_prefix;
5041
5042             # Default folder prefix depends on used depot.
5043             $message = "\nIf you use IMAPdir depot, you must set default folder prefix to empty string.\n";
5044
5045             $continue = 1;
5046         } elsif ( $server eq "quit" ) {
5047             $continue = 1;
5048         } else {
5049             $disp_default_folder_prefix = $default_folder_prefix;
5050             print "Unrecognized server: $server\n";
5051             print "\n";
5052         }
5053
5054         print "              imap_server_type = $imap_server_type\n";
5055         print "         default_folder_prefix = $disp_default_folder_prefix\n";
5056         print "                  trash_folder = $trash_folder\n";
5057         print "                   sent_folder = $sent_folder\n";
5058         print "                  draft_folder = $draft_folder\n";
5059         print "            show_prefix_option = $show_prefix_option\n";
5060         print "          default_sub_of_inbox = $default_sub_of_inbox\n";
5061         print "show_contain_subfolders_option = $show_contain_subfolders_option\n";
5062         print "            optional_delimiter = $optional_delimiter\n";
5063         print "                 delete_folder = $delete_folder\n";
5064         print "      force_username_lowercase = $force_username_lowercase\n";
5065
5066         print "$message";
5067     }
5068     print "\nPress enter to continue...";
5069     $tmp = <STDIN>;
5070 }
5071
5072 # This subroutine corrects relative paths to ensure they
5073 # will work within the SM space. If the path falls within
5074 # the SM directory tree, the SM_PATH variable will be
5075 # prepended to the path, if not, then the path will be
5076 # converted to an absolute path, e.g.
5077 #   '../images/logo.gif'      --> SM_PATH . 'images/logo.gif'
5078 #   '../../someplace/data'    --> '/absolute/path/someplace/data'
5079 #   'images/logo.gif'         --> SM_PATH . 'config/images/logo.gif'
5080 #   '/absolute/path/logo.gif' --> '/absolute/path/logo.gif'
5081 #   'http://whatever/'        --> 'http://whatever'
5082 #   $some_var/path            --> "$some_var/path"
5083 sub change_to_SM_path() {
5084     my ($old_path) = @_;
5085     my $new_path = '';
5086     my @rel_path;
5087     my @abs_path;
5088     my $subdir;
5089
5090     # If the path is absolute, don't bother.
5091     return "\'" . $old_path . "\'"  if ( $old_path eq '');
5092     return "\'" . $old_path . "\'"  if ( $old_path =~ /^(\/|http)/ );
5093     return "\'" . $old_path . "\'"  if ( $old_path =~ /^\w:\// );
5094     return $old_path                if ( $old_path =~ /^\'(\/|http)/ );
5095     return $old_path                if ( $old_path =~ /^\'\w:\// );
5096     return $old_path                if ( $old_path =~ /^SM_PATH/);
5097
5098     if ( $old_path =~ /^\$/ ) {
5099         # check if it's a single var, or a $var/path combination
5100         # if it's $var/path, enclose in ""
5101         if ( $old_path =~ /\// ) {
5102             return '"'.$old_path.'"';
5103         }
5104         return $old_path;
5105     }
5106
5107     # Remove remaining '
5108     $old_path =~ s/\'//g;
5109
5110     # For relative paths, split on '../'
5111     @rel_path = split(/\.\.\//, $old_path);
5112
5113     if ( $#rel_path > 1 ) {
5114         # more than two levels away. Make it absolute.
5115         @abs_path = split(/\//, $dir);
5116
5117         # Lop off the relative pieces of the absolute path..
5118         for ( $i = 0; $i <= $#rel_path; $i++ ) {
5119             pop @abs_path;
5120             shift @rel_path;
5121         }
5122         push @abs_path, @rel_path;
5123         $new_path = "\'" . join('/', @abs_path) . "\'";
5124     } elsif ( $#rel_path > 0 ) {
5125         # it's within the SM tree, prepend SM_PATH
5126         $new_path = $old_path;
5127         $new_path =~ s/^\.\.\//SM_PATH . \'/;
5128         $new_path .= "\'";
5129     } else {
5130         # Last, it's a relative path without any leading '.'
5131     # Prepend SM_PATH and config, since the paths are
5132     # relative to the config directory
5133         $new_path = "SM_PATH . \'config/" . $old_path . "\'";
5134     }
5135   return $new_path;
5136 }
5137
5138
5139 # Change SM_PATH to admin-friendly version, e.g.:
5140 #  SM_PATH . 'images/logo.gif' --> '../images/logo.gif'
5141 #  SM_PATH . 'config/some.php' --> 'some.php'
5142 #  '/absolute/path/logo.gif'   --> '/absolute/path/logo.gif'
5143 #  'http://whatever/'          --> 'http://whatever'
5144 sub change_to_rel_path() {
5145     my ($old_path) = @_;
5146     my $new_path = $old_path;
5147
5148     if ( $old_path =~ /^SM_PATH/ ) {
5149         # FIXME: the following replacement loses the opening quote mark!
5150         $new_path =~ s/^SM_PATH . \'/\.\.\//;
5151         $new_path =~ s/\.\.\/config\///;
5152     }
5153
5154     return $new_path;
5155 }
5156
5157 # Attempts to auto-detect if a specific auth mechanism is supported.
5158 # Called by 'command112a' and 'command112b'
5159 # ARGS: service-name (IMAP or SMTP), host:port, mech-name (ie. CRAM-MD5)
5160 sub detect_auth_support {
5161     # Try loading IO::Socket
5162     unless (eval("use IO::Socket; 1")) {
5163         print "Perl IO::Socket module is not available.";
5164         return undef;
5165     }
5166     # Misc setup
5167     my $service = shift;
5168     my $host = shift;
5169     my $mech = shift;
5170     # Sanity checks
5171     if ((!defined($service)) or (!defined($host)) or (!defined($mech))) {
5172       # Error - wrong # of args
5173       print "BAD ARGS!\n";
5174       return undef;
5175     }
5176
5177     if ($service eq 'SMTP') {
5178         $cmd = "AUTH $mech\r\n";
5179         $logout = "QUIT\r\n";
5180     } elsif ($service eq 'IMAP') {
5181         $cmd = "A01 AUTHENTICATE $mech\n";
5182         $logout = "C01 LOGOUT\n";
5183     } else {
5184         # unknown service - whoops.
5185         return undef;
5186     }
5187
5188     # Get this show on the road
5189     my $sock=IO::Socket::INET->new($host);
5190     if (!defined($sock)) {
5191         # Connect failed
5192         return undef;
5193     }
5194     my $discard = <$sock>; # Server greeting/banner - who cares..
5195
5196     if ($service eq 'SMTP') {
5197         # Say hello first..
5198         print $sock "HELO $domain\r\n";
5199         $discard = <$sock>; # Yeah yeah, you're happy to see me..
5200     }
5201     print $sock $cmd;
5202
5203     my $response = <$sock>;
5204     chomp($response);
5205     if (!defined($response)) {
5206         return undef;
5207     }
5208
5209     # So at this point, we have a response, and it is (hopefully) valid.
5210     if ($service eq 'SMTP') {
5211         if (!($response =~ /^334/)) {
5212             # Not supported
5213             print $sock $logout;
5214             close $sock;
5215             return 'NO';
5216         }
5217     } elsif ($service eq 'IMAP') {
5218         if ($response =~ /^A01/) {
5219             # Not supported
5220             print $sock $logout;
5221             close $sock;
5222             return 'NO';
5223         }
5224     } else {
5225         # Unknown service - this shouldn't be able to happen.
5226         close $sock;
5227         return undef;
5228     }
5229
5230     # If it gets here, the mech is supported
5231     print $sock "*\n";  # Attempt to cancel authentication
5232     print $sock $logout; # Try to log out, but we don't really care if this fails
5233     close $sock;
5234     return 'YES';
5235 }
5236
5237 # trims whitespace
5238 # Example code from O'Reilly Perl Cookbook
5239 sub trim {
5240     my @out = @_;
5241     for (@out) {
5242         s/^\s+//;
5243         s/\s+$//;
5244     }
5245     return wantarray ? @out : $out[0];
5246 }
5247
5248 sub clear_screen() {
5249     if ( $^O =~ /^mswin/i) {
5250         system "cls";
5251     } else {
5252         system "clear";
5253     }
5254 }
5255
5256 # checks IMAP mailbox name. Refuses to accept 8bit folders
5257 # returns 0 (folder name is not correct) or 1 (folder name is correct)
5258 sub check_imap_folder($) {
5259     my $folder_name = shift(@_);
5260
5261     if ($folder_name =~ /[\x80-\xFFFF]/) {
5262         print "Folder name contains 8bit characters. Configuration utility requires\n";
5263         print "UTF7-IMAP encoded folder names.\n";
5264         print "Press enter to continue...";
5265         my $tmp = <STDIN>;
5266         return 0;
5267     } elsif ($folder_name =~ /[&\*\%]/) {
5268         # check for ampersand and list-wildcards
5269         print "Folder name contains special UTF7-IMAP characters.\n";
5270         print "Are you sure that folder name is correct? (y/N): ";
5271         my $tmp = <STDIN>;
5272         $tmp = lc(trim($tmp));
5273         if ($tmp =~ /^y$/) {
5274             return 1;
5275         } else {
5276             return 0;
5277         }
5278     } else {
5279         return 1;
5280     }
5281 }
5282
5283 # quotes string written in single quotes
5284 sub quote_single($) {
5285     my $string = shift(@_);
5286     $string =~ s/\'/\\'/g;
5287     return $string;
5288 }
5289
5290 # determine a plugin's version number
5291 #
5292 # parses the setup.php file, looking for the
5293 # version string in the <plugin>_info() or the
5294 # <plugin>_version functions.
5295 #
5296 sub get_plugin_version() {
5297
5298     my $plugin_name = shift(@_);
5299
5300     $setup_file = '../plugins/' . $plugin_name . '/setup.php';
5301     if ( -e "$setup_file" ) {
5302         # Make sure that file is readable
5303         if (! -r "$setup_file") {
5304             print "\n";
5305             print "WARNING:\n";
5306             print "The file \"$setup_file\" was found, but you don't\n";
5307             print "have rights to read it.  The plugin \"";
5308             print $plugin_name . "\" may not work correctly until you fix this.\n";
5309             print "\nPress enter to continue";
5310             $ctu = <STDIN>;
5311             print "\n";
5312             next;
5313         }
5314
5315         $version = ' ';
5316 # FIXME: grep the file instead of reading it into memory?
5317         $whole_file = '';
5318         open( FILE, "$setup_file" );
5319         while ( $line = <FILE> ) {
5320             $whole_file .= $line;
5321         }
5322         close(FILE);
5323
5324         # ideally, there is a version in the <plugin>_info function...
5325         #
5326         if ($whole_file =~ /('version'\s*=>\s*['"](.*?)['"])/) {
5327             $version .= $2;
5328
5329         # this assumes there is only one function that returns
5330         # a static string in the setup file
5331         #
5332         } elsif ($whole_file =~ /(return\s*['"](.*?)['"])/) {
5333             $version .= $2;
5334         }
5335
5336         return $version;
5337
5338         } else {
5339             print "\n";
5340             print "WARNING:\n";
5341             print "The file \"$setup_file\" was not found.\n";
5342             print "The plugin \"" . $plugin_name;
5343             print "\" may not work correctly until you fix this.\n";
5344             print "\nPress enter to continue";
5345             $ctu = <STDIN>;
5346             print "\n";
5347             next;
5348         }
5349
5350 }
5351
5352 # determine a plugin's English name
5353 #
5354 # parses the setup.php file, looking for the
5355 # English name in the <plugin>_info() function.
5356 #
5357 sub get_plugin_english_name() {
5358
5359     my $plugin_name = shift(@_);
5360
5361     $setup_file = '../plugins/' . $plugin_name . '/setup.php';
5362     if ( -e "$setup_file" ) {
5363         # Make sure that file is readable
5364         if (! -r "$setup_file") {
5365             print "\n";
5366             print "WARNING:\n";
5367             print "The file \"$setup_file\" was found, but you don't\n";
5368             print "have rights to read it.  The plugin \"";
5369             print $plugin_name . "\" may not work correctly until you fix this.\n";
5370             print "\nPress enter to continue";
5371             $ctu = <STDIN>;
5372             print "\n";
5373             next;
5374         }
5375
5376         $english_name = '';
5377 # FIXME: grep the file instead of reading it into memory?
5378         $whole_file = '';
5379         open( FILE, "$setup_file" );
5380         while ( $line = <FILE> ) {
5381             $whole_file .= $line;
5382         }
5383         close(FILE);
5384
5385         # the English name is in the <plugin>_info function or nothing...
5386         #
5387         if ($whole_file =~ /('english_name'\s*=>\s*['"](.*?)['"])/) {
5388             $english_name .= $2;
5389         }
5390
5391         return $english_name;
5392
5393         } else {
5394             print "\n";
5395             print "WARNING:\n";
5396             print "The file \"$setup_file\" was not found.\n";
5397             print "The plugin \"" . $plugin_name;
5398             print "\" may not work correctly until you fix this.\n";
5399             print "\nPress enter to continue";
5400             $ctu = <STDIN>;
5401             print "\n";
5402             next;
5403         }
5404
5405 }
5406
5407 # parses the setup.php files for all activated plugins and
5408 # builds static plugin hooks array so we don't have to load
5409 # ALL plugins are runtime and build the hook array on every
5410 # page request
5411 #
5412 # hook array is saved in config/plugin_hooks.php
5413 #
5414 # Note the $verbose variable at the top of this routine
5415 # can be set to zero to quiet it down.
5416 #
5417 # NOTE/FIXME: we aren't necessarily interested in writing
5418 #             a full-blown PHP parsing engine, so plenty
5419 #             of assumptions are included herein about the
5420 #             coding of the plugin setup files, and things
5421 #             like commented out curly braces or other
5422 #             such oddities can break this in a bad way.
5423 #
5424 sub build_plugin_hook_array() {
5425
5426     $verbose = 1;
5427
5428     if ($verbose) {
5429         print "\n\n";
5430     }
5431
5432     if ( open( HOOKFILE, ">plugin_hooks.php" ) ) {
5433         print HOOKFILE "<?php\n";
5434         print HOOKFILE "\n";
5435
5436         print HOOKFILE "/**\n";
5437         print HOOKFILE " * SquirrelMail Plugin Hook Registration File\n";
5438         print HOOKFILE " * Auto-generated using the configure script, conf.pl\n";
5439         print HOOKFILE " */\n";
5440         print HOOKFILE "\n";
5441         print HOOKFILE "global \$squirrelmail_plugin_hooks;\n";
5442         print HOOKFILE "\n";
5443
5444 PLUGIN: for ( $ct = 0 ; $ct <= $#plugins ; $ct++ ) {
5445
5446         if ($verbose) {
5447             print "Activating plugin \"" . $plugins[$ct] . "\"...\n";
5448         }
5449
5450         $setup_file = '../plugins/' . $plugins[$ct] . '/setup.php';
5451         if ( -e "$setup_file" ) {
5452             # Make sure that file is readable
5453             if (! -r "$setup_file") {
5454                 print "\n";
5455                 print "WARNING:\n";
5456                 print "The file \"$setup_file\" was found, but you don't\n";
5457                 print "have rights to read it.  The plugin \"";
5458                 print $plugins[$ct] . "\" will not be activated until you fix this.\n";
5459                 print "\nPress enter to continue";
5460                 $ctu = <STDIN>;
5461                 print "\n";
5462                 next;
5463             }
5464             open( FILE, "$setup_file" );
5465             $inside_init_fxn = 0;
5466             $brace_count = 0;
5467             while ( $line = <FILE> ) {
5468
5469                 # throw away lines until we get to target function
5470                 #
5471                 if (!$inside_init_fxn
5472                  && $line !~ /^\s*function\s*squirrelmail_plugin_init_/i) {
5473                     next;
5474                 }
5475                 $inside_init_fxn = 1;
5476
5477
5478                 # count open braces
5479                 #
5480                 if ($line =~ /{/) {
5481                     $brace_count++;
5482                 }
5483
5484
5485                 # count close braces
5486                 #
5487                 if ($line =~ /}/) {
5488                     $brace_count--;
5489
5490                     # leaving <plugin>_init() function...
5491                     if ($brace_count == 0) {
5492                         close(FILE);
5493                         next PLUGIN;
5494                     }
5495
5496                 }
5497
5498
5499                 # throw away lines that are not exactly one "brace set" deep
5500                 #
5501                 if ($brace_count > 1) {
5502                     next;
5503                 }
5504
5505
5506                 # also not interested in lines that are not
5507                 # hook registration points
5508                 #
5509                 if ($line !~ /^\s*\$squirrelmail_plugin_hooks/i) {
5510                     next;
5511                 }
5512
5513
5514                 # if $line does not have an ending semicolon,
5515                 # we need to recursively read in subsequent
5516                 # lines until we find one
5517                 while ( $line !~ /;\s*$/ ) {
5518                     $line =~ s/[\n\r]\s*$//;
5519                     $line .= <FILE>;
5520                 }
5521
5522
5523                 $line =~ s/^\s+//;
5524                 $line =~ s/^\$//;
5525                 $var = $line;
5526
5527                 $var =~ s/=/EQUALS/;
5528                 if ( $var =~ /^([a-z])/i ) {
5529                     @options = split ( /\s*EQUALS\s*/, $var );
5530                     $options[1] =~ s/[\n\r]//g;
5531                     $options[1] =~ s/[\'\"];\s*$//;
5532                     $options[1] =~ s/;$//;
5533                     $options[1] =~ s/^[\'\"]//;
5534                     # de-escape escaped strings
5535                     $options[1] =~ s/\\'/'/g;
5536                     $options[1] =~ s/\\\\/\\/g;
5537
5538                     if ( $options[0] =~ /^squirrelmail_plugin_hooks\s*\[\s*['"]([a-z0-9 \/._*-]+)['"]\s*\]\s*\[\s*['"]([0-9a-z._-]+)['"]\s*\]/i ) {
5539                         $hook_name = $1;
5540                         $hooked_plugin_name = $2;
5541                         # Note: if we wanted to stop plugins from registering
5542                         #       a *different* plugin on a hook, we could catch
5543                         #       it here, however this has actually proven to be
5544                         #       a useful *feature*
5545                         #if ($hooked_plugin_name ne $plugins[$ct]) {
5546                         #    print "...plugin is tring to hook in under different name...\n";
5547                         #}
5548
5549 #FIXME: do we want to count the number of hook registrations for each plugin and warn if a plugin doesn't have any?
5550                         # hook registration has been found!
5551                         if ($verbose) {
5552                             if ($hooked_plugin_name ne $plugins[$ct]) {
5553                                 print "   registering on hook \"" . $hook_name . "\" (as \"$hooked_plugin_name\" plugin)\n";
5554                             } else {
5555                                 print "   registering on hook \"" . $hook_name . "\"\n";
5556                             }
5557                         }
5558                         $line =~ s/ {2,}/ /g;
5559                         $line =~ s/=/\n    =/;
5560                         print HOOKFILE "\$$line";
5561
5562                     }
5563
5564                 }
5565
5566             }
5567             close(FILE);
5568
5569         } else {
5570             print "\n";
5571             print "WARNING:\n";
5572             print "The file \"$setup_file\" was not found.\n";
5573             print "The plugin \"" . $plugins[$ct];
5574             print "\" will not be activated until you fix this.\n";
5575             print "\nPress enter to continue";
5576             $ctu = <STDIN>;
5577             print "\n";
5578             next;
5579         }
5580
5581     }
5582
5583     print HOOKFILE "\n\n";
5584     close(HOOKFILE);
5585 #    if ($verbose) {
5586         print "\nDone activating plugins; registration data saved in plugin_hooks.php\n\n";
5587 #    }
5588
5589     } else {
5590
5591         print "\n";
5592         print "WARNING:\n";
5593         print "The file \"plugin_hooks.php\" was not able to be written to.\n";
5594         print "No plugins will be activated until you fix this.\n";
5595         print "\nPress enter to continue";
5596         $ctu = <STDIN>;
5597         print "\n";
5598
5599     }
5600
5601 }
5602
5603 # converts (binary) integer values that correspond
5604 # to the SquirrelMail debug mode constants (see
5605 # include/constants.php) into those constant strings
5606 # (bitwise or'd if more than one is enabled)
5607 #
5608 # if the value passed in is not an integer, it is
5609 # returned unmolested
5610 #
5611 sub convert_debug_binary_integer_to_constants() {
5612
5613     my ($debug_mode) = @_;
5614     if ($debug_mode =~ /^[^0-9]/) {
5615         return $debug_mode;
5616     }
5617     $debug_mode = int($debug_mode);
5618     $new_debug_mode = '';
5619
5620     # per include/constants.php, here are their values:
5621     #
5622     # 0          SM_DEBUG_MODE_OFF
5623     # 1          SM_DEBUG_MODE_SIMPLE
5624     # 512        SM_DEBUG_MODE_MODERATE
5625     # 524288     SM_DEBUG_MODE_ADVANCED
5626     # 536870912  SM_DEBUG_MODE_STRICT
5627     #
5628     if ($debug_mode & 1) {
5629         $new_debug_mode .= ' | SM_DEBUG_MODE_SIMPLE';
5630     }
5631     if ($debug_mode & 512) {
5632         $new_debug_mode .= ' | SM_DEBUG_MODE_MODERATE';
5633     }
5634     if ($debug_mode & 524288) {
5635         $new_debug_mode .= ' | SM_DEBUG_MODE_ADVANCED';
5636     }
5637     if ($debug_mode & 536870912) {
5638         $new_debug_mode .= ' | SM_DEBUG_MODE_STRICT';
5639     }
5640
5641     $new_debug_mode =~ s/^ \| //;
5642     if (!$new_debug_mode) {
5643         $new_debug_mode = 'SM_DEBUG_MODE_OFF';
5644     }
5645
5646     return $new_debug_mode;
5647 }
5648
5649 # converts SquirrelMail debug mode constants (see
5650 # include/constants.php) into their corresponding
5651 # (binary) integer values
5652 #
5653 # if the value passed in is an integer already, it
5654 # is returned unmolested
5655 #
5656 sub convert_debug_constants_to_binary_integer() {
5657
5658     my ($debug_mode) = @_;
5659     if ($debug_mode =~ /^[0-9]/) {
5660         return $debug_mode;
5661     }
5662     $new_debug_mode = 0;
5663
5664     # per include/constants.php, here are their values:
5665     #
5666     # 0          SM_DEBUG_MODE_OFF
5667     # 1          SM_DEBUG_MODE_SIMPLE
5668     # 512        SM_DEBUG_MODE_MODERATE
5669     # 524288     SM_DEBUG_MODE_ADVANCED
5670     # 536870912  SM_DEBUG_MODE_STRICT
5671     #
5672     if ($debug_mode =~ /\bSM_DEBUG_MODE_OFF\b/) {
5673         $new_debug_mode = 0;
5674     }
5675     if ($debug_mode =~ /\bSM_DEBUG_MODE_SIMPLE\b/) {
5676         $new_debug_mode |= 1;
5677     }
5678     if ($debug_mode =~ /\bSM_DEBUG_MODE_MODERATE\b/) {
5679         $new_debug_mode |= 512;
5680     }
5681     if ($debug_mode =~ /\bSM_DEBUG_MODE_ADVANCED\b/) {
5682         $new_debug_mode |= 524288;
5683     }
5684     if ($debug_mode =~ /\bSM_DEBUG_MODE_STRICT\b/) {
5685         $new_debug_mode |= 536870912;
5686     }
5687
5688     return $new_debug_mode;
5689 }