config/conf.pl

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