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