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