config/conf.pl

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