config/conf.pl

   1 #!/usr/bin/env perl
   2 # conf.pl
   3 #
   4 # Copyright (c) 1999-2005 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.4.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     open( FILE, "config.php" );
  50     while ( $line = <FILE> ) {
  51         $line =~ s/^\s+//;
  52         $line =~ s/^\$//;
  53         $var = $line;
  54
  55         $var =~ s/=/EQUALS/;
  56         if ( $var =~ /^([a-z])/i ) {
  57             @o = split ( /\s*EQUALS\s*/, $var );
  58             if ( $o[0] eq "config_version" ) {
  59                 $o[1] =~ s/[\n\r]//g;
  60                 $o[1] =~ s/[\'\"];\s*$//;
  61                 $o[1] =~ s/;$//;
  62                 $o[1] =~ s/^[\'\"]//;
  63
  64                 $config_version = $o[1];
  65                 close(FILE);
  66             }
  67         }
  68     }
  69     close(FILE);
  70
  71     if ( $config_version ne $conf_pl_version ) {
  72         clear_screen();
  73         print $WHT. "WARNING:\n" . $NRM;
  74         print "  The file \"config/config.php\" was found, but it is for\n";
  75         print "  an older version of SquirrelMail. It is possible to still\n";
  76         print "  read the defaults from this file but be warned that many\n";
  77         print "  preferences change between versions. It is recommended that\n";
  78         print "  you start with a clean config.php for each upgrade that you\n";
  79         print "  do. To do this, just move config/config.php out of the way.\n";
  80         print "\n";
  81         print "Continue loading with the old config.php [y/N]? ";
  82         $ctu = <STDIN>;
  83
  84         if ( ( $ctu !~ /^y\n/i ) || ( $ctu =~ /^\n/ ) ) {
  85             exit;
  86         }
  87
  88         print "\nDo you want me to stop warning you [y/N]? ";
  89         $ctu = <STDIN>;
  90         if ( $ctu =~ /^y\n/i ) {
  91             $print_config_version = $conf_pl_version;
  92         } else {
  93             $print_config_version = $config_version;
  94         }
  95     } else {
  96         $print_config_version = $config_version;
  97     }
  98
  99     $config = 1;
 100     open( FILE, "config.php" );
 101 } elsif ( -e "config_default.php" ) {
 102     open( FILE, "config_default.php" );
 103     while ( $line = <FILE> ) {
 104         $line =~ s/^\s+//;
 105         $line =~ s/^\$//;
 106         $var = $line;
 107
 108         $var =~ s/=/EQUALS/;
 109         if ( $var =~ /^([a-z])/i ) {
 110             @o = split ( /\s*EQUALS\s*/, $var );
 111             if ( $o[0] eq "config_version" ) {
 112                 $o[1] =~ s/[\n\r]//g;
 113                 $o[1] =~ s/[\'\"];\s*$//;
 114                 $o[1] =~ s/;$//;
 115                 $o[1] =~ s/^[\'\"]//;
 116
 117                 $config_version = $o[1];
 118                 close(FILE);
 119             }
 120         }
 121     }
 122     close(FILE);
 123
 124     if ( $config_version ne $conf_pl_version ) {
 125         clear_screen();
 126         print $WHT. "WARNING:\n" . $NRM;
 127         print "  You are trying to use a 'config_default.php' from an older\n";
 128         print "  version of SquirrelMail. This is HIGHLY unrecommended. You\n";
 129         print "  should get the 'config_default.php' that matches the version\n";
 130         print "  of SquirrelMail that you are running. You can get this from\n";
 131         print "  the SquirrelMail web page by going to the following URL:\n";
 132         print "      http://www.squirrelmail.org.\n";
 133         print "\n";
 134         print "Continue loading with old config_default.php (a bad idea) [y/N]? ";
 135         $ctu = <STDIN>;
 136
 137         if ( ( $ctu !~ /^y\n/i ) || ( $ctu =~ /^\n/ ) ) {
 138             exit;
 139         }
 140
 141         print "\nDo you want me to stop warning you [y/N]? ";
 142         $ctu = <STDIN>;
 143         if ( $ctu =~ /^y\n/i ) {
 144             $print_config_version = $conf_pl_version;
 145         } else {
 146             $print_config_version = $config_version;
 147         }
 148     } else {
 149         $print_config_version = $config_version;
 150     }
 151     $config = 2;
 152     open( FILE, "config_default.php" );
 153 } else {
 154     print "No configuration file found. Please get config_default.php\n";
 155     print "or config.php before running this again. This program needs\n";
 156     print "a default config file to get default values.\n";
 157     exit;
 158 }
 159
 160 # Read and parse the current configuration file
 161 # (either config.php or config_default.php).
 162 while ( $line = <FILE> ) {
 163     $line =~ s/^\s+//;
 164     $line =~ s/^\$//;
 165     $var = $line;
 166
 167     $var =~ s/=/EQUALS/;
 168     if ( $var =~ /^([a-z])/i ) {
 169         @options = split ( /\s*EQUALS\s*/, $var );
 170         $options[1] =~ s/[\n\r]//g;
 171         $options[1] =~ s/[\'\"];\s*$//;
 172         $options[1] =~ s/;$//;
 173         $options[1] =~ s/^[\'\"]//;
 174         # de-escape escaped strings
 175         $options[1] =~ s/\\'/'/g;
 176         $options[1] =~ s/\\\\/\\/g;
 177
 178         if ( $options[0] =~ /^theme\[[0-9]+\]\[['"]PATH['"]\]/ ) {
 179             $sub = $options[0];
 180             $sub =~ s/\]\[['"]PATH['"]\]//;
 181             $sub =~ s/.*\[//;
 182             if ( -e "../themes" ) {
 183                 $options[1] =~ s/^\.\.\/config/\.\.\/themes/;
 184             }
 185             $theme_path[$sub] = &change_to_rel_path($options[1]);
 186         } elsif ( $options[0] =~ /^theme\[[0-9]+\]\[['"]NAME['"]\]/ ) {
 187             $sub = $options[0];
 188             $sub =~ s/\]\[['"]NAME['"]\]//;
 189             $sub =~ s/.*\[//;
 190             $theme_name[$sub] = $options[1];
 191         } elsif ( $options[0] =~ /^plugins\[[0-9]*\]/ ) {
 192             $sub = $options[0];
 193             $sub =~ s/\]//;
 194             $sub =~ s/^plugins\[//;
 195             if ($sub eq '') {
 196                push @plugins, $options[1];
 197             } else {
 198                $plugins[$sub] = $options[1];
 199             }
 200         } elsif ( $options[0] =~ /^ldap_server\[[0-9]+\]/ ) {
 201             $sub = $options[0];
 202             $sub =~ s/\]//;
 203             $sub =~ s/^ldap_server\[//;
 204             $continue = 0;
 205             while ( ( $tmp = <FILE> ) && ( $continue != 1 ) ) {
 206                 if ( $tmp =~ /\);\s*$/ ) {
 207                     $continue = 1;
 208                 }
 209
 210                 if ( $tmp =~ /^\s*[\'\"]host[\'\"]/i ) {
 211                     $tmp =~ s/^\s*[\'\"]host[\'\"]\s*=>\s*[\'\"]//i;
 212                     $tmp =~ s/[\'\"],?\s*$//;
 213                     $tmp =~ s/[\'\"]\);\s*$//;
 214                     $host = $tmp;
 215                 } elsif ( $tmp =~ /^\s*[\'\"]base[\'\"]/i ) {
 216                     $tmp =~ s/^\s*[\'\"]base[\'\"]\s*=>\s*[\'\"]//i;
 217                     $tmp =~ s/[\'\"],?\s*$//;
 218                     $tmp =~ s/[\'\"]\);\s*$//;
 219                     $base = $tmp;
 220                 } elsif ( $tmp =~ /^\s*[\'\"]charset[\'\"]/i ) {
 221                     $tmp =~ s/^\s*[\'\"]charset[\'\"]\s*=>\s*[\'\"]//i;
 222                     $tmp =~ s/[\'\"],?\s*$//;
 223                     $tmp =~ s/[\'\"]\);\s*$//;
 224                     $charset = $tmp;
 225                 } elsif ( $tmp =~ /^\s*[\'\"]port[\'\"]/i ) {
 226                     $tmp =~ s/^\s*[\'\"]port[\'\"]\s*=>\s*[\'\"]?//i;
 227                     $tmp =~ s/[\'\"]?,?\s*$//;
 228                     $tmp =~ s/[\'\"]?\);\s*$//;
 229                     $port = $tmp;
 230                 } elsif ( $tmp =~ /^\s*[\'\"]maxrows[\'\"]/i ) {
 231                     $tmp =~ s/^\s*[\'\"]maxrows[\'\"]\s*=>\s*[\'\"]?//i;
 232                     $tmp =~ s/[\'\"]?,?\s*$//;
 233                     $tmp =~ s/[\'\"]?\);\s*$//;
 234                     $maxrows = $tmp;
 235                 } elsif ( $tmp =~ /^\s*[\'\"]filter[\'\"]/i ) {
 236                     $tmp =~ s/^\s*[\'\"]filter[\'\"]\s*=>\s*[\'\"]?//i;
 237                     $tmp =~ s/[\'\"]?,?\s*$//;
 238                     $tmp =~ s/[\'\"]?\);\s*$//;
 239                     $filter = $tmp;
 240                 } elsif ( $tmp =~ /^\s*[\'\"]name[\'\"]/i ) {
 241                     $tmp =~ s/^\s*[\'\"]name[\'\"]\s*=>\s*[\'\"]//i;
 242                     $tmp =~ s/[\'\"],?\s*$//;
 243                     $tmp =~ s/[\'\"]\);\s*$//;
 244                     $name = $tmp;
 245                 } elsif ( $tmp =~ /^\s*[\'\"]binddn[\'\"]/i ) {
 246                     $tmp =~ s/^\s*[\'\"]binddn[\'\"]\s*=>\s*[\'\"]//i;
 247                     $tmp =~ s/[\'\"],?\s*$//;
 248                     $tmp =~ s/[\'\"]\);\s*$//;
 249                     $binddn = $tmp;
 250                 } elsif ( $tmp =~ /^\s*[\'\"]bindpw[\'\"]/i ) {
 251                     $tmp =~ s/^\s*[\'\"]bindpw[\'\"]\s*=>\s*[\'\"]//i;
 252                     $tmp =~ s/[\'\"],?\s*$//;
 253                     $tmp =~ s/[\'\"]\);\s*$//;
 254                     $bindpw = $tmp;
 255                 } elsif ( $tmp =~ /^\s*[\'\"]protocol[\'\"]/i ) {
 256                     $tmp =~ s/^\s*[\'\"]protocol[\'\"]\s*=>\s*[\'\"]?//i;
 257                     $tmp =~ s/[\'\"]?,?\s*$//;
 258                     $tmp =~ s/[\'\"]?\);\s*$//;
 259                     $protocol = $tmp;
 260                 } elsif ( $tmp =~ /^\s*[\'\"]limit_scope[\'\"]/i ) {
 261                     $tmp =~ s/^\s*[\'\"]limit_scope[\'\"]\s*=>\s*[\'\"]?//i;
 262                     $tmp =~ s/[\'\"]?,?\s*$//;
 263                     $tmp =~ s/[\'\"]?\);\s*$//;
 264                     $limit_scope = $tmp;
 265                 } elsif ( $tmp =~ /^\s*[\'\"]listing[\'\"]/i ) {
 266                     $tmp =~ s/^\s*[\'\"]listing[\'\"]\s*=>\s*[\'\"]?//i;
 267                     $tmp =~ s/[\'\"]?,?\s*$//;
 268                     $tmp =~ s/[\'\"]?\);\s*$//;
 269                     $listing = $tmp;
 270                 } elsif ( $tmp =~ /^\s*[\'\"]search_tree[\'\"]/i ) {
 271                     $tmp =~ s/^\s*[\'\"]search_tree[\'\"]\s*=>\s*[\'\"]?//i;
 272                     $tmp =~ s/[\'\"]?,?\s*$//;
 273                     $tmp =~ s/[\'\"]?\);\s*$//;
 274                     $search_tree = $tmp;
 275                 } elsif ( $tmp =~ /^\s*[\'\"]starttls[\'\"]/i ) {
 276                     $tmp =~ s/^\s*[\'\"]starttls[\'\"]\s*=>\s*[\'\"]?//i;
 277                     $tmp =~ s/[\'\"]?,?\s*$//;
 278                     $tmp =~ s/[\'\"]?\);\s*$//;
 279                     $starttls = $tmp;
 280                 }
 281             }
 282             $ldap_host[$sub]    = $host;
 283             $ldap_base[$sub]    = $base;
 284             $ldap_name[$sub]    = $name;
 285             $ldap_port[$sub]    = $port;
 286             $ldap_maxrows[$sub] = $maxrows;
 287             $ldap_filter[$sub]  = $filter;
 288             $ldap_charset[$sub] = $charset;
 289             $ldap_binddn[$sub]  = $binddn;
 290             $ldap_bindpw[$sub]  = $bindpw;
 291             $ldap_protocol[$sub] = $protocol;
 292             $ldap_limit_scope[$sub] = $limit_scope;
 293             $ldap_listing[$sub] = $listing;
 294             $ldap_search_tree[$sub] = $search_tree;
 295             $ldap_starttls[$sub] = $starttls;
 296         } elsif ( $options[0] =~ /^(data_dir|attachment_dir|theme_css|org_logo|signout_page)$/ ) {
 297             ${ $options[0] } = &change_to_rel_path($options[1]);
 298         } else {
 299             ${ $options[0] } = $options[1];
 300         }
 301     }
 302 }
 303 close FILE;
 304
 305 $useSendmail = 'false'                  if ( lc($useSendmail) ne 'true' );
 306 $sendmail_path = "/usr/sbin/sendmail"   if ( !$sendmail_path );
 307 $pop_before_smtp = 'false'              if ( !$pop_before_smtp );
 308 $default_unseen_notify = 2              if ( !$default_unseen_notify );
 309 $default_unseen_type = 1                if ( !$default_unseen_type );
 310 $config_use_color = 0                   if ( !$config_use_color );
 311 $invert_time = 'false'                  if ( !$invert_time );
 312 $force_username_lowercase = 'false'     if ( !$force_username_lowercase );
 313 $optional_delimiter = "detect"          if ( !$optional_delimiter );
 314 $auto_create_special = 'false'          if ( !$auto_create_special );
 315 $default_use_priority = 'true'          if ( !$default_use_priority );
 316 $hide_sm_attributions = 'false'         if ( !$hide_sm_attributions );
 317 $default_use_mdn = 'true'               if ( !$default_use_mdn );
 318 $delete_folder = 'false'                if ( !$delete_folder );
 319 $noselect_fix_enable = 'false'          if ( !$noselect_fix_enable );
 320 $frame_top = "_top"                     if ( !$frame_top );
 321 $provider_uri = ''                      if ( !$provider_uri );
 322 $provider_name = ''                     if ( !$provider_name );
 323 $edit_identity = 'true'                 if ( !$edit_identity );
 324 $edit_name = 'true'                     if ( !$edit_name );
 325 $allow_thread_sort = 'false'            if ( !$allow_thread_sort );
 326 $allow_server_sort = 'false'            if ( !$allow_server_sort );
 327 $no_list_for_subscribe = 'false'        if ( !$no_list_for_subscribe );
 328 $allow_charset_search = 'true'          if ( !$allow_charset_search );
 329 $allow_advanced_search = 0              if ( !$allow_advanced_search) ;
 330 $prefs_user_field = 'user'              if ( !$prefs_user_field );
 331 $prefs_key_field = 'prefkey'            if ( !$prefs_key_field );
 332 $prefs_val_field = 'prefval'            if ( !$prefs_val_field );
 333 $use_smtp_tls= 'false'                  if ( !$use_smtp_tls);
 334 $smtp_auth_mech = 'none'                if ( !$smtp_auth_mech );
 335 $use_imap_tls = 'false'                 if ( !$use_imap_tls );
 336 $imap_auth_mech = 'login'               if ( !$imap_auth_mech );
 337 $session_name = 'SQMSESSID'             if ( !$session_name );
 338 $skip_SM_header = 'false'               if ( !$skip_SM_header );
 339 $default_use_javascript_addr_book = 'false' if (! $default_use_javascript_addr_book);
 340 # since 1.5.0
 341 $show_alternative_names = 'false'       if ( !$show_alternative_names );
 342 $available_languages = 'all'            if ( !$available_languages );
 343 $aggressive_decoding = 'false'          if ( !$aggressive_decoding );
 344 $advanced_tree = 'false'                if ( !$advanced_tree );
 345 $use_php_recode = 'false'               if ( !$use_php_recode );
 346 $use_php_iconv = 'false'                if ( !$use_php_iconv );
 347 # since 1.5.1
 348 $use_icons = 'false'                    if ( !$use_icons );
 349 $use_iframe = 'false'                   if ( !$use_iframe );
 350 $lossy_encoding = 'false'               if ( !$lossy_encoding );
 351 $allow_remote_configtest = 'false'      if ( !$allow_remote_configtest );
 352 $addrbook_global_table = 'global_abook' if ( !$addrbook_global_table );
 353 $addrbook_global_writeable = 'false'    if ( !$addrbook_global_writeable );
 354 $addrbook_global_listing = 'false'      if ( !$addrbook_global_listing );
 355 $abook_global_file = ''                 if ( !$abook_global_file);
 356 $abook_global_file_writeable = 'false'  if ( !$abook_global_file_writeable);
 357 $abook_global_file_listing = 'true'     if ( !$abook_global_file_listing );
 358 $encode_header_key = ''                 if ( !$encode_header_key );
 359 $hide_auth_header = 'false'             if ( !$hide_auth_header );
 360 $time_zone_type = '0'                   if ( !$time_zone_type );
 361
 362 if ( $ARGV[0] eq '--install-plugin' ) {
 363     print "Activating plugin " . $ARGV[1] . "\n";
 364     push @plugins, $ARGV[1];
 365     save_data();
 366     exit(0);
 367 } elsif ( $ARGV[0] eq '--remove-plugin' ) {
 368     print "Removing plugin " . $ARGV[1] . "\n";
 369     foreach $plugin (@plugins) {
 370         if ( $plugin ne $ARGV[1] ) {
 371             push @newplugins, $plugin;
 372         }
 373     }
 374     @plugins = @newplugins;
 375     save_data();
 376     exit(0);
 377 }
 378
 379 #####################################################################################
 380 if ( $config_use_color == 1 ) {
 381     $WHT = "\x1B[37;1m";
 382     $NRM = "\x1B[0m";
 383 } else {
 384     $WHT              = "";
 385     $NRM              = "";
 386     $config_use_color = 2;
 387 }
 388
 389 while ( ( $command ne "q" ) && ( $command ne "Q" ) && ( $command ne ":q" ) ) {
 390     clear_screen();
 391     print $WHT. "SquirrelMail Configuration : " . $NRM;
 392     if    ( $config == 1 ) { print "Read: config.php"; }
 393     elsif ( $config == 2 ) { print "Read: config_default.php"; }
 394     print " ($print_config_version)\n";
 395     print "---------------------------------------------------------\n";
 396
 397     if ( $menu == 0 ) {
 398         print $WHT. "Main Menu --\n" . $NRM;
 399         print "1.  Organization Preferences\n";
 400         print "2.  Server Settings\n";
 401         print "3.  Folder Defaults\n";
 402         print "4.  General Options\n";
 403         print "5.  Themes\n";
 404         print "6.  Address Books\n";
 405         print "7.  Message of the Day (MOTD)\n";
 406         print "8.  Plugins\n";
 407         print "9.  Database\n";
 408         print "10. Language settings\n";
 409         print "11. Tweaks\n";
 410         print "\n";
 411         print "D.  Set pre-defined settings for specific IMAP servers\n";
 412         print "\n";
 413     } elsif ( $menu == 1 ) {
 414         print $WHT. "Organization Preferences\n" . $NRM;
 415         print "1.  Organization Name      : $WHT$org_name$NRM\n";
 416         print "2.  Organization Logo      : $WHT$org_logo$NRM\n";
 417         print "3.  Org. Logo Width/Height : $WHT($org_logo_width/$org_logo_height)$NRM\n";
 418         print "4.  Organization Title     : $WHT$org_title$NRM\n";
 419         print "5.  Signout Page           : $WHT$signout_page$NRM\n";
 420         print "6.  Top Frame              : $WHT$frame_top$NRM\n";
 421         print "7.  Provider link          : $WHT$provider_uri$NRM\n";
 422         print "8.  Provider name          : $WHT$provider_name$NRM\n";
 423
 424         print "\n";
 425         print "R   Return to Main Menu\n";
 426     } elsif ( $menu == 2 ) {
 427         print $WHT. "Server Settings\n\n" . $NRM;
 428         print $WHT . "General" . $NRM . "\n";
 429         print "-------\n";
 430         print "1.  Domain                 : $WHT$domain$NRM\n";
 431         print "2.  Invert Time            : $WHT$invert_time$NRM\n";
 432         print "3.  Sendmail or SMTP       : $WHT";
 433         if ( lc($useSendmail) eq 'true' ) {
 434             print "Sendmail";
 435         } else {
 436             print "SMTP";
 437         }
 438         print "$NRM\n";
 439         print "\n";
 440
 441         if ( $show_imap_settings ) {
 442           print $WHT . "IMAP Settings". $NRM . "\n--------------\n";
 443           print "4.  IMAP Server            : $WHT$imapServerAddress$NRM\n";
 444           print "5.  IMAP Port              : $WHT$imapPort$NRM\n";
 445           print "6.  Authentication type    : $WHT$imap_auth_mech$NRM\n";
 446           print "7.  Secure IMAP (TLS)      : $WHT$use_imap_tls$NRM\n";
 447           print "8.  Server software        : $WHT$imap_server_type$NRM\n";
 448           print "9.  Delimiter              : $WHT$optional_delimiter$NRM\n";
 449           print "\n";
 450         } elsif ( $show_smtp_settings ) {
 451           if ( lc($useSendmail) eq 'true' ) {
 452             print $WHT . "Sendmail" . $NRM . "\n--------\n";
 453             print "4.   Sendmail Path         : $WHT$sendmail_path$NRM\n";
 454             print "5.   Header encryption key : $WHT$encode_header_key$NRM\n";
 455             print "\n";
 456           } else {
 457             print $WHT . "SMTP Settings" . $NRM . "\n-------------\n";
 458             print "4.   SMTP Server           : $WHT$smtpServerAddress$NRM\n";
 459             print "5.   SMTP Port             : $WHT$smtpPort$NRM\n";
 460             print "6.   POP before SMTP       : $WHT$pop_before_smtp$NRM\n";
 461             print "7.   SMTP Authentication   : $WHT$smtp_auth_mech$NRM\n";
 462             print "8.   Secure SMTP (TLS)     : $WHT$use_smtp_tls$NRM\n";
 463             print "9.   Header encryption key : $WHT$encode_header_key$NRM\n";
 464             print "\n";
 465           }
 466         }
 467
 468         if ($show_imap_settings == 0) {
 469           print "A.  Update IMAP Settings   : ";
 470           print "$WHT$imapServerAddress$NRM:";
 471           print "$WHT$imapPort$NRM ";
 472           print "($WHT$imap_server_type$NRM)\n";
 473         }
 474         if ($show_smtp_settings == 0) {
 475           if ( lc($useSendmail) eq 'true' ) {
 476             print "B.  Change Sendmail Config : $WHT$sendmail_path$NRM\n";
 477           } else {
 478             print "B.  Update SMTP Settings   : ";
 479             print "$WHT$smtpServerAddress$NRM:";
 480             print "$WHT$smtpPort$NRM\n";
 481           }
 482         }
 483         if ( $show_smtp_settings || $show_imap_settings )
 484         {
 485           print "H.  Hide " .
 486                 ($show_imap_settings ? "IMAP Server" :
 487                   (lc($useSendmail) eq 'true') ? "Sendmail" : "SMTP") . " Settings\n";
 488         }
 489
 490         print "\n";
 491         print "R   Return to Main Menu\n";
 492     } elsif ( $menu == 3 ) {
 493         print $WHT. "Folder Defaults\n" . $NRM;
 494         print "1.  Default Folder Prefix         : $WHT$default_folder_prefix$NRM\n";
 495         print "2.  Show Folder Prefix Option     : $WHT$show_prefix_option$NRM\n";
 496         print "3.  Trash Folder                  : $WHT$trash_folder$NRM\n";
 497         print "4.  Sent Folder                   : $WHT$sent_folder$NRM\n";
 498         print "5.  Drafts Folder                 : $WHT$draft_folder$NRM\n";
 499         print "6.  By default, move to trash     : $WHT$default_move_to_trash$NRM\n";
 500         print "7.  By default, move to sent      : $WHT$default_move_to_sent$NRM\n";
 501         print "8.  By default, save as draft     : $WHT$default_save_as_draft$NRM\n";
 502         print "9.  List Special Folders First    : $WHT$list_special_folders_first$NRM\n";
 503         print "10. Show Special Folders Color    : $WHT$use_special_folder_color$NRM\n";
 504         print "11. Auto Expunge                  : $WHT$auto_expunge$NRM\n";
 505         print "12. Default Sub. of INBOX         : $WHT$default_sub_of_inbox$NRM\n";
 506         print "13. Show 'Contain Sub.' Option    : $WHT$show_contain_subfolders_option$NRM\n";
 507         print "14. Default Unseen Notify         : $WHT$default_unseen_notify$NRM\n";
 508         print "15. Default Unseen Type           : $WHT$default_unseen_type$NRM\n";
 509         print "16. Auto Create Special Folders   : $WHT$auto_create_special$NRM\n";
 510         print "17. Folder Delete Bypasses Trash  : $WHT$delete_folder$NRM\n";
 511         print "18. Enable /NoSelect folder fix   : $WHT$noselect_fix_enable$NRM\n";
 512         print "\n";
 513         print "R   Return to Main Menu\n";
 514     } elsif ( $menu == 4 ) {
 515         print $WHT. "General Options\n" . $NRM;
 516         print "1.  Data Directory              : $WHT$data_dir$NRM\n";
 517         print "2.  Attachment Directory        : $WHT$attachment_dir$NRM\n";
 518         print "3.  Directory Hash Level        : $WHT$dir_hash_level$NRM\n";
 519         print "4.  Default Left Size           : $WHT$default_left_size$NRM\n";
 520         print "5.  Usernames in Lowercase      : $WHT$force_username_lowercase$NRM\n";
 521         print "6.  Allow use of priority       : $WHT$default_use_priority$NRM\n";
 522         print "7.  Hide SM attributions        : $WHT$hide_sm_attributions$NRM\n";
 523         print "8.  Allow use of receipts       : $WHT$default_use_mdn$NRM\n";
 524         print "9.  Allow editing of identity   : $WHT$edit_identity$NRM\n";
 525         print "    Allow editing of name       : $WHT$edit_name$NRM\n";
 526         print "    Remove username from header : $WHT$hide_auth_header$NRM\n";
 527         print "10. Allow server thread sort    : $WHT$allow_thread_sort$NRM\n";
 528         print "11. Allow server-side sorting   : $WHT$allow_server_sort$NRM\n";
 529         print "12. Allow server charset search : $WHT$allow_charset_search$NRM\n";
 530         print "13. Allow advanced search       : $WHT$allow_advanced_search$NRM\n";
 531         print "14. PHP session name            : $WHT$session_name$NRM\n";
 532         print "15. Time zone configuration     : $WHT$time_zone_type$NRM\n";
 533         print "\n";
 534         print "R   Return to Main Menu\n";
 535     } elsif ( $menu == 5 ) {
 536         print $WHT. "Themes\n" . $NRM;
 537         print "1.  Change Themes\n";
 538         for ( $count = 0 ; $count <= $#theme_name/2 ; $count++ ) {
 539             $temp_name = $theme_name[$count*2];
 540             printf "     %s%*s    %s\n", $temp_name,
 541                    40 - length($temp_name), " ",
 542                    $theme_name[($count*2)+1];
 543         }
 544         print "2.  CSS File : $WHT$theme_css$NRM\n";
 545         print "\n";
 546         print "R   Return to Main Menu\n";
 547     } elsif ( $menu == 6 ) {
 548         print $WHT. "Address Books\n" . $NRM;
 549         print "1.  Change LDAP Servers\n";
 550         for ( $count = 0 ; $count <= $#ldap_host ; $count++ ) {
 551             print "    >  $ldap_host[$count]\n";
 552         }
 553         print "2.  Use Javascript address book search          : $WHT$default_use_javascript_addr_book$NRM\n";
 554         print "3.  Global address book file                    : $WHT$abook_global_file$NRM\n";
 555         print "4.  Allow writing into global file address book : $WHT$abook_global_file_writeable$NRM\n";
 556         print "5.  Allow listing of global file address book   : $WHT$abook_global_file_listing$NRM\n";
 557         print "\n";
 558         print "R   Return to Main Menu\n";
 559     } elsif ( $menu == 7 ) {
 560         print $WHT. "Message of the Day (MOTD)\n" . $NRM;
 561         print "\n$motd\n";
 562         print "\n";
 563         print "1   Edit the MOTD\n";
 564         print "\n";
 565         print "R   Return to Main Menu\n";
 566     } elsif ( $menu == 8 ) {
 567         print $WHT. "Plugins\n" . $NRM;
 568         print "  Installed Plugins\n";
 569         $num = 0;
 570         for ( $count = 0 ; $count <= $#plugins ; $count++ ) {
 571             $num = $count + 1;
 572             print "    $num. $plugins[$count]\n";
 573         }
 574         print "\n  Available Plugins:\n";
 575         opendir( DIR, "../plugins" );
 576         @files          = readdir(DIR);
 577         $pos            = 0;
 578         @unused_plugins = ();
 579         for ( $i = 0 ; $i <= $#files ; $i++ ) {
 580             if ( -d "../plugins/" . $files[$i] && $files[$i] !~ /^\./ && $files[$i] ne "CVS" ) {
 581                 $match = 0;
 582                 for ( $k = 0 ; $k <= $#plugins ; $k++ ) {
 583                     if ( $plugins[$k] eq $files[$i] ) {
 584                         $match = 1;
 585                     }
 586                 }
 587                 if ( $match == 0 ) {
 588                     $unused_plugins[$pos] = $files[$i];
 589                     $pos++;
 590                 }
 591             }
 592         }
 593
 594         for ( $i = 0 ; $i <= $#unused_plugins ; $i++ ) {
 595             $num = $num + 1;
 596             print "    $num. $unused_plugins[$i]\n";
 597         }
 598         closedir DIR;
 599
 600         print "\n";
 601         print "R   Return to Main Menu\n";
 602     } elsif ( $menu == 9 ) {
 603         print $WHT. "Database\n" . $NRM;
 604         print "1.  DSN for Address Book   : $WHT$addrbook_dsn$NRM\n";
 605         print "2.  Table for Address Book : $WHT$addrbook_table$NRM\n";
 606         print "\n";
 607         print "3.  DSN for Preferences    : $WHT$prefs_dsn$NRM\n";
 608         print "4.  Table for Preferences  : $WHT$prefs_table$NRM\n";
 609         print "5.  Field for username     : $WHT$prefs_user_field$NRM\n";
 610         print "6.  Field for prefs key    : $WHT$prefs_key_field$NRM\n";
 611         print "7.  Field for prefs value  : $WHT$prefs_val_field$NRM\n";
 612         print "\n";
 613         print "8.  DSN for Global Address Book            : $WHT$addrbook_global_dsn$NRM\n";
 614         print "9.  Table for Global Address Book          : $WHT$addrbook_global_table$NRM\n";
 615         print "10. Allow writing into Global Address Book : $WHT$addrbook_global_writeable$NRM\n";
 616         print "11. Allow listing of Global Address Book   : $WHT$addrbook_global_listing$NRM\n";
 617         print "\n";
 618         print "R   Return to Main Menu\n";
 619     } elsif ( $menu == 10 ) {
 620     print $WHT. "Language settings\n" . $NRM;
 621     print "1.  Default Language                : $WHT$squirrelmail_default_language$NRM\n";
 622     print "2.  Default Charset                 : $WHT$default_charset$NRM\n";
 623     print "3.  Show alternative language names : $WHT$show_alternative_names$NRM\n";
 624     print "4.  Available languages             : $WHT$available_languages$NRM\n";
 625     print "5.  Enable aggressive decoding      : $WHT$aggressive_decoding$NRM\n";
 626     print "6.  Enable lossy encoding           : $WHT$lossy_encoding$NRM\n";
 627     print "\n";
 628         print "R   Return to Main Menu\n";
 629     } elsif ( $menu == 11 ) {
 630     print $WHT. "Interface tweaks\n" . $NRM;
 631     print "1.  Advanced tree                : $WHT$advanced_tree$NRM\n";
 632     print "2.  Display html mails in iframe : $WHT$use_iframe$NRM\n";
 633     print "3.  Use Icons                    : $WHT$use_icons$NRM\n";
 634     print "\n";
 635     print $WHT. "PHP tweaks\n" . $NRM;
 636     print "4.  Use php recode functions     : $WHT$use_php_recode$NRM\n";
 637     print "5.  Use php iconv functions      : $WHT$use_php_iconv$NRM\n";
 638     print "\n";
 639     print $WHT. "Configuration tweaks\n" . $NRM;
 640     print "6.  Allow remote configtest     : $WHT$allow_remote_configtest$NRM\n";
 641     print "\n";
 642         print "R   Return to Main Menu\n";
 643     }
 644     if ( $config_use_color == 1 ) {
 645         print "C   Turn color off\n";
 646     } else {
 647         print "C   Turn color on\n";
 648     }
 649     print "S   Save data\n";
 650     print "Q   Quit\n";
 651
 652     print "\n";
 653     print "Command >> " . $WHT;
 654     $command = <STDIN>;
 655     $command =~ s/[\n\r]//g;
 656     $command =~ tr/A-Z/a-z/;
 657     print "$NRM\n";
 658
 659     # Read the commands they entered.
 660     if ( $command eq "r" ) {
 661         $menu = 0;
 662     } elsif ( $command eq "s" ) {
 663         save_data();
 664         print "Press enter to continue...";
 665         $tmp   = <STDIN>;
 666         $saved = 1;
 667     } elsif ( ( $command eq "q" ) && ( $saved == 0 ) ) {
 668         print "You have not saved your data.\n";
 669         print "Save?  [" . $WHT . "Y" . $NRM . "/n]: ";
 670         $save = <STDIN>;
 671         if ( ( $save =~ /^y/i ) || ( $save =~ /^\s*$/ ) ) {
 672             save_data();
 673         }
 674     } elsif ( $command eq "c" ) {
 675         if ( $config_use_color == 1 ) {
 676             $config_use_color = 2;
 677             $WHT              = "";
 678             $NRM              = "";
 679         } else {
 680             $config_use_color = 1;
 681             $WHT              = "\x1B[37;1m";
 682             $NRM              = "\x1B[0m";
 683         }
 684     } elsif ( $command eq "d" && $menu == 0 ) {
 685         set_defaults();
 686     } else {
 687         $saved = 0;
 688         if ( $menu == 0 ) {
 689             if ( ( $command > 0 ) && ( $command < 12 ) ) {
 690                 $menu = $command;
 691             }
 692         } elsif ( $menu == 1 ) {
 693             if    ( $command == 1 ) { $org_name                      = command1(); }
 694             elsif ( $command == 2 ) { $org_logo                      = command2(); }
 695             elsif ( $command == 3 ) { ($org_logo_width,$org_logo_height)  = command2a(); }
 696             elsif ( $command == 4 ) { $org_title                     = command3(); }
 697             elsif ( $command == 5 ) { $signout_page                  = command4(); }
 698             elsif ( $command == 6 ) { $frame_top                     = command6(); }
 699             elsif ( $command == 7 ) { $provider_uri                  = command7(); }
 700             elsif ( $command == 8 ) { $provider_name                 = command8(); }
 701
 702         } elsif ( $menu == 2 ) {
 703             if ( $command eq "a" )    { $show_imap_settings = 1; $show_smtp_settings = 0; }
 704             elsif ( $command eq "b" ) { $show_imap_settings = 0; $show_smtp_settings = 1; }
 705             elsif ( $command eq "h" ) { $show_imap_settings = 0; $show_smtp_settings = 0; }
 706             elsif ( $command <= 3 ) {
 707               if    ( $command == 1 )  { $domain                 = command11(); }
 708               elsif ( $command == 2 )  { $invert_time            = command110(); }
 709               elsif ( $command == 3 )  { $useSendmail            = command14(); }
 710               $show_imap_settings = 0; $show_smtp_settings = 0;
 711             } elsif ( $show_imap_settings ) {
 712               if    ( $command == 4 )  { $imapServerAddress      = command12(); }
 713               elsif ( $command == 5 )  { $imapPort               = command13(); }
 714               elsif ( $command == 6 )  { $imap_auth_mech     = command112a(); }
 715               elsif ( $command == 7 )  { $use_imap_tls       = command113("IMAP",$use_imap_tls); }
 716               elsif ( $command == 8 )  { $imap_server_type       = command19(); }
 717               elsif ( $command == 9 )  { $optional_delimiter     = command111(); }
 718             } elsif ( $show_smtp_settings && lc($useSendmail) eq 'true' ) {
 719               if    ( $command == 4 )  { $sendmail_path          = command15(); }
 720               elsif ( $command == 5 )  { $encode_header_key      = command114(); }
 721             } elsif ( $show_smtp_settings ) {
 722               if    ( $command == 4 )  { $smtpServerAddress      = command16(); }
 723               elsif ( $command == 5 )  { $smtpPort               = command17(); }
 724               elsif ( $command == 6 )  { $pop_before_smtp        = command18a(); }
 725               elsif ( $command == 7 )  { $smtp_auth_mech    = command112b(); }
 726               elsif ( $command == 8 )  { $use_smtp_tls      = command113("SMTP",$use_smtp_tls); }
 727               elsif ( $command == 9 )  { $encode_header_key      = command114(); }
 728             }
 729         } elsif ( $menu == 3 ) {
 730             if    ( $command == 1 )  { $default_folder_prefix          = command21(); }
 731             elsif ( $command == 2 )  { $show_prefix_option             = command22(); }
 732             elsif ( $command == 3 )  { $trash_folder                   = command23a(); }
 733             elsif ( $command == 4 )  { $sent_folder                    = command23b(); }
 734             elsif ( $command == 5 )  { $draft_folder                   = command23c(); }
 735             elsif ( $command == 6 )  { $default_move_to_trash          = command24a(); }
 736             elsif ( $command == 7 )  { $default_move_to_sent           = command24b(); }
 737             elsif ( $command == 8 )  { $default_save_as_draft          = command24c(); }
 738             elsif ( $command == 9 )  { $list_special_folders_first     = command27(); }
 739             elsif ( $command == 10 ) { $use_special_folder_color       = command28(); }
 740             elsif ( $command == 11 ) { $auto_expunge                   = command29(); }
 741             elsif ( $command == 12 ) { $default_sub_of_inbox           = command210(); }
 742             elsif ( $command == 13 ) { $show_contain_subfolders_option = command211(); }
 743             elsif ( $command == 14 ) { $default_unseen_notify          = command212(); }
 744             elsif ( $command == 15 ) { $default_unseen_type            = command213(); }
 745             elsif ( $command == 16 ) { $auto_create_special            = command214(); }
 746             elsif ( $command == 17 ) { $delete_folder                  = command215(); }
 747             elsif ( $command == 18 ) { $noselect_fix_enable            = command216(); }
 748         } elsif ( $menu == 4 ) {
 749             if    ( $command == 1 )  { $data_dir                 = command33a(); }
 750             elsif ( $command == 2 )  { $attachment_dir           = command33b(); }
 751             elsif ( $command == 3 )  { $dir_hash_level           = command33c(); }
 752             elsif ( $command == 4 )  { $default_left_size        = command35(); }
 753             elsif ( $command == 5 )  { $force_username_lowercase = command36(); }
 754             elsif ( $command == 6 )  { $default_use_priority     = command37(); }
 755             elsif ( $command == 7 )  { $hide_sm_attributions     = command38(); }
 756             elsif ( $command == 8 )  { $default_use_mdn          = command39(); }
 757             elsif ( $command == 9 )  { $edit_identity            = command310(); }
 758             elsif ( $command == 10 ) { $allow_thread_sort        = command312(); }
 759             elsif ( $command == 11 ) { $allow_server_sort        = command313(); }
 760             elsif ( $command == 12 ) { $allow_charset_search     = command314(); }
 761             elsif ( $command == 13 ) { $allow_advanced_search    = command316(); }
 762             elsif ( $command == 14 ) { $session_name             = command317(); }
 763             elsif ( $command == 15 ) { $time_zone_type           = command318(); }
 764         } elsif ( $menu == 5 ) {
 765             if ( $command == 1 ) { command41(); }
 766             elsif ( $command == 2 ) { $theme_css = command42(); }
 767         } elsif ( $menu == 6 ) {
 768             if    ( $command == 1 ) { command61(); }
 769             elsif ( $command == 2 ) { command62(); }
 770             elsif ( $command == 3 ) { $abook_global_file=command63(); }
 771             elsif ( $command == 4 ) { command64(); }
 772             elsif ( $command == 5 ) { command65(); }
 773         } elsif ( $menu == 7 ) {
 774             if ( $command == 1 ) { $motd = command71(); }
 775         } elsif ( $menu == 8 ) {
 776             if ( $command =~ /^[0-9]+/ ) { @plugins = command81(); }
 777         } elsif ( $menu == 9 ) {
 778             if    ( $command == 1 ) { $addrbook_dsn     = command91(); }
 779             elsif ( $command == 2 ) { $addrbook_table   = command92(); }
 780             elsif ( $command == 3 ) { $prefs_dsn        = command93(); }
 781             elsif ( $command == 4 ) { $prefs_table      = command94(); }
 782             elsif ( $command == 5 ) { $prefs_user_field = command95(); }
 783             elsif ( $command == 6 ) { $prefs_key_field  = command96(); }
 784             elsif ( $command == 7 ) { $prefs_val_field  = command97(); }
 785             elsif ( $command == 8 ) { $addrbook_global_dsn       = command98(); }
 786             elsif ( $command == 9 ) { $addrbook_global_table     = command99(); }
 787             elsif ( $command == 10 ) { $addrbook_global_writeable = command910(); }
 788             elsif ( $command == 11 ) { $addrbook_global_listing  = command911(); }
 789         } elsif ( $menu == 10 ) {
 790             if    ( $command == 1 ) { $squirrelmail_default_language = commandA1(); }
 791             elsif ( $command == 2 ) { $default_charset           = commandA2(); }
 792             elsif ( $command == 3 ) { $show_alternative_names        = commandA3(); }
 793             elsif ( $command == 4 ) { $available_languages         = commandA4(); }
 794             elsif ( $command == 5 ) { $aggressive_decoding         = commandA5(); }
 795             elsif ( $command == 6 ) { $lossy_encoding         = commandA6(); }
 796         } elsif ( $menu == 11 ) {
 797             if    ( $command == 1 ) { $advanced_tree  = commandB1(); }
 798             if    ( $command == 2 ) { $use_iframe     = commandB2(); }
 799             elsif ( $command == 3 ) { $use_icons      = commandB3(); }
 800             elsif ( $command == 4 ) { $use_php_recode = commandB4(); }
 801             elsif ( $command == 5 ) { $use_php_iconv  = commandB5(); }
 802             elsif ( $command == 6 ) { $allow_remote_configtest = commandB6(); }
 803         }
 804     }
 805 }
 806
 807 # we exit here
 808 print "\nExiting conf.pl.\n".
 809     "You might want to test your configuration by browsing to\n".
 810     "http://your-squirrelmail-location/src/configtest.php\n".
 811     "Happy SquirrelMailing!\n\n";
 812
 813
 814 ####################################################################################
 815
 816 # org_name
 817 sub command1 {
 818     print "We have tried to make the name SquirrelMail as transparent as\n";
 819     print "possible.  If you set up an organization name, most places where\n";
 820     print "SquirrelMail would take credit will be credited to your organization.\n";
 821     print "\n";
 822     print "If your Organization Name includes a '\$', please precede it with a \\. \n";
 823     print "Other '\$' will be considered the beginning of a variable that\n";
 824     print "must be defined before the \$org_name is printed.\n";
 825     print "\n";
 826     print "[$WHT$org_name$NRM]: $WHT";
 827     $new_org_name = <STDIN>;
 828     if ( $new_org_name eq "\n" ) {
 829         $new_org_name = $org_name;
 830     } else {
 831         $new_org_name =~ s/[\r\n]//g;
 832     $new_org_name =~ s/\"/&quot;/g;
 833     }
 834     return $new_org_name;
 835 }
 836
 837 # org_logo
 838 sub command2 {
 839     print "Your organization's logo is an image that will be displayed at\n";
 840     print "different times throughout SquirrelMail. ";
 841     print "\n";
 842     print "Please be aware of the following: \n";
 843     print "  - Relative URLs are relative to the config dir\n";
 844     print "    to use the default logo, use ../images/sm_logo.png\n";
 845     print "  - To specify a logo defined outside the SquirrelMail source tree\n";
 846     print "    use the absolute URL the webserver would use to include the file\n";
 847     print "    e.g. http://www.example.com/images/mylogo.gif or /images/mylogo.jpg\n";
 848     print "\n";
 849     print "[$WHT$org_logo$NRM]: $WHT";
 850     $new_org_logo = <STDIN>;
 851     if ( $new_org_logo eq "\n" ) {
 852         $new_org_logo = $org_logo;
 853     } else {
 854         $new_org_logo =~ s/[\r\n]//g;
 855     }
 856     return $new_org_logo;
 857 }
 858
 859 # org_logo_width
 860 sub command2a {
 861     print "Your organization's logo is an image that will be displayed at\n";
 862     print "different times throughout SquirrelMail.  Width\n";
 863     print "and Height of your logo image.  Use '0' to disable.\n";
 864     print "\n";
 865     print "Width: [$WHT$org_logo_width$NRM]: $WHT";
 866     $new_org_logo_width = <STDIN>;
 867     $new_org_logo_width =~ tr/0-9//cd;  # only want digits!
 868     if ( $new_org_logo_width eq '' ) {
 869         $new_org_logo_width = $org_logo_width;
 870     }
 871     if ( $new_org_logo_width > 0 ) {
 872         print "Height: [$WHT$org_logo_height$NRM]: $WHT";
 873         $new_org_logo_height = <STDIN>;
 874         $new_org_logo_height =~ tr/0-9//cd;  # only want digits!
 875         if( $new_org_logo_height eq '' ) {
 876         $new_org_logo_height = $org_logo_height;
 877     }
 878     } else {
 879         $new_org_logo_height = 0;
 880     }
 881     return ($new_org_logo_width, $new_org_logo_height);
 882 }
 883
 884 # org_title
 885 sub command3 {
 886     print "A title is what is displayed at the top of the browser window in\n";
 887     print "the titlebar.  Usually this will end up looking something like:\n";
 888     print "\"Netscape: $org_title\"\n";
 889     print "\n";
 890     print "If your Organization Title includes a '\$', please precede it with a \\. \n";
 891     print "Other '\$' will be considered the beginning of a variable that\n";
 892     print "must be defined before the \$org_title is printed.\n";
 893     print "\$version, for example can be used, and will print the\n";
 894     print "string representing the current SquirrelMail version.\n";
 895     print "\n";
 896     print "[$WHT$org_title$NRM]: $WHT";
 897     $new_org_title = <STDIN>;
 898     if ( $new_org_title eq "\n" ) {
 899         $new_org_title = $org_title;
 900     } else {
 901         $new_org_title =~ s/[\r\n]//g;
 902     $new_org_title =~ s/\"/\'/g;
 903     }
 904     return $new_org_title;
 905 }
 906
 907 # signout_page
 908 sub command4 {
 909     print "When users click the Sign Out button they will be logged out and\n";
 910     print "then sent to signout_page.  If signout_page is left empty,\n";
 911     print "(hit space and then return) they will be taken, as normal,\n";
 912     print "to the default and rather sparse SquirrelMail signout page.\n";
 913     print "\n";
 914     print "[$WHT$signout_page$NRM]: $WHT";
 915     $new_signout_page = <STDIN>;
 916     if ( $new_signout_page eq "\n" ) {
 917         $new_signout_page = $signout_page;
 918     } else {
 919         $new_signout_page =~ s/[\r\n]//g;
 920         $new_signout_page =~ s/^\s+$//g;
 921     }
 922     return $new_signout_page;
 923 }
 924
 925 # Default top frame
 926 sub command6 {
 927     print "SquirrelMail defaults to using the whole of the browser window.\n";
 928     print "This allows you to keep it within a specified frame. The default\n";
 929     print "is '_top'\n";
 930     print "\n";
 931     print "[$WHT$frame_top$NRM]: $WHT";
 932     $new_frame_top = <STDIN>;
 933     if ( $new_frame_top eq "\n" ) {
 934         $new_frame_top = '_top';
 935     } else {
 936         $new_frame_top =~ s/[\r\n]//g;
 937         $new_frame_top =~ s/^\s+$//g;
 938     }
 939     return $new_frame_top;
 940 }
 941
 942 # Default link to provider
 943 sub command7 {
 944     print "Here you can set the link on the right of the page.\n";
 945     print "If empty, it will link to the SquirrelMail About page.\n";
 946     print "\n";
 947     print "[$WHT$provider_uri$NRM]: $WHT";
 948     $new_provider_uri = <STDIN>;
 949     if ( $new_provider_uri eq "\n" ) {
 950         $new_provider_uri = '';
 951     } else {
 952         $new_provider_uri =~ s/[\r\n]//g;
 953         $new_provider_uri =~ s/^\s+$//g;
 954     }
 955     return $new_provider_uri;
 956 }
 957
 958 sub command8 {
 959     print "Here you can set the name of the link on the right of the page.\n";
 960     print "The default is 'SquirrelMail/'\n";
 961     print "\n";
 962     print "[$WHT$provider_name$NRM]: $WHT";
 963     $new_provider_name = <STDIN>;
 964     if ( $new_provider_name eq "\n" ) {
 965         $new_provider_name = 'SquirrelMail';
 966     } else {
 967         $new_provider_name =~ s/[\r\n]//g;
 968         $new_provider_name =~ s/^\s+$//g;
 969     }
 970     return $new_provider_name;
 971 }
 972
 973 ####################################################################################
 974
 975 # domain
 976 sub command11 {
 977     print "The domain name is the suffix at the end of all email addresses.  If\n";
 978     print "for example, your email address is jdoe\@example.com, then your domain\n";
 979     print "would be example.com.\n";
 980     print "\n";
 981     print "[$WHT$domain$NRM]: $WHT";
 982     $new_domain = <STDIN>;
 983     if ( $new_domain eq "\n" ) {
 984         $new_domain = $domain;
 985     } else {
 986         $new_domain =~ s/[\r\n]//g;
 987     }
 988     return $new_domain;
 989 }
 990
 991 # imapServerAddress
 992 sub command12 {
 993     print "This is the hostname where your IMAP server can be contacted.\n";
 994     print "[$WHT$imapServerAddress$NRM]: $WHT";
 995     $new_imapServerAddress = <STDIN>;
 996     if ( $new_imapServerAddress eq "\n" ) {
 997         $new_imapServerAddress = $imapServerAddress;
 998     } else {
 999         $new_imapServerAddress =~ s/[\r\n]//g;
1000     }
1001     return $new_imapServerAddress;
1002 }
1003
1004 # imapPort
1005 sub command13 {
1006     print "This is the port that your IMAP server is on.  Usually this is 143.\n";
1007     print "[$WHT$imapPort$NRM]: $WHT";
1008     $new_imapPort = <STDIN>;
1009     if ( $new_imapPort eq "\n" ) {
1010         $new_imapPort = $imapPort;
1011     } else {
1012         $new_imapPort =~ s/[\r\n]//g;
1013     }
1014     return $new_imapPort;
1015 }
1016
1017 # useSendmail
1018 sub command14 {
1019     print "You now need to choose the method that you will use for sending\n";
1020     print "messages in SquirrelMail.  You can either connect to an SMTP server\n";
1021     print "or use sendmail directly.\n";
1022     if ( lc($useSendmail) eq 'true' ) {
1023         $default_value = "1";
1024     } else {
1025         $default_value = "2";
1026     }
1027     print "\n";
1028     print "  1.  Sendmail\n";
1029     print "  2.  SMTP\n";
1030     print "Your choice [1/2] [$WHT$default_value$NRM]: $WHT";
1031     $use_sendmail = <STDIN>;
1032     if ( ( $use_sendmail =~ /^1\n/i )
1033         || ( ( $use_sendmail =~ /^\n/ ) && ( $default_value eq "1" ) ) ) {
1034         $useSendmail = 'true';
1035         } else {
1036         $useSendmail = 'false';
1037         }
1038     return $useSendmail;
1039 }
1040
1041 # sendmail_path
1042 sub command15 {
1043     if ( $sendmail_path[0] !~ /./ ) {
1044         $sendmail_path = "/usr/sbin/sendmail";
1045     }
1046     print "Specify where the sendmail executable is located.  Usually /usr/sbin/sendmail\n";
1047     print "[$WHT$sendmail_path$NRM]: $WHT";
1048     $new_sendmail_path = <STDIN>;
1049     if ( $new_sendmail_path eq "\n" ) {
1050         $new_sendmail_path = $sendmail_path;
1051     } else {
1052         $new_sendmail_path =~ s/[\r\n]//g;
1053     }
1054     return $new_sendmail_path;
1055 }
1056
1057 # smtpServerAddress
1058 sub command16 {
1059     print "This is the hostname of your SMTP server.\n";
1060     print "[$WHT$smtpServerAddress$NRM]: $WHT";
1061     $new_smtpServerAddress = <STDIN>;
1062     if ( $new_smtpServerAddress eq "\n" ) {
1063         $new_smtpServerAddress = $smtpServerAddress;
1064     } else {
1065         $new_smtpServerAddress =~ s/[\r\n]//g;
1066     }
1067     return $new_smtpServerAddress;
1068 }
1069
1070 # smtpPort
1071 sub command17 {
1072     print "This is the port to connect to for SMTP.  Usually 25.\n";
1073     print "[$WHT$smtpPort$NRM]: $WHT";
1074     $new_smtpPort = <STDIN>;
1075     if ( $new_smtpPort eq "\n" ) {
1076         $new_smtpPort = $smtpPort;
1077     } else {
1078         $new_smtpPort =~ s/[\r\n]//g;
1079     }
1080     return $new_smtpPort;
1081 }
1082
1083 # authenticated server
1084 sub command18 {
1085     return;
1086     # This sub disabled by tassium - it has been replaced with smtp_auth_mech
1087     print "Do you wish to use an authenticated SMTP server?  Your server must\n";
1088     print "support this in order for SquirrelMail to work with it.  We implemented\n";
1089     print "it according to RFC 2554.\n";
1090
1091     $YesNo = 'n';
1092     $YesNo = 'y' if ( lc($use_authenticated_smtp) eq 'true' );
1093
1094     print "Use authenticated SMTP server (y/n) [$WHT$YesNo$NRM]: $WHT";
1095
1096     $new_use_authenticated_smtp = <STDIN>;
1097     $new_use_authenticated_smtp =~ tr/yn//cd;
1098     return 'true'  if ( $new_use_authenticated_smtp eq "y" );
1099     return 'false' if ( $new_use_authenticated_smtp eq "n" );
1100     return $use_authenticated_smtp;
1101 }
1102
1103 # pop before SMTP
1104 sub command18a {
1105     print "Do you wish to use POP3 before SMTP?  Your server must\n";
1106     print "support this in order for SquirrelMail to work with it.\n";
1107
1108     $YesNo = 'n';
1109     $YesNo = 'y' if ( lc($pop_before_smtp) eq 'true' );
1110
1111     print "Use pop before SMTP (y/n) [$WHT$YesNo$NRM]: $WHT";
1112
1113     $new_pop_before_smtp = <STDIN>;
1114     $new_pop_before_smtp =~ tr/yn//cd;
1115     return 'true'  if ( $new_pop_before_smtp eq "y" );
1116     return 'false'  if ( $new_pop_before_smtp eq "n" );
1117     return $pop_before_smtp;
1118 }
1119
1120 # imap_server_type
1121 sub command19 {
1122     print "Each IMAP server has its own quirks.  As much as we tried to stick\n";
1123     print "to standards, it doesn't help much if the IMAP server doesn't follow\n";
1124     print "the same principles.  We have made some work-arounds for some of\n";
1125     print "these servers.  If you would like to use them, please select your\n";
1126     print "IMAP server.  If you do not wish to use these work-arounds, you can\n";
1127     print "set this to \"other\", and none will be used.\n";
1128     print "    courier     = Courier IMAP server\n";
1129     print "    cyrus       = Cyrus IMAP server\n";
1130     print "    dovecot     = Dovecot Secure IMAP server\n";
1131     print "    exchange    = Microsoft Exchange IMAP server\n";
1132     print "    hmailserver = hMailServer\n";
1133     print "    macosx      = Mac OS X Mailserver\n";
1134     print "    mercury32   = Mercury Mail Transport System\n";
1135     print "    uw          = University of Washington's IMAP server\n";
1136     print "\n";
1137     print "    other       = Not one of the above servers\n";
1138     print "\n";
1139     print "[$WHT$imap_server_type$NRM]: $WHT";
1140     $new_imap_server_type = <STDIN>;
1141
1142     if ( $new_imap_server_type eq "\n" ) {
1143         $new_imap_server_type = $imap_server_type;
1144     } else {
1145         $new_imap_server_type =~ s/[\r\n]//g;
1146     }
1147     return $new_imap_server_type;
1148 }
1149
1150 # invert_time
1151 sub command110 {
1152     print "Sometimes the date of messages sent is messed up (off by a few hours\n";
1153     print "on some machines).  Typically this happens if the system doesn't support\n";
1154     print "tm_gmtoff.  It will happen only if your time zone is \"negative\".\n";
1155     print "This most often occurs on Solaris 7 machines in the United States.\n";
1156     print "By default, this is off.  It should be kept off unless problems surface\n";
1157     print "about the time that messages are sent.\n";
1158     print "    no  = Do NOT fix time -- almost always correct\n";
1159     print "    yes = Fix the time for this system\n";
1160
1161     $YesNo = 'n';
1162     $YesNo = 'y' if ( lc($invert_time) eq 'true' );
1163
1164     print "Fix the time for this system (y/n) [$WHT$YesNo$NRM]: $WHT";
1165
1166     $new_invert_time = <STDIN>;
1167     $new_invert_time =~ tr/yn//cd;
1168     return 'true'  if ( $new_invert_time eq "y" );
1169     return 'false' if ( $new_invert_time eq "n" );
1170     return $invert_time;
1171 }
1172
1173 sub command111 {
1174     print "This is the delimiter that your IMAP server uses to distinguish between\n";
1175     print "folders.  For example, Cyrus uses '.' as the delimiter and a complete\n";
1176     print "folder would look like 'INBOX.Friends.Bob', while UW uses '/' and would\n";
1177     print "look like 'INBOX/Friends/Bob'.  Normally this should be left at 'detect'\n";
1178     print "but if you are sure you know what delimiter your server uses, you can\n";
1179     print "specify it here.\n";
1180     print "\nTo have it autodetect the delimiter, set it to 'detect'.\n\n";
1181     print "[$WHT$optional_delimiter$NRM]: $WHT";
1182     $new_optional_delimiter = <STDIN>;
1183
1184     if ( $new_optional_delimiter eq "\n" ) {
1185         $new_optional_delimiter = $optional_delimiter;
1186     } else {
1187         $new_optional_delimiter =~ s/[\r\n]//g;
1188     }
1189     return $new_optional_delimiter;
1190 }
1191 # IMAP authentication type
1192 # Possible values: login, plain, cram-md5, digest-md5
1193 # Now offers to detect supported mechs, assuming server & port are set correctly
1194
1195 sub command112a {
1196     if ($use_imap_tls =~ /^true\b/i) {
1197         print "Auto-detection of login methods is unavailable when using TLS.\n";
1198     } else {
1199         print "If you have already set the hostname and port number, I can try to\n";
1200         print "detect the mechanisms your IMAP server supports.\n";
1201         print "I will try to detect CRAM-MD5 and DIGEST-MD5 support.  I can't test\n";
1202         print "for \"login\" or \"plain\" without knowing a username and password.\n";
1203         print "Auto-detecting is optional - you can safely say \"n\" here.\n";
1204         print "\nTry to detect supported mechanisms? [y/N]: ";
1205         $inval=<STDIN>;
1206         chomp($inval);
1207         if ($inval =~ /^y\b/i) {
1208           # Yes, let's try to detect.
1209           print "Trying to detect IMAP capabilities...\n";
1210           my $host = $imapServerAddress . ':'. $imapPort;
1211           print "CRAM-MD5:\t";
1212           my $tmp = detect_auth_support('IMAP',$host,'CRAM-MD5');
1213           if (defined($tmp)) {
1214               if ($tmp eq 'YES') {
1215                   print "$WHT SUPPORTED$NRM\n";
1216               } else {
1217                 print "$WHT NOT SUPPORTED$NRM\n";
1218               }
1219           } else {
1220             print $WHT . " ERROR DETECTING$NRM\n";
1221           }
1222
1223           print "DIGEST-MD5:\t";
1224           $tmp = detect_auth_support('IMAP',$host,'DIGEST-MD5');
1225           if (defined($tmp)) {
1226               if ($tmp eq 'YES') {
1227                 print "$WHT SUPPORTED$NRM\n";
1228             } else {
1229                 print "$WHT NOT SUPPORTED$NRM\n";
1230             }
1231           } else {
1232             print $WHT . " ERROR DETECTING$NRM\n";
1233           }
1234
1235         }
1236     }
1237       print "\nWhat authentication mechanism do you want to use for IMAP connections?\n\n";
1238       print $WHT . "login" . $NRM . " - Plaintext. If you can do better, you probably should.\n";
1239       print $WHT . "plain" . $NRM . " - SASL PLAIN. If you need this, you already know it.\n";
1240       print $WHT . "cram-md5" . $NRM . " - Slightly better than plaintext methods.\n";
1241       print $WHT . "digest-md5" . $NRM . " - Privacy protection - better than cram-md5.\n";
1242       print "\n*** YOUR IMAP SERVER MUST SUPPORT THE MECHANISM YOU CHOOSE HERE ***\n";
1243       print "If you don't understand or are unsure, you probably want \"login\"\n\n";
1244       print "login, plain, cram-md5, or digest-md5 [$WHT$imap_auth_mech$NRM]: $WHT";
1245       $inval=<STDIN>;
1246       chomp($inval);
1247       if ( ($inval =~ /^cram-md5\b/i) || ($inval =~ /^digest-md5\b/i) || ($inval =~ /^login\b/i) || ($inval =~ /^plain\b/i)) {
1248         return lc($inval);
1249       } else {
1250         # user entered garbage or default value so nothing needs to be set
1251         return $imap_auth_mech;
1252       }
1253 }
1254
1255
1256 # SMTP authentication type
1257 # Possible choices: none, plain, cram-md5, digest-md5
1258 sub command112b {
1259     if ($use_smtp_tls =~ /^true\b/i) {
1260         print "Auto-detection of login methods is unavailable when using TLS.\n";
1261     } else {
1262         print "If you have already set the hostname and port number, I can try to\n";
1263         print "automatically detect some of the mechanisms your SMTP server supports.\n";
1264         print "Auto-detection is *optional* - you can safely say \"n\" here.\n";
1265         print "\nTry to detect auth mechanisms? [y/N]: ";
1266         $inval=<STDIN>;
1267         chomp($inval);
1268         if ($inval =~ /^y\b/i) {
1269             # Yes, let's try to detect.
1270             print "Trying to detect supported methods (SMTP)...\n";
1271
1272             # Special case!
1273             # Check none by trying to relay to junk@microsoft.com
1274             $host = $smtpServerAddress . ':' . $smtpPort;
1275             use IO::Socket;
1276             my $sock = IO::Socket::INET->new($host);
1277             print "Testing none:\t\t$WHT";
1278             if (!defined($sock)) {
1279                 print " ERROR TESTING\n";
1280                 close $sock;
1281             } else {
1282                 print $sock "HELO $domain\r\n";
1283                 $got = <$sock>;  # Discard
1284                 print $sock "MAIL FROM:<tester\@squirrelmail.org>\r\n";
1285                 $got = <$sock>;  # Discard
1286                 print $sock "RCPT TO:<junk\@microsoft.com\r\n";
1287                 $got = <$sock>;  # This is the important line
1288                 if ($got =~ /^250\b/) {  # SMTP will relay without auth
1289                     print "SUPPORTED$NRM\n";
1290                 } else {
1291                   print "NOT SUPPORTED$NRM\n";
1292                 }
1293                 print $sock "RSET\r\n";
1294                 print $sock "QUIT\r\n";
1295                 close $sock;
1296             }
1297             # Try login (SquirrelMail default)
1298             print "Testing login:\t\t";
1299             $tmp=detect_auth_support('SMTP',$host,'LOGIN');
1300             if (defined($tmp)) {
1301                 if ($tmp eq 'YES') {
1302                     print $WHT . "SUPPORTED$NRM\n";
1303                 } else {
1304                     print $WHT . "NOT SUPPORTED$NRM\n";
1305                 }
1306               } else {
1307                   print $WHT . "ERROR DETECTING$NRM\n";
1308               }
1309
1310             # Try CRAM-MD5
1311             print "Testing CRAM-MD5:\t";
1312             $tmp=detect_auth_support('SMTP',$host,'CRAM-MD5');
1313             if (defined($tmp)) {
1314                 if ($tmp eq 'YES') {
1315                     print $WHT . "SUPPORTED$NRM\n";
1316                 } else {
1317                     print $WHT . "NOT SUPPORTED$NRM\n";
1318                 }
1319               } else {
1320                   print $WHT . "ERROR DETECTING$NRM\n";
1321             }
1322
1323
1324             print "Testing DIGEST-MD5:\t";
1325             $tmp=detect_auth_support('SMTP',$host,'DIGEST-MD5');
1326             if (defined($tmp)) {
1327                 if ($tmp eq 'YES') {
1328                     print $WHT . "SUPPORTED$NRM\n";
1329                 } else {
1330                     print $WHT . "NOT SUPPORTED$NRM\n";
1331                 }
1332               } else {
1333                   print $WHT . "ERROR DETECTING$NRM\n";
1334             }
1335         }
1336     }
1337     print "\nWhat authentication mechanism do you want to use for SMTP connections?\n";
1338     print $WHT . "none" . $NRM . " - Your SMTP server does not require authorization.\n";
1339     print $WHT . "login" . $NRM . " - Plaintext. If you can do better, you probably should.\n";
1340     print $WHT . "plain" . $NRM . " - SASL PLAIN.  You already know it if you need this.\n";
1341     print $WHT . "cram-md5" . $NRM . " - Slightly better than plaintext.\n";
1342     print $WHT . "digest-md5" . $NRM . " - Privacy protection - better than cram-md5.\n";
1343     print $WHT . "\n*** YOUR SMTP SERVER MUST SUPPORT THE MECHANISM YOU CHOOSE HERE ***\n" . $NRM;
1344     print "If you don't understand or are unsure, you probably want \"none\"\n\n";
1345     print "none, login, cram-md5, or digest-md5 [$WHT$smtp_auth_mech$NRM]: $WHT";
1346     $inval=<STDIN>;
1347     chomp($inval);
1348     if ($inval =~ /^none\b/i) {
1349       # SMTP doesn't necessarily require logins
1350       return "none";
1351     }
1352     if ( ($inval =~ /^cram-md5\b/i) || ($inval =~ /^digest-md5\b/i) ||
1353     ($inval =~ /^login\b/i) || ($inval =~/^plain\b/i)) {
1354       return lc($inval);
1355     } else {
1356       # user entered garbage, or default value so nothing needs to be set
1357       return $smtp_auth_mech;
1358     }
1359 }
1360
1361 # TLS
1362 # This sub is reused for IMAP and SMTP
1363 # Args: service name, default value
1364 sub command113 {
1365     my($default_val,$service,$inval);
1366     $service=$_[0];
1367     $default_val=$_[1];
1368     print "TLS (Transport Layer Security) encrypts the traffic between server and client.\n";
1369     print "If you're familiar with SSL, you get the idea.\n";
1370     print "To use this feature, your " . $service . " server must offer TLS\n";
1371     print "capability, plus PHP 4.3.x with OpenSSL support.\n";
1372     print "\nIf your " . $service . " server is localhost, you can safely disable this.\n";
1373     print "If it is remote, you may wish to seriously consider enabling this.\n";
1374     print "Enable TLS (y/n) [$WHT";
1375     if ($default_val eq 'true') {
1376       print "y";
1377     } else {
1378       print "n";
1379     }
1380     print "$NRM]: $WHT";
1381     $inval=<STDIN>;
1382     $inval =~ tr/yn//cd;
1383     return 'true'  if ( $inval eq "y" );
1384     return 'false' if ( $inval eq "n" );
1385     return $default_val;
1386 }
1387
1388 # $encode_header_key
1389 sub command114{
1390     print "Encryption key allows to hide SquirrelMail Received: headers\n";
1391     print "in outbound messages. Interface uses encryption key to encode\n";
1392     print "username, remote address and proxied address, then stores encoded\n";
1393     print "information in X-Squirrel-* headers.\n";
1394     print "\n";
1395     print "Warning: used encryption function is not bulletproof. When used\n";
1396     print "with static encryption keys, it provides only minimal security\n";
1397     print "measures and information can be decoded quickly.\n";
1398     print "\n";
1399     print "Encoded information can be decoded with decrypt_headers.php script\n";
1400     print "from SquirrelMail contrib/ directory.\n";
1401     print "\n";
1402     print "Enter encryption key: ";
1403     $new_encode_header_key = <STDIN>;
1404     if ( $new_encode_header_key eq "\n" ) {
1405         $new_encode_header_key = $encode_header_key;
1406     } else {
1407         $new_encode_header_key =~ s/[\r\n]//g;
1408     }
1409     return $new_encode_header_key;
1410 }
1411
1412 # MOTD
1413 sub command71 {
1414     print "\nYou can now create the welcome message that is displayed\n";
1415     print "every time a user logs on.  You can use HTML or just plain\n";
1416     print
1417 "text.  If you do not wish to have one, just make it blank.\n\n(Type @ on a blank line to exit)\n";
1418
1419     $new_motd = "";
1420     do {
1421         print "] ";
1422         $line = <STDIN>;
1423         $line =~ s/[\r\n]//g;
1424         if ( $line ne "@" ) {
1425             $line =~ s/  /\&nbsp;\&nbsp;/g;
1426             $line =~ s/\t/\&nbsp;\&nbsp;\&nbsp;\&nbsp;/g;
1427             $line =~ s/$/ /;
1428             $line =~ s/\"/&quot;/g;
1429
1430             $new_motd = $new_motd . $line;
1431         }
1432     } while ( $line ne "@" );
1433     return $new_motd;
1434 }
1435
1436 ################# PLUGINS ###################
1437
1438 sub command81 {
1439     $command =~ s/[\s\n\r]*//g;
1440     if ( $command > 0 ) {
1441         $command = $command - 1;
1442         if ( $command <= $#plugins ) {
1443             @newplugins = ();
1444             $ct         = 0;
1445             while ( $ct <= $#plugins ) {
1446                 if ( $ct != $command ) {
1447                     @newplugins = ( @newplugins, $plugins[$ct] );
1448                 }
1449                 $ct++;
1450             }
1451             @plugins = @newplugins;
1452         } elsif ( $command <= $#plugins + $#unused_plugins + 1 ) {
1453             $num        = $command - $#plugins - 1;
1454             @newplugins = @plugins;
1455             $ct         = 0;
1456             while ( $ct <= $#unused_plugins ) {
1457                 if ( $ct == $num ) {
1458                     @newplugins = ( @newplugins, $unused_plugins[$ct] );
1459                 }
1460                 $ct++;
1461             }
1462             @plugins = @newplugins;
1463         }
1464     }
1465     return @plugins;
1466 }
1467
1468 ################# FOLDERS ###################
1469
1470 # default_folder_prefix
1471 sub command21 {
1472     print "Some IMAP servers (UW, for example) store mail and folders in\n";
1473     print "your user space in a separate subdirectory.  This is where you\n";
1474     print "specify what that directory is.\n";
1475     print "\n";
1476     print "EXAMPLE:  mail/";
1477     print "\n";
1478     print "NOTE:  If you use Cyrus, or some server that would not use this\n";
1479     print "       option, you must set this to 'none'.\n";
1480     print "\n";
1481     print "[$WHT$default_folder_prefix$NRM]: $WHT";
1482     $new_default_folder_prefix = <STDIN>;
1483
1484     if ( $new_default_folder_prefix eq "\n" ) {
1485         $new_default_folder_prefix = $default_folder_prefix;
1486     } else {
1487         $new_default_folder_prefix =~ s/[\r\n]//g;
1488     }
1489     if ( ( $new_default_folder_prefix =~ /^\s*$/ ) || ( $new_default_folder_prefix =~ m/^none$/i ) ) {
1490         $new_default_folder_prefix = "";
1491     } else {
1492         # add the trailing delimiter only if we know what the server is.
1493         if (($imap_server_type eq 'cyrus' and
1494                   $optional_delimiter eq 'detect') or
1495                  ($imap_server_type eq 'courier' and
1496                   $optional_delimiter eq 'detect')) {
1497            $new_default_folder_prefix =~ s/\.*$/\./;
1498         } elsif ($imap_server_type eq 'uw' and
1499                  $optional_delimiter eq 'detect') {
1500            $new_default_folder_prefix =~ s/\/*$/\//;
1501         }
1502     }
1503     return $new_default_folder_prefix;
1504 }
1505
1506 # Show Folder Prefix
1507 sub command22 {
1508     print "It is possible to set up the default folder prefix as a user\n";
1509     print "specific option, where each user can specify what their mail\n";
1510     print "folder is.  If you set this to false, they will never see the\n";
1511     print "option, but if it is true, this option will appear in the\n";
1512     print "'options' section.\n";
1513     print "\n";
1514     print "NOTE:  You set the default folder prefix in option '1' of this\n";
1515     print "       section.  That will be the default if the user doesn't\n";
1516     print "       specify anything different.\n";
1517     print "\n";
1518
1519     if ( lc($show_prefix_option) eq 'true' ) {
1520         $default_value = "y";
1521     } else {
1522         $default_value = "n";
1523     }
1524     print "\n";
1525     print "Show option (y/n) [$WHT$default_value$NRM]: $WHT";
1526     $new_show = <STDIN>;
1527     if ( ( $new_show =~ /^y\n/i ) || ( ( $new_show =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
1528         $show_prefix_option = 'true';
1529     } else {
1530         $show_prefix_option = 'false';
1531     }
1532     return $show_prefix_option;
1533 }
1534
1535 # Trash Folder
1536 sub command23a {
1537     print "You can now specify where the default trash folder is located.\n";
1538     print "On servers where you do not want this, you can set it to anything\n";
1539     print "and set option 6 to false.\n";
1540     print "\n";
1541     print "This is relative to where the rest of your email is kept.  You do\n";
1542     print "not need to worry about their mail directory.  If this folder\n";
1543     print "would be ~/mail/trash on the filesystem, you only need to specify\n";
1544     print "that this is 'trash', and be sure to put 'mail/' in option 1.\n";
1545     print "\n";
1546
1547     print "[$WHT$trash_folder$NRM]: $WHT";
1548     $new_trash_folder = <STDIN>;
1549     if ( $new_trash_folder eq "\n" ) {
1550         $new_trash_folder = $trash_folder;
1551     } else {
1552         $new_trash_folder =~ s/[\r\n]//g;
1553     }
1554     return $new_trash_folder;
1555 }
1556
1557 # Sent Folder
1558 sub command23b {
1559     print "This is where messages that are sent will be stored.  SquirrelMail\n";
1560     print "by default puts a copy of all outgoing messages in this folder.\n";
1561     print "\n";
1562     print "This is relative to where the rest of your email is kept.  You do\n";
1563     print "not need to worry about their mail directory.  If this folder\n";
1564     print "would be ~/mail/sent on the filesystem, you only need to specify\n";
1565     print "that this is 'sent', and be sure to put 'mail/' in option 1.\n";
1566     print "\n";
1567
1568     print "[$WHT$sent_folder$NRM]: $WHT";
1569     $new_sent_folder = <STDIN>;
1570     if ( $new_sent_folder eq "\n" ) {
1571         $new_sent_folder = $sent_folder;
1572     } else {
1573         $new_sent_folder =~ s/[\r\n]//g;
1574     }
1575     return $new_sent_folder;
1576 }
1577
1578 # Draft Folder
1579 sub command23c {
1580     print "You can now specify where the default draft folder is located.\n";
1581     print "On servers where you do not want this, you can set it to anything\n";
1582     print "and set option 9 to false.\n";
1583     print "\n";
1584     print "This is relative to where the rest of your email is kept.  You do\n";
1585     print "not need to worry about their mail directory.  If this folder\n";
1586     print "would be ~/mail/drafts on the filesystem, you only need to specify\n";
1587     print "that this is 'drafts', and be sure to put 'mail/' in option 1.\n";
1588     print "\n";
1589
1590     print "[$WHT$draft_folder$NRM]: $WHT";
1591     $new_draft_folder = <STDIN>;
1592     if ( $new_draft_folder eq "\n" ) {
1593         $new_draft_folder = $draft_folder;
1594     } else {
1595         $new_draft_folder =~ s/[\r\n]//g;
1596     }
1597     return $new_draft_folder;
1598 }
1599
1600 # default move to trash
1601 sub command24a {
1602     print "By default, should messages get moved to the trash folder?  You\n";
1603     print "can specify the default trash folder in option 3.  If this is set\n";
1604     print "to false, messages will get deleted immediately without moving\n";
1605     print "to the trash folder.\n";
1606     print "\n";
1607     print "Trash folder is currently: $trash_folder\n";
1608     print "\n";
1609
1610     if ( lc($default_move_to_trash) eq 'true' ) {
1611         $default_value = "y";
1612     } else {
1613         $default_value = "n";
1614     }
1615     print "By default, move to trash (y/n) [$WHT$default_value$NRM]: $WHT";
1616     $new_show = <STDIN>;
1617     if ( ( $new_show =~ /^y\n/i ) || ( ( $new_show =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
1618         $default_move_to_trash = 'true';
1619     } else {
1620         $default_move_to_trash = 'false';
1621     }
1622     return $default_move_to_trash;
1623 }
1624
1625 # default move to sent
1626 sub command24b {
1627     print "By default, should messages get moved to the sent folder?  You\n";
1628     print "can specify the default sent folder in option 4.  If this is set\n";
1629     print "to false, messages will get sent and no copy will be made.\n";
1630     print "\n";
1631     print "Sent folder is currently: $sent_folder\n";
1632     print "\n";
1633
1634     if ( lc($default_move_to_sent) eq 'true' ) {
1635         $default_value = "y";
1636     } else {
1637         $default_value = "n";
1638     }
1639     print "By default, move to sent (y/n) [$WHT$default_value$NRM]: $WHT";
1640     $new_show = <STDIN>;
1641     if ( ( $new_show =~ /^y\n/i ) || ( ( $new_show =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
1642         $default_move_to_sent = 'true';
1643     } else {
1644         $default_move_to_sent = 'false';
1645     }
1646     return $default_move_to_sent;
1647 }
1648
1649 # default save as draft
1650 sub command24c {
1651     print "By default, should the save to draft option be shown? You can\n";
1652     print "specify the default drafts folder in option 5. If this is set\n";
1653     print "to false, users will not be shown the save to draft option.\n";
1654     print "\n";
1655     print "Drafts folder is currently: $draft_folder\n";
1656     print "\n";
1657
1658     if ( lc($default_move_to_draft) eq 'true' ) {
1659         $default_value = "y";
1660     } else {
1661         $default_value = "n";
1662     }
1663     print "By default, save as draft (y/n) [$WHT$default_value$NRM]: $WHT";
1664     $new_show = <STDIN>;
1665     if ( ( $new_show =~ /^y\n/i ) || ( ( $new_show =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
1666         $default_save_as_draft = 'true';
1667     } else {
1668         $default_save_as_draft = 'false';
1669     }
1670     return $default_save_as_draft;
1671 }
1672
1673 # List special folders first
1674 sub command27 {
1675     print "SquirrelMail has what we call 'special folders' that are not\n";
1676     print "manipulated and viewed like normal folders.  Some examples of\n";
1677     print "these folders would be INBOX, Trash, Sent, etc.  This option\n";
1678     print "Simply asks if you want these folders listed first in the folder\n";
1679     print "listing.\n";
1680     print "\n";
1681
1682     if ( lc($list_special_folders_first) eq 'true' ) {
1683         $default_value = "y";
1684     } else {
1685         $default_value = "n";
1686     }
1687     print "\n";
1688     print "List first (y/n) [$WHT$default_value$NRM]: $WHT";
1689     $new_show = <STDIN>;
1690     if ( ( $new_show =~ /^y\n/i ) || ( ( $new_show =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
1691         $list_special_folders_first = 'true';
1692     } else {
1693         $list_special_folders_first = 'false';
1694     }
1695     return $list_special_folders_first;
1696 }
1697
1698 # Show special folders color
1699 sub command28 {
1700     print "SquirrelMail has what we call 'special folders' that are not\n";
1701     print "manipulated and viewed like normal folders.  Some examples of\n";
1702     print "these folders would be INBOX, Trash, Sent, etc.  This option\n";
1703     print "wants to know if we should display special folders in a\n";
1704     print "color than the other folders.\n";
1705     print "\n";
1706
1707     if ( lc($use_special_folder_color) eq 'true' ) {
1708         $default_value = "y";
1709     } else {
1710         $default_value = "n";
1711     }
1712     print "\n";
1713     print "Show color (y/n) [$WHT$default_value$NRM]: $WHT";
1714     $new_show = <STDIN>;
1715     if ( ( $new_show =~ /^y\n/i ) || ( ( $new_show =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
1716         $use_special_folder_color = 'true';
1717     } else {
1718         $use_special_folder_color = 'false';
1719     }
1720     return $use_special_folder_color;
1721 }
1722
1723 # Auto expunge
1724 sub command29 {
1725     print "The way that IMAP handles deleting messages is as follows.  You\n";
1726     print "mark the message as deleted, and then to 'really' delete it, you\n";
1727     print "expunge it.  This option asks if you want to just have messages\n";
1728     print "marked as deleted, or if you want SquirrelMail to expunge the \n";
1729     print "messages too.\n";
1730     print "\n";
1731
1732     if ( lc($auto_expunge) eq 'true' ) {
1733         $default_value = "y";
1734     } else {
1735         $default_value = "n";
1736     }
1737     print "Auto expunge (y/n) [$WHT$default_value$NRM]: $WHT";
1738     $new_show = <STDIN>;
1739     if ( ( $new_show =~ /^y\n/i ) || ( ( $new_show =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
1740         $auto_expunge = 'true';
1741     } else {
1742         $auto_expunge = 'false';
1743     }
1744     return $auto_expunge;
1745 }
1746
1747 # Default sub of inbox
1748 sub command210 {
1749     print "Some IMAP servers (Cyrus) have all folders as subfolders of INBOX.\n";
1750     print "This can cause some confusion in folder creation for users when\n";
1751     print "they try to create folders and don't put it as a subfolder of INBOX\n";
1752     print "and get permission errors.  This option asks if you want folders\n";
1753     print "to be subfolders of INBOX by default.\n";
1754     print "\n";
1755
1756     if ( lc($default_sub_of_inbox) eq 'true' ) {
1757         $default_value = "y";
1758     } else {
1759         $default_value = "n";
1760     }
1761     print "Default sub of INBOX (y/n) [$WHT$default_value$NRM]: $WHT";
1762     $new_show = <STDIN>;
1763     if ( ( $new_show =~ /^y\n/i ) || ( ( $new_show =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
1764         $default_sub_of_inbox = 'true';
1765     } else {
1766         $default_sub_of_inbox = 'false';
1767     }
1768     return $default_sub_of_inbox;
1769 }
1770
1771 # Show contain subfolder option
1772 sub command211 {
1773     print "Some IMAP servers (UW) make it so that there are two types of\n";
1774     print "folders.  Those that contain messages, and those that contain\n";
1775     print "subfolders.  If this is the case for your server, set this to\n";
1776     print "true, and it will ask the user whether the folder they are\n";
1777     print "creating contains subfolders or messages.\n";
1778     print "\n";
1779
1780     if ( lc($show_contain_subfolders_option) eq 'true' ) {
1781         $default_value = "y";
1782     } else {
1783         $default_value = "n";
1784     }
1785     print "Show option (y/n) [$WHT$default_value$NRM]: $WHT";
1786     $new_show = <STDIN>;
1787     if ( ( $new_show =~ /^y\n/i ) || ( ( $new_show =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
1788         $show_contain_subfolders_option = 'true';
1789     } else {
1790         $show_contain_subfolders_option = 'false';
1791     }
1792     return $show_contain_subfolders_option;
1793 }
1794
1795 # Default Unseen Notify
1796 sub command212 {
1797     print "This option specifies where the users will receive notification\n";
1798     print "about unseen messages by default.  This is of course an option that\n";
1799     print "can be changed on a user level.\n";
1800     print "  1 = No notification\n";
1801     print "  2 = Only on the INBOX\n";
1802     print "  3 = On all folders\n";
1803     print "\n";
1804
1805     print "Which one should be default (1,2,3)? [$WHT$default_unseen_notify$NRM]: $WHT";
1806     $new_show = <STDIN>;
1807     if ( $new_show =~ /^[123]\n/i ) {
1808         $default_unseen_notify = $new_show;
1809     }
1810     $default_unseen_notify =~ s/[\r\n]//g;
1811     return $default_unseen_notify;
1812 }
1813
1814 # Default Unseen Type
1815 sub command213 {
1816     print "Here you can define the default way that unseen messages will be displayed\n";
1817     print "to the user in the folder listing on the left side.\n";
1818     print "  1 = Only unseen messages   (4)\n";
1819     print "  2 = Unseen and Total messages  (4/27)\n";
1820     print "\n";
1821
1822     print "Which one should be default (1,2)? [$WHT$default_unseen_type$NRM]: $WHT";
1823     $new_show = <STDIN>;
1824     if ( $new_show =~ /^[12]\n/i ) {
1825         $default_unseen_type = $new_show;
1826     }
1827     $default_unseen_type =~ s/[\r\n]//g;
1828     return $default_unseen_type;
1829 }
1830
1831 # Auto create special folders
1832 sub command214 {
1833     print "Would you like the Sent, Trash, and Drafts folders to be created\n";
1834     print "automatically print for you when a user logs in?  If the user\n";
1835     print "accidentally deletes their special folders, this option will\n";
1836     print "automatically create it again for them.\n";
1837     print "\n";
1838
1839     if ( lc($auto_create_special) eq 'true' ) {
1840         $default_value = "y";
1841     } else {
1842         $default_value = "n";
1843     }
1844     print "Auto create special folders? (y/n) [$WHT$default_value$NRM]: $WHT";
1845     $new_show = <STDIN>;
1846     if ( ( $new_show =~ /^y\n/i ) || ( ( $new_show =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
1847         $auto_create_special = 'true';
1848     } else {
1849         $auto_create_special = 'false';
1850     }
1851     return $auto_create_special;
1852 }
1853
1854 # Automatically delete folders
1855 sub command215 {
1856     if ( $imap_server_type eq "uw" ) {
1857         print "UW IMAP servers will not allow folders containing mail to also contain folders.\n";
1858         print "Deleting folders will bypass the trash folder and be immediately deleted\n\n";
1859         print "If this is not the correct value for your server,\n";
1860         print "please use option D on the Main Menu to configure your server correctly.\n\n";
1861         print "Press any key to continue...\n";
1862         $new_delete = <STDIN>;
1863         $delete_folder = 'true';
1864     } else {
1865         if ( $imap_server_type eq "courier" ) {
1866             print "Courier (or Courier-IMAP) IMAP servers may not support ";
1867             print "subfolders of Trash. \n";
1868             print "Specifically, if Courier is set to always move messages to Trash, \n";
1869             print "Trash will be treated by Courier as a special folder that does not \n";
1870             print "allow subfolders. \n\n";
1871             print "Please verify your Courier configuration, and test folder deletion \n";
1872             print "when changing this setting.\n\n";
1873         }
1874
1875         print "Are subfolders of the Trash supported by your IMAP server?\n";
1876         print "If so, should deleted folders be sent to Trash?\n";
1877         print "If not, say no (deleted folders should not be sent to Trash)\n\n";
1878         # reversal of logic.
1879         # question was: Should folders be automatically deleted instead of sent to trash..
1880         # we've changed the question to make it more clear,
1881         # and are here handling that to avoid changing the answers..
1882         if ( lc($delete_folder) eq 'true' ) {
1883             $default_value = "n";
1884         } else {
1885             $default_value = "y";
1886         }
1887         print "Send deleted folders to Trash? (y/n) [$WHT$default_value$NRM]: $WHT";
1888         $new_delete = <STDIN>;
1889         if ( ( $new_delete =~ /^y\n/i ) || ( ( $new_delete =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
1890             $delete_folder = 'false';
1891         } else {
1892             $delete_folder = 'true';
1893         }
1894     }
1895     return $delete_folder;
1896 }
1897
1898 #noselect fix
1899 sub command216 {
1900     print "Some IMAP server allow subfolders to exist even if the parent\n";
1901     print "folders do not. This fixes some problems with the folder list\n";
1902     print "when this is the case, causing the /NoSelect folders to be displayed\n";
1903     print "\n";
1904
1905     if ( lc($noselect_fix_enable) eq 'true' ) {
1906         $default_value = "y";
1907     } else {
1908         $default_value = "n";
1909     }
1910     print "enable noselect fix? (y/n) [$WHT$noselect_fix_enable$NRM]: $WHT";
1911     $noselect_fix_enable = <STDIN>;
1912     if ( ( $noselect_fix_enable =~ /^y\n/i ) || ( ( $noselect_fix_enable =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
1913         $noselect_fix_enable = 'true';
1914     } else {
1915         $noselect_fix_enable = 'false';
1916     }
1917     return $noselect_fix_enable;
1918 }
1919 ############# GENERAL OPTIONS #####################
1920
1921 # Data directory
1922 sub command33a {
1923     print "Specify the location for your data directory.\n";
1924     print "The path name can be absolute or relative (to the config directory).\n";
1925     print "It doesn't matter.  Here are two examples:\n";
1926     print "  Absolute:    /var/lib/squirrelmail/data/\n";
1927     print "  Relative:    ../data/\n";
1928     print "Relative paths to directories outside of the SquirrelMail distribution\n";
1929     print "will be converted to their absolute path equivalents in config.php.\n\n";
1930     print "Note: There are potential security risks with having a writeable directory\n";
1931     print "under the web server's root directory (ex: /home/httpd/html).\n";
1932     print "For this reason, it is recommended to put the data directory\n";
1933     print "in an alternate location of your choice. \n";
1934     print "\n";
1935
1936     print "[$WHT$data_dir$NRM]: $WHT";
1937     $new_data_dir = <STDIN>;
1938     if ( $new_data_dir eq "\n" ) {
1939         $new_data_dir = $data_dir;
1940     } else {
1941         $new_data_dir =~ s/[\r\n]//g;
1942     }
1943     if ( $new_data_dir =~ /^\s*$/ ) {
1944         $new_data_dir = "";
1945     } else {
1946         $new_data_dir =~ s/\/*$//g;
1947         $new_data_dir =~ s/$/\//g;
1948     }
1949     return $new_data_dir;
1950 }
1951
1952 # Attachment directory
1953 sub command33b {
1954     print "Path to directory used for storing attachments while a mail is\n";
1955     print "being sent. The path name can be absolute or relative (to the config directory).\n";
1956     print "It doesn't matter.  Here are two examples:\n";
1957     print "  Absolute:    /var/spool/squirrelmail/attach/\n";
1958     print "  Relative:    ../attach/\n";
1959     print "Relative paths to directories outside of the SquirrelMail distribution\n";
1960     print "will be converted to their absolute path equivalents in config.php.\n\n";
1961     print "Note:  There are a few security considerations regarding this\n";
1962     print "directory:\n";
1963     print "  1.  It should have the permission 733 (rwx-wx-wx) to make it\n";
1964     print "      impossible for a random person with access to the webserver\n";
1965     print "      to list files in this directory.  Confidential data might\n";
1966     print "      be laying around in there.\n";
1967     print "      Depending on your user:group assignments, 730 (rwx-wx---)\n";
1968     print "      may be possible, and more secure (e.g. root:apache)\n";
1969     print "  2.  Since the webserver is not able to list the files in the\n";
1970     print "      content is also impossible for the webserver to delete files\n";
1971     print "      lying around there for too long.\n";
1972     print "  3.  It should probably be another directory than the data\n";
1973     print "      directory specified in option 3.\n";
1974     print "\n";
1975
1976     print "[$WHT$attachment_dir$NRM]: $WHT";
1977     $new_attachment_dir = <STDIN>;
1978     if ( $new_attachment_dir eq "\n" ) {
1979         $new_attachment_dir = $attachment_dir;
1980     } else {
1981         $new_attachment_dir =~ s/[\r\n]//g;
1982     }
1983     if ( $new_attachment_dir =~ /^\s*$/ ) {
1984         $new_attachment_dir = "";
1985     } else {
1986         $new_attachment_dir =~ s/\/*$//g;
1987         $new_attachment_dir =~ s/$/\//g;
1988     }
1989     return $new_attachment_dir;
1990 }
1991
1992 sub command33c {
1993     print "The directory hash level setting allows you to configure the level\n";
1994     print "of hashing that SquirrelMail employs in your data and attachment\n";
1995     print "directories. This value must be an integer ranging from 0 to 4.\n";
1996     print "When this value is set to 0, SquirrelMail will simply store all\n";
1997     print "files as normal in the data and attachment directories. However,\n";
1998     print "when set to a value from 1 to 4, a simple hashing scheme will be\n";
1999     print "used to organize the files in this directory. In short, the crc32\n";
2000     print "value for a username will be computed. Then, up to the first 4\n";
2001     print "digits of the hash, as set by this configuration value, will be\n";
2002     print "used to directory hash the files for that user in the data and\n";
2003     print "attachment directory. This allows for better performance on\n";
2004     print "servers with larger numbers of users.\n";
2005     print "\n";
2006
2007     print "[$WHT$dir_hash_level$NRM]: $WHT";
2008     $new_dir_hash_level = <STDIN>;
2009     if ( $new_dir_hash_level eq "\n" ) {
2010         $new_dir_hash_level = $dir_hash_level;
2011     } else {
2012         $new_dir_hash_level =~ s/[\r\n]//g;
2013     }
2014     if ( ( int($new_dir_hash_level) < 0 )
2015         || ( int($new_dir_hash_level) > 4 )
2016         || !( int($new_dir_hash_level) eq $new_dir_hash_level ) ) {
2017         print "Invalid Directory Hash Level.\n";
2018         print "Value must be an integer ranging from 0 to 4\n";
2019         print "Hit enter to continue.\n";
2020         $enter_key = <STDIN>;
2021
2022         $new_dir_hash_level = $dir_hash_level;
2023         }
2024
2025     return $new_dir_hash_level;
2026 }
2027
2028 sub command35 {
2029     print "This is the default size (in pixels) of the left folder list.\n";
2030     print "Default is 200, but you can set it to whatever you wish.  This\n";
2031     print "is a user preference, so this will only show up as their default.\n";
2032     print "\n";
2033     print "[$WHT$default_left_size$NRM]: $WHT";
2034     $new_default_left_size = <STDIN>;
2035     if ( $new_default_left_size eq "\n" ) {
2036         $new_default_left_size = $default_left_size;
2037     } else {
2038         $new_default_left_size =~ s/[\r\n]//g;
2039     }
2040     return $new_default_left_size;
2041 }
2042
2043 sub command36 {
2044     print "Some IMAP servers only have lowercase letters in the usernames\n";
2045     print "but they still allow people with uppercase to log in.  This\n";
2046     print "causes a problem with the user's preference files.  This option\n";
2047     print "transparently changes all usernames to lowercase.";
2048     print "\n";
2049
2050     if ( lc($force_username_lowercase) eq 'true' ) {
2051         $default_value = "y";
2052     } else {
2053         $default_value = "n";
2054     }
2055     print "Convert usernames to lowercase (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         return 'true';
2059     }
2060     return 'false';
2061 }
2062
2063 sub command37 {
2064     print "";
2065     print "\n";
2066
2067     if ( lc($default_use_priority) eq 'true' ) {
2068         $default_value = "y";
2069     } else {
2070         $default_value = "n";
2071     }
2072
2073     print "Allow users to specify priority of outgoing mail (y/n) [$WHT$default_value$NRM]: $WHT";
2074     $new_show = <STDIN>;
2075     if ( ( $new_show =~ /^y\n/i ) || ( ( $new_show =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
2076         return 'true';
2077     }
2078     return 'false';
2079 }
2080
2081 sub command38 {
2082     print "";
2083     print "\n";
2084
2085     if ( lc($default_hide_attribution) eq 'true' ) {
2086         $default_value = "y";
2087     } else {
2088         $default_value = "n";
2089     }
2090
2091     print "Hide SM attributions (y/n) [$WHT$default_value$NRM]: $WHT";
2092     $new_show = <STDIN>;
2093     if ( ( $new_show =~ /^y\n/i ) || ( ( $new_show =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
2094         return 'true';
2095     }
2096     return 'false';
2097 }
2098
2099 sub command39 {
2100     print "";
2101     print "\n";
2102
2103     if ( lc($default_use_mdn) eq 'true' ) {
2104         $default_value = "y";
2105     } else {
2106         $default_value = "n";
2107     }
2108
2109     print "Enable support for read/delivery receipt support (y/n) [$WHT$default_value$NRM]: $WHT";
2110     $new_show = <STDIN>;
2111     if ( ( $new_show =~ /^y\n/i ) || ( ( $new_show =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
2112         return 'true';
2113     }
2114     return 'false';
2115 }
2116
2117
2118 sub command310 {
2119     print "This allows you to prevent the editing of the user's name and ";
2120     print "email address. This is mainly useful when used with the ";
2121     print "retrieveuserdata plugin\n";
2122     print "\n";
2123
2124     if ( lc($edit_identity) eq 'true' ) {
2125         $default_value = "y";
2126     } else {
2127         $default_value = "n";
2128     }
2129     print "Allow editing of user's identity? (y/n) [$WHT$default_value$NRM]: $WHT";
2130     $new_edit = <STDIN>;
2131     if ( ( $new_edit =~ /^y\n/i ) || ( ( $new_edit =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
2132         $edit_identity = 'true';
2133         $edit_name = 'true';
2134         $hide_auth_header = 'false';
2135     } else {
2136         $edit_identity = 'false';
2137         $edit_name = command311();
2138         $hide_auth_header = command311b();
2139     }
2140     return $edit_identity;
2141 }
2142
2143 sub command311 {
2144     print "As a follow-up, this option allows you to choose if the user ";
2145     print "can edit their full name even when you don't want them to ";
2146     print "change their username\n";
2147     print "\n";
2148
2149     if ( lc($edit_name) eq 'true' ) {
2150         $default_value = "y";
2151     } else {
2152         $default_value = "n";
2153     }
2154     print "Allow editing of the users full name? (y/n) [$WHT$default_value$NRM]: $WHT";
2155     $new_edit = <STDIN>;
2156     if ( ( $new_edit =~ /^y\n/i ) || ( ( $new_edit =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
2157         $edit_name = 'true';
2158     } else {
2159         $edit_name = 'false';
2160     }
2161     return $edit_name;
2162 }
2163
2164 sub command311b {
2165     print "SquirrelMail adds username information to every sent email.";
2166     print "It is done in order to prevent possible sender forging when ";
2167     print "end users are allowed to change their email and name ";
2168     print "information.\n";
2169     print "\n";
2170     print "You can disable this header, if you think that it violates ";
2171     print "user's privacy or security. Please note, that setting will ";
2172     print "work only when users are not allowed to change their identity.\n";
2173     print "\n";
2174
2175     if ( lc($hide_auth_header) eq "true" ) {
2176         $default_value = "y";
2177     } else {
2178         $default_value = "n";
2179     }
2180     print "Remove username from email headers? (y/n) [$WHT$default_value$NRM]: $WHT";
2181     $new_header = <STDIN>;
2182     if ( ( $new_header =~ /^y\n/i ) || ( ( $new_header =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
2183         $hide_auth_header = "true";
2184     } else {
2185         $hide_auth_header = "false";
2186     }
2187     return $edit_name;
2188 }
2189
2190 sub command312 {
2191     print "This option allows you to choose if users can use thread sorting\n";
2192     print "Your IMAP server must support the THREAD command for this to work\n";
2193     print "PHP versions later than 4.0.3 recommended\n";
2194     print "\n";
2195
2196     if ( lc($allow_thread_sort) eq 'true' ) {
2197         $default_value = "y";
2198     } else {
2199         $default_value = "n";
2200     }
2201     print "Allow server side thread sorting? (y/n) [$WHT$default_value$NRM]: $WHT";
2202     $allow_thread_sort = <STDIN>;
2203     if ( ( $allow_thread_sort =~ /^y\n/i ) || ( ( $allow_thread_sort =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
2204         $allow_thread_sort = 'true';
2205     } else {
2206         $allow_thread_sort = 'false';
2207     }
2208     return $allow_thread_sort;
2209 }
2210
2211 sub command313 {
2212     print "This option allows you to choose if SM uses server-side sorting\n";
2213     print "Your IMAP server must support the SORT  command for this to work\n";
2214     print "\n";
2215
2216     if ( lc($allow_server_sort) eq 'true' ) {
2217         $default_value = "y";
2218     } else {
2219         $default_value = "n";
2220     }
2221     print "Allow server-side sorting? (y/n) [$WHT$default_value$NRM]: $WHT";
2222     $allow_server_sort = <STDIN>;
2223     if ( ( $allow_server_sort =~ /^y\n/i ) || ( ( $allow_server_sort =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
2224         $allow_server_sort = 'true';
2225     } else {
2226         $allow_server_sort = 'false';
2227     }
2228     return $allow_server_sort;
2229 }
2230
2231 sub command314 {
2232     print "This option allows you to choose if SM uses charset search\n";
2233     print "Your IMAP server must support the SEARCH CHARSET command for this to work\n";
2234     print "\n";
2235
2236     if ( lc($allow_charset_search) eq 'true' ) {
2237         $default_value = "y";
2238     } else {
2239         $default_value = "n";
2240     }
2241     print "Allow charset searching? (y/n) [$WHT$default_value$NRM]: $WHT";
2242     $allow_charset_search = <STDIN>;
2243     if ( ( $allow_charset_search =~ /^y\n/i ) || ( ( $allow_charset_search =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
2244         $allow_charset_search = 'true';
2245     } else {
2246         $allow_charset_search = 'false';
2247     }
2248     return $allow_charset_search;
2249 }
2250
2251 # command315 (UID support) obsoleted.
2252
2253 # advanced search option
2254 sub command316 {
2255     print "This option allows you to control the use of advanced search form.\n";
2256     print "  0 = enable basic search only\n";
2257     print "  1 = enable advanced search only\n";
2258     print "  2 = enable both\n";
2259     print "\n";
2260
2261     print "Allowed search (0,1,2)? [$WHT$allow_advanced_search$NRM]: $WHT";
2262     $new_allow_advanced_search = <STDIN>;
2263     if ( $new_allow_advanced_search =~ /^[012]\n/i ) {
2264         $allow_advanced_search = $new_allow_advanced_search;
2265     }
2266     $allow_advanced_search =~ s/[\r\n]//g;
2267     return $allow_advanced_search;
2268 }
2269
2270
2271 sub command317 {
2272     print "This option allows you to change the name of the PHP session used\n";
2273     print "by SquirrelMail.  Unless you know what you are doing, you probably\n";
2274     print "don't need or want to change this from the default of SQMSESSID.\n";
2275     print "[$WHT$session_name$NRM]: $WHT";
2276     $new_session_name = <STDIN>;
2277     chomp($new_session_name);
2278     if ( $new_session_name eq "" ) {
2279         $new_session_name = $session_name;
2280     }
2281     return $new_session_name;
2282 }
2283
2284 # time zone config (since 1.5.1)
2285 sub command318 {
2286     print "This option allows you to control the use of time zones.\n";
2287     print "  0 = (default) standard, GNU C time zone names\n";
2288     print "  1 = strict, generic time zone codes with offsets\n";
2289     print "  2 = custom, GNU C time zones loaded from config/timezones.php\n";
2290     print "  3 = custom strict, generic time zone codes with offsets loaded \n";
2291     print "      from config/timezones.php\n";
2292     print "See SquirrelMail documentation about format of config/timezones.php file.\n";
2293     print "\n";
2294
2295     print "Used time zone configuration (0,1,2,3)? [$WHT$time_zone_type$NRM]: $WHT";
2296     $new_time_zone_type = <STDIN>;
2297     if ( $new_time_zone_type =~ /^[0123]\n/i ) {
2298         $time_zone_type = $new_time_zone_type;
2299     } else {
2300         print "\nInvalid configuration value.\n";
2301         print "\nPress enter to continue...";
2302         $tmp = <STDIN>;
2303     }
2304     $time_zone_type =~ s/[\r\n]//g;
2305     return $time_zone_type;
2306 }
2307
2308
2309 sub command41 {
2310     print "\nDefine the themes that you wish to use.  If you have added ";
2311     print "a theme of your own, just follow the instructions (?) about how to add ";
2312     print "them.  You can also change the default theme.\n";
2313     print "[theme] command (?=help) > ";
2314     $input = <STDIN>;
2315     $input =~ s/[\r\n]//g;
2316     while ( $input ne "d" ) {
2317         if ( $input =~ /^\s*l\s*/i ) {
2318             $count = 0;
2319             while ( $count <= $#theme_name ) {
2320                 if ( $count == $theme_default ) {
2321                     print " *";
2322                 } else {
2323                     print "  ";
2324                 }
2325                 if ( $count < 10 ) {
2326                     print " ";
2327                 }
2328                 $name       = $theme_name[$count];
2329                 $num_spaces = 35 - length($name);
2330                 for ( $i = 0 ; $i < $num_spaces ; $i++ ) {
2331                     $name = $name . " ";
2332                 }
2333
2334                 print " $count.  $name";
2335                 print "($theme_path[$count])\n";
2336
2337                 $count++;
2338             }
2339         } elsif ( $input =~ /^\s*m\s*[0-9]+/i ) {
2340             $old_def       = $theme_default;
2341             $theme_default = $input;
2342             $theme_default =~ s/^\s*m\s*//;
2343             if ( ( $theme_default > $#theme_name ) || ( $theme_default < 0 ) ) {
2344                 print "Cannot set default theme to $theme_default.  That theme does not exist.\n";
2345                 $theme_default = $old_def;
2346             }
2347         } elsif ( $input =~ /^\s*\+/ ) {
2348             print "What is the name of this theme: ";
2349             $name = <STDIN>;
2350             $name =~ s/[\r\n]//g;
2351             $theme_name[ $#theme_name + 1 ] = $name;
2352             print "Be sure to put ../themes/ before the filename.\n";
2353             print "What file is this stored in (ex: ../themes/default_theme.php): ";
2354             $name = <STDIN>;
2355             $name =~ s/[\r\n]//g;
2356             $theme_path[ $#theme_path + 1 ] = $name;
2357         } elsif ( $input =~ /^\s*-\s*[0-9]?/ ) {
2358             if ( $input =~ /[0-9]+\s*$/ ) {
2359                 $rem_num = $input;
2360                 $rem_num =~ s/^\s*-\s*//g;
2361                 $rem_num =~ s/\s*$//;
2362             } else {
2363                 $rem_num = $#theme_name;
2364             }
2365             if ( $rem_num == $theme_default ) {
2366                 print "You cannot remove the default theme!\n";
2367             } else {
2368                 $count          = 0;
2369                 @new_theme_name = ();
2370                 @new_theme_path = ();
2371                 while ( $count <= $#theme_name ) {
2372                     if ( $count != $rem_num ) {
2373                         @new_theme_name = ( @new_theme_name, $theme_name[$count] );
2374                         @new_theme_path = ( @new_theme_path, $theme_path[$count] );
2375                     }
2376                     $count++;
2377                 }
2378                 @theme_name = @new_theme_name;
2379                 @theme_path = @new_theme_path;
2380                 if ( $theme_default > $rem_num ) {
2381                     $theme_default--;
2382                 }
2383             }
2384         } elsif ( $input =~ /^\s*t\s*/i ) {
2385             print "\nStarting detection...\n\n";
2386
2387             opendir( DIR, "../themes" );
2388             @files = grep { /\.php$/i } readdir(DIR);
2389             $cnt = 0;
2390             while ( $cnt <= $#files ) {
2391                 $filename = "../themes/" . $files[$cnt];
2392                 if ( $filename ne "../themes/index.php" ) {
2393                     $found = 0;
2394                     for ( $x = 0 ; $x <= $#theme_path ; $x++ ) {
2395                         if ( $theme_path[$x] eq $filename ) {
2396                             $found = 1;
2397                         }
2398                     }
2399                     if ( $found != 1 ) {
2400                         print "** Found theme: $filename\n";
2401                         print "   What is its name? ";
2402                         $nm = <STDIN>;
2403                         $nm =~ s/[\n\r]//g;
2404                         $theme_name[ $#theme_name + 1 ] = $nm;
2405                         $theme_path[ $#theme_path + 1 ] = $filename;
2406                     }
2407                 }
2408                 $cnt++;
2409             }
2410             print "\n";
2411             for ( $cnt = 0 ; $cnt <= $#theme_path ; $cnt++ ) {
2412                 $filename = $theme_path[$cnt];
2413                 if ( !( -e $filename ) ) {
2414                     print "  Removing $filename (file not found)\n";
2415                     $offset         = 0;
2416                     @new_theme_name = ();
2417                     @new_theme_path = ();
2418                     for ( $x = 0 ; $x < $#theme_path ; $x++ ) {
2419                         if ( $theme_path[$x] eq $filename ) {
2420                             $offset = 1;
2421                         }
2422                         if ( $offset == 1 ) {
2423                             $new_theme_name[$x] = $theme_name[ $x + 1 ];
2424                             $new_theme_path[$x] = $theme_path[ $x + 1 ];
2425                         } else {
2426                             $new_theme_name[$x] = $theme_name[$x];
2427                             $new_theme_path[$x] = $theme_path[$x];
2428                         }
2429                     }
2430                     @theme_name = @new_theme_name;
2431                     @theme_path = @new_theme_path;
2432                 }
2433             }
2434             print "\nDetection complete!\n\n";
2435
2436             closedir DIR;
2437         } elsif ( $input =~ /^\s*\?\s*/ ) {
2438             print ".-------------------------.\n";
2439             print "| t       (detect themes) |\n";
2440             print "| +           (add theme) |\n";
2441             print "| - N      (remove theme) |\n";
2442             print "| m N      (mark default) |\n";
2443             print "| l         (list themes) |\n";
2444             print "| d                (done) |\n";
2445             print "`-------------------------'\n";
2446         }
2447         print "[theme] command (?=help) > ";
2448         $input = <STDIN>;
2449         $input =~ s/[\r\n]//g;
2450     }
2451 }
2452
2453 # Theme - CSS file
2454 sub command42 {
2455     print "You may specify a cascading style-sheet (CSS) file to be included\n";
2456     print "on each html page generated by SquirrelMail. The CSS file is useful\n";
2457     print "for specifying a site-wide font. If you're not familiar with CSS\n";
2458     print "files, leave this blank.\n";
2459     print "\n";
2460     print "To clear out an existing value, just type a space for the input.\n";
2461     print "\n";
2462     print "Please be aware of the following: \n";
2463     print "  - Relative URLs are relative to the config dir\n";
2464     print "    to use the themes directory, use ../themes/css/newdefault.css\n";
2465     print "  - To specify a css file defined outside the SquirrelMail source tree\n";
2466     print "    use the absolute URL the webserver would use to include the file\n";
2467     print "    e.g. http://some.host.com/css/mystyle.css or /css/mystyle.css\n";
2468     print "\n";
2469     print "[$WHT$theme_css$NRM]: $WHT";
2470     $new_theme_css = <STDIN>;
2471
2472     if ( $new_theme_css eq "\n" ) {
2473         $new_theme_css = $theme_css;
2474     } else {
2475         $new_theme_css =~ s/[\r\n]//g;
2476     }
2477     $new_theme_css =~ s/^\s*//;
2478     return $new_theme_css;
2479 }
2480
2481 sub command61 {
2482     print "You can now define different LDAP servers.\n";
2483     print "[ldap] command (?=help) > ";
2484     $input = <STDIN>;
2485     $input =~ s/[\r\n]//g;
2486     while ( $input ne "d" ) {
2487         if ( $input =~ /^\s*l\s*/i ) {
2488             $count = 0;
2489             while ( $count <= $#ldap_host ) {
2490                 print "$count. $ldap_host[$count]\n";
2491                 print "        base: $ldap_base[$count]\n";
2492                 if ( $ldap_charset[$count] ) {
2493                     print "     charset: $ldap_charset[$count]\n";
2494                 }
2495                 if ( $ldap_port[$count] ) {
2496                     print "        port: $ldap_port[$count]\n";
2497                 }
2498                 if ( $ldap_name[$count] ) {
2499                     print "        name: $ldap_name[$count]\n";
2500                 }
2501                 if ( $ldap_maxrows[$count] ) {
2502                     print "     maxrows: $ldap_maxrows[$count]\n";
2503                 }
2504                 if ( $ldap_filter[$count] ) {
2505                     print "      filter: $ldap_filter[$count]\n";
2506                 }
2507                 if ( $ldap_binddn[$count] ) {
2508                     print "      binddn: $ldap_binddn[$count]\n";
2509                     if ( $ldap_bindpw[$count] ) {
2510                         print "      bindpw: $ldap_bindpw[$count]\n";
2511                     }
2512                 }
2513                 if ( $ldap_protocol[$count] ) {
2514                     print "    protocol: $ldap_protocol[$count]\n";
2515                 }
2516                 if ( $ldap_limit_scope[$count] ) {
2517                     print " limit_scope: $ldap_limit_scope[$count]\n";
2518                 }
2519                 if ( $ldap_listing[$count] ) {
2520                     print "     listing: $ldap_listing[$count]\n";
2521                 }
2522                 if ( $ldap_search_tree[$count] ) {
2523                     print " search_tree: $ldap_search_tree[$count]\n";
2524                 }
2525                 if ( $ldap_starttls[$count] ) {
2526                     print "    starttls: $ldap_starttls[$count]\n";
2527                 }
2528
2529                 print "\n";
2530                 $count++;
2531             }
2532         } elsif ( $input =~ /^\s*\+/ ) {
2533             $sub = $#ldap_host + 1;
2534
2535             print "First, we need to have the hostname or the IP address where\n";
2536             print "this LDAP server resides.  Example: ldap.bigfoot.com\n";
2537             print "hostname: ";
2538             $name = <STDIN>;
2539             $name =~ s/[\r\n]//g;
2540             $ldap_host[$sub] = $name;
2541
2542             print "\n";
2543
2544             print "Next, we need the server root (base dn).  For this, an empty\n";
2545             print "string is allowed.\n";
2546             print "Example: ou=member_directory,o=netcenter.com\n";
2547             print "base: ";
2548             $name = <STDIN>;
2549             $name =~ s/[\r\n]//g;
2550             $ldap_base[$sub] = $name;
2551
2552             print "\n";
2553
2554             print "This is the TCP/IP port number for the LDAP server.  Default\n";
2555             print "port is 389.  This is optional.  Press ENTER for default.\n";
2556             print "port: ";
2557             $name = <STDIN>;
2558             $name =~ s/[\r\n]//g;
2559             $ldap_port[$sub] = $name;
2560
2561             print "\n";
2562
2563             print "This is the charset for the server.  Default is utf-8.  This\n";
2564             print "is also optional.  Press ENTER for default.\n";
2565             print "charset: ";
2566             $name = <STDIN>;
2567             $name =~ s/[\r\n]//g;
2568             $ldap_charset[$sub] = $name;
2569
2570             print "\n";
2571
2572             print "This is the name for the server, used to tag the results of\n";
2573             print "the search.  Default it \"LDAP: hostname\".  Press ENTER for default\n";
2574             print "name: ";
2575             $name = <STDIN>;
2576             $name =~ s/[\r\n]//g;
2577             $ldap_name[$sub] = $name;
2578
2579             print "\n";
2580
2581             print "You can specify the maximum number of rows in the search result.\n";
2582             print "Default value is equal to 250 rows.  Press ENTER for default.\n";
2583             print "maxrows: ";
2584             $name = <STDIN>;
2585             $name =~ s/[\r\n]//g;
2586             $ldap_maxrows[$sub] = $name;
2587
2588
2589             print "\n";
2590
2591             print "If your LDAP server does not like anonymous logins, you can specify bind DN.\n";
2592             print "Default is none, anonymous bind.  Press ENTER for default.\n";
2593             print "binddn: ";
2594             $name = <STDIN>;
2595             $name =~ s/[\r\n]//g;
2596             $ldap_binddn[$sub] = $name;
2597
2598             print "\n";
2599
2600             if ( $ldap_binddn[$sub] ne '' ) {
2601
2602                 print "Now, please specify password for that DN.\n";
2603                 print "bindpw: ";
2604                 $name = <STDIN>;
2605                 $name =~ s/[\r\n]//g;
2606                 $ldap_bindpw[$sub] = $name;
2607
2608                 print "\n";
2609             }
2610
2611             print "You can specify bind protocol version here.\n";
2612             print "Default protocol version depends on your php ldap settings.\n";
2613             print "Press ENTER for default.\n";
2614             print "protocol: ";
2615             $name = <STDIN>;
2616             $name =~ s/[\r\n]//g;
2617             $ldap_protocol[$sub] = $name;
2618
2619             print "\n";
2620
2621             print "This configuration section allows to set some rarely used\n";
2622             print "options and options specific to some LDAP implementations.\n";
2623             print "\n";
2624             print "Do you want to set advanced LDAP directory settings? (y/N):";
2625             $ldap_advanced_settings = <STDIN>;
2626             if ( $ldap_advanced_settings =~ /^y\n/i ) {
2627                 $ldap_advanced_settings = 'true';
2628             } else {
2629                 $ldap_advanced_settings = 'false';
2630             }
2631
2632             if ($ldap_advanced_settings eq 'true') {
2633               print "\n";
2634
2635               print "You can control LDAP directory listing here. This option can\n";
2636               print "be useful if you run small LDAP server and want to provide listing\n";
2637               print "of all addresses stored in LDAP to users of webmail interface.\n";
2638               print "Number of displayed entries is limited by maxrows setting.\n";
2639               print "\n";
2640               print "Don't enable this option for public LDAP directories.\n";
2641               print "This feature is experimental.\n";
2642               print "\n";
2643               print "Allow listing of LDAP directory? (y/N):";
2644               $name = <STDIN>;
2645               if ( $name =~ /^y\n/i ) {
2646                 $name = 'true';
2647               } else {
2648                 $name = 'false';
2649               }
2650               $ldap_listing[$sub] = $name;
2651
2652               print "\n";
2653
2654               print "You can specify an additional search filter.\n";
2655               print "This could be something like \"(objectclass=posixAccount)\".\n";
2656               print "No filtering is performed by default. Press ENTER for default.\n";
2657               print "filter: ";
2658               $name = <STDIN>;
2659               $name =~ s/[\r|\n]//g;
2660               $ldap_filter[$sub] = $name;
2661
2662               print "\n";
2663
2664               print "You can control search scope here.\n";
2665               print "This option is specific to Microsoft ADS implementation.\n";
2666               print "It requires use of v3 or newer LDAP protocol.\n";
2667               print "Don't enable it, if you use other LDAP server.\n";
2668               print "\n";
2669               print "Limit ldap scope? (y/N):";
2670               $name = <STDIN>;
2671               if ( $name =~ /^y\n/i ) {
2672                 $name = 'true';
2673               } else {
2674                 $name = 'false';
2675               }
2676               $ldap_limit_scope[$sub] = $name;
2677
2678               print "\n";
2679
2680               print "You can control ldap search type here.\n";
2681               print "Addresses can be searched in entire LDAP subtree (default)\n";
2682               print "or only first level entries are returned.\n";
2683               print "\n";
2684               print "Search entire LDAP subtree? (Y/n):";
2685               $name = <STDIN>;
2686               if ( $name =~ /^n\n/i ) {
2687                 $name = 'false';
2688               } else {
2689                 $name = 'true';
2690               }
2691               $ldap_search_tree[$sub] = $name;
2692
2693               print "\n";
2694
2695               print "You can control use of StartTLS on LDAP connection here.\n";
2696               print "This option requires use of v3 or newer LDAP protocol and php 4.2+.\n";
2697               print "\n";
2698               print "Use StartTLS? (y/N):";
2699               $name = <STDIN>;
2700               if ( $name =~ /^y\n/i ) {
2701                 $name = 'true';
2702               } else {
2703                 $name = 'false';
2704               }
2705               $ldap_starttls[$sub] = $name;
2706             }
2707             print "\n";
2708
2709         } elsif ( $input =~ /^\s*-\s*[0-9]?/ ) {
2710             if ( $input =~ /[0-9]+\s*$/ ) {
2711                 $rem_num = $input;
2712                 $rem_num =~ s/^\s*-\s*//g;
2713                 $rem_num =~ s/\s*$//;
2714             } else {
2715                 $rem_num = $#ldap_host;
2716             }
2717             $count            = 0;
2718             @new_ldap_host    = ();
2719             @new_ldap_base    = ();
2720             @new_ldap_port    = ();
2721             @new_ldap_name    = ();
2722             @new_ldap_charset = ();
2723             @new_ldap_maxrows = ();
2724             @new_ldap_filter  = ();
2725             @new_ldap_bindpw  = ();
2726             @new_ldap_binddn  = ();
2727             @new_ldap_protocol = ();
2728             @new_ldap_limit_scope = ();
2729             @new_ldap_listing = ();
2730             @new_ldap_search_tree = ();
2731             @new_ldap_starttls = ();
2732
2733             while ( $count <= $#ldap_host ) {
2734                 if ( $count != $rem_num ) {
2735                     @new_ldap_host    = ( @new_ldap_host,    $ldap_host[$count] );
2736                     @new_ldap_base    = ( @new_ldap_base,    $ldap_base[$count] );
2737                     @new_ldap_port    = ( @new_ldap_port,    $ldap_port[$count] );
2738                     @new_ldap_name    = ( @new_ldap_name,    $ldap_name[$count] );
2739                     @new_ldap_charset = ( @new_ldap_charset, $ldap_charset[$count] );
2740                     @new_ldap_maxrows = ( @new_ldap_maxrows, $ldap_maxrows[$count] );
2741                     @new_ldap_filter  = ( @new_ldap_filter,  $ldap_filter[$count] );
2742                     @new_ldap_binddn  = ( @new_ldap_binddn,  $ldap_binddn[$count] );
2743                     @new_ldap_bindpw  = ( @new_ldap_bindpw,  $ldap_bindpw[$count] );
2744                     @new_ldap_protocol  = ( @new_ldap_protocol,  $ldap_protocol[$count] );
2745                     @new_ldap_limit_scope = ( @new_ldap_limit_scope,  $ldap_limit_scope[$count] );
2746                     @new_ldap_listing = ( @new_ldap_listing, $ldap_listing[$count] );
2747                     @new_ldap_search_tree = ( @new_ldap_search_tree, $ldap_search_tree[$count] );
2748                     @new_ldap_starttls = ( @new_ldap_starttls, $ldap_starttls[$count] );
2749                 }
2750                 $count++;
2751             }
2752             @ldap_host    = @new_ldap_host;
2753             @ldap_base    = @new_ldap_base;
2754             @ldap_port    = @new_ldap_port;
2755             @ldap_name    = @new_ldap_name;
2756             @ldap_charset = @new_ldap_charset;
2757             @ldap_maxrows = @new_ldap_maxrows;
2758             @ldap_filter  = @new_ldap_filter;
2759             @ldap_binddn  = @new_ldap_binddn;
2760             @ldap_bindpw  = @new_ldap_bindpw;
2761             @ldap_protocol = @new_ldap_protocol;
2762             @ldap_limit_scope = @new_ldap_limit_scope;
2763             @ldap_listing = @new_ldap_listing;
2764             @ldap_search_tree = @new_ldap_search_tree;
2765             @ldap_starttls = @new_ldap_starttls;
2766
2767         } elsif ( $input =~ /^\s*\?\s*/ ) {
2768             print ".-------------------------.\n";
2769             print "| +            (add host) |\n";
2770             print "| - N       (remove host) |\n";
2771             print "| l          (list hosts) |\n";
2772             print "| d                (done) |\n";
2773             print "`-------------------------'\n";
2774         }
2775         print "[ldap] command (?=help) > ";
2776         $input = <STDIN>;
2777         $input =~ s/[\r\n]//g;
2778     }
2779 }
2780
2781 sub command62 {
2782     print "Some of our developers have come up with very good javascript interface\n";
2783     print "for searching through address books, however, our original goals said\n";
2784     print "that we would be 100% HTML.  In order to make it possible to use their\n";
2785     print "interface, and yet stick with our goals, we have also written a plain\n";
2786     print "HTML version of the search.  Here, you can choose which version to use.\n";
2787     print "\n";
2788     print "This is just the default value.  It is also a user option that each\n";
2789     print "user can configure individually\n";
2790     print "\n";
2791
2792     if ( lc($default_use_javascript_addr_book) eq 'true' ) {
2793         $default_value = "y";
2794     } else {
2795         $default_use_javascript_addr_book = 'false';
2796         $default_value                    = "n";
2797     }
2798     print "Use javascript version by default (y/n) [$WHT$default_value$NRM]: $WHT";
2799     $new_show = <STDIN>;
2800     if ( ( $new_show =~ /^y\n/i ) || ( ( $new_show =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
2801         $default_use_javascript_addr_book = 'true';
2802     } else {
2803         $default_use_javascript_addr_book = 'false';
2804     }
2805     return $default_use_javascript_addr_book;
2806 }
2807
2808 # global filebased address book
2809 sub command63 {
2810     print "If you want to use global file address book, then you\n";
2811     print "must set this option to a valid value. If option does\n";
2812     print "not have path elements, system assumes that file is\n";
2813     print "stored in data directory. If relative path is set, it is\n";
2814     print "relative to main SquirrelMail directory. If value is empty,\n";
2815     print "address book is not enabled.\n";
2816     print "\n";
2817
2818     print "[$WHT$abook_global_file$NRM]: $WHT";
2819     $new_abook_global_file = <STDIN>;
2820     if ( $new_abook_global_file eq "\n" ) {
2821         $new_abook_global_file = $abook_global_file;
2822     } else {
2823         $new_abook_global_file =~ s/[\r\n]//g;
2824     }
2825     return $new_abook_global_file;
2826 }
2827
2828 # writing into global filebased abook control
2829 sub command64 {
2830     print "This setting controls writing into global file address\n";
2831     print "book options. Address book file must be writeable by\n";
2832     print "webserver's user, if you want to enable this option.\n";
2833     print "\n";
2834
2835     if ( lc($abook_global_file_writeable) eq 'true' ) {
2836         $default_value = "y";
2837     } else {
2838         $abook_global_file_writeable = 'false';
2839         $default_value               = "n";
2840     }
2841     print "Allow writing into global file address book (y/n) [$WHT$default_value$NRM]: $WHT";
2842     $new_show = <STDIN>;
2843     if ( ( $new_show =~ /^y\n/i ) || ( ( $new_show =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
2844         $abook_global_file_writeable = 'true';
2845     } else {
2846         $abook_global_file_writeable = 'false';
2847     }
2848     return $abook_global_file_writeable;
2849 }
2850
2851 # listing of global filebased abook control
2852 sub command65 {
2853     print "This setting controls listing of global file address\n";
2854     print "book in addresses page.\n";
2855     print "\n";
2856
2857     if ( lc($abook_global_file_listing) eq 'true' ) {
2858         $default_value = "y";
2859     } else {
2860         $abook_global_file_listing = 'false';
2861         $default_value               = "n";
2862     }
2863     print "Allow listing of global file address book (y/n) [$WHT$default_value$NRM]: $WHT";
2864     $new_show = <STDIN>;
2865     if ( ( $new_show =~ /^y\n/i ) || ( ( $new_show =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
2866         $abook_global_file_listing = 'true';
2867     } else {
2868         $abook_global_file_listing = 'false';
2869     }
2870     return $abook_global_file_listing;
2871 }
2872
2873 sub command91 {
2874     print "If you want to store your users address book details in a database then\n";
2875     print "you need to set this DSN to a valid value. The format for this is:\n";
2876     print "mysql://user:pass\@hostname/dbname\n";
2877     print "Where mysql can be one of the databases PHP supports, the most common\n";
2878     print "of these are mysql, msql and pgsql\n";
2879     print "If the DSN is left empty (hit space and then return) the database\n";
2880     print "related code for address books will not be used\n";
2881     print "\n";
2882
2883     if ( $addrbook_dsn eq "" ) {
2884         $default_value = "Disabled";
2885     } else {
2886         $default_value = $addrbook_dsn;
2887     }
2888     print "[$WHT$addrbook_dsn$NRM]: $WHT";
2889     $new_dsn = <STDIN>;
2890     if ( $new_dsn eq "\n" ) {
2891         $new_dsn = "";
2892     } else {
2893         $new_dsn =~ s/[\r\n]//g;
2894         $new_dsn =~ s/^\s+$//g;
2895     }
2896     return $new_dsn;
2897 }
2898
2899 sub command92 {
2900     print "This is the name of the table you want to store the address book\n";
2901     print "data in, it defaults to 'address'\n";
2902     print "\n";
2903     print "[$WHT$addrbook_table$NRM]: $WHT";
2904     $new_table = <STDIN>;
2905     if ( $new_table eq "\n" ) {
2906         $new_table = $addrbook_table;
2907     } else {
2908         $new_table =~ s/[\r\n]//g;
2909     }
2910     return $new_table;
2911 }
2912
2913 sub command93 {
2914     print "If you want to store your users preferences in a database then\n";
2915     print "you need to set this DSN to a valid value. The format for this is:\n";
2916     print "mysql://user:pass\@hostname/dbname\n";
2917     print "Where mysql can be one of the databases PHP supports, the most common\n";
2918     print "of these are mysql, msql and pgsql\n";
2919     print "If the DSN is left empty (hit space and then return) the database\n";
2920     print "related code for address books will not be used\n";
2921     print "\n";
2922
2923     if ( $prefs_dsn eq "" ) {
2924         $default_value = "Disabled";
2925     } else {
2926         $default_value = $prefs_dsn;
2927     }
2928     print "[$WHT$prefs_dsn$NRM]: $WHT";
2929     $new_dsn = <STDIN>;
2930     if ( $new_dsn eq "\n" ) {
2931         $new_dsn = "";
2932     } else {
2933         $new_dsn =~ s/[\r\n]//g;
2934         $new_dsn =~ s/^\s+$//g;
2935     }
2936     return $new_dsn;
2937 }
2938
2939 sub command94 {
2940     print "This is the name of the table you want to store the preferences\n";
2941     print "data in, it defaults to 'userprefs'\n";
2942     print "\n";
2943     print "[$WHT$prefs_table$NRM]: $WHT";
2944     $new_table = <STDIN>;
2945     if ( $new_table eq "\n" ) {
2946         $new_table = $prefs_table;
2947     } else {
2948         $new_table =~ s/[\r\n]//g;
2949     }
2950     return $new_table;
2951 }
2952
2953 sub command95 {
2954     print "This is the name of the field in which you want to store the\n";
2955     print "username of the person the prefs are for. It default to 'user'\n";
2956     print "which clashes with a reserved keyword in PostgreSQL so this\n";
2957     print "will need to be changed for that database at least\n";
2958     print "\n";
2959     print "[$WHT$prefs_user_field$NRM]: $WHT";
2960     $new_field = <STDIN>;
2961     if ( $new_field eq "\n" ) {
2962         $new_field = $prefs_user_field;
2963     } else {
2964         $new_field =~ s/[\r\n]//g;
2965     }
2966     return $new_field;
2967 }
2968
2969 sub command96 {
2970     print "This is the name of the field in which you want to store the\n";
2971     print "preferences keyword. It defaults to 'prefkey'\n";
2972     print "\n";
2973     print "[$WHT$prefs_key_field$NRM]: $WHT";
2974     $new_field = <STDIN>;
2975     if ( $new_field eq "\n" ) {
2976         $new_field = $prefs_key_field;
2977     } else {
2978         $new_field =~ s/[\r\n]//g;
2979     }
2980     return $new_field;
2981 }
2982
2983 sub command97 {
2984     print "This is the name of the field in which you want to store the\n";
2985     print "preferences value. It defaults to 'prefval'\n";
2986     print "\n";
2987     print "[$WHT$prefs_val_field$NRM]: $WHT";
2988     $new_field = <STDIN>;
2989     if ( $new_field eq "\n" ) {
2990         $new_field = $prefs_val_field;
2991     } else {
2992         $new_field =~ s/[\r\n]//g;
2993     }
2994     return $new_field;
2995 }
2996
2997 sub command98 {
2998     print "If you want to store your global address book in a database then\n";
2999     print "you need to set this DSN to a valid value. The format for this is:\n";
3000     print "mysql://user:pass\@hostname/dbname\n";
3001     print "Where mysql can be one of the databases PHP supports, the most common\n";
3002     print "of these are mysql, msql and pgsql\n";
3003     print "If the DSN is left empty (hit space and then return) the database\n";
3004     print "related code for global SQL address book will not be used\n";
3005     print "\n";
3006
3007     if ( $addrbook_global_dsn eq "" ) {
3008         $default_value = "Disabled";
3009     } else {
3010         $default_value = $addrbook_global_dsn;
3011     }
3012     print "[$WHT$addrbook_global_dsn$NRM]: $WHT";
3013     $new_dsn = <STDIN>;
3014     if ( $new_dsn eq "\n" ) {
3015         $new_dsn = "";
3016     } else {
3017         $new_dsn =~ s/[\r\n]//g;
3018         $new_dsn =~ s/^\s+$//g;
3019     }
3020     return $new_dsn;
3021 }
3022
3023 sub command99 {
3024     print "This is the name of the table you want to store the global address book\n";
3025     print "data in. Default table name is 'global_abook'. Address book uses same\n";
3026     print "database format as personal address book.\n";
3027     print "\n";
3028     print "[$WHT$addrbook_global_table$NRM]: $WHT";
3029     $new_table = <STDIN>;
3030     if ( $new_table eq "\n" ) {
3031         $new_table = $addrbook_global_table;
3032     } else {
3033         $new_table =~ s/[\r\n]//g;
3034     }
3035     return $new_table;
3036 }
3037
3038 sub command910 {
3039     print "This option controls users\' ability to add or modify records stored \n";
3040     print "in global address book\n";
3041
3042     if ( lc($addrbook_global_writeable) eq 'true' ) {
3043         $default_value = "y";
3044     } else {
3045         $default_value = "n";
3046     }
3047     print "Allow writing into global address book? (y/n) [$WHT$default_value$NRM]: $WHT";
3048     $addrbook_global_writeable = <STDIN>;
3049     if ( ( $addrbook_global_writeable =~ /^y\n/i ) || ( ( $addrbook_global_writeable =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
3050         $addrbook_global_writeable = 'true';
3051     } else {
3052         $addrbook_global_writeable = 'false';
3053     }
3054     return $addrbook_global_writeable;
3055 }
3056
3057 sub command911 {
3058     print "Enable this option if you want to see listing of addresses stored \n";
3059     print "in global address book\n";
3060
3061     if ( lc($addrbook_global_listing) eq 'true' ) {
3062         $default_value = "y";
3063     } else {
3064         $default_value = "n";
3065     }
3066     print "Allow listing of global address book? (y/n) [$WHT$default_value$NRM]: $WHT";
3067     $addrbook_global_listing = <STDIN>;
3068     if ( ( $addrbook_global_listing =~ /^y\n/i ) || ( ( $addrbook_global_listing =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
3069         $addrbook_global_listing = 'true';
3070     } else {
3071         $addrbook_global_listing = 'false';
3072     }
3073     return $addrbook_global_listing;
3074 }
3075
3076
3077 # Default language
3078 sub commandA1 {
3079     print "SquirrelMail attempts to set the language in many ways.  If it\n";
3080     print "can not figure it out in another way, it will default to this\n";
3081     print "language.  Please use the code for the desired language.\n";
3082     print "\n";
3083     print "[$WHT$squirrelmail_default_language$NRM]: $WHT";
3084     $new_squirrelmail_default_language = <STDIN>;
3085     if ( $new_squirrelmail_default_language eq "\n" ) {
3086         $new_squirrelmail_default_language = $squirrelmail_default_language;
3087     } else {
3088         $new_squirrelmail_default_language =~ s/[\r\n]//g;
3089         $new_squirrelmail_default_language =~ s/^\s+$//g;
3090     }
3091     return $new_squirrelmail_default_language;
3092 }
3093 # Default Charset
3094 sub commandA2 {
3095     print "This option controls what character set is used when sending\n";
3096     print "mail and when sending HTML to the browser. Option works only\n";
3097     print "with US English (en_US) translation. Other translations use\n";
3098     print "charsets that are set in functions/i18n.php.\n";
3099     print "\n";
3100
3101     print "[$WHT$default_charset$NRM]: $WHT";
3102     $new_default_charset = <STDIN>;
3103     if ( $new_default_charset eq "\n" ) {
3104         $new_default_charset = $default_charset;
3105     } else {
3106         $new_default_charset =~ s/[\r\n]//g;
3107     }
3108     return $new_default_charset;