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