config/conf.pl

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