config/conf.pl

   1 #!/usr/bin/env perl
   2 # conf.pl
   3 #
   4 # Copyright (c) 1999-2003 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]|[A-Z])/ ) {
  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]|[A-Z])/ ) {
 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]|[A-Z])/ ) {
 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
 175         if ( $options[0] =~ /^theme\[[0-9]+\]\[['|"]PATH['|"]\]/ ) {
 176             $sub = $options[0];
 177             $sub =~ s/\]\[['|"]PATH['|"]\]//;
 178             $sub =~ s/.*\[//;
 179             if ( -e "../themes" ) {
 180                 $options[1] =~ s/^\.\.\/config/\.\.\/themes/;
 181             }
 182             $theme_path[$sub] = &change_to_rel_path($options[1]);
 183         } elsif ( $options[0] =~ /^theme\[[0-9]+\]\[['|"]NAME['|"]\]/ ) {
 184             $sub = $options[0];
 185             $sub =~ s/\]\[['|"]NAME['|"]\]//;
 186             $sub =~ s/.*\[//;
 187             $theme_name[$sub] = $options[1];
 188         } elsif ( $options[0] =~ /^plugins\[[0-9]+\]/ ) {
 189             $sub = $options[0];
 190             $sub =~ s/\]//;
 191             $sub =~ s/^plugins\[//;
 192             $plugins[$sub] = $options[1];
 193         } elsif ( $options[0] =~ /^ldap_server\[[0-9]+\]/ ) {
 194             $sub = $options[0];
 195             $sub =~ s/\]//;
 196             $sub =~ s/^ldap_server\[//;
 197             $continue = 0;
 198             while ( ( $tmp = <FILE> ) && ( $continue != 1 ) ) {
 199                 if ( $tmp =~ /\);\s*$/ ) {
 200                     $continue = 1;
 201                 }
 202
 203                 if ( $tmp =~ /^\s*[\'|\"]host[\'|\"]/i ) {
 204                     $tmp =~ s/^\s*[\'|\"]host[\'|\"]\s*=>\s*[\'|\"]//i;
 205                     $tmp =~ s/[\'|\"],?\s*$//;
 206                     $tmp =~ s/[\'|\"]\);\s*$//;
 207                     $host = $tmp;
 208                 } elsif ( $tmp =~ /^\s*[\'|\"]base[\'|\"]/i ) {
 209                     $tmp =~ s/^\s*[\'|\"]base[\'|\"]\s*=>\s*[\'|\"]//i;
 210                     $tmp =~ s/[\'|\"],?\s*$//;
 211                     $tmp =~ s/[\'|\"]\);\s*$//;
 212                     $base = $tmp;
 213                 } elsif ( $tmp =~ /^\s*[\'|\"]charset[\'|\"]/i ) {
 214                     $tmp =~ s/^\s*[\'|\"]charset[\'|\"]\s*=>\s*[\'|\"]//i;
 215                     $tmp =~ s/[\'|\"],?\s*$//;
 216                     $tmp =~ s/[\'|\"]\);\s*$//;
 217                     $charset = $tmp;
 218                 } elsif ( $tmp =~ /^\s*[\'|\"]port[\'|\"]/i ) {
 219                     $tmp =~ s/^\s*[\'|\"]port[\'|\"]\s*=>\s*[\'|\"]?//i;
 220                     $tmp =~ s/[\'|\"]?,?\s*$//;
 221                     $tmp =~ s/[\'|\"]?\);\s*$//;
 222                     $port = $tmp;
 223                 } elsif ( $tmp =~ /^\s*[\'|\"]maxrows[\'|\"]/i ) {
 224                     $tmp =~ s/^\s*[\'|\"]maxrows[\'|\"]\s*=>\s*[\'|\"]?//i;
 225                     $tmp =~ s/[\'|\"]?,?\s*$//;
 226                     $tmp =~ s/[\'|\"]?\);\s*$//;
 227                     $maxrows = $tmp;
 228                 } elsif ( $tmp =~ /^\s*[\'|\"]name[\'|\"]/i ) {
 229                     $tmp =~ s/^\s*[\'|\"]name[\'|\"]\s*=>\s*[\'|\"]//i;
 230                     $tmp =~ s/[\'|\"],?\s*$//;
 231                     $tmp =~ s/[\'|\"]\);\s*$//;
 232                     $name = $tmp;
 233                 } elsif ( $tmp =~ /^\s*[\'|\"]binddn[\'|\"]/i ) {
 234                     $tmp =~ s/^\s*[\'|\"]binddn[\'|\"]\s*=>\s*[\'|\"]//i;
 235                     $tmp =~ s/[\'|\"],?\s*$//;
 236                     $tmp =~ s/[\'|\"]\);\s*$//;
 237                     $binddn = $tmp;
 238                 } elsif ( $tmp =~ /^\s*[\'|\"]bindpw[\'|\"]/i ) {
 239                     $tmp =~ s/^\s*[\'|\"]bindpw[\'|\"]\s*=>\s*[\'|\"]//i;
 240                     $tmp =~ s/[\'|\"],?\s*$//;
 241                     $tmp =~ s/[\'|\"]\);\s*$//;
 242                     $bindpw = $tmp;
 243                 } elsif ( $tmp =~ /^\s*[\'|\"]protocol[\'|\"]/i ) {
 244                     $tmp =~ s/^\s*[\'|\"]protocol[\'|\"]\s*=>\s*[\'|\"]?//i;
 245                     $tmp =~ s/[\'|\"]?,?\s*$//;
 246                     $tmp =~ s/[\'|\"]?\);\s*$//;
 247                     $protocol = $tmp;
 248                 }
 249             }
 250             $ldap_host[$sub]    = $host;
 251             $ldap_base[$sub]    = $base;
 252             $ldap_name[$sub]    = $name;
 253             $ldap_port[$sub]    = $port;
 254             $ldap_maxrows[$sub] = $maxrows;
 255             $ldap_charset[$sub] = $charset;
 256             $ldap_binddn[$sub]  = $binddn;
 257             $ldap_bindpw[$sub]  = $bindpw;
 258             $ldap_protocol[$sub] = $protocol;
 259         } elsif ( $options[0] =~ /^(data_dir|attachment_dir|theme_css|org_logo|signout_page)$/ ) {
 260             ${ $options[0] } = &change_to_rel_path($options[1]);
 261         } else {
 262             ${ $options[0] } = $options[1];
 263         }
 264     }
 265 }
 266 close FILE;
 267 if ( lc($useSendmail) ne "true" ) {
 268     $useSendmail = "false";
 269 }
 270 if ( !$sendmail_path ) {
 271     $sendmail_path = "/usr/sbin/sendmail";
 272 }
 273 if ( !$pop_before_smtp ) {
 274     $pop_before_smtp = "false";
 275 }
 276 if ( !$default_unseen_notify ) {
 277     $default_unseen_notify = 2;
 278 }
 279 if ( !$default_unseen_type ) {
 280     $default_unseen_type = 1;
 281 }
 282 if ( !$config_use_color ) {
 283     $config_use_color = 0;
 284 }
 285 if ( !$invert_time ) {
 286     $invert_time = "false";
 287 }
 288 if ( !$force_username_lowercase ) {
 289     $force_username_lowercase = "false";
 290 }
 291 if ( !$optional_delimiter ) {
 292     $optional_delimiter = "detect";
 293 }
 294 if ( !$auto_create_special ) {
 295     $auto_create_special = "false";
 296 }
 297 if ( !$default_use_priority ) {
 298     $default_use_priority = "true";
 299 }
 300 if ( !$hide_sm_attributions ) {
 301     $hide_sm_attributions = "false";
 302 }
 303 if ( !$default_use_mdn ) {
 304     $default_use_mdn = "true";
 305 }
 306 if ( !$delete_folder ) {
 307     $delete_folder = "false";
 308 }
 309 if ( !$noselect_fix_enable ) {
 310     $noselect_fix_enable = "false";
 311 }
 312 if ( !$frame_top ) {
 313     $frame_top = "_top";
 314 }
 315
 316 if ( !$provider_uri ) {
 317     $provider_uri = "http://www.squirrelmail.org/";
 318 }
 319
 320 if ( !$provider_name ) {
 321     $provider_name = "SquirrelMail";
 322 }
 323
 324 if ( !$edit_identity ) {
 325     $edit_identity = "true";
 326 }
 327 if ( !$edit_name ) {
 328     $edit_name = "true";
 329 }
 330 if ( !$allow_thread_sort ) {
 331     $allow_thread_sort = 'false';
 332 }
 333 if ( !$allow_server_sort ) {
 334     $allow_server_sort = 'false';
 335 }
 336 if ( !$no_list_for_subscribe ) {
 337     $no_list_for_subscribe = 'false';
 338 }
 339 if ( !$allow_charset_search ) {
 340     $allow_charset_search = 'true';
 341 }
 342 if ( !$prefs_user_field ) {
 343     $prefs_user_field = 'user';
 344 }
 345 if ( !$prefs_key_field ) {
 346     $prefs_key_field = 'prefkey';
 347 }
 348 if ( !$addrbook_global_table ) {
 349     $addrbook_global_table = 'global_abook';
 350 }
 351 if ( !$addrbook_global_writeable ) {
 352     $addrbook_global_writeable = 'false';
 353 }
 354 if ( !$addrbook_global_listing ) {
 355     $addrbook_global_listing = 'false';
 356 }
 357 if ( !$prefs_val_field ) {
 358     $prefs_val_field = 'prefval';
 359 }
 360
 361 if ( !$use_smtp_tls) {
 362         $use_smtp_tls= 'false';
 363 }
 364
 365 if ( !$smtp_auth_mech ) {
 366         $smtp_auth_mech = 'none';
 367 }
 368
 369 if ( !$use_imap_tls ) {
 370     $use_imap_tls = 'false';
 371 }
 372
 373 if ( !$imap_auth_mech ) {
 374     $imap_auth_mech = 'login';
 375 }
 376
 377 if (!$session_name ) {
 378         $session_name = 'SQMSESSID';
 379 }
 380
 381 if (!$show_alternative_names ) {
 382         $show_alternative_names = 'false';
 383 }
 384
 385 if (!$available_languages ) {
 386         $available_languages = 'all';
 387 }
 388
 389 if (!$agresive_decoding ) {
 390         $agresive_decoding = 'false';
 391 }
 392
 393 if (!$advanced_tree ) {
 394         $advanced_tree = 'false';
 395 }
 396
 397 if (!$oldway ) {
 398         $oldway = 'false';
 399 }
 400
 401 if (!$use_php_recode ) {
 402         $use_php_recode = 'false';
 403 }
 404
 405 if (!$use_php_iconv ) {
 406         $use_php_iconv = 'false';
 407 }
 408
 409 if ( $ARGV[0] eq '--install-plugin' ) {
 410     print "Activating plugin " . $ARGV[1] . "\n";
 411     push @plugins, $ARGV[1];
 412     save_data();
 413     exit(0);
 414 } elsif ( $ARGV[0] eq '--remove-plugin' ) {
 415     print "Removing plugin " . $ARGV[1] . "\n";
 416     foreach $plugin (@plugins) {
 417         if ( $plugin ne $ARGV[1] ) {
 418             push @newplugins, $plugin;
 419         }
 420     }
 421     @plugins = @newplugins;
 422     save_data();
 423     exit(0);
 424 }
 425
 426 #####################################################################################
 427 if ( $config_use_color == 1 ) {
 428     $WHT = "\x1B[37;1m";
 429     $NRM = "\x1B[0m";
 430 } else {
 431     $WHT              = "";
 432     $NRM              = "";
 433     $config_use_color = 2;
 434 }
 435
 436 while ( ( $command ne "q" ) && ( $command ne "Q" ) ) {
 437     clear_screen();
 438     print $WHT. "SquirrelMail Configuration : " . $NRM;
 439     if    ( $config == 1 ) { print "Read: config.php"; }
 440     elsif ( $config == 2 ) { print "Read: config_default.php"; }
 441     print " ($print_config_version)\n";
 442     print "---------------------------------------------------------\n";
 443
 444     if ( $menu == 0 ) {
 445         print $WHT. "Main Menu --\n" . $NRM;
 446         print "1.  Organization Preferences\n";
 447         print "2.  Server Settings\n";
 448         print "3.  Folder Defaults\n";
 449         print "4.  General Options\n";
 450         print "5.  Themes\n";
 451         print "6.  Address Books (LDAP)\n";
 452         print "7.  Message of the Day (MOTD)\n";
 453         print "8.  Plugins\n";
 454         print "9.  Database\n";
 455         print "10. Language settings\n";
 456         print "11. Tweaks\n";
 457         print "\n";
 458         print "D.  Set pre-defined settings for specific IMAP servers\n";
 459         print "\n";
 460     } elsif ( $menu == 1 ) {
 461         print $WHT. "Organization Preferences\n" . $NRM;
 462         print "1.  Organization Name      : $WHT$org_name$NRM\n";
 463         print "2.  Organization Logo      : $WHT$org_logo$NRM\n";
 464         print "3.  Org. Logo Width/Height : $WHT($org_logo_width/$org_logo_height)$NRM\n";
 465         print "4.  Organization Title     : $WHT$org_title$NRM\n";
 466         print "5.  Signout Page           : $WHT$signout_page$NRM\n";
 467         print "6.  Top Frame              : $WHT$frame_top$NRM\n";
 468         print "7.  Provider link          : $WHT$provider_uri$NRM\n";
 469         print "8.  Provider name          : $WHT$provider_name$NRM\n";
 470
 471         print "\n";
 472         print "R   Return to Main Menu\n";
 473     } elsif ( $menu == 2 ) {
 474         print $WHT. "Server Settings\n\n" . $NRM;
 475         print $WHT . "General" . $NRM . "\n";
 476         print "-------\n";
 477         print "1.  Domain                 : $WHT$domain$NRM\n";
 478         print "2.  Invert Time            : $WHT$invert_time$NRM\n";
 479         print "3.  Sendmail or SMTP       : $WHT";
 480         if ( lc($useSendmail) eq "true" ) {
 481             print "Sendmail";
 482         } else {
 483             print "SMTP";
 484         }
 485         print "$NRM\n";
 486         print "\n";
 487
 488         if ( $show_imap_settings ) {
 489           print $WHT . "IMAP Settings". $NRM . "\n--------------\n";
 490           print "4.  IMAP Server            : $WHT$imapServerAddress$NRM\n";
 491           print "5.  IMAP Port              : $WHT$imapPort$NRM\n";
 492           print "6.  Authentication type    : $WHT$imap_auth_mech$NRM\n";
 493           print "7.  Secure IMAP (TLS)      : $WHT$use_imap_tls$NRM\n";
 494           print "8.  Server software        : $WHT$imap_server_type$NRM\n";
 495           print "9.  Delimiter              : $WHT$optional_delimiter$NRM\n";
 496           print "\n";
 497         } elsif ( $show_smtp_settings ) {
 498           if ( lc($useSendmail) eq "true" ) {
 499             print $WHT . "Sendmail" . $NRM . "\n--------\n";
 500             print "4.   Sendmail Path         : $WHT$sendmail_path$NRM\n";
 501             print "\n";
 502           } else {
 503             print $WHT . "SMTP Settings" . $NRM . "\n-------------\n";
 504             print "4.   SMTP Server           : $WHT$smtpServerAddress$NRM\n";
 505             print "5.   SMTP Port             : $WHT$smtpPort$NRM\n";
 506             print "6.   POP before SMTP       : $WHT$pop_before_smtp$NRM\n";
 507             print "7.   SMTP Authentication   : $WHT$smtp_auth_mech$NRM\n";
 508             print "8.   Secure SMTP (TLS)     : $WHT$use_smtp_tls$NRM\n";
 509             print "\n";
 510           }
 511         }
 512
 513         if ($show_imap_settings == 0) {
 514           print "A.  Update IMAP Settings   : ";
 515           print "$WHT$imapServerAddress$NRM:";
 516           print "$WHT$imapPort$NRM ";
 517           print "($WHT$imap_server_type$NRM)\n";
 518         }
 519         if ($show_smtp_settings == 0) {
 520           if ( lc($useSendmail) eq "true" ) {
 521             print "B.  Change Sendmail Config : $WHT$sendmail_path$NRM\n";
 522           } else {
 523             print "B.  Update SMTP Settings   : ";
 524             print "$WHT$smtpServerAddress$NRM:";
 525             print "$WHT$smtpPort$NRM\n";
 526           }
 527         }
 528         if ( $show_smtp_settings || $show_imap_settings )
 529         {
 530           print "H.  Hide " .
 531                 ($show_imap_settings ? "IMAP Server" :
 532                   (lc($useSendmail) eq "true") ? "Sendmail" : "SMTP") . " Settings\n";
 533         }
 534
 535         print "\n";
 536         print "R   Return to Main Menu\n";
 537     } elsif ( $menu == 3 ) {
 538         print $WHT. "Folder Defaults\n" . $NRM;
 539         print "1.  Default Folder Prefix         : $WHT$default_folder_prefix$NRM\n";
 540         print "2.  Show Folder Prefix Option     : $WHT$show_prefix_option$NRM\n";
 541         print "3.  Trash Folder                  : $WHT$trash_folder$NRM\n";
 542         print "4.  Sent Folder                   : $WHT$sent_folder$NRM\n";
 543         print "5.  Drafts Folder                 : $WHT$draft_folder$NRM\n";
 544         print "6.  By default, move to trash     : $WHT$default_move_to_trash$NRM\n";
 545         print "7.  By default, move to sent      : $WHT$default_move_to_sent$NRM\n";
 546         print "8.  By default, save as draft     : $WHT$default_save_as_draft$NRM\n";
 547         print "9.  List Special Folders First    : $WHT$list_special_folders_first$NRM\n";
 548         print "10. Show Special Folders Color    : $WHT$use_special_folder_color$NRM\n";
 549         print "11. Auto Expunge                  : $WHT$auto_expunge$NRM\n";
 550         print "12. Default Sub. of INBOX         : $WHT$default_sub_of_inbox$NRM\n";
 551         print "13. Show 'Contain Sub.' Option    : $WHT$show_contain_subfolders_option$NRM\n";
 552         print "14. Default Unseen Notify         : $WHT$default_unseen_notify$NRM\n";
 553         print "15. Default Unseen Type           : $WHT$default_unseen_type$NRM\n";
 554         print "16. Auto Create Special Folders   : $WHT$auto_create_special$NRM\n";
 555         print "17. Folder Delete Bypasses Trash  : $WHT$delete_folder$NRM\n";
 556         print "18. Enable /NoSelect folder fix   : $WHT$noselect_fix_enable$NRM\n";
 557         print "\n";
 558         print "R   Return to Main Menu\n";
 559     } elsif ( $menu == 4 ) {
 560         print $WHT. "General Options\n" . $NRM;
 561         print "1.  Data Directory              : $WHT$data_dir$NRM\n";
 562         print "2.  Attachment Directory        : $WHT$attachment_dir$NRM\n";
 563         print "3.  Directory Hash Level        : $WHT$dir_hash_level$NRM\n";
 564         print "4.  Default Left Size           : $WHT$default_left_size$NRM\n";
 565         print "5.  Usernames in Lowercase      : $WHT$force_username_lowercase$NRM\n";
 566         print "6.  Allow use of priority       : $WHT$default_use_priority$NRM\n";
 567         print "7.  Hide SM attributions        : $WHT$hide_sm_attributions$NRM\n";
 568         print "8.  Allow use of receipts       : $WHT$default_use_mdn$NRM\n";
 569         print "9. Allow editing of identity   : $WHT$edit_identity$NRM/$WHT$edit_name$NRM\n";
 570         print "10. Allow server thread sort    : $WHT$allow_thread_sort$NRM\n";
 571         print "11. Allow server-side sorting   : $WHT$allow_server_sort$NRM\n";
 572         print "12. Allow server charset search : $WHT$allow_charset_search$NRM\n";
 573         print "13. PHP session name            : $WHT$session_name$NRM\n";
 574         print "\n";
 575         print "R   Return to Main Menu\n";
 576     } elsif ( $menu == 5 ) {
 577         print $WHT. "Themes\n" . $NRM;
 578         print "1.  Change Themes\n";
 579         for ( $count = 0 ; $count <= $#theme_name/2 ; $count++ ) {
 580             $temp_name = $theme_name[$count*2];
 581             printf "     %s%*s    %s\n", $temp_name,
 582                    40 - length($temp_name), " ",
 583                    $theme_name[($count*2)+1];
 584         }
 585         print "2.  CSS File : $WHT$theme_css$NRM\n";
 586         print "\n";
 587         print "R   Return to Main Menu\n";
 588     } elsif ( $menu == 6 ) {
 589         print $WHT. "Address Books (LDAP)\n" . $NRM;
 590         print "1.  Change Servers\n";
 591         for ( $count = 0 ; $count <= $#ldap_host ; $count++ ) {
 592             print "    >  $ldap_host[$count]\n";
 593         }
 594         print
 595           "2.  Use Javascript Address Book Search  : $WHT$default_use_javascript_addr_book$NRM\n";
 596         print "\n";
 597         print "R   Return to Main Menu\n";
 598     } elsif ( $menu == 7 ) {
 599         print $WHT. "Message of the Day (MOTD)\n" . $NRM;
 600         print "\n$motd\n";
 601         print "\n";
 602         print "1   Edit the MOTD\n";
 603         print "\n";
 604         print "R   Return to Main Menu\n";
 605     } elsif ( $menu == 8 ) {
 606         print $WHT. "Plugins\n" . $NRM;
 607         print "  Installed Plugins\n";
 608         $num = 0;
 609         for ( $count = 0 ; $count <= $#plugins ; $count++ ) {
 610             $num = $count + 1;
 611             print "    $num. $plugins[$count]\n";
 612         }
 613         print "\n  Available Plugins:\n";
 614         opendir( DIR, "../plugins" );
 615         @files          = readdir(DIR);
 616         $pos            = 0;
 617         @unused_plugins = ();
 618         for ( $i = 0 ; $i <= $#files ; $i++ ) {
 619             if ( -d "../plugins/" . $files[$i] && $files[$i] !~ /^\./ && $files[$i] ne "CVS" ) {
 620                 $match = 0;
 621                 for ( $k = 0 ; $k <= $#plugins ; $k++ ) {
 622                     if ( $plugins[$k] eq $files[$i] ) {
 623                         $match = 1;
 624                     }
 625                 }
 626                 if ( $match == 0 ) {
 627                     $unused_plugins[$pos] = $files[$i];
 628                     $pos++;
 629                 }
 630             }
 631         }
 632
 633         for ( $i = 0 ; $i <= $#unused_plugins ; $i++ ) {
 634             $num = $num + 1;
 635             print "    $num. $unused_plugins[$i]\n";
 636         }
 637         closedir DIR;
 638
 639         print "\n";
 640         print "R   Return to Main Menu\n";
 641     } elsif ( $menu == 9 ) {
 642         print $WHT. "Database\n" . $NRM;
 643         print "1.  DSN for Address Book   : $WHT$addrbook_dsn$NRM\n";
 644         print "2.  Table for Address Book : $WHT$addrbook_table$NRM\n";
 645         print "\n";
 646         print "3.  DSN for Preferences    : $WHT$prefs_dsn$NRM\n";
 647         print "4.  Table for Preferences  : $WHT$prefs_table$NRM\n";
 648         print "5.  Field for username     : $WHT$prefs_user_field$NRM\n";
 649         print "6.  Field for prefs key    : $WHT$prefs_key_field$NRM\n";
 650         print "7.  Field for prefs value  : $WHT$prefs_val_field$NRM\n";
 651         print "\n";
 652         print "8.  DSN for Global Address Book            : $WHT$addrbook_global_dsn$NRM\n";
 653         print "9.  Table for Global Address Book          : $WHT$addrbook_global_table$NRM\n";
 654         print "10. Allow writing into Global Address Book : $WHT$addrbook_global_writeable$NRM\n";
 655         print "11. Allow listing of Global Address Book   : $WHT$addrbook_global_listing$NRM\n";
 656         print "\n";
 657         print "R   Return to Main Menu\n";
 658     } elsif ( $menu == 10 ) {
 659         print $WHT. "Language settings\n" . $NRM;
 660         print "1.  Default Language                : $WHT$squirrelmail_default_language$NRM\n";
 661         print "2.  Default Charset                 : $WHT$default_charset$NRM\n";
 662         print "3.  Show alternative language names : $WHT$show_alternative_names$NRM\n";
 663         print "4.  Available languages             : $WHT$available_languages$NRM\n";
 664         print "5.  Use agresive decoding           : $WHT$agresive_decoding$NRM\n";
 665         print "\n";
 666         print "R   Return to Main Menu\n";
 667     } elsif ( $menu == 11 ) {
 668         print $WHT. "Interface tweaks\n" . $NRM;
 669         print "1.  Advanced tree            : $WHT$advanced_tree$NRM\n";
 670         print "2.  Oldway                   : $WHT$oldway$NRM\n";
 671         print "\n";
 672         print $WHT. "PHP tweaks\n" . $NRM;
 673         print "3.  Use php recode functions : $WHT$use_php_recode$NRM\n";
 674         print "4.  Use php iconv functions  : $WHT$use_php_iconv$NRM\n";
 675         print "\n";
 676         print "R   Return to Main Menu\n";
 677     }
 678     if ( $config_use_color == 1 ) {
 679         print "C.  Turn color off\n";
 680     } else {
 681         print "C.  Turn color on\n";
 682     }
 683     print "S   Save data\n";
 684     print "Q   Quit\n";
 685
 686     print "\n";
 687     print "Command >> " . $WHT;
 688     $command = <STDIN>;
 689     $command =~ s/[\n|\r]//g;
 690     $command =~ tr/A-Z/a-z/;
 691     print "$NRM\n";
 692
 693     # Read the commands they entered.
 694     if ( $command eq "r" ) {
 695         $menu = 0;
 696     } elsif ( $command eq "s" ) {
 697         save_data();
 698         print "Press enter to continue...";
 699         $tmp   = <STDIN>;
 700         $saved = 1;
 701     } elsif ( ( $command eq "q" ) && ( $saved == 0 ) ) {
 702         print "You have not saved your data.\n";
 703         print "Save?  [" . $WHT . "Y" . $NRM . "/n]: ";
 704         $save = <STDIN>;
 705         if ( ( $save =~ /^y/i ) || ( $save =~ /^\s*$/ ) ) {
 706             save_data();
 707         }
 708     } elsif ( $command eq "c" ) {
 709         if ( $config_use_color == 1 ) {
 710             $config_use_color = 2;
 711             $WHT              = "";
 712             $NRM              = "";
 713         } else {
 714             $config_use_color = 1;
 715             $WHT              = "\x1B[37;1m";
 716             $NRM              = "\x1B[0m";
 717         }
 718     } elsif ( $command eq "d" && $menu == 0 ) {
 719         set_defaults();
 720     } else {
 721         $saved = 0;
 722         if ( $menu == 0 ) {
 723             if ( ( $command > 0 ) && ( $command < 12 ) ) {
 724                 $menu = $command;
 725             }
 726         } elsif ( $menu == 1 ) {
 727             if    ( $command == 1 ) { $org_name                      = command1(); }
 728             elsif ( $command == 2 ) { $org_logo                      = command2(); }
 729             elsif ( $command == 3 ) { ($org_logo_width,$org_logo_height)  = command2a(); }
 730             elsif ( $command == 4 ) { $org_title                     = command3(); }
 731             elsif ( $command == 5 ) { $signout_page                  = command4(); }
 732             elsif ( $command == 6 ) { $frame_top                     = command6(); }
 733             elsif ( $command == 7 ) { $provider_uri                  = command7(); }
 734             elsif ( $command == 8 ) { $provider_name                 = command8(); }
 735
 736         } elsif ( $menu == 2 ) {
 737             if ( $command eq "a" )    { $show_imap_settings = 1; $show_smtp_settings = 0; }
 738             elsif ( $command eq "b" ) { $show_imap_settings = 0; $show_smtp_settings = 1; }
 739             elsif ( $command eq "h" ) { $show_imap_settings = 0; $show_smtp_settings = 0; }
 740             elsif ( $command <= 3 ) {
 741               if    ( $command == 1 )  { $domain                 = command11(); }
 742               elsif ( $command == 2 )  { $invert_time            = command110(); }
 743               elsif ( $command == 3 )  { $useSendmail            = command14(); }
 744               $show_imap_settings = 0; $show_smtp_settings = 0;
 745             } elsif ( $show_imap_settings ) {
 746               if    ( $command == 4 )  { $imapServerAddress      = command12(); }
 747               elsif ( $command == 5 )  { $imapPort               = command13(); }
 748               elsif ( $command == 6 )  { $imap_auth_mech     = command112a(); }
 749               elsif ( $command == 7 )  { $use_imap_tls       = command113("IMAP",$use_imap_tls); }
 750               elsif ( $command == 8 )  { $imap_server_type       = command19(); }
 751               elsif ( $command == 9 )  { $optional_delimiter     = command111(); }
 752             } elsif ( $show_smtp_settings && lc($useSendmail) eq "true" ) {
 753               if ( $command == 4 )  { $sendmail_path          = command15(); }
 754             } elsif ( $show_smtp_settings ) {
 755               if    ( $command == 4 )  { $smtpServerAddress      = command16(); }
 756               elsif ( $command == 5 )  { $smtpPort               = command17(); }
 757               elsif ( $command == 6 )  { $pop_before_smtp        = command18a(); }
 758               elsif ( $command == 7 )  { $smtp_auth_mech    = command112b(); }
 759               elsif ( $command == 8 )  { $use_smtp_tls      = command113("SMTP",$use_smtp_tls); }
 760             }
 761         } elsif ( $menu == 3 ) {
 762             if    ( $command == 1 )  { $default_folder_prefix          = command21(); }
 763             elsif ( $command == 2 )  { $show_prefix_option             = command22(); }
 764             elsif ( $command == 3 )  { $trash_folder                   = command23a(); }
 765             elsif ( $command == 4 )  { $sent_folder                    = command23b(); }
 766             elsif ( $command == 5 )  { $draft_folder                   = command23c(); }
 767             elsif ( $command == 6 )  { $default_move_to_trash          = command24a(); }
 768             elsif ( $command == 7 )  { $default_move_to_sent           = command24b(); }
 769             elsif ( $command == 8 )  { $default_save_as_draft          = command24c(); }
 770             elsif ( $command == 9 )  { $list_special_folders_first     = command27(); }
 771             elsif ( $command == 10 ) { $use_special_folder_color       = command28(); }
 772             elsif ( $command == 11 ) { $auto_expunge                   = command29(); }
 773             elsif ( $command == 12 ) { $default_sub_of_inbox           = command210(); }
 774             elsif ( $command == 13 ) { $show_contain_subfolders_option = command211(); }
 775             elsif ( $command == 14 ) { $default_unseen_notify          = command212(); }
 776             elsif ( $command == 15 ) { $default_unseen_type            = command213(); }
 777             elsif ( $command == 16 ) { $auto_create_special            = command214(); }
 778             elsif ( $command == 17 ) { $delete_folder                  = command215(); }
 779             elsif ( $command == 18 ) { $noselect_fix_enable            = command216(); }
 780         } elsif ( $menu == 4 ) {
 781             if    ( $command == 1 )  { $data_dir                 = command33a(); }
 782             elsif ( $command == 2 )  { $attachment_dir           = command33b(); }
 783             elsif ( $command == 3 )  { $dir_hash_level           = command33c(); }
 784             elsif ( $command == 4 )  { $default_left_size        = command35(); }
 785             elsif ( $command == 5 )  { $force_username_lowercase = command36(); }
 786             elsif ( $command == 6 )  { $default_use_priority     = command37(); }
 787             elsif ( $command == 7 )  { $hide_sm_attributions     = command38(); }
 788             elsif ( $command == 8 )  { $default_use_mdn          = command39(); }
 789             elsif ( $command == 9 ) { $edit_identity            = command310(); }
 790             elsif ( $command == 10 ) { $allow_thread_sort        = command312(); }
 791             elsif ( $command == 11 ) { $allow_server_sort        = command313(); }
 792             elsif ( $command == 12 ) { $allow_charset_search     = command314(); }
 793                         elsif ( $command == 13 ) { $session_name             = command316(); }
 794         } elsif ( $menu == 5 ) {
 795             if ( $command == 1 ) { command41(); }
 796             elsif ( $command == 2 ) { $theme_css = command42(); }
 797         } elsif ( $menu == 6 ) {
 798             if    ( $command == 1 ) { command61(); }
 799             elsif ( $command == 2 ) { command62(); }
 800         } elsif ( $menu == 7 ) {
 801             if ( $command == 1 ) { $motd = command71(); }
 802         } elsif ( $menu == 8 ) {
 803             if ( $command =~ /^[0-9]+/ ) { @plugins = command81(); }
 804         } elsif ( $menu == 9 ) {
 805             if    ( $command == 1 ) { $addrbook_dsn     = command91(); }
 806             elsif ( $command == 2 ) { $addrbook_table   = command92(); }
 807             elsif ( $command == 3 ) { $prefs_dsn        = command93(); }
 808             elsif ( $command == 4 ) { $prefs_table      = command94(); }
 809             elsif ( $command == 5 ) { $prefs_user_field = command95(); }
 810             elsif ( $command == 6 ) { $prefs_key_field  = command96(); }
 811             elsif ( $command == 7 ) { $prefs_val_field  = command97(); }
 812             elsif ( $command == 8 ) { $addrbook_global_dsn       = command98(); }
 813             elsif ( $command == 9 ) { $addrbook_global_table     = command99(); }
 814             elsif ( $command == 10 ) { $addrbook_global_writeable = command910(); }
 815             elsif ( $command == 11 ) { $addrbook_global_listing  = command911(); }
 816         } elsif ( $menu == 10 ) {
 817             if    ( $command == 1 ) { $squirrelmail_default_language = commandA1(); }
 818             elsif ( $command == 2 ) { $default_charset               = commandA2(); }
 819             elsif ( $command == 3 ) { $show_alternative_names        = commandA3(); }
 820             elsif ( $command == 4 ) { $available_languages           = commandA4(); }
 821             elsif ( $command == 5 ) { $agresive_decoding             = commandA5(); }
 822         } elsif ( $menu == 11 ) {
 823             if    ( $command == 1 ) { $advanced_tree  = commandB1(); }
 824             elsif ( $command == 2 ) { $oldway         = commandB2(); }
 825             elsif ( $command == 3 ) { $use_php_recode = commandB3(); }
 826             elsif ( $command == 4 ) { $use_php_iconv  = commandB4(); }
 827         }
 828     }
 829 }
 830
 831 ####################################################################################
 832
 833 # org_name
 834 sub command1 {
 835     print "We have tried to make the name SquirrelMail as transparent as\n";
 836     print "possible.  If you set up an organization name, most places where\n";
 837     print "SquirrelMail would take credit will be credited to your organization.\n";
 838     print "\n";
 839     print "If your Organization Name includes a '\$', please precede it with a \\. \n";
 840     print "Other '\$' will be considered the beginning of a variable that\n";
 841     print "must be defined before the \$org_name is printed.\n";
 842     print "\$version, for example, is included by default, and will print the\n";
 843     print "string representing the current SquirrelMail version.\n";
 844     print "\n";
 845     print "[$WHT$org_name$NRM]: $WHT";
 846     $new_org_name = <STDIN>;
 847     if ( $new_org_name eq "\n" ) {
 848         $new_org_name = $org_name;
 849     } else {
 850         $new_org_name =~ s/[\r|\n]//g;
 851         $new_org_name =~ s/\"/&quot;/g;
 852     }
 853     return $new_org_name;
 854 }
 855
 856 # org_logo
 857 sub command2 {
 858     print "Your organization's logo is an image that will be displayed at\n";
 859     print "different times throughout SquirrelMail. ";
 860     print "\n";
 861     print "Please be aware of the following: \n";
 862     print "  - Relative URLs are relative to the config dir\n";
 863     print "    to use the default logo, use ../images/sm_logo.png\n";
 864     print "  - To specify a logo defined outside the SquirrelMail source tree\n";
 865     print "    use the absolute URL the webserver would use to include the file\n";
 866     print "    e.g. http://some.host.com/images/mylogo.gif or /images/mylogo.jpg\n";
 867     print "\n";
 868     print "[$WHT$org_logo$NRM]: $WHT";
 869     $new_org_logo = <STDIN>;
 870     if ( $new_org_logo eq "\n" ) {
 871         $new_org_logo = $org_logo;
 872     } else {
 873         $new_org_logo =~ s/[\r|\n]//g;
 874     }
 875     return $new_org_logo;
 876 }
 877
 878 # org_logo_width
 879 sub command2a {
 880     print "Your organization's logo is an image that will be displayed at\n";
 881     print "different times throughout SquirrelMail.  Width\n";
 882     print "and Height of your logo image.  Use '0' to disable.\n";
 883     print "\n";
 884     print "Width: [$WHT$org_logo_width$NRM]: $WHT";
 885     $new_org_logo_width = <STDIN>;
 886     $new_org_logo_width =~ tr/0-9//cd;  # only want digits!
 887     if ( $new_org_logo_width eq '' ) {
 888         $new_org_logo_width = $org_logo_width;
 889     }
 890     if ( $new_org_logo_width > 0 ) {
 891         print "Height: [$WHT$org_logo_height$NRM]: $WHT";
 892         $new_org_logo_height = <STDIN>;
 893         $new_org_logo_height =~ tr/0-9//cd;  # only want digits!
 894         if( $new_org_logo_height eq '' ) {
 895                 $new_org_logo_height = $org_logo_height;
 896         }
 897     } else {
 898         $new_org_logo_height = 0;
 899     }
 900     return ($new_org_logo_width, $new_org_logo_height);
 901 }
 902
 903 # org_title
 904 sub command3 {
 905     print "A title is what is displayed at the top of the browser window in\n";
 906     print "the titlebar.  Usually this will end up looking something like:\n";
 907     print "\"Netscape: $org_title\"\n";
 908     print "\n";
 909     print "If your Organization Title includes a '\$', please precede it with a \\. \n";
 910     print "Other '\$' will be considered the beginning of a variable that\n";
 911     print "must be defined before the \$org_title is printed.\n";
 912     print "\$version, for example, is included by default, and will print the\n";
 913     print "string representing the current SquirrelMail version.\n";
 914     print "\n";
 915     print "[$WHT$org_title$NRM]: $WHT";
 916     $new_org_title = <STDIN>;
 917     if ( $new_org_title eq "\n" ) {
 918         $new_org_title = $org_title;
 919     } else {
 920         $new_org_title =~ s/[\r|\n]//g;
 921         $new_org_title =~ s/\"/\'/g;
 922     }
 923     return $new_org_title;
 924 }
 925
 926 # signout_page
 927 sub command4 {
 928     print "When users click the Sign Out button they will be logged out and\n";
 929     print "then sent to signout_page.  If signout_page is left empty,\n";
 930     print "(hit space and then return) they will be taken, as normal,\n";
 931     print "to the default and rather sparse SquirrelMail signout page.\n";
 932     print "\n";
 933     print "[$WHT$signout_page$NRM]: $WHT";
 934     $new_signout_page = <STDIN>;
 935     if ( $new_signout_page eq "\n" ) {
 936         $new_signout_page = $signout_page;
 937     } else {
 938         $new_signout_page =~ s/[\r|\n]//g;
 939         $new_signout_page =~ s/^\s+$//g;
 940     }
 941     return $new_signout_page;
 942 }
 943
 944 # Default top frame
 945 sub command6 {
 946     print "SquirrelMail defaults to using the whole of the browser window.\n";
 947     print "This allows you to keep it within a specified frame. The default\n";
 948     print "is '_top'\n";
 949     print "\n";
 950     print "[$WHT$frame_top$NRM]: $WHT";
 951     $new_frame_top = <STDIN>;
 952     if ( $new_frame_top eq "\n" ) {
 953         $new_frame_top = '_top';
 954     } else {
 955         $new_frame_top =~ s/[\r|\n]//g;
 956         $new_frame_top =~ s/^\s+$//g;
 957     }
 958     return $new_frame_top;
 959 }
 960
 961 # Default link to provider
 962 sub command7 {
 963     print "Here you can set the link on the right of the page.\n";
 964     print "The default is 'http://www.squirrelmail.org/'\n";
 965     print "\n";
 966     print "[$WHT$provider_uri$NRM]: $WHT";
 967     $new_provider_uri = <STDIN>;
 968     if ( $new_provider_uri eq "\n" ) {
 969         $new_provider_uri = 'http://www.squirrelmail.org/';
 970     } else {
 971         $new_provider_uri =~ s/[\r|\n]//g;
 972         $new_provider_uri =~ s/^\s+$//g;
 973     }
 974     return $new_provider_uri;
 975 }
 976
 977 sub command8 {
 978     print "Here you can set the name of the link on the right of the page.\n";
 979     print "The default is 'SquirrelMail/'\n";
 980     print "\n";
 981     print "[$WHT$provider_name$NRM]: $WHT";
 982     $new_provider_name = <STDIN>;
 983     if ( $new_provider_name eq "\n" ) {
 984         $new_provider_name = 'SquirrelMail';
 985     } else {
 986         $new_provider_name =~ s/[\r|\n]//g;
 987         $new_provider_name =~ s/^\s+$//g;
 988     }
 989     return $new_provider_name;
 990 }
 991
 992 ####################################################################################
 993
 994 # domain
 995 sub command11 {
 996     print "The domain name is the suffix at the end of all email addresses.  If\n";
 997     print "for example, your email address is jdoe\@myorg.com, then your domain\n";
 998     print "would be myorg.com.\n";
 999     print "\n";
1000     print "[$WHT$domain$NRM]: $WHT";
1001     $new_domain = <STDIN>;
1002     if ( $new_domain eq "\n" ) {
1003         $new_domain = $domain;
1004     } else {
1005         $new_domain =~ s/[\r|\n]//g;
1006     }
1007     return $new_domain;
1008 }
1009
1010 # imapServerAddress
1011 sub command12 {
1012     print "This is the hostname where your IMAP server can be contacted.\n";
1013     print "[$WHT$imapServerAddress$NRM]: $WHT";
1014     $new_imapServerAddress = <STDIN>;
1015     if ( $new_imapServerAddress eq "\n" ) {
1016         $new_imapServerAddress = $imapServerAddress;
1017     } else {
1018         $new_imapServerAddress =~ s/[\r|\n]//g;
1019     }
1020     return $new_imapServerAddress;
1021 }
1022
1023 # imapPort
1024 sub command13 {
1025     print "This is the port that your IMAP server is on.  Usually this is 143.\n";
1026     print "[$WHT$imapPort$NRM]: $WHT";
1027     $new_imapPort = <STDIN>;
1028     if ( $new_imapPort eq "\n" ) {
1029         $new_imapPort = $imapPort;
1030     } else {
1031         $new_imapPort =~ s/[\r|\n]//g;
1032     }
1033     return $new_imapPort;
1034 }
1035
1036 # useSendmail
1037 sub command14 {
1038     print "You now need to choose the method that you will use for sending\n";
1039     print "messages in SquirrelMail.  You can either connect to an SMTP server\n";
1040     print "or use sendmail directly.\n";
1041     if ( lc($useSendmail) eq "true" ) {
1042         $default_value = "1";
1043     } else {
1044         $default_value = "2";
1045     }
1046     print "\n";
1047     print "  1.  Sendmail\n";
1048     print "  2.  SMTP\n";
1049     print "Your choice [1/2] [$WHT$default_value$NRM]: $WHT";
1050     $use_sendmail = <STDIN>;
1051     if ( ( $use_sendmail =~ /^1\n/i )
1052         || ( ( $use_sendmail =~ /^\n/ ) && ( $default_value eq "1" ) ) ) {
1053         $useSendmail = "true";
1054         } else {
1055         $useSendmail = "false";
1056         }
1057     return $useSendmail;
1058 }
1059
1060 # sendmail_path
1061 sub command15 {
1062     if ( $sendmail_path[0] !~ /./ ) {
1063         $sendmail_path = "/usr/sbin/sendmail";
1064     }
1065     print "Specify where the sendmail executable is located.  Usually /usr/sbin/sendmail\n";
1066     print "[$WHT$sendmail_path$NRM]: $WHT";
1067     $new_sendmail_path = <STDIN>;
1068     if ( $new_sendmail_path eq "\n" ) {
1069         $new_sendmail_path = $sendmail_path;
1070     } else {
1071         $new_sendmail_path =~ s/[\r|\n]//g;
1072     }
1073     return $new_sendmail_path;
1074 }
1075
1076 # smtpServerAddress
1077 sub command16 {
1078     print "This is the hostname of your SMTP server.\n";
1079     print "[$WHT$smtpServerAddress$NRM]: $WHT";
1080     $new_smtpServerAddress = <STDIN>;
1081     if ( $new_smtpServerAddress eq "\n" ) {
1082         $new_smtpServerAddress = $smtpServerAddress;
1083     } else {
1084         $new_smtpServerAddress =~ s/[\r|\n]//g;
1085     }
1086     return $new_smtpServerAddress;
1087 }
1088
1089 # smtpPort
1090 sub command17 {
1091     print "This is the port to connect to for SMTP.  Usually 25.\n";
1092     print "[$WHT$smtpPort$NRM]: $WHT";
1093     $new_smtpPort = <STDIN>;
1094     if ( $new_smtpPort eq "\n" ) {
1095         $new_smtpPort = $smtpPort;
1096     } else {
1097         $new_smtpPort =~ s/[\r|\n]//g;
1098     }
1099     return $new_smtpPort;
1100 }
1101
1102 # authenticated server
1103 sub command18 {
1104     return;
1105         # This sub disabled by tassium - it has been replaced with smtp_auth_mech
1106     print "Do you wish to use an authenticated SMTP server?  Your server must\n";
1107     print "support this in order for SquirrelMail to work with it.  We implemented\n";
1108     print "it according to RFC 2554.\n";
1109
1110     $YesNo = 'n';
1111     $YesNo = 'y' if ( lc($use_authenticated_smtp) eq "true" );
1112
1113     print "Use authenticated SMTP server (y/n) [$WHT$YesNo$NRM]: $WHT";
1114
1115     $new_use_authenticated_smtp = <STDIN>;
1116     $new_use_authenticated_smtp =~ tr/yn//cd;
1117     return "true"  if ( $new_use_authenticated_smtp eq "y" );
1118     return "false" if ( $new_use_authenticated_smtp eq "n" );
1119     return $use_authenticated_smtp;
1120 }
1121
1122 # pop before SMTP
1123 sub command18a {
1124     print "Do you wish to use POP3 before SMTP?  Your server must\n";
1125     print "support this in order for SquirrelMail to work with it.\n";
1126
1127     $YesNo = 'n';
1128     $YesNo = 'y' if ( lc($pop_before_smtp) eq "true" );
1129
1130     print "Use pop before SMTP (y/n) [$WHT$YesNo$NRM]: $WHT";
1131
1132     $new_pop_before_smtp = <STDIN>;
1133     $new_pop_before_smtp =~ tr/yn//cd;
1134     return "true"  if ( $new_pop_before_smtp eq "y" );
1135     return "false"  if ( $new_pop_before_smtp eq "n" );
1136     return $pop_before_smtp;
1137 }
1138
1139 # imap_server_type
1140 sub command19 {
1141     print "Each IMAP server has its own quirks.  As much as we tried to stick\n";
1142     print "to standards, it doesn't help much if the IMAP server doesn't follow\n";
1143     print "the same principles.  We have made some work-arounds for some of\n";
1144     print "these servers.  If you would like to use them, please select your\n";
1145     print "IMAP server.  If you do not wish to use these work-arounds, you can\n";
1146     print "set this to \"other\", and none will be used.\n";
1147     print "    cyrus      = Cyrus IMAP server\n";
1148     print "    uw         = University of Washington's IMAP server\n";
1149     print "    exchange   = Microsoft Exchange IMAP server\n";
1150     print "    courier    = Courier IMAP server\n";
1151     print "    macosx     = Mac OS X Mailserver\n";
1152     print "    other      = Not one of the above servers\n";
1153     print "[$WHT$imap_server_type$NRM]: $WHT";
1154     $new_imap_server_type = <STDIN>;
1155
1156     if ( $new_imap_server_type eq "\n" ) {
1157         $new_imap_server_type = $imap_server_type;
1158     } else {
1159         $new_imap_server_type =~ s/[\r|\n]//g;
1160     }
1161     return $new_imap_server_type;
1162 }
1163
1164 # invert_time
1165 sub command110 {
1166     print "Sometimes the date of messages sent is messed up (off by a few hours\n";
1167     print "on some machines).  Typically this happens if the system doesn't support\n";
1168     print "tm_gmtoff.  It will happen only if your time zone is \"negative\".\n";
1169     print "This most often occurs on Solaris 7 machines in the United States.\n";
1170     print "By default, this is off.  It should be kept off unless problems surface\n";
1171     print "about the time that messages are sent.\n";
1172     print "    no  = Do NOT fix time -- almost always correct\n";
1173     print "    yes = Fix the time for this system\n";
1174
1175     $YesNo = 'n';
1176     $YesNo = 'y' if ( lc($invert_time) eq "true" );
1177
1178     print "Fix the time for this system (y/n) [$WHT$YesNo$NRM]: $WHT";
1179
1180     $new_invert_time = <STDIN>;
1181     $new_invert_time =~ tr/yn//cd;
1182     return "true"  if ( $new_invert_time eq "y" );
1183     return "false" if ( $new_invert_time eq "n" );
1184     return $invert_time;
1185 }
1186
1187 sub command111 {
1188     print "This is the delimiter that your IMAP server uses to distinguish between\n";
1189     print "folders.  For example, Cyrus uses '.' as the delimiter and a complete\n";
1190     print "folder would look like 'INBOX.Friends.Bob', while UW uses '/' and would\n";
1191     print "look like 'INBOX/Friends/Bob'.  Normally this should be left at 'detect'\n";
1192     print "but if you are sure you know what delimiter your server uses, you can\n";
1193     print "specify it here.\n";
1194     print "\nTo have it autodetect the delimiter, set it to 'detect'.\n\n";
1195     print "[$WHT$optional_delimiter$NRM]: $WHT";
1196     $new_optional_delimiter = <STDIN>;
1197
1198     if ( $new_optional_delimiter eq "\n" ) {
1199         $new_optional_delimiter = $optional_delimiter;
1200     } else {
1201         $new_optional_delimiter =~ s/[\r|\n]//g;
1202     }
1203     return $new_optional_delimiter;
1204 }
1205 # IMAP authentication type
1206 # Possible values: login, plain, cram-md5, digest-md5
1207 # Now offers to detect supported mechs, assuming server & port are set correctly
1208
1209 sub command112a {
1210     if ($use_imap_tls =~ /^true\b/i) {
1211         print "Auto-detection of login methods is unavailable when using TLS.\n";
1212     } else {
1213         print "If you have already set the hostname and port number, I can try to\n";
1214         print "detect the mechanisms your IMAP server supports.\n";
1215         print "I will try to detect CRAM-MD5 and DIGEST-MD5 support.  I can't test\n";
1216         print "for \"login\" or \"plain\" without knowing a username and password.\n";
1217         print "Auto-detecting is optional - you can safely say \"n\" here.\n";
1218         print "\nTry to detect supported mechanisms? [y/N]: ";
1219         $inval=<STDIN>;
1220         chomp($inval);
1221         if ($inval =~ /^y\b/i) {
1222           # Yes, let's try to detect.
1223           print "Trying to detect IMAP capabilities...\n";
1224           my $host = $imapServerAddress . ':'. $imapPort;
1225           print "CRAM-MD5:\t";
1226           my $tmp = detect_auth_support('IMAP',$host,'CRAM-MD5');
1227           if (defined($tmp)) {
1228                   if ($tmp eq 'YES') {
1229                         print "$WHT SUPPORTED$NRM\n";
1230                   } else {
1231                     print "$WHT NOT SUPPORTED$NRM\n";
1232                   }
1233           } else {
1234             print $WHT . " ERROR DETECTING$NRM\n";
1235           }
1236
1237           print "DIGEST-MD5:\t";
1238           $tmp = detect_auth_support('IMAP',$host,'DIGEST-MD5');
1239           if (defined($tmp)) {
1240                 if ($tmp eq 'YES') {
1241                         print "$WHT SUPPORTED$NRM\n";
1242                 } else {
1243                         print "$WHT NOT SUPPORTED$NRM\n";
1244                 }
1245           } else {
1246             print $WHT . " ERROR DETECTING$NRM\n";
1247           }
1248
1249         }
1250     }
1251           print "\nWhat authentication mechanism do you want to use for IMAP connections?\n\n";
1252           print $WHT . "login" . $NRM . " - Plaintext. If you can do better, you probably should.\n";
1253       print $WHT . "plain" . $NRM . " - SASL PLAIN. If you need this, you already know it.\n";
1254           print $WHT . "cram-md5" . $NRM . " - Slightly better than plaintext methods.\n";
1255           print $WHT . "digest-md5" . $NRM . " - Privacy protection - better than cram-md5.\n";
1256           print "\n*** YOUR IMAP SERVER MUST SUPPORT THE MECHANISM YOU CHOOSE HERE ***\n";
1257           print "If you don't understand or are unsure, you probably want \"login\"\n\n";
1258           print "login, plain, cram-md5, or digest-md5 [$WHT$imap_auth_mech$NRM]: $WHT";
1259       $inval=<STDIN>;
1260       chomp($inval);
1261       if ( ($inval =~ /^cram-md5\b/i) || ($inval =~ /^digest-md5\b/i) || ($inval =~ /^login\b/i) || ($inval =~ /^plain\b/i)) {
1262         return lc($inval);
1263       } else {
1264         # user entered garbage or default value so nothing needs to be set
1265         return $imap_auth_mech;
1266       }
1267 }
1268
1269
1270 # SMTP authentication type
1271 # Possible choices: none, plain, cram-md5, digest-md5
1272 sub command112b {
1273     if ($use_smtp_tls =~ /^true\b/i) {
1274         print "Auto-detection of login methods is unavailable when using TLS.\n";
1275     } else {
1276         print "If you have already set the hostname and port number, I can try to\n";
1277         print "automatically detect some of the mechanisms your SMTP server supports.\n";
1278         print "Auto-detection is *optional* - you can safely say \"n\" here.\n";
1279         print "\nTry to detect auth mechanisms? [y/N]: ";
1280         $inval=<STDIN>;
1281         chomp($inval);
1282         if ($inval =~ /^y\b/i) {
1283                 # Yes, let's try to detect.
1284                 print "Trying to detect supported methods (SMTP)...\n";
1285
1286                 # Special case!
1287                 # Check none by trying to relay to junk@microsoft.com
1288                 $host = $smtpServerAddress . ':' . $smtpPort;
1289                 use IO::Socket;
1290                 my $sock = IO::Socket::INET->new($host);
1291                 print "Testing none:\t\t$WHT";
1292                 if (!defined($sock)) {
1293                         print " ERROR TESTING\n";
1294                         close $sock;
1295                 } else {
1296                         print $sock "mail from: tester\@squirrelmail.org\n";
1297                         $got = <$sock>;  # Discard
1298                         print $sock "rcpt to: junk\@microsoft.com\n";
1299                         $got = <$sock>;  # This is the important line
1300                         if ($got =~ /^250\b/) {  # SMTP will relay without auth
1301                                 print "SUPPORTED$NRM\n";
1302                 } else {
1303                           print "NOT SUPPORTED$NRM\n";
1304                 }
1305                         print $sock "rset\n";
1306                         print $sock "quit\n";
1307                         close $sock;
1308                 }
1309                 # Try login (SquirrelMail default)
1310                 print "Testing login:\t\t";
1311                 $tmp=detect_auth_support('SMTP',$host,'LOGIN');
1312                 if (defined($tmp)) {
1313                 if ($tmp eq 'YES') {
1314                         print $WHT . "SUPPORTED$NRM\n";
1315                 } else {
1316                         print $WHT . "NOT SUPPORTED$NRM\n";
1317                 }
1318               } else {
1319                           print $WHT . "ERROR DETECTING$NRM\n";
1320                 }
1321
1322                 # Try CRAM-MD5
1323             print "Testing CRAM-MD5:\t";
1324             $tmp=detect_auth_support('SMTP',$host,'CRAM-MD5');
1325             if (defined($tmp)) {
1326                 if ($tmp eq 'YES') {
1327                     print $WHT . "SUPPORTED$NRM\n";
1328                 } else {
1329                     print $WHT . "NOT SUPPORTED$NRM\n";
1330                 }
1331               } else {
1332                   print $WHT . "ERROR DETECTING$NRM\n";
1333             }
1334
1335
1336             print "Testing DIGEST-MD5:\t";
1337             $tmp=detect_auth_support('SMTP',$host,'DIGEST-MD5');
1338             if (defined($tmp)) {
1339                 if ($tmp eq 'YES') {
1340                     print $WHT . "SUPPORTED$NRM\n";
1341                 } else {
1342                     print $WHT . "NOT SUPPORTED$NRM\n";
1343                 }
1344               } else {
1345                   print $WHT . "ERROR DETECTING$NRM\n";
1346             }
1347         }
1348     }
1349     print "\nWhat authentication mechanism do you want to use for SMTP connections?\n";
1350     print $WHT . "none" . $NRM . " - Your SMTP server does not require authorization.\n";
1351     print $WHT . "login" . $NRM . " - Plaintext. If you can do better, you probably should.\n";
1352     print $WHT . "plain" . $NRM . " - SASL PLAIN.  You already know it if you need this.\n";
1353     print $WHT . "cram-md5" . $NRM . " - Slightly better than plaintext.\n";
1354     print $WHT . "digest-md5" . $NRM . " - Privacy protection - better than cram-md5.\n";
1355     print $WHT . "\n*** YOUR SMTP SERVER MUST SUPPORT THE MECHANISM YOU CHOOSE HERE ***\n" . $NRM;
1356     print "If you don't understand or are unsure, you probably want \"none\"\n\n";
1357     print "none, login, cram-md5, or digest-md5 [$WHT$smtp_auth_mech$NRM]: $WHT";
1358     $inval=<STDIN>;
1359     chomp($inval);
1360     if ($inval =~ /^none\b/i) {
1361       # SMTP doesn't necessarily require logins
1362       return "none";
1363     }
1364     if ( ($inval =~ /^cram-md5\b/i) || ($inval =~ /^digest-md5\b/i) ||
1365     ($inval =~ /^login\b/i) || ($inval =~/^plain\b/i)) {
1366       return lc($inval);
1367     } else {
1368       # user entered garbage, or default value so nothing needs to be set
1369           return $smtp_auth_mech;
1370     }
1371 }
1372
1373 # TLS
1374 # This sub is reused for IMAP and SMTP
1375 # Args: service name, default value
1376 sub command113 {
1377         my($default_val,$service,$inval);
1378         $service=$_[0];
1379         $default_val=$_[1];
1380         print "TLS (Transport Layer Security) encrypts the traffic between server and client.\n";
1381         print "If you're familiar with SSL, you get the idea.\n";
1382         print "To use this feature, your " . $service . " server must offer TLS\n";
1383         print "capability, plus PHP 4.3.x with OpenSSL support.\n";
1384         print "\nIf your " . $service . " server is localhost, you can safely disable this.\n";
1385         print "If it is remote, you may wish to seriously consider enabling this.\n";
1386     print "Enable TLS (y/n) [$WHT";
1387     if ($default_val eq "true") {
1388       print "y";
1389     } else {
1390       print "n";
1391     }
1392     print "$NRM]: $WHT";
1393     $inval=<STDIN>;
1394     $inval =~ tr/yn//cd;
1395     return "true"  if ( $inval eq "y" );
1396     return "false" if ( $inval eq "n" );
1397     return $default_val;
1398
1399
1400 }
1401
1402
1403 # MOTD
1404 sub command71 {
1405     print "\nYou can now create the welcome message that is displayed\n";
1406     print "every time a user logs on.  You can use HTML or just plain\n";
1407     print
1408 "text.  If you do not wish to have one, just make it blank.\n\n(Type @ on a blank line to exit)\n";
1409
1410     $new_motd = "";
1411     do {
1412         print "] ";
1413         $line = <STDIN>;
1414         $line =~ s/[\r|\n]//g;
1415         if ( $line ne "@" ) {
1416             $line =~ s/  /\&nbsp;\&nbsp;/g;
1417             $line =~ s/\t/\&nbsp;\&nbsp;\&nbsp;\&nbsp;/g;
1418             $line =~ s/$/ /;
1419             $line =~ s/\"/&quot;/g;
1420
1421             $new_motd = $new_motd . $line;
1422         }
1423     } while ( $line ne "@" );
1424     return $new_motd;
1425 }
1426
1427 ################# PLUGINS ###################
1428
1429 sub command81 {
1430     $command =~ s/[\s|\n|\r]*//g;
1431     if ( $command > 0 ) {
1432         $command = $command - 1;
1433         if ( $command <= $#plugins ) {
1434             @newplugins = ();
1435             $ct         = 0;
1436             while ( $ct <= $#plugins ) {
1437                 if ( $ct != $command ) {
1438                     @newplugins = ( @newplugins, $plugins[$ct] );
1439                 }
1440                 $ct++;
1441             }
1442             @plugins = @newplugins;
1443         } elsif ( $command <= $#plugins + $#unused_plugins + 1 ) {
1444             $num        = $command - $#plugins - 1;
1445             @newplugins = @plugins;
1446             $ct         = 0;
1447             while ( $ct <= $#unused_plugins ) {
1448                 if ( $ct == $num ) {
1449                     @newplugins = ( @newplugins, $unused_plugins[$ct] );
1450                 }
1451                 $ct++;
1452             }
1453             @plugins = @newplugins;
1454         }
1455     }
1456     return @plugins;
1457 }
1458
1459 ################# FOLDERS ###################
1460
1461 # default_folder_prefix
1462 sub command21 {
1463     print "Some IMAP servers (UW, for example) store mail and folders in\n";
1464     print "your user space in a separate subdirectory.  This is where you\n";
1465     print "specify what that directory is.\n";
1466     print "\n";
1467     print "EXAMPLE:  mail/";
1468     print "\n";
1469     print "NOTE:  If you use Cyrus, or some server that would not use this\n";
1470     print "       option, you must set this to 'none'.\n";
1471     print "\n";
1472     print "[$WHT$default_folder_prefix$NRM]: $WHT";
1473     $new_default_folder_prefix = <STDIN>;
1474
1475     if ( $new_default_folder_prefix eq "\n" ) {
1476         $new_default_folder_prefix = $default_folder_prefix;
1477     } else {
1478         $new_default_folder_prefix =~ s/[\r\n]//g;
1479     }
1480     if ( ( $new_default_folder_prefix =~ /^\s*$/ ) || ( $new_default_folder_prefix =~ m/^none$/i ) ) {
1481         $new_default_folder_prefix = "";
1482     } else {
1483         # add the trailing delimiter only if we know what the server is.
1484         if (($imap_server_type eq 'cyrus' and
1485                   $optional_delimiter eq 'detect') or
1486                  ($imap_server_type eq 'courier' and
1487                   $optional_delimiter eq 'detect')) {
1488            $new_default_folder_prefix =~ s/\.*$/\./;
1489         } elsif ($imap_server_type eq 'uw' and
1490                  $optional_delimiter eq 'detect') {
1491            $new_default_folder_prefix =~ s/\/*$/\//;
1492         }
1493     }
1494     return $new_default_folder_prefix;
1495 }
1496
1497 # Show Folder Prefix
1498 sub command22 {
1499     print "It is possible to set up the default folder prefix as a user\n";
1500     print "specific option, where each user can specify what their mail\n";
1501     print "folder is.  If you set this to false, they will never see the\n";
1502     print "option, but if it is true, this option will appear in the\n";
1503     print "'options' section.\n";
1504     print "\n";
1505     print "NOTE:  You set the default folder prefix in option '1' of this\n";
1506     print "       section.  That will be the default if the user doesn't\n";
1507     print "       specify anything different.\n";
1508     print "\n";
1509
1510     if ( lc($show_prefix_option) eq "true" ) {
1511         $default_value = "y";
1512     } else {
1513         $default_value = "n";
1514     }
1515     print "\n";
1516     print "Show option (y/n) [$WHT$default_value$NRM]: $WHT";
1517     $new_show = <STDIN>;
1518     if ( ( $new_show =~ /^y\n/i ) || ( ( $new_show =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
1519         $show_prefix_option = "true";
1520     } else {
1521         $show_prefix_option = "false";
1522     }
1523     return $show_prefix_option;
1524 }
1525
1526 # Trash Folder
1527 sub command23a {
1528     print "You can now specify where the default trash folder is located.\n";
1529     print "On servers where you do not want this, you can set it to anything\n";
1530     print "and set option 6 to false.\n";
1531     print "\n";
1532     print "This is relative to where the rest of your email is kept.  You do\n";
1533     print "not need to worry about their mail directory.  If this folder\n";
1534     print "would be ~/mail/trash on the filesystem, you only need to specify\n";
1535     print "that this is 'trash', and be sure to put 'mail/' in option 1.\n";
1536     print "\n";
1537
1538     print "[$WHT$trash_folder$NRM]: $WHT";
1539     $new_trash_folder = <STDIN>;
1540     if ( $new_trash_folder eq "\n" ) {
1541         $new_trash_folder = $trash_folder;
1542     } else {
1543         $new_trash_folder =~ s/[\r|\n]//g;
1544     }
1545     return $new_trash_folder;
1546 }
1547
1548 # Sent Folder
1549 sub command23b {
1550     print "This is where messages that are sent will be stored.  SquirrelMail\n";
1551     print "by default puts a copy of all outgoing messages in this folder.\n";
1552     print "\n";
1553     print "This is relative to where the rest of your email is kept.  You do\n";
1554     print "not need to worry about their mail directory.  If this folder\n";
1555     print "would be ~/mail/sent on the filesystem, you only need to specify\n";
1556     print "that this is 'sent', and be sure to put 'mail/' in option 1.\n";
1557     print "\n";
1558
1559     print "[$WHT$sent_folder$NRM]: $WHT";
1560     $new_sent_folder = <STDIN>;
1561     if ( $new_sent_folder eq "\n" ) {
1562         $new_sent_folder = $sent_folder;
1563     } else {
1564         $new_sent_folder =~ s/[\r|\n]//g;
1565     }
1566     return $new_sent_folder;
1567 }
1568
1569 # Draft Folder
1570 sub command23c {
1571     print "You can now specify where the default draft folder is located.\n";
1572     print "On servers where you do not want this, you can set it to anything\n";
1573     print "and set option 9 to false.\n";
1574     print "\n";
1575     print "This is relative to where the rest of your email is kept.  You do\n";
1576     print "not need to worry about their mail directory.  If this folder\n";
1577     print "would be ~/mail/drafts on the filesystem, you only need to specify\n";
1578     print "that this is 'drafts', and be sure to put 'mail/' in option 1.\n";
1579     print "\n";
1580
1581     print "[$WHT$draft_folder$NRM]: $WHT";
1582     $new_draft_folder = <STDIN>;
1583     if ( $new_draft_folder eq "\n" ) {
1584         $new_draft_folder = $draft_folder;
1585     } else {
1586         $new_draft_folder =~ s/[\r|\n]//g;
1587     }
1588     return $new_draft_folder;
1589 }
1590
1591 # default move to trash
1592 sub command24a {
1593     print "By default, should messages get moved to the trash folder?  You\n";
1594     print "can specify the default trash folder in option 3.  If this is set\n";
1595     print "to false, messages will get deleted immediately without moving\n";
1596     print "to the trash folder.\n";
1597     print "\n";
1598     print "Trash folder is currently: $trash_folder\n";
1599     print "\n";
1600
1601     if ( lc($default_move_to_trash) eq "true" ) {
1602         $default_value = "y";
1603     } else {
1604         $default_value = "n";
1605     }
1606     print "By default, move to trash (y/n) [$WHT$default_value$NRM]: $WHT";
1607     $new_show = <STDIN>;
1608     if ( ( $new_show =~ /^y\n/i ) || ( ( $new_show =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
1609         $default_move_to_trash = "true";
1610     } else {
1611         $default_move_to_trash = "false";
1612     }
1613     return $default_move_to_trash;
1614 }
1615
1616 # default move to sent
1617 sub command24b {
1618     print "By default, should messages get moved to the sent folder?  You\n";
1619     print "can specify the default sent folder in option 4.  If this is set\n";
1620     print "to false, messages will get sent and no copy will be made.\n";
1621     print "\n";
1622     print "Sent folder is currently: $sent_folder\n";
1623     print "\n";
1624
1625     if ( lc($default_move_to_sent) eq "true" ) {
1626         $default_value = "y";
1627     } else {
1628         $default_value = "n";
1629     }
1630     print "By default, move to sent (y/n) [$WHT$default_value$NRM]: $WHT";
1631     $new_show = <STDIN>;
1632     if ( ( $new_show =~ /^y\n/i ) || ( ( $new_show =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
1633         $default_move_to_sent = "true";
1634     } else {
1635         $default_move_to_sent = "false";
1636     }
1637     return $default_move_to_sent;
1638 }
1639
1640 # default save as draft
1641 sub command24c {
1642     print "By default, should the save to draft option be shown? You can\n";
1643     print "specify the default drafts folder in option 5. If this is set\n";
1644     print "to false, users will not be shown the save to draft option.\n";
1645     print "\n";
1646     print "Drafts folder is currently: $draft_folder\n";
1647     print "\n";
1648
1649     if ( lc($default_move_to_draft) eq "true" ) {
1650         $default_value = "y";
1651     } else {
1652         $default_value = "n";
1653     }
1654     print "By default, save as draft (y/n) [$WHT$default_value$NRM]: $WHT";
1655     $new_show = <STDIN>;
1656     if ( ( $new_show =~ /^y\n/i ) || ( ( $new_show =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
1657         $default_save_as_draft = "true";
1658     } else {
1659         $default_save_as_draft = "false";
1660     }
1661     return $default_save_as_draft;
1662 }
1663
1664 # List special folders first
1665 sub command27 {
1666     print "SquirrelMail has what we call 'special folders' that are not\n";
1667     print "manipulated and viewed like normal folders.  Some examples of\n";
1668     print "these folders would be INBOX, Trash, Sent, etc.  This option\n";
1669     print "Simply asks if you want these folders listed first in the folder\n";
1670     print "listing.\n";
1671     print "\n";
1672
1673     if ( lc($list_special_folders_first) eq "true" ) {
1674         $default_value = "y";
1675     } else {
1676         $default_value = "n";
1677     }
1678     print "\n";
1679     print "List first (y/n) [$WHT$default_value$NRM]: $WHT";
1680     $new_show = <STDIN>;
1681     if ( ( $new_show =~ /^y\n/i ) || ( ( $new_show =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
1682         $list_special_folders_first = "true";
1683     } else {
1684         $list_special_folders_first = "false";
1685     }
1686     return $list_special_folders_first;
1687 }
1688
1689 # Show special folders color
1690 sub command28 {
1691     print "SquirrelMail has what we call 'special folders' that are not\n";
1692     print "manipulated and viewed like normal folders.  Some examples of\n";
1693     print "these folders would be INBOX, Trash, Sent, etc.  This option\n";
1694     print "wants to know if we should display special folders in a\n";
1695     print "color than the other folders.\n";
1696     print "\n";
1697
1698     if ( lc($use_special_folder_color) eq "true" ) {
1699         $default_value = "y";
1700     } else {
1701         $default_value = "n";
1702     }
1703     print "\n";
1704     print "Show color (y/n) [$WHT$default_value$NRM]: $WHT";
1705     $new_show = <STDIN>;
1706     if ( ( $new_show =~ /^y\n/i ) || ( ( $new_show =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
1707         $use_special_folder_color = "true";
1708     } else {
1709         $use_special_folder_color = "false";
1710     }
1711     return $use_special_folder_color;
1712 }
1713
1714 # Auto expunge
1715 sub command29 {
1716     print "The way that IMAP handles deleting messages is as follows.  You\n";
1717     print "mark the message as deleted, and then to 'really' delete it, you\n";
1718     print "expunge it.  This option asks if you want to just have messages\n";
1719     print "marked as deleted, or if you want SquirrelMail to expunge the \n";
1720     print "messages too.\n";
1721     print "\n";
1722
1723     if ( lc($auto_expunge) eq "true" ) {
1724         $default_value = "y";
1725     } else {
1726         $default_value = "n";
1727     }
1728     print "Auto expunge (y/n) [$WHT$default_value$NRM]: $WHT";
1729     $new_show = <STDIN>;
1730     if ( ( $new_show =~ /^y\n/i ) || ( ( $new_show =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
1731         $auto_expunge = "true";
1732     } else {
1733         $auto_expunge = "false";
1734     }
1735     return $auto_expunge;
1736 }
1737
1738 # Default sub of inbox
1739 sub command210 {
1740     print "Some IMAP servers (Cyrus) have all folders as subfolders of INBOX.\n";
1741     print "This can cause some confusion in folder creation for users when\n";
1742     print "they try to create folders and don't put it as a subfolder of INBOX\n";
1743     print "and get permission errors.  This option asks if you want folders\n";
1744     print "to be subfolders of INBOX by default.\n";
1745     print "\n";
1746
1747     if ( lc($default_sub_of_inbox) eq "true" ) {
1748         $default_value = "y";
1749     } else {
1750         $default_value = "n";
1751     }
1752     print "Default sub of INBOX (y/n) [$WHT$default_value$NRM]: $WHT";
1753     $new_show = <STDIN>;
1754     if ( ( $new_show =~ /^y\n/i ) || ( ( $new_show =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
1755         $default_sub_of_inbox = "true";
1756     } else {
1757         $default_sub_of_inbox = "false";
1758     }
1759     return $default_sub_of_inbox;
1760 }
1761
1762 # Show contain subfolder option
1763 sub command211 {
1764     print "Some IMAP servers (UW) make it so that there are two types of\n";
1765     print "folders.  Those that contain messages, and those that contain\n";
1766     print "subfolders.  If this is the case for your server, set this to\n";
1767     print "true, and it will ask the user whether the folder they are\n";
1768     print "creating contains subfolders or messages.\n";
1769     print "\n";
1770
1771     if ( lc($show_contain_subfolders_option) eq "true" ) {
1772         $default_value = "y";
1773     } else {
1774         $default_value = "n";
1775     }
1776     print "Show option (y/n) [$WHT$default_value$NRM]: $WHT";
1777     $new_show = <STDIN>;
1778     if ( ( $new_show =~ /^y\n/i ) || ( ( $new_show =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
1779         $show_contain_subfolders_option = "true";
1780     } else {
1781         $show_contain_subfolders_option = "false";
1782     }
1783     return $show_contain_subfolders_option;
1784 }
1785
1786 # Default Unseen Notify
1787 sub command212 {
1788     print "This option specifies where the users will receive notification\n";
1789     print "about unseen messages by default.  This is of course an option that\n";
1790     print "can be changed on a user level.\n";
1791     print "  1 = No notification\n";
1792     print "  2 = Only on the INBOX\n";
1793     print "  3 = On all folders\n";
1794     print "\n";
1795
1796     print "Which one should be default (1,2,3)? [$WHT$default_unseen_notify$NRM]: $WHT";
1797     $new_show = <STDIN>;
1798     if ( $new_show =~ /^[1|2|3]\n/i ) {
1799         $default_unseen_notify = $new_show;
1800     }
1801     $default_unseen_notify =~ s/[\r|\n]//g;
1802     return $default_unseen_notify;
1803 }
1804
1805 # Default Unseen Type
1806 sub command213 {
1807     print "Here you can define the default way that unseen messages will be displayed\n";
1808     print "to the user in the folder listing on the left side.\n";
1809     print "  1 = Only unseen messages   (4)\n";
1810     print "  2 = Unseen and Total messages  (4/27)\n";
1811     print "\n";
1812
1813     print "Which one should be default (1,2)? [$WHT$default_unseen_type$NRM]: $WHT";
1814     $new_show = <STDIN>;
1815     if ( $new_show =~ /^[1|2]\n/i ) {
1816         $default_unseen_type = $new_show;
1817     }
1818     $default_unseen_type =~ s/[\r|\n]//g;
1819     return $default_unseen_type;
1820 }
1821
1822 # Auto create special folders
1823 sub command214 {
1824     print "Would you like the Sent, Trash, and Drafts folders to be created\n";
1825     print "automatically print for you when a user logs in?  If the user\n";
1826     print "accidentally deletes their special folders, this option will\n";
1827     print "automatically create it again for them.\n";
1828     print "\n";
1829
1830     if ( lc($auto_create_special) eq "true" ) {
1831         $default_value = "y";
1832     } else {
1833         $default_value = "n";
1834     }
1835     print "Auto create special folders? (y/n) [$WHT$default_value$NRM]: $WHT";
1836     $new_show = <STDIN>;
1837     if ( ( $new_show =~ /^y\n/i ) || ( ( $new_show =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
1838         $auto_create_special = "true";
1839     } else {
1840         $auto_create_special = "false";
1841     }
1842     return $auto_create_special;
1843 }
1844
1845 # Automatically delete folders
1846 sub command215 {
1847     if ( $imap_server_type eq "uw" ) {
1848         print "UW IMAP servers will not allow folders containing mail to also contain folders.\n";
1849         print "Deleting folders will bypass the trash folder and be immediately deleted\n\n";
1850         print "If this is not the correct value for your server,\n";
1851         print "please use option D on the Main Menu to configure your server correctly.\n\n";
1852         print "Press any key to continue...\n";
1853         $new_delete = <STDIN>;
1854         $delete_folder = "true";
1855     } else {
1856         if ( $imap_server_type eq "courier" ) {
1857             print "Courier (or Courier-IMAP) IMAP servers may not support ";
1858             print "subfolders of Trash. \n";
1859             print "Specifically, if Courier is set to always move messages to Trash, \n";
1860             print "Trash will be treated by Courier as a special folder that does not \n";
1861             print "allow subfolders. \n\n";
1862             print "Please verify your Courier configuration, and test folder deletion \n";
1863             print "when changing this setting.\n\n";
1864         }
1865
1866         print "Are subfolders of the Trash supported by your IMAP server?\n";
1867         print "If so, should deleted folders be sent to Trash?\n";
1868         print "If not, say no (deleted folders should not be sent to Trash)\n\n";
1869         # reversal of logic.
1870         # question was: Should folders be automatically deleted instead of sent to trash..
1871         # we've changed the question to make it more clear,
1872         # and are here handling that to avoid changing the answers..
1873         if ( lc($delete_folder) eq "true" ) {
1874             $default_value = "n";
1875         } else {
1876             $default_value = "y";
1877         }
1878         print "Send deleted folders to Trash? (y/n) [$WHT$default_value$NRM]: $WHT";
1879         $new_delete = <STDIN>;
1880         if ( ( $new_delete =~ /^y\n/i ) || ( ( $new_delete =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
1881             $delete_folder = "false";
1882         } else {
1883             $delete_folder = "true";
1884         }
1885     }
1886     return $delete_folder;
1887 }
1888
1889 #noselect fix
1890 sub command216 {
1891     print "Some IMAP server allow subfolders to exist even if the parent\n";
1892     print "folders do not. This fixes some problems with the folder list\n";
1893     print "when this is the case, causing the /NoSelect folders to be displayed\n";
1894     print "\n";
1895
1896     if ( lc($noselect_fix_enable) eq "true" ) {
1897         $default_value = "y";
1898     } else {
1899         $default_value = "n";
1900     }
1901     print "enable noselect fix? (y/n) [$WHT$noselect_fix_enable$NRM]: $WHT";
1902     $noselect_fix_enable = <STDIN>;
1903     if ( ( $noselect_fix_enable =~ /^y\n/i ) || ( ( $noselect_fix_enable =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
1904         $noselect_fix_enable = "true";
1905     } else {
1906         $noselect_fix_enable = "false";
1907     }
1908     return $noselect_fix_enable;
1909 }
1910 ############# GENERAL OPTIONS #####################
1911
1912 # Data directory
1913 sub command33a {
1914     print "Specify the location for your data directory.\n";
1915     print "The path name can be absolute or relative (to the config directory).\n";
1916     print "It doesn't matter.  Here are two examples:\n";
1917     print "  Absolute:    /var/spool/data/\n";
1918     print "  Relative:    ../data/\n";
1919     print "Relative paths to directories outside of the SquirrelMail distribution\n";
1920     print "will be converted to their absolute path equivalents in config.php.\n\n";
1921     print "Note: There are potential security risks with having a writeable directory\n";
1922     print "under the web server's root directory (ex: /home/httpd/html).\n";
1923     print "For this reason, it is recommended to put the data directory\n";
1924     print "in an alternate location of your choice. \n";
1925     print "\n";
1926
1927     print "[$WHT$data_dir$NRM]: $WHT";
1928     $new_data_dir = <STDIN>;
1929     if ( $new_data_dir eq "\n" ) {
1930         $new_data_dir = $data_dir;
1931     } else {
1932         $new_data_dir =~ s/[\r|\n]//g;
1933     }
1934     if ( $new_data_dir =~ /^\s*$/ ) {
1935         $new_data_dir = "";
1936     } else {
1937         $new_data_dir =~ s/\/*$//g;
1938         $new_data_dir =~ s/$/\//g;
1939     }
1940     return $new_data_dir;
1941 }
1942
1943 # Attachment directory
1944 sub command33b {
1945     print "Path to directory used for storing attachments while a mail is\n";
1946     print "being sent. The path name can be absolute or relative (to the config directory).\n";
1947     print "It doesn't matter.  Here are two examples:\n";
1948     print "  Absolute:    /var/spool/attach/\n";
1949     print "  Relative:    ../attach/\n";
1950     print "Relative paths to directories outside of the SquirrelMail distribution\n";
1951     print "will be converted to their absolute path equivalents in config.php.\n\n";
1952     print "Note:  There are a few security considerations regarding this\n";
1953     print "directory:\n";
1954     print "  1.  It should have the permission 733 (rwx-wx-wx) to make it\n";
1955     print "      impossible for a random person with access to the webserver\n";
1956     print "      to list files in this directory.  Confidential data might\n";
1957     print "      be laying around in there.\n";
1958     print "      Depending on your user:group assignments, 730 (rwx-wx---)\n";
1959     print "      may be possible, and more secure (e.g. root:apache)\n";
1960     print "  2.  Since the webserver is not able to list the files in the\n";
1961     print "      content is also impossible for the webserver to delete files\n";
1962     print "      lying around there for too long.\n";
1963     print "  3.  It should probably be another directory than the data\n";
1964     print "      directory specified in option 3.\n";
1965     print "\n";
1966
1967     print "[$WHT$attachment_dir$NRM]: $WHT";
1968     $new_attachment_dir = <STDIN>;
1969     if ( $new_attachment_dir eq "\n" ) {
1970         $new_attachment_dir = $attachment_dir;
1971     } else {
1972         $new_attachment_dir =~ s/[\r|\n]//g;
1973     }
1974     if ( $new_attachment_dir =~ /^\s*$/ ) {
1975         $new_attachment_dir = "";
1976     } else {
1977         $new_attachment_dir =~ s/\/*$//g;
1978         $new_attachment_dir =~ s/$/\//g;
1979     }
1980     return $new_attachment_dir;
1981 }
1982
1983 sub command33c {
1984     print "The directory hash level setting allows you to configure the level\n";
1985     print "of hashing that Squirremail employs in your data and attachment\n";
1986     print "directories. This value must be an integer ranging from 0 to 4.\n";
1987     print "When this value is set to 0, Squirrelmail will simply store all\n";
1988     print "files as normal in the data and attachment directories. However,\n";
1989     print "when set to a value from 1 to 4, a simple hashing scheme will be\n";
1990     print "used to organize the files in this directory. In short, the crc32\n";
1991     print "value for a username will be computed. Then, up to the first 4\n";
1992     print "digits of the hash, as set by this configuration value, will be\n";
1993     print "used to directory hash the files for that user in the data and\n";
1994     print "attachment directory. This allows for better performance on\n";
1995     print "servers with larger numbers of users.\n";
1996     print "\n";
1997
1998     print "[$WHT$dir_hash_level$NRM]: $WHT";
1999     $new_dir_hash_level = <STDIN>;
2000     if ( $new_dir_hash_level eq "\n" ) {
2001         $new_dir_hash_level = $dir_hash_level;
2002     } else {
2003         $new_dir_hash_level =~ s/[\r|\n]//g;
2004     }
2005     if ( ( int($new_dir_hash_level) < 0 )
2006         || ( int($new_dir_hash_level) > 4 )
2007         || !( int($new_dir_hash_level) eq $new_dir_hash_level ) ) {
2008         print "Invalid Directory Hash Level.\n";
2009         print "Value must be an integer ranging from 0 to 4\n";
2010         print "Hit enter to continue.\n";
2011         $enter_key = <STDIN>;
2012
2013         $new_dir_hash_level = $dir_hash_level;
2014         }
2015
2016     return $new_dir_hash_level;
2017 }
2018
2019 sub command35 {
2020     print "This is the default size (in pixels) of the left folder list.\n";
2021     print "Default is 200, but you can set it to whatever you wish.  This\n";
2022     print "is a user preference, so this will only show up as their default.\n";
2023     print "\n";
2024     print "[$WHT$default_left_size$NRM]: $WHT";
2025     $new_default_left_size = <STDIN>;
2026     if ( $new_default_left_size eq "\n" ) {
2027         $new_default_left_size = $default_left_size;
2028     } else {
2029         $new_default_left_size =~ s/[\r|\n]//g;
2030     }
2031     return $new_default_left_size;
2032 }
2033
2034 sub command36 {
2035     print "Some IMAP servers only have lowercase letters in the usernames\n";
2036     print "but they still allow people with uppercase to log in.  This\n";
2037     print "causes a problem with the user's preference files.  This option\n";
2038     print "transparently changes all usernames to lowercase.";
2039     print "\n";
2040
2041     if ( lc($force_username_lowercase) eq "true" ) {
2042         $default_value = "y";
2043     } else {
2044         $default_value = "n";
2045     }
2046     print "Convert usernames to lowercase (y/n) [$WHT$default_value$NRM]: $WHT";
2047     $new_show = <STDIN>;
2048     if ( ( $new_show =~ /^y\n/i ) || ( ( $new_show =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
2049         return "true";
2050     }
2051     return "false";
2052 }
2053
2054 sub command37 {
2055     print "";
2056     print "\n";
2057
2058     if ( lc($default_use_priority) eq "true" ) {
2059         $default_value = "y";
2060     } else {
2061         $default_value = "n";
2062     }
2063
2064     print "Allow users to specify priority of outgoing mail (y/n) [$WHT$default_value$NRM]: $WHT";
2065     $new_show = <STDIN>;
2066     if ( ( $new_show =~ /^y\n/i ) || ( ( $new_show =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
2067         return "true";
2068     }
2069     return "false";
2070 }
2071
2072 sub command38 {
2073     print "";
2074     print "\n";
2075
2076     if ( lc($default_hide_attribution) eq "true" ) {
2077         $default_value = "y";
2078     } else {
2079         $default_value = "n";
2080     }
2081
2082     print "Hide SM attributions (y/n) [$WHT$default_value$NRM]: $WHT";
2083     $new_show = <STDIN>;
2084     if ( ( $new_show =~ /^y\n/i ) || ( ( $new_show =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
2085         return "true";
2086     }
2087     return "false";
2088 }
2089
2090 sub command39 {
2091     print "";
2092     print "\n";
2093
2094     if ( lc($default_use_mdn) eq "true" ) {
2095         $default_value = "y";
2096     } else {
2097         $default_value = "n";
2098     }
2099
2100     print "Enable support for read/delivery receipt support (y/n) [$WHT$default_value$NRM]: $WHT";
2101     $new_show = <STDIN>;
2102     if ( ( $new_show =~ /^y\n/i ) || ( ( $new_show =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
2103         return "true";
2104     }
2105     return "false";
2106 }
2107
2108 sub command310 {
2109     print "This allows you to prevent the editing of the user's name and ";
2110     print "email address. This is mainly useful when used with the ";
2111     print "retrieveuserdata plugin\n";
2112     print "\n";
2113
2114     if ( lc($edit_identity) eq "true" ) {
2115         $default_value = "y";
2116     } else {
2117         $default_value = "n";
2118     }
2119     print "Allow editing of user's identity? (y/n) [$WHT$default_value$NRM]: $WHT";
2120     $new_edit = <STDIN>;
2121     if ( ( $new_edit =~ /^y\n/i ) || ( ( $new_edit =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
2122         $edit_identity = "true";
2123         $edit_name = "true";
2124     } else {
2125         $edit_identity = "false";
2126         $edit_name = command311();
2127     }
2128     return $edit_identity;
2129 }
2130
2131 sub command311 {
2132     print "As a follow-up, this option allows you to choose if the user ";
2133     print "can edit their full name even when you don't want them to ";
2134     print "change their username\n";
2135     print "\n";
2136
2137     if ( lc($edit_name) eq "true" ) {
2138         $default_value = "y";
2139     } else {
2140         $default_value = "n";
2141     }
2142     print "Allow editing of the users full name? (y/n) [$WHT$default_value$NRM]: $WHT";
2143     $new_edit = <STDIN>;
2144     if ( ( $new_edit =~ /^y\n/i ) || ( ( $new_edit =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
2145         $edit_name = "true";
2146     } else {
2147         $edit_name = "false";
2148     }
2149     return $edit_name;
2150 }
2151
2152 sub command312 {
2153     print "This option allows you to choose if users can use thread sorting\n";
2154     print "Your IMAP server must support the THREAD command for this to work\n";
2155         print "PHP versions later than 4.0.3 recommended\n";
2156     print "\n";
2157
2158     if ( lc($allow_thread_sort) eq "true" ) {
2159         $default_value = "y";
2160     } else {
2161         $default_value = "n";
2162     }
2163     print "Allow server side thread sorting? (y/n) [$WHT$default_value$NRM]: $WHT";
2164     $allow_thread_sort = <STDIN>;
2165     if ( ( $allow_thread_sort =~ /^y\n/i ) || ( ( $allow_thread_sort =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
2166         $allow_thread_sort = "true";
2167     } else {
2168         $allow_thread_sort = "false";
2169     }
2170     return $allow_thread_sort;
2171 }
2172
2173 sub command313 {
2174     print "This option allows you to choose if SM uses server-side sorting\n";
2175     print "Your IMAP server must support the SORT  command for this to work\n";
2176     print "\n";
2177
2178     if ( lc($allow_server_sort) eq "true" ) {
2179         $default_value = "y";
2180     } else {
2181         $default_value = "n";
2182     }
2183     print "Allow server-side sorting? (y/n) [$WHT$default_value$NRM]: $WHT";
2184     $allow_server_sort = <STDIN>;
2185     if ( ( $allow_server_sort =~ /^y\n/i ) || ( ( $allow_server_sort =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
2186         $allow_server_sort = "true";
2187     } else {
2188         $allow_server_sort = "false";
2189     }
2190     return $allow_server_sort;
2191 }
2192
2193 sub command314 {
2194     print "This option allows you to choose if SM uses charset search\n";
2195     print "Your IMAP server must support the SEARCH CHARSET command for this to work\n";
2196     print "\n";
2197
2198     if ( lc($allow_charset_search) eq "true" ) {
2199         $default_value = "y";
2200     } else {
2201         $default_value = "n";
2202     }
2203     print "Allow charset searching? (y/n) [$WHT$default_value$NRM]: $WHT";
2204     $allow_charset_search = <STDIN>;
2205     if ( ( $allow_charset_search =~ /^y\n/i ) || ( ( $allow_charset_search =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
2206         $allow_charset_search = "true";
2207     } else {
2208         $allow_charset_search = "false";
2209     }
2210     return $allow_charset_search;
2211 }
2212
2213 sub command315 {
2214     ## OBSOLETE - UID support is now always enabled
2215     return "true";
2216     print "This option allows you to enable unique identifier (UID) support.\n";
2217     print "\n";
2218
2219     if ( lc($uid_support) eq "true" ) {
2220         $default_value = "y";
2221     } else {
2222         $default_value = "n";
2223     }
2224     print "Enable Unique identifier (UID) support? (y/n) [$WHT$default_value$NRM]: $WHT";
2225     $uid_support = <STDIN>;
2226     if ( ( $uid_support =~ /^y\n/i ) || ( ( $uid_support =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
2227         $uid_support = "true";
2228     } else {
2229         $uid_support = "false";
2230     }
2231     return $uid_support;
2232 }
2233
2234 sub command316 {
2235         print "This option allows you to change the name of the PHP session used\n";
2236         print "by SquirrelMail.  Unless you know what you are doing, you probably\n";
2237         print "don't need or want to change this from the default of SQMSESSID.\n";
2238     print "[$WHT$session_name$NRM]: $WHT";
2239     $new_session_name = <STDIN>;
2240         chomp($new_session_name);
2241     if ( $new_session_name eq "" ) {
2242         $new_session_name = $session_name;
2243     }
2244     return $new_session_name;
2245 }
2246
2247
2248
2249 sub command41 {
2250     print "\nDefine the themes that you wish to use.  If you have added ";
2251     print "a theme of your own, just follow the instructions (?) about how to add ";
2252     print "them.  You can also change the default theme.\n";
2253     print "[theme] command (?=help) > ";
2254     $input = <STDIN>;
2255     $input =~ s/[\r|\n]//g;
2256     while ( $input ne "d" ) {
2257         if ( $input =~ /^\s*l\s*/i ) {
2258             $count = 0;
2259             while ( $count <= $#theme_name ) {
2260                 if ( $count == $theme_default ) {
2261                     print " *";
2262                 } else {
2263                     print "  ";
2264                 }
2265                 if ( $count < 10 ) {
2266                     print " ";
2267                 }
2268                 $name       = $theme_name[$count];
2269                 $num_spaces = 35 - length($name);
2270                 for ( $i = 0 ; $i < $num_spaces ; $i++ ) {
2271                     $name = $name . " ";
2272                 }
2273
2274                 print " $count.  $name";
2275                 print "($theme_path[$count])\n";
2276
2277                 $count++;
2278             }
2279         } elsif ( $input =~ /^\s*m\s*[0-9]+/i ) {
2280             $old_def       = $theme_default;
2281             $theme_default = $input;
2282             $theme_default =~ s/^\s*m\s*//;
2283             if ( ( $theme_default > $#theme_name ) || ( $theme_default < 0 ) ) {
2284                 print "Cannot set default theme to $theme_default.  That theme does not exist.\n";
2285                 $theme_default = $old_def;
2286             }
2287         } elsif ( $input =~ /^\s*\+/ ) {
2288             print "What is the name of this theme: ";
2289             $name = <STDIN>;
2290             $name =~ s/[\r|\n]//g;
2291             $theme_name[ $#theme_name + 1 ] = $name;
2292             print "Be sure to put ../themes/ before the filename.\n";
2293             print "What file is this stored in (ex: ../themes/default_theme.php): ";
2294             $name = <STDIN>;
2295             $name =~ s/[\r|\n]//g;
2296             $theme_path[ $#theme_path + 1 ] = $name;
2297         } elsif ( $input =~ /^\s*-\s*[0-9]?/ ) {
2298             if ( $input =~ /[0-9]+\s*$/ ) {
2299                 $rem_num = $input;
2300                 $rem_num =~ s/^\s*-\s*//g;
2301                 $rem_num =~ s/\s*$//;
2302             } else {
2303                 $rem_num = $#theme_name;
2304             }
2305             if ( $rem_num == $theme_default ) {
2306                 print "You cannot remove the default theme!\n";
2307             } else {
2308                 $count          = 0;
2309                 @new_theme_name = ();
2310                 @new_theme_path = ();
2311                 while ( $count <= $#theme_name ) {
2312                     if ( $count != $rem_num ) {
2313                         @new_theme_name = ( @new_theme_name, $theme_name[$count] );
2314                         @new_theme_path = ( @new_theme_path, $theme_path[$count] );
2315                     }
2316                     $count++;
2317                 }
2318                 @theme_name = @new_theme_name;
2319                 @theme_path = @new_theme_path;
2320                 if ( $theme_default > $rem_num ) {
2321                     $theme_default--;
2322                 }
2323             }
2324         } elsif ( $input =~ /^\s*t\s*/i ) {
2325             print "\nStarting detection...\n\n";
2326
2327             opendir( DIR, "../themes" );
2328             @files = grep { /\.php$/i } readdir(DIR);
2329             $cnt = 0;
2330             while ( $cnt <= $#files ) {
2331                 $filename = "../themes/" . $files[$cnt];
2332                 if ( $filename ne "../themes/index.php" ) {
2333                     $found = 0;
2334                     for ( $x = 0 ; $x <= $#theme_path ; $x++ ) {
2335                         if ( $theme_path[$x] eq $filename ) {
2336                             $found = 1;
2337                         }
2338                     }
2339                     if ( $found != 1 ) {
2340                         print "** Found theme: $filename\n";
2341                         print "   What is its name? ";
2342                         $nm = <STDIN>;
2343                         $nm =~ s/[\n|\r]//g;
2344                         $theme_name[ $#theme_name + 1 ] = $nm;
2345                         $theme_path[ $#theme_path + 1 ] = $filename;
2346                     }
2347                 }
2348                 $cnt++;
2349             }
2350             print "\n";
2351             for ( $cnt = 0 ; $cnt <= $#theme_path ; $cnt++ ) {
2352                 $filename = $theme_path[$cnt];
2353                 if ( !( -e $filename ) ) {
2354                     print "  Removing $filename (file not found)\n";
2355                     $offset         = 0;
2356                     @new_theme_name = ();
2357                     @new_theme_path = ();
2358                     for ( $x = 0 ; $x < $#theme_path ; $x++ ) {
2359                         if ( $theme_path[$x] eq $filename ) {
2360                             $offset = 1;
2361                         }
2362                         if ( $offset == 1 ) {
2363                             $new_theme_name[$x] = $theme_name[ $x + 1 ];
2364                             $new_theme_path[$x] = $theme_path[ $x + 1 ];
2365                         } else {
2366                             $new_theme_name[$x] = $theme_name[$x];
2367                             $new_theme_path[$x] = $theme_path[$x];
2368                         }
2369                     }
2370                     @theme_name = @new_theme_name;
2371                     @theme_path = @new_theme_path;
2372                 }
2373             }
2374             print "\nDetection complete!\n\n";
2375
2376             closedir DIR;
2377         } elsif ( $input =~ /^\s*\?\s*/ ) {
2378             print ".-------------------------.\n";
2379             print "| t       (detect themes) |\n";
2380             print "| +           (add theme) |\n";
2381             print "| - N      (remove theme) |\n";
2382             print "| m N      (mark default) |\n";
2383             print "| l         (list themes) |\n";
2384             print "| d                (done) |\n";
2385             print "`-------------------------'\n";
2386         }
2387         print "[theme] command (?=help) > ";
2388         $input = <STDIN>;
2389         $input =~ s/[\r|\n]//g;
2390     }
2391 }
2392
2393 # Theme - CSS file
2394 sub command42 {
2395     print "You may specify a cascading style-sheet (CSS) file to be included\n";
2396     print "on each html page generated by SquirrelMail. The CSS file is useful\n";
2397     print "for specifying a site-wide font. If you're not familiar with CSS\n";
2398     print "files, leave this blank.\n";
2399     print "\n";
2400     print "To clear out an existing value, just type a space for the input.\n";
2401     print "\n";
2402     print "Please be aware of the following: \n";
2403     print "  - Relative URLs are relative to the config dir\n";
2404     print "    to use the themes directory, use ../themes/css/newdefault.css\n";
2405     print "  - To specify a css file defined outside the SquirrelMail source tree\n";
2406     print "    use the absolute URL the webserver would use to include the file\n";
2407     print "    e.g. http://some.host.com/css/mystyle.css or /css/mystyle.css\n";
2408     print "\n";
2409     print "[$WHT$theme_css$NRM]: $WHT";
2410     $new_theme_css = <STDIN>;
2411
2412     if ( $new_theme_css eq "\n" ) {
2413         $new_theme_css = $theme_css;
2414     } else {
2415         $new_theme_css =~ s/[\r|\n]//g;
2416     }
2417     $new_theme_css =~ s/^\s*//;
2418     return $new_theme_css;
2419 }
2420
2421 sub command61 {
2422     print "You can now define different LDAP servers.\n";
2423     print "[ldap] command (?=help) > ";
2424     $input = <STDIN>;
2425     $input =~ s/[\r|\n]//g;
2426     while ( $input ne "d" ) {
2427         if ( $input =~ /^\s*l\s*/i ) {
2428             $count = 0;
2429             while ( $count <= $#ldap_host ) {
2430                 print "$count. $ldap_host[$count]\n";
2431                 print "        base: $ldap_base[$count]\n";
2432                 if ( $ldap_charset[$count] ) {
2433                     print "     charset: $ldap_charset[$count]\n";
2434                 }
2435                 if ( $ldap_port[$count] ) {
2436                     print "        port: $ldap_port[$count]\n";
2437                 }
2438                 if ( $ldap_name[$count] ) {
2439                     print "        name: $ldap_name[$count]\n";
2440                 }
2441                 if ( $ldap_maxrows[$count] ) {
2442                     print "     maxrows: $ldap_maxrows[$count]\n";
2443                 }
2444                 if ( $ldap_binddn[$count] ) {
2445                     print "      binddn: $ldap_binddn[$count]\n";
2446                     if ( $ldap_bindpw[$count] ) {
2447                         print "      bindpw: $ldap_bindpw[$count]\n";
2448                     }
2449                 }
2450                 if ( $ldap_protocol[$count] ) {
2451                     print "    protocol: $ldap_protocol[$count]\n";
2452                 }
2453
2454                 print "\n";
2455                 $count++;
2456             }
2457         } elsif ( $input =~ /^\s*\+/ ) {
2458             $sub = $#ldap_host + 1;
2459
2460             print "First, we need to have the hostname or the IP address where\n";
2461             print "this LDAP server resides.  Example: ldap.bigfoot.com\n";
2462             print "hostname: ";
2463             $name = <STDIN>;
2464             $name =~ s/[\r|\n]//g;
2465             $ldap_host[$sub] = $name;
2466
2467             print "\n";
2468
2469             print "Next, we need the server root (base dn).  For this, an empty\n";
2470             print "string is allowed.\n";
2471             print "Example: ou=member_directory,o=netcenter.com\n";
2472             print "base: ";
2473             $name = <STDIN>;
2474             $name =~ s/[\r|\n]//g;
2475             $ldap_base[$sub] = $name;
2476
2477             print "\n";
2478
2479             print "This is the TCP/IP port number for the LDAP server.  Default\n";
2480             print "port is 389.  This is optional.  Press ENTER for default.\n";
2481             print "port: ";
2482             $name = <STDIN>;
2483             $name =~ s/[\r|\n]//g;
2484             $ldap_port[$sub] = $name;
2485
2486             print "\n";
2487
2488             print "This is the charset for the server.  Default is utf-8.  This\n";
2489             print "is also optional.  Press ENTER for default.\n";
2490             print "charset: ";
2491             $name = <STDIN>;
2492             $name =~ s/[\r|\n]//g;
2493             $ldap_charset[$sub] = $name;
2494
2495             print "\n";
2496
2497             print "This is the name for the server, used to tag the results of\n";
2498             print "the search.  Default it \"LDAP: hostname\".  Press ENTER for default\n";
2499             print "name: ";
2500             $name = <STDIN>;
2501             $name =~ s/[\r|\n]//g;
2502             $ldap_name[$sub] = $name;
2503
2504             print "\n";
2505
2506             print "You can specify the maximum number of rows in the search result.\n";
2507             print "Default is unlimited.  Press ENTER for default.\n";
2508             print "maxrows: ";
2509             $name = <STDIN>;
2510             $name =~ s/[\r|\n]//g;
2511             $ldap_maxrows[$sub] = $name;
2512
2513             print "\n";
2514
2515             print "If your LDAP server does not like anonymous logins, you can specify bind DN.\n";
2516             print "Default is none, anonymous bind.  Press ENTER for default.\n";
2517             print "binddn: ";
2518             $name = <STDIN>;
2519             $name =~ s/[\r|\n]//g;
2520             $ldap_binddn[$sub] = $name;
2521
2522             print "\n";
2523
2524             if ( $ldap_binddn[$sub] ne '' ) {
2525
2526                 print "Now, please specify password for that DN.\n";
2527                 print "bindpw: ";
2528                 $name = <STDIN>;
2529                 $name =~ s/[\r|\n]//g;
2530                 $ldap_bindpw[$sub] = $name;
2531
2532                 print "\n";
2533             }
2534
2535             print "You can specify bind protocol version here.\n";
2536             print "Default protocol version depends on your php ldap settings.\n";
2537             print "Press ENTER for default.\n";
2538             print "protocol: ";
2539             $name = <STDIN>;
2540             $name =~ s/[\r|\n]//g;
2541             $ldap_protocol[$sub] = $name;
2542
2543             print "\n";
2544
2545         } elsif ( $input =~ /^\s*-\s*[0-9]?/ ) {
2546             if ( $input =~ /[0-9]+\s*$/ ) {
2547                 $rem_num = $input;
2548                 $rem_num =~ s/^\s*-\s*//g;
2549                 $rem_num =~ s/\s*$//;
2550             } else {
2551                 $rem_num = $#ldap_host;
2552             }
2553             $count            = 0;
2554             @new_ldap_host    = ();
2555             @new_ldap_base    = ();
2556             @new_ldap_port    = ();
2557             @new_ldap_name    = ();
2558             @new_ldap_charset = ();
2559             @new_ldap_maxrows = ();
2560             @new_ldap_bindpw  = ();
2561             @new_ldap_binddn  = ();
2562             @new_ldap_protocol = ();
2563
2564             while ( $count <= $#ldap_host ) {
2565                 if ( $count != $rem_num ) {
2566                     @new_ldap_host    = ( @new_ldap_host,    $ldap_host[$count] );
2567                     @new_ldap_base    = ( @new_ldap_base,    $ldap_base[$count] );
2568                     @new_ldap_port    = ( @new_ldap_port,    $ldap_port[$count] );
2569                     @new_ldap_name    = ( @new_ldap_name,    $ldap_name[$count] );
2570                     @new_ldap_charset = ( @new_ldap_charset, $ldap_charset[$count] );
2571                     @new_ldap_maxrows = ( @new_ldap_maxrows, $ldap_maxrows[$count] );
2572                     @new_ldap_binddn  = ( @new_ldap_binddn,  $ldap_binddn[$count] );
2573                     @new_ldap_bindpw  = ( @new_ldap_bindpw,  $ldap_bindpw[$count] );
2574                     @new_ldap_protocol  = ( @new_ldap_protocol,  $ldap_protocol[$count] );
2575                 }
2576                 $count++;
2577             }
2578             @ldap_host    = @new_ldap_host;
2579             @ldap_base    = @new_ldap_base;
2580             @ldap_port    = @new_ldap_port;
2581             @ldap_name    = @new_ldap_name;
2582             @ldap_charset = @new_ldap_charset;
2583             @ldap_maxrows = @new_ldap_maxrows;
2584             @ldap_binddn  = @new_ldap_binddn;
2585             @ldap_bindpw  = @new_ldap_bindpw;
2586             @ldap_protocol = @new_ldap_protocol;
2587
2588         } elsif ( $input =~ /^\s*\?\s*/ ) {
2589             print ".-------------------------.\n";
2590             print "| +            (add host) |\n";
2591             print "| - N       (remove host) |\n";
2592             print "| l          (list hosts) |\n";
2593             print "| d                (done) |\n";
2594             print "`-------------------------'\n";
2595         }
2596         print "[ldap] command (?=help) > ";
2597         $input = <STDIN>;
2598         $input =~ s/[\r|\n]//g;
2599     }
2600 }
2601
2602 sub command62 {
2603     print "Some of our developers have come up with very good javascript interface\n";
2604     print "for searching through address books, however, our original goals said\n";
2605     print "that we would be 100% HTML.  In order to make it possible to use their\n";
2606     print "interface, and yet stick with our goals, we have also written a plain\n";
2607     print "HTML version of the search.  Here, you can choose which version to use.\n";
2608     print "\n";
2609     print "This is just the default value.  It is also a user option that each\n";
2610     print "user can configure individually\n";
2611     print "\n";
2612
2613     if ( lc($default_use_javascript_addr_book) eq "true" ) {
2614         $default_value = "y";
2615     } else {
2616         $default_use_javascript_addr_book = "false";
2617         $default_value                    = "n";
2618     }
2619     print "Use javascript version by default (y/n) [$WHT$default_value$NRM]: $WHT";
2620     $new_show = <STDIN>;
2621     if ( ( $new_show =~ /^y\n/i ) || ( ( $new_show =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
2622         $default_use_javascript_addr_book = "true";
2623     } else {
2624         $default_use_javascript_addr_book = "false";
2625     }
2626     return $default_use_javascript_addr_book;
2627 }
2628
2629 sub command91 {
2630     print "If you want to store your users address book details in a database then\n";
2631     print "you need to set this DSN to a valid value. The format for this is:\n";
2632     print "mysql://user:pass\@hostname/dbname\n";
2633     print "Where mysql can be one of the databases PHP supports, the most common\n";
2634     print "of these are mysql, msql and pgsql\n";
2635     print "If the DSN is left empty (hit space and then return) the database\n";
2636     print "related code for address books will not be used\n";
2637     print "\n";
2638
2639     if ( $addrbook_dsn eq "" ) {
2640         $default_value = "Disabled";
2641     } else {
2642         $default_value = $addrbook_dsn;
2643     }
2644     print "[$WHT$addrbook_dsn$NRM]: $WHT";
2645     $new_dsn = <STDIN>;
2646     if ( $new_dsn eq "\n" ) {
2647         $new_dsn = "";
2648     } else {
2649         $new_dsn =~ s/[\r|\n]//g;
2650         $new_dsn =~ s/^\s+$//g;
2651     }
2652     return $new_dsn;
2653 }
2654
2655 sub command92 {
2656     print "This is the name of the table you want to store the address book\n";
2657     print "data in, it defaults to 'address'\n";
2658     print "\n";
2659     print "[$WHT$addrbook_table$NRM]: $WHT";
2660     $new_table = <STDIN>;
2661     if ( $new_table eq "\n" ) {
2662         $new_table = $addrbook_table;
2663     } else {
2664         $new_table =~ s/[\r|\n]//g;
2665     }
2666     return $new_table;
2667 }
2668
2669 sub command93 {
2670     print "If you want to store your users preferences in a database then\n";
2671     print "you need to set this DSN to a valid value. The format for this is:\n";
2672     print "mysql://user:pass\@hostname/dbname\n";
2673     print "Where mysql can be one of the databases PHP supports, the most common\n";
2674     print "of these are mysql, msql and pgsql\n";
2675     print "If the DSN is left empty (hit space and then return) the database\n";
2676     print "related code for address books will not be used\n";
2677     print "\n";
2678
2679     if ( $prefs_dsn eq "" ) {
2680         $default_value = "Disabled";
2681     } else {
2682         $default_value = $prefs_dsn;
2683     }
2684     print "[$WHT$prefs_dsn$NRM]: $WHT";
2685     $new_dsn = <STDIN>;
2686     if ( $new_dsn eq "\n" ) {
2687         $new_dsn = "";
2688     } else {
2689         $new_dsn =~ s/[\r|\n]//g;
2690         $new_dsn =~ s/^\s+$//g;
2691     }
2692     return $new_dsn;
2693 }
2694
2695 sub command94 {
2696     print "This is the name of the table you want to store the preferences\n";
2697     print "data in, it defaults to 'userprefs'\n";
2698     print "\n";
2699     print "[$WHT$prefs_table$NRM]: $WHT";
2700     $new_table = <STDIN>;
2701     if ( $new_table eq "\n" ) {
2702         $new_table = $prefs_table;
2703     } else {
2704         $new_table =~ s/[\r|\n]//g;
2705     }
2706     return $new_table;
2707 }
2708
2709 sub command95 {
2710     print "This is the name of the field in which you want to store the\n";
2711     print "username of the person the prefs are for. It default to 'user'\n";
2712     print "which clashes with a reserved keyword in PostgreSQL so this\n";
2713     print "will need to be changed for that database at least\n";
2714     print "\n";
2715     print "[$WHT$prefs_user_field$NRM]: $WHT";
2716     $new_field = <STDIN>;
2717     if ( $new_field eq "\n" ) {
2718         $new_field = $prefs_user_field;
2719     } else {
2720         $new_field =~ s/[\r|\n]//g;
2721     }
2722     return $new_field;
2723 }
2724
2725 sub command96 {
2726     print "This is the name of the field in which you want to store the\n";
2727     print "preferences keyword. It defaults to 'prefkey'\n";
2728     print "\n";
2729     print "[$WHT$prefs_key_field$NRM]: $WHT";
2730     $new_field = <STDIN>;
2731     if ( $new_field eq "\n" ) {
2732         $new_field = $prefs_key_field;
2733     } else {
2734         $new_field =~ s/[\r|\n]//g;
2735     }
2736     return $new_field;
2737 }
2738
2739 sub command97 {
2740     print "This is the name of the field in which you want to store the\n";
2741     print "preferences value. It defaults to 'prefval'\n";
2742     print "\n";
2743     print "[$WHT$prefs_val_field$NRM]: $WHT";
2744     $new_field = <STDIN>;
2745     if ( $new_field eq "\n" ) {
2746         $new_field = $prefs_val_field;
2747     } else {
2748         $new_field =~ s/[\r|\n]//g;
2749     }
2750     return $new_field;
2751 }
2752
2753 sub command98 {
2754     print "If you want to store your global address book in a database then\n";
2755     print "you need to set this DSN to a valid value. The format for this is:\n";
2756     print "mysql://user:pass\@hostname/dbname\n";
2757     print "Where mysql can be one of the databases PHP supports, the most common\n";
2758     print "of these are mysql, msql and pgsql\n";
2759     print "If the DSN is left empty (hit space and then return) the database\n";
2760     print "related code for global SQL address book will not be used\n";
2761     print "\n";
2762
2763     if ( $addrbook_global_dsn eq "" ) {
2764         $default_value = "Disabled";
2765     } else {
2766         $default_value = $addrbook_global_dsn;
2767     }
2768     print "[$WHT$addrbook_global_dsn$NRM]: $WHT";
2769     $new_dsn = <STDIN>;
2770     if ( $new_dsn eq "\n" ) {
2771         $new_dsn = "";
2772     } else {
2773         $new_dsn =~ s/[\r|\n]//g;
2774         $new_dsn =~ s/^\s+$//g;
2775     }
2776     return $new_dsn;
2777 }
2778
2779 sub command99 {
2780     print "This is the name of the table you want to store the global address book\n";
2781     print "data in, it defaults to 'global_address'\n";
2782     print "\n";
2783     print "[$WHT$addrbook_global_table$NRM]: $WHT";
2784     $new_table = <STDIN>;
2785     if ( $new_table eq "\n" ) {
2786         $new_table = $addrbook_global_table;
2787     } else {
2788         $new_table =~ s/[\r|\n]//g;
2789     }
2790     return $new_table;
2791 }
2792
2793 sub command910 {
2794     print "This option controls users\' ability to add or modify records stored \n";
2795     print "in global address book\n";
2796
2797     if ( lc($addrbook_global_writeable) eq "true" ) {
2798         $default_value = "y";
2799     } else {
2800         $default_value = "n";
2801     }
2802     print "Allow writing into global address book? (y/n) [$WHT$default_value$NRM]: $WHT";
2803     $addrbook_global_writeable = <STDIN>;
2804     if ( ( $addrbook_global_writeable =~ /^y\n/i ) || ( ( $addrbook_global_writeable =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
2805         $addrbook_global_writeable = "true";
2806     } else {
2807         $addrbook_global_writeable = "false";
2808     }
2809     return $addrbook_global_writeable;
2810 }
2811
2812 sub command911 {
2813     print "Enable this option if you want to see listing of addresses stored \n";
2814     print "in global address book\n";
2815
2816     if ( lc($addrbook_global_listing) eq "true" ) {
2817         $default_value = "y";
2818     } else {
2819         $default_value = "n";
2820     }
2821     print "Allow listing of global address book? (y/n) [$WHT$default_value$NRM]: $WHT";
2822     $addrbook_global_listing = <STDIN>;
2823     if ( ( $addrbook_global_listing =~ /^y\n/i ) || ( ( $addrbook_global_listing =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
2824         $addrbook_global_listing = "true";
2825     } else {
2826         $addrbook_global_listing = "false";
2827     }
2828     return $addrbook_global_listing;
2829 }
2830
2831
2832 # Default language
2833 sub commandA1 {
2834     print "SquirrelMail attempts to set the language in many ways.  If it\n";
2835     print "can not figure it out in another way, it will default to this\n";
2836     print "language.  Please use the code for the desired language.\n";
2837     print "\n";
2838     print "[$WHT$squirrelmail_default_language$NRM]: $WHT";
2839     $new_squirrelmail_default_language = <STDIN>;
2840     if ( $new_squirrelmail_default_language eq "\n" ) {
2841         $new_squirrelmail_default_language = $squirrelmail_default_language;
2842     } else {
2843         $new_squirrelmail_default_language =~ s/[\r|\n]//g;
2844         $new_squirrelmail_default_language =~ s/^\s+$//g;
2845     }
2846     return $new_squirrelmail_default_language;
2847 }
2848 # Default Charset
2849 sub commandA2 {
2850 #    print "This option controls what character set is used when sending\n";
2851 #    print "mail and when sending HTML to the browser.  Do not set this\n";
2852 #    print "to US-ASCII, use ISO-8859-1 instead.  For cyrillic, it is best\n";
2853 #    print "to use KOI8-R, since this implementation is faster than most\n";
2854 #    print "of the alternatives\n";
2855     print "This option is obsolate. Default charset depends on language\n";
2856     print "you have selected in \"Default language\" option.\n";
2857     print "\n";
2858
2859     print "[$WHT$default_charset$NRM]: $WHT";
2860     $new_default_charset = <STDIN>;
2861     if ( $new_default_charset eq "\n" ) {
2862         $new_default_charset = $default_charset;
2863     } else {
2864         $new_default_charset =~ s/[\r|\n]//g;
2865     }
2866     return $new_default_charset;
2867 }
2868 # Alternative language names
2869 sub commandA3 {
2870     print "Enable this option if you want to see localized language names in\n";
2871     print "language selection box. Note, that if don't limit list of available\n";
2872     print "languages, this option can trigger installation of foreign language\n";
2873     print "support modules in some browsers.\n";
2874     print "\n";
2875
2876     if ( lc($show_alternative_names) eq "true" ) {
2877         $default_value = "y";
2878     } else {
2879         $default_value = "n";
2880     }
2881     print "Show alternative language names? (y/n) [$WHT$default_value$NRM]: $WHT";
2882     $show_alternative_names = <STDIN>;
2883     if ( ( $show_alternative_names =~ /^y\n/i ) || ( ( $show_alternative_names =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
2884         $show_alternative_names = "true";
2885     } else {
2886         $show_alternative_names = "false";
2887     }
2888     return $show_alternative_names;
2889 }
2890 # Available languages
2891 sub commandA4 {
2892     print "This option allows to limit number of languages available in\n";
2893     print "language selection box. You can enter as code of every language that\n";
2894     print "you want to enable. Language codes should be separated by space. If you\n";
2895     print "enter name unsupported by SquirrelMail, it will be ignored. If you enter\n";
2896     print "special key \'all\' - all languages available in SquirrelMail will be\n";
2897     print "listed. If you enter special key \'none\' - user won't be able to change";
2898     print "language and interface will use language set it \"Default language\" option.\n";
2899     print "\n";
2900     print "Valid language names are:\n";
2901     print " ar (Arabic), bg_BG (Bulgarian), ca_ES (Catalan), cy_GB (Welsh)\n";
2902     print " cs_CZ (Chech), da_DK (Danish), de_DE (German), el_GR (Greek),\n";
2903     print " en_US (English), es_ES (Spanish), et_EE (Estonian), fi_FI (Finnish),\n";
2904     print " fo_FO (Faroese), fr_FR (French), he_IL (Hebrew), hr_HR (Croatian),\n";
2905     print " hu_HU (Hungarian), id_ID (Indonesian), is_IS (Icelandic), it_IT (Italian),\n";
2906     print " ja_JP (Japanese), ko_KR (Korean), lt_LT (Lithuanian), ms_MY (Malay),\n";
2907     print " nl_NL (Dutch), nn_NO (Norwegian (Nynorsk)), no_NO (Norwegian (Bokmal)),\n";
2908     print " pl_PL (Polish), pt_BR (Portuguese (Brazil)), pt_PT (Portuguese (Portugal)),\n";
2909     print " ro_RO (Romanian), ru_RU (Russian), sk_SK (Slovak), sl_SI (Slovenian),\n";
2910     print " sr_YU (Serbian), sv_SE (Swedish), th_TH (Thai), tr_TR (Turkish),\n";
2911     print " zh_CN (Chinese Simplified), zh_TW (Chinese Traditional).\n";
2912     print "\n";
2913     print "[$WHT$available_languages$NRM]: $WHT";
2914     $new_available_languages = <STDIN>;
2915     if ( $new_available_languages eq "\n" ) {
2916         $new_available_languages = $available_languages;
2917     } else {
2918         $new_available_languages =~ s/[\r|\n]//g;
2919         $new_available_languages =~ s/^\s+$//g;
2920     }
2921     return $new_available_languages;
2922 }
2923 # Agresive decoding
2924 sub commandA5 {
2925     print "Enable this option if you want to use CPU and memory intensive decoding\n";
2926     print "functions. This option allows reading multibyte charset, that are used\n";
2927     print "in Eastern Asia. SquirrelMail will try to use recode functions here,\n";
2928     print "even when you have disabled use of recode in Tweaks section.\n";
2929     print "\n";
2930
2931     if ( lc($agresive_decoding) eq "true" ) {
2932         $default_value = "y";
2933     } else {
2934         $default_value = "n";
2935     }
2936     print "Use agresive decoding? (y/n) [$WHT$default_value$NRM]: $WHT";
2937     $agresive_decoding = <STDIN>;
2938     if ( ( $agresive_decoding =~ /^y\n/i ) || ( ( $agresive_decoding =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
2939         $agresive_decoding = "true";
2940     } else {
2941         $agresive_decoding = "false";
2942     }
2943     return $agresive_decoding;
2944 }
2945
2946 # Advanced tree
2947 sub commandB1 {
2948     print "Enable this option if you want to use DHTML based folder listing.\n";
2949     print "Code is experimental, works only with some browsers and there might\n";
2950     print "be some glitches.\n";
2951     print "\n";
2952
2953     if ( lc($advanced_tree) eq "true" ) {
2954         $default_value = "y";
2955     } else {
2956         $default_value = "n";
2957     }
2958     print "Use advanced tree in folder listing? (y/n) [$WHT$default_value$NRM]: $WHT";
2959     $advanced_tree = <STDIN>;
2960     if ( ( $advanced_tree =~ /^y\n/i ) || ( ( $advanced_tree =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
2961         $advanced_tree = "true";
2962     } else {
2963         $advanced_tree = "false";
2964     }
2965     return $advanced_tree;
2966 }
2967 # Oldway
2968 sub commandB2 {
2969     print "Setting \$oldway to false causes left_main.php to use the new\n";
2970     print "experimental way of getting the mailbox-tree.\n";
2971     print "\n";
2972
2973     if ( lc($oldway) eq "true" ) {
2974         $default_value = "y";
2975     } else {
2976         $default_value = "n";
2977     }
2978     print "Use old way of folder list display? (y/n) [$WHT$default_value$NRM]: $WHT";
2979     $oldway = <STDIN>;
2980     if ( ( $oldway =~ /^y\n/i ) || ( ( $oldway =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
2981         $oldway = "true";
2982     } else {
2983         $oldway = "false";
2984     }
2985     return $oldway;
2986 }
2987 # php recode
2988 sub commandB3 {
2989     print "Enable this option if you want to use php recode functions to read\n";
2990     print "emails written in charset that differs from the one that is set in\n";
2991     print "translation selected by user. Code is experimental, it might cause\n";
2992     print "errors, if email contains charset unsupported by recode or if your\n";
2993     print "php does not have recode support.\n";
2994     print "\n";
2995
2996     if ( lc($use_php_recode) eq "true" ) {
2997         $default_value = "y";
2998     } else {
2999         $default_value = "n";
3000     }
3001     print "Use php recode functions? (y/n) [$WHT$default_value$NRM]: $WHT";
3002     $use_php_recode = <STDIN>;
3003     if ( ( $use_php_recode =~ /^y\n/i ) || ( ( $use_php_recode =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
3004         $use_php_recode = "true";
3005     } else {
3006         $use_php_recode = "false";
3007     }
3008     return $use_php_recode;
3009 }
3010 # php iconv
3011 sub commandB4 {
3012     print "Enable this option if you want to use php iconv functions to read\n";
3013     print "emails written in charset that differs from the one that is set in\n";
3014     print "translation selected by user. Code is experimental, it works only\n";
3015     print "with translations that use utf-8 charset. Code might cause errors,\n";
3016     print "if email contains charset unsupported by iconv or if your php does\n";
3017     print "not have iconv support.\n";
3018     print "\n";
3019
3020     if ( lc($use_php_iconv) eq "true" ) {
3021         $default_value = "y";
3022     } else {
3023         $default_value = "n";
3024     }
3025     print "Use php iconv functions? (y/n) [$WHT$default_value$NRM]: $WHT";
3026     $use_php_iconv = <STDIN>;
3027     if ( ( $use_php_iconv =~ /^y\n/i ) || ( ( $use_php_iconv =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
3028         $use_php_iconv = "true";
3029     } else {
3030         $use_php_iconv = "false";
3031     }
3032     return $use_php_iconv;
3033 }
3034
3035
3036 sub save_data {
3037     $tab = "    ";
3038     if ( open( CF, ">config.php" ) ) {
3039         print CF "<?php\n";
3040         print CF "\n";
3041
3042         print CF "/**\n";
3043         print CF " * SquirrelMail Configuration File\n";
3044         print CF " * Created using the configure script, conf.pl\n";
3045         print CF " */\n";
3046         print CF "\n";
3047         print CF "global \$version;\n";
3048
3049         if ($print_config_version) {
3050             print CF "\$config_version = '$print_config_version';\n";
3051         }
3052         # integer
3053         print CF "\$config_use_color = $config_use_color;\n";
3054         print CF "\n";
3055
3056         # string
3057         print CF "\$org_name      = \"$org_name\";\n";
3058         # string
3059         print CF "\$org_logo      = " . &change_to_SM_path($org_logo) . ";\n";
3060         $org_logo_width |= 0;
3061         $org_logo_height |= 0;
3062         # string
3063         print CF "\$org_logo_width  = '$org_logo_width';\n";
3064         # string
3065         print CF "\$org_logo_height = '$org_logo_height';\n";
3066         # string that can contain variables.
3067         print CF "\$org_title     = \"$org_title\";\n";
3068         # string
3069         print CF "\$signout_page  = " . &change_to_SM_path($signout_page) . ";\n";
3070         # string
3071         print CF "\$frame_top     = '$frame_top';\n";
3072         print CF "\n";
3073
3074         print CF "\$provider_uri     = '$provider_uri';\n";
3075         print CF "\n";
3076
3077         print CF "\$provider_name     = '$provider_name';\n";
3078         print CF "\n";
3079
3080         # string that can contain variables
3081         print CF "\$motd = \"$motd\";\n";
3082         print CF "\n";
3083
3084         # string
3085         print CF "\$squirrelmail_default_language = '$squirrelmail_default_language';\n";
3086         # string
3087         print CF "\$default_charset          = '$default_charset';\n";
3088         # boolean
3089         print CF "\$show_alternative_names   = $show_alternative_names;\n";
3090         # string
3091         print CF "\$available_languages   = '$available_languages';\n";
3092         # boolean
3093         print CF "\$agresive_decoding   = $agresive_decoding;\n";
3094         print CF "\n";
3095
3096         # string
3097         print CF "\$domain                 = '$domain';\n";
3098         # string
3099         print CF "\$imapServerAddress      = '$imapServerAddress';\n";
3100         # integer
3101         print CF "\$imapPort               = $imapPort;\n";
3102         # boolean
3103         print CF "\$useSendmail            = $useSendmail;\n";
3104         # string
3105         print CF "\$smtpServerAddress      = '$smtpServerAddress';\n";
3106         # integer
3107         print CF "\$smtpPort               = $smtpPort;\n";
3108         # string
3109         print CF "\$sendmail_path          = '$sendmail_path';\n";
3110         # boolean
3111 #        print CF "\$use_authenticated_smtp = $use_authenticated_smtp;\n";
3112         # boolean
3113         print CF "\$pop_before_smtp        = $pop_before_smtp;\n";
3114         # string
3115         print CF "\$imap_server_type       = '$imap_server_type';\n";
3116         # boolean
3117         print CF "\$invert_time            = $invert_time;\n";
3118         # string
3119         print CF "\$optional_delimiter     = '$optional_delimiter';\n";
3120         print CF "\n";
3121
3122         # string
3123         print CF "\$default_folder_prefix          = '$default_folder_prefix';\n";
3124         # string
3125         print CF "\$trash_folder                   = '$trash_folder';\n";
3126         # string
3127         print CF "\$sent_folder                    = '$sent_folder';\n";
3128         # string
3129         print CF "\$draft_folder                   = '$draft_folder';\n";
3130         # boolean
3131         print CF "\$default_move_to_trash          = $default_move_to_trash;\n";
3132         # boolean
3133         print CF "\$default_move_to_sent           = $default_move_to_sent;\n";
3134         # boolean
3135         print CF "\$default_save_as_draft          = $default_save_as_draft;\n";
3136         # boolean
3137         print CF "\$show_prefix_option             = $show_prefix_option;\n";
3138         # boolean
3139         print CF "\$list_special_folders_first     = $list_special_folders_first;\n";
3140         # boolean
3141         print CF "\$use_special_folder_color       = $use_special_folder_color;\n";
3142         # boolean
3143         print CF "\$auto_expunge                   = $auto_expunge;\n";
3144         # boolean
3145         print CF "\$default_sub_of_inbox           = $default_sub_of_inbox;\n";
3146         # boolean
3147         print CF "\$show_contain_subfolders_option = $show_contain_subfolders_option;\n";
3148         # integer
3149         print CF "\$default_unseen_notify          = $default_unseen_notify;\n";
3150         # integer
3151         print CF "\$default_unseen_type            = $default_unseen_type;\n";
3152         # boolean
3153         print CF "\$auto_create_special            = $auto_create_special;\n";
3154         # boolean
3155         print CF "\$delete_folder                  = $delete_folder;\n";
3156     # boolean
3157         print CF "\$noselect_fix_enable            = $noselect_fix_enable;\n";
3158
3159         print CF "\n";
3160
3161         # string
3162         print CF "\$data_dir                 = " . &change_to_SM_path($data_dir) . ";\n";
3163         # string that can contain a variable
3164         print CF "\$attachment_dir           = " . &change_to_SM_path($attachment_dir) . ";\n";
3165         # integer
3166         print CF "\$dir_hash_level           = $dir_hash_level;\n";
3167         # string
3168         print CF "\$default_left_size        = '$default_left_size';\n";
3169         # boolean
3170         print CF "\$force_username_lowercase = $force_username_lowercase;\n";
3171         # boolean
3172         print CF "\$default_use_priority     = $default_use_priority;\n";
3173         # boolean
3174         print CF "\$hide_sm_attributions     = $hide_sm_attributions;\n";
3175         # boolean
3176         print CF "\$default_use_mdn          = $default_use_mdn;\n";
3177         # boolean
3178         print CF "\$edit_identity            = $edit_identity;\n";
3179         # boolean
3180         print CF "\$edit_name                = $edit_name;\n";
3181         # boolean
3182         print CF "\$allow_thread_sort        = $allow_thread_sort;\n";
3183         # boolean
3184         print CF "\$allow_server_sort        = $allow_server_sort;\n";
3185         # boolean
3186         print CF "\$allow_charset_search     = $allow_charset_search;\n";
3187         print CF "\n";
3188
3189         # all plugins are strings
3190         for ( $ct = 0 ; $ct <= $#plugins ; $ct++ ) {
3191             print CF "\$plugins[$ct] = '$plugins[$ct]';\n";
3192         }
3193         print CF "\n";
3194
3195         # strings
3196         print CF "\$theme_css = " . &change_to_SM_path($theme_css) . ";\n";
3197         if ( $theme_default eq '' ) { $theme_default = '0'; }
3198         print CF "\$theme_default = $theme_default;\n";
3199
3200         for ( $count = 0 ; $count <= $#theme_name ; $count++ ) {
3201             print CF "\$theme[$count]['PATH'] = " . &change_to_SM_path($theme_path[$count]) . ";\n";
3202             print CF "\$theme[$count]['NAME'] = '$theme_name[$count]';\n";
3203         }
3204         print CF "\n";
3205
3206         if ( $default_use_javascript_addr_book ne "true" ) {
3207             $default_use_javascript_addr_book = "false";
3208         }
3209
3210         # boolean
3211         print CF "\$default_use_javascript_addr_book = $default_use_javascript_addr_book;\n";
3212         for ( $count = 0 ; $count <= $#ldap_host ; $count++ ) {
3213             print CF "\$ldap_server[$count] = array(\n";
3214             # string
3215             print CF "    'host' => '$ldap_host[$count]',\n";
3216             # string
3217             print CF "    'base' => '$ldap_base[$count]'";
3218             if ( $ldap_name[$count] ) {
3219                 print CF ",\n";
3220                 # string
3221                 print CF "    'name' => '$ldap_name[$count]'";
3222             }
3223             if ( $ldap_port[$count] ) {
3224                 print CF ",\n";
3225                 # integer
3226                 print CF "    'port' => $ldap_port[$count]";
3227             }
3228             if ( $ldap_charset[$count] ) {
3229                 print CF ",\n";
3230                 # string
3231                 print CF "    'charset' => '$ldap_charset[$count]'";
3232             }
3233             if ( $ldap_maxrows[$count] ) {
3234                 print CF ",\n";
3235                 # integer
3236                 print CF "    'maxrows' => $ldap_maxrows[$count]";
3237             }
3238             if ( $ldap_binddn[$count] ) {
3239                 print CF ",\n";
3240                 # string
3241                 print CF "    'binddn' => '$ldap_binddn[$count]'";
3242                 if ( $ldap_bindpw[$count] ) {
3243                     print CF ",\n";
3244                     # string
3245                     print CF "    'bindpw' => '$ldap_bindpw[$count]'";
3246                 }
3247             }
3248             if ( $ldap_protocol[$count] ) {
3249                 print CF ",\n";
3250                 # integer
3251                 print CF "    'protocol' => $ldap_protocol[$count]";
3252             }
3253             print CF "\n";
3254             print CF ");\n";
3255             print CF "\n";
3256         }
3257
3258         # string
3259         print CF "\$addrbook_dsn = '$addrbook_dsn';\n";
3260         # string
3261         print CF "\$addrbook_table = '$addrbook_table';\n\n";
3262         # string
3263         print CF "\$prefs_dsn = '$prefs_dsn';\n";
3264         # string
3265         print CF "\$prefs_table = '$prefs_table';\n";
3266         # string
3267         print CF "\$prefs_user_field = '$prefs_user_field';\n";
3268         # string
3269         print CF "\$prefs_key_field = '$prefs_key_field';\n";
3270         # string
3271         print CF "\$prefs_val_field = '$prefs_val_field';\n\n";
3272         # string
3273         print CF "\$addrbook_global_dsn = '$addrbook_global_dsn';\n";
3274         # string
3275         print CF "\$addrbook_global_table = '$addrbook_global_table';\n";
3276         # boolean
3277         print CF "\$addrbook_global_writeable = $addrbook_global_writeable;\n\n";
3278         # boolean
3279         print CF "\$addrbook_global_listing = $addrbook_global_listing;\n\n";
3280         # boolean
3281                 print CF "\$no_list_for_subscribe = $no_list_for_subscribe;\n";
3282
3283         # string
3284                 print CF "\$smtp_auth_mech = '$smtp_auth_mech';\n";
3285                 print CF "\$imap_auth_mech = '$imap_auth_mech';\n";
3286         # boolean
3287             print CF "\$use_imap_tls = $use_imap_tls;\n";
3288                 print CF "\$use_smtp_tls = $use_smtp_tls;\n";
3289
3290                 print CF "\$session_name = '$session_name';\n";
3291
3292             print CF "\n";
3293
3294         # boolean
3295         print CF "\$advanced_tree = $advanced_tree;\n";
3296         print CF "\n";
3297         # boolean
3298         print CF "\$oldway = $oldway;\n";
3299         print CF "\n";
3300         # boolean
3301         print CF "\$use_php_recode = $use_php_recode;\n";
3302         print CF "\n";
3303         # boolean
3304         print CF "\$use_php_iconv = $use_php_iconv;\n";
3305         print CF "\n";
3306
3307                 print CF "\@include SM_PATH . 'config/config_local.php';\n";
3308
3309                 print CF "\n/**\n";
3310             print CF " * Make sure there are no characters after the PHP closing\n";
3311             print CF " * tag below (including newline characters and whitespace).\n";
3312             print CF " * Otherwise, that character will cause the headers to be\n";
3313             print CF " * sent and regular output to begin, which will majorly screw\n";
3314             print CF " * things up when we try to send more headers later.\n";
3315             print CF " */\n";
3316             print CF "?>";
3317
3318                 close CF;
3319
3320             print "Data saved in config.php\n";
3321     } else {
3322         print "Error saving config.php: $!\n";
3323     }
3324 }
3325
3326 sub set_defaults {
3327     clear_screen();
3328     print $WHT. "SquirrelMail Configuration : " . $NRM;
3329     if    ( $config == 1 ) { print "Read: config.php"; }
3330     elsif ( $config == 2 ) { print "Read: config_default.php"; }
3331     print "\n";
3332     print "---------------------------------------------------------\n";
3333
3334     print "While we have been building SquirrelMail, we have discovered some\n";
3335     print "preferences that work better with some servers that don't work so\n";
3336     print "well with others.  If you select your IMAP server, this option will\n";
3337     print "set some pre-defined settings for that server.\n";
3338     print "\n";
3339     print "Please note that you will still need to go through and make sure\n";
3340     print "everything is correct.  This does not change everything.  There are\n";
3341     print "only a few settings that this will change.\n";
3342     print "\n";
3343
3344     $continue = 0;
3345     while ( $continue != 1 ) {
3346         print "Please select your IMAP server:\n";
3347         print "    cyrus      = Cyrus IMAP server\n";
3348         print "    uw         = University of Washington's IMAP server\n";
3349         print "    exchange   = Microsoft Exchange IMAP server\n";
3350         print "    courier    = Courier IMAP server\n";
3351         print "    macosx     = Mac OS X Mailserver\n";
3352         print "    mercury32  = Mercury/32\n";
3353         print "    quit       = Do not change anything\n";
3354         print "Command >> ";
3355         $server = <STDIN>;
3356         $server =~ s/[\r|\n]//g;
3357
3358         print "\n";
3359         if ( $server eq "cyrus" ) {
3360             $imap_server_type               = "cyrus";
3361             $default_folder_prefix          = "";
3362             $trash_folder                   = "INBOX.Trash";
3363             $sent_folder                    = "INBOX.Sent";
3364             $draft_folder                   = "INBOX.Drafts";
3365             $show_prefix_option             = false;
3366             $default_sub_of_inbox           = true;
3367             $show_contain_subfolders_option = false;
3368             $optional_delimiter             = ".";
3369             $disp_default_folder_prefix     = "<none>";
3370             $force_username_lowercase       = false;
3371
3372             $continue = 1;
3373         } elsif ( $server eq "uw" ) {
3374             $imap_server_type               = "uw";
3375             $default_folder_prefix          = "mail/";
3376             $trash_folder                   = "Trash";
3377             $sent_folder                    = "Sent";
3378             $draft_folder                   = "Drafts";
3379             $show_prefix_option             = true;
3380             $default_sub_of_inbox           = false;
3381             $show_contain_subfolders_option = true;
3382             $optional_delimiter             = "/";
3383             $disp_default_folder_prefix     = $default_folder_prefix;
3384             $delete_folder                  = true;
3385             $force_username_lowercase       = true;
3386
3387             $continue = 1;
3388         } elsif ( $server eq "exchange" ) {
3389             $imap_server_type               = "exchange";
3390             $default_folder_prefix          = "";
3391             $default_sub_of_inbox           = true;
3392             $trash_folder                   = "INBOX/Deleted Items";
3393             $sent_folder                    = "INBOX/Sent Items";
3394             $drafts_folder                  = "INBOX/Drafts";
3395             $show_prefix_option             = false;
3396             $show_contain_subfolders_option = false;
3397             $optional_delimiter             = "detect";
3398             $disp_default_folder_prefix     = "<none>";
3399             $force_username_lowercase       = true;
3400
3401             $continue = 1;
3402         } elsif ( $server eq "courier" ) {
3403             $imap_server_type               = "courier";
3404             $default_folder_prefix          = "INBOX.";
3405             $trash_folder                   = "Trash";
3406             $sent_folder                    = "Sent";
3407             $draft_folder                   = "Drafts";
3408             $show_prefix_option             = false;
3409             $default_sub_of_inbox           = false;
3410             $show_contain_subfolders_option = false;
3411             $optional_delimiter             = ".";
3412             $disp_default_folder_prefix     = $default_folder_prefix;
3413             $delete_folder                  = true;
3414             $force_username_lowercase       = false;
3415
3416             $continue = 1;
3417         } elsif ( $server eq "macosx" ) {
3418             $imap_server_type               = "macosx";
3419             $default_folder_prefix          = "INBOX/";
3420             $trash_folder                   = "Trash";
3421             $sent_folder                    = "Sent";
3422             $draft_folder                   = "Drafts";
3423             $show_prefix_option             = false;
3424             $default_sub_of_inbox           = true;
3425             $show_contain_subfolders_option = false;
3426             $optional_delimiter             = "detect";
3427             $allow_charset_search           = false;
3428             $disp_default_folder_prefix     = $default_folder_prefix;
3429
3430             $continue = 1;
3431         } elsif ( $server eq "mercury32" ) {
3432             $imap_server_type               = "mercury32";
3433             $default_folder_prefix          = "";
3434             $trash_folder                   = "INBOX.Trash";
3435             $sent_folder                    = "INBOX.Sent";
3436             $draft_folder                   = "INBOX.Drafts";
3437             $show_prefix_option             = false;
3438             $default_sub_of_inbox           = true;
3439             $show_contain_subfolders_option = true;
3440             $optional_delimiter             = "detect";
3441             $delete_folder                  = true;
3442             $force_username_lowercase       = true;
3443
3444             $continue = 1;
3445         } elsif ( $server eq "quit" ) {
3446             $continue = 1;
3447         } else {
3448             $disp_default_folder_prefix = $default_folder_prefix;
3449             print "Unrecognized server: $server\n";
3450             print "\n";
3451         }
3452
3453         print "              imap_server_type = $imap_server_type\n";
3454         print "         default_folder_prefix = $disp_default_folder_prefix\n";
3455         print "                  trash_folder = $trash_folder\n";
3456         print "                   sent_folder = $sent_folder\n";
3457         print "                  draft_folder = $draft_folder\n";
3458         print "            show_prefix_option = $show_prefix_option\n";
3459         print "          default_sub_of_inbox = $default_sub_of_inbox\n";
3460         print "show_contain_subfolders_option = $show_contain_subfolders_option\n";
3461         print "            optional_delimiter = $optional_delimiter\n";
3462         print "                 delete_folder = $delete_folder\n";
3463         print "      force_username_lowercase = $force_username_lowercase\n";
3464     }
3465     print "\nPress enter to continue...";
3466     $tmp = <STDIN>;
3467 }
3468
3469 # This subroutine corrects relative paths to ensure they
3470 # will work within the SM space. If the path falls within
3471 # the SM directory tree, the SM_PATH variable will be
3472 # prepended to the path, if not, then the path will be
3473 # converted to an absolute path, e.g.
3474 #   '../images/logo.gif'      --> SM_PATH . 'images/logo.gif'
3475 #   '../../someplace/data'    --> '/absolute/path/someplace/data'
3476 #   'images/logo.gif'         --> SM_PATH . 'config/images/logo.gif'
3477 #   '/absolute/path/logo.gif' --> '/absolute/path/logo.gif'
3478 #   'http://whatever/'        --> 'http://whatever'
3479 #   $some_var/path            --> "$some_var/path"
3480 sub change_to_SM_path() {
3481     my ($old_path) = @_;
3482     my $new_path = '';
3483     my @rel_path;
3484     my @abs_path;
3485     my $subdir;
3486
3487     # If the path is absolute, don't bother.
3488     return "\'" . $old_path . "\'"  if ( $old_path eq '');
3489     return "\'" . $old_path . "\'"  if ( $old_path =~ /^(\/|http)/ );
3490     return "\'" . $old_path . "\'"  if ( $old_path =~ /^\w:\// );
3491     return $old_path                if ( $old_path =~ /^\'(\/|http)/ );
3492     return $old_path                if ( $old_path =~ /^\'\w:\// );
3493     return $old_path                if ( $old_path =~ /^SM_PATH/);
3494
3495     if ( $old_path =~ /^\$/ ) {
3496         # check if it's a single var, or a $var/path combination
3497         # if it's $var/path, enclose in ""
3498         if ( $old_path =~ /\// ) {
3499             return '"'.$old_path.'"';
3500         }
3501         return $old_path;
3502     }
3503
3504     # Remove remaining '
3505     $old_path =~ s/\'//g;
3506
3507     # For relative paths, split on '../'
3508     @rel_path = split(/\.\.\//, $old_path);
3509
3510     if ( $#rel_path > 1 ) {
3511         # more than two levels away. Make it absolute.
3512         @abs_path = split(/\//, $dir);
3513
3514         # Lop off the relative pieces of the absolute path..
3515         for ( $i = 0; $i <= $#rel_path; $i++ ) {
3516             pop @abs_path;
3517             shift @rel_path;
3518         }
3519         push @abs_path, @rel_path;
3520         $new_path = "\'" . join('/', @abs_path) . "\'";
3521     } elsif ( $#rel_path > 0 ) {
3522         # it's within the SM tree, prepend SM_PATH
3523         $new_path = $old_path;
3524         $new_path =~ s/^\.\.\//SM_PATH . \'/;
3525         $new_path .= "\'";
3526     } else {
3527         # Last, it's a relative path without any leading '.'
3528         # Prepend SM_PATH and config, since the paths are
3529         # relative to the config directory
3530         $new_path = "SM_PATH . \'config/" . $old_path . "\'";
3531     }
3532   return $new_path;
3533 }
3534
3535
3536 # Change SM_PATH to admin-friendly version, e.g.:
3537 #  SM_PATH . 'images/logo.gif' --> '../images/logo.gif'
3538 #  SM_PATH . 'config/some.php' --> 'some.php'
3539 #  '/absolute/path/logo.gif'   --> '/absolute/path/logo.gif'
3540 #  'http://whatever/'          --> 'http://whatever'
3541 sub change_to_rel_path() {
3542     my ($old_path) = @_;
3543     my $new_path = $old_path;
3544
3545     if ( $old_path =~ /^SM_PATH/ ) {
3546         $new_path =~ s/^SM_PATH . \'/\.\.\//;
3547         $new_path =~ s/\.\.\/config\///;
3548     }
3549
3550     return $new_path;
3551 }
3552
3553 sub detect_auth_support {
3554 # Attempts to auto-detect if a specific auth mechanism is supported.
3555 # Called by 'command112a' and 'command112b'
3556 # ARGS: service-name (IMAP or SMTP), host:port, mech-name (ie. CRAM-MD5)
3557
3558         # Misc setup
3559         use IO::Socket;
3560         my $service = shift;
3561         my $host = shift;
3562         my $mech = shift;
3563         # Sanity checks
3564         if ((!defined($service)) or (!defined($host)) or (!defined($mech))) {
3565           # Error - wrong # of args
3566           print "BAD ARGS!\n";
3567           return undef;
3568         }
3569
3570         if ($service eq 'SMTP') {
3571                 $cmd = "AUTH $mech\n";
3572                 $logout = "QUIT\n";
3573         } elsif ($service eq 'IMAP') {
3574                 $cmd = "A01 AUTHENTICATE $mech\n";
3575                 $logout = "C01 LOGOUT\n";
3576         } else {
3577                 # unknown service - whoops.
3578                 return undef;
3579         }
3580
3581         # Get this show on the road
3582     my $sock=IO::Socket::INET->new($host);
3583     if (!defined($sock)) {
3584         # Connect failed
3585         return undef;
3586     }
3587         my $discard = <$sock>; # Server greeting/banner - who cares..
3588
3589         if ($service eq 'SMTP') {
3590                 # Say hello first..
3591                 print $sock "helo $domain\n";
3592                 $discard = <$sock>; # Yeah yeah, you're happy to see me..
3593         }
3594         print $sock $cmd;
3595
3596         my $response = <$sock>;
3597         chomp($response);
3598         if (!defined($response)) {
3599                 return undef;
3600         }
3601
3602         # So at this point, we have a response, and it is (hopefully) valid.
3603         if ($service eq 'SMTP') {
3604                 if (($response =~ /^535/) or ($response =~/^502/)) {
3605                         # Not supported
3606                         close $sock;
3607                         return 'NO';
3608                 } elsif ($response =~ /^503/) {
3609                         #Something went wrong
3610                         return undef;
3611                 }
3612         } elsif ($service eq 'IMAP') {
3613                 if ($response =~ /^A01/) {
3614                         # Not supported
3615                         close $sock;
3616                         return 'NO';
3617                 }
3618         } else {
3619                 # Unknown service - this shouldn't be able to happen.
3620                 close $sock;
3621                 return undef;
3622         }
3623
3624         # If it gets here, the mech is supported
3625         print $sock "*\n";  # Attempt to cancel authentication
3626         print $sock $logout; # Try to log out, but we don't really care if this fails
3627         close $sock;
3628         return 'YES';
3629 }
3630
3631 sub clear_screen() {
3632     if ( $^O =~ /^mswin/i) {
3633         system "cls";
3634     } else {
3635         system "clear";
3636     }
3637 }