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