Add display of version numbers next to plugin listings
[squirrelmail.git] / config / conf.pl
CommitLineData
23afd0bd 1#!/usr/bin/env perl
bbd30ac8 2# conf.pl
bbd30ac8 3#
4b5049de 4# Copyright (c) 1999-2007 The SquirrelMail Project Team
6614128e 5# Licensed under the GNU GPL. For full terms see COPYING.
6#
7# A simple configure script to configure SquirrelMail
245a6892 8#
9# $Id$
598294a7 10############################################################
3641f36d 11$conf_pl_version = "1.5.0";
bbd30ac8 12
38b69acb 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############################################################
8bd9e0dd 19my $dir;
eaace00e 20if ( eval q{require "File/Basename.pm"} ) {
8bd9e0dd 21 $dir = File::Basename::dirname($0);
38b69acb 22 chdir($dir);
23}
24
598294a7 25############################################################
d595e32e 26# Some people try to run this as a CGI. That's wrong!
598294a7 27############################################################
eaace00e 28if ( 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 }
d595e32e 35
8bd9e0dd 36############################################################
37# If we got here, use Cwd to get the full directory path
38# (the Basename stuff above will sometimes return '.' as
598294a7 39# the base directory, which is not helpful here).
8bd9e0dd 40############################################################
41use Cwd;
42$dir = cwd();
43
598294a7 44
45############################################################
bbd30ac8 46# First, lets read in the data already in there...
598294a7 47############################################################
eaace00e 48if ( -e "config.php" ) {
9061389c 49 # Make sure that file is readable
50 if (! -r "config.php") {
51 clear_screen();
52 print "WARNING:\n";
53 print "The file \"config/config.php\" was found, but you don't\n";
54 print "have rights to read it.\n";
55 print "\n";
8b56e282 56 print "Press enter to continue";
9061389c 57 $ctu = <STDIN>;
58 exit;
59 }
eaace00e 60 open( FILE, "config.php" );
61 while ( $line = <FILE> ) {
62 $line =~ s/^\s+//;
63 $line =~ s/^\$//;
64 $var = $line;
65
66 $var =~ s/=/EQUALS/;
85645192 67 if ( $var =~ /^([a-z])/i ) {
eaace00e 68 @o = split ( /\s*EQUALS\s*/, $var );
69 if ( $o[0] eq "config_version" ) {
85645192 70 $o[1] =~ s/[\n\r]//g;
71 $o[1] =~ s/[\'\"];\s*$//;
eaace00e 72 $o[1] =~ s/;$//;
85645192 73 $o[1] =~ s/^[\'\"]//;
eaace00e 74
75 $config_version = $o[1];
76 close(FILE);
77 }
78 }
79 }
80 close(FILE);
81
82 if ( $config_version ne $conf_pl_version ) {
f8c17cdd 83 clear_screen();
9061389c 84 print "WARNING:\n";
eaace00e 85 print " The file \"config/config.php\" was found, but it is for\n";
86 print " an older version of SquirrelMail. It is possible to still\n";
87 print " read the defaults from this file but be warned that many\n";
88 print " preferences change between versions. It is recommended that\n";
89 print " you start with a clean config.php for each upgrade that you\n";
90 print " do. To do this, just move config/config.php out of the way.\n";
91 print "\n";
92 print "Continue loading with the old config.php [y/N]? ";
93 $ctu = <STDIN>;
94
95 if ( ( $ctu !~ /^y\n/i ) || ( $ctu =~ /^\n/ ) ) {
96 exit;
97 }
98
99 print "\nDo you want me to stop warning you [y/N]? ";
100 $ctu = <STDIN>;
101 if ( $ctu =~ /^y\n/i ) {
102 $print_config_version = $conf_pl_version;
103 } else {
104 $print_config_version = $config_version;
105 }
106 } else {
107 $print_config_version = $config_version;
108 }
109
110 $config = 1;
111 open( FILE, "config.php" );
112} elsif ( -e "config_default.php" ) {
113 open( FILE, "config_default.php" );
114 while ( $line = <FILE> ) {
115 $line =~ s/^\s+//;
116 $line =~ s/^\$//;
117 $var = $line;
118
119 $var =~ s/=/EQUALS/;
85645192 120 if ( $var =~ /^([a-z])/i ) {
eaace00e 121 @o = split ( /\s*EQUALS\s*/, $var );
122 if ( $o[0] eq "config_version" ) {
85645192 123 $o[1] =~ s/[\n\r]//g;
124 $o[1] =~ s/[\'\"];\s*$//;
eaace00e 125 $o[1] =~ s/;$//;
85645192 126 $o[1] =~ s/^[\'\"]//;
eaace00e 127
128 $config_version = $o[1];
129 close(FILE);
130 }
131 }
132 }
133 close(FILE);
134
135 if ( $config_version ne $conf_pl_version ) {
f8c17cdd 136 clear_screen();
9061389c 137 print "WARNING:\n";
eaace00e 138 print " You are trying to use a 'config_default.php' from an older\n";
139 print " version of SquirrelMail. This is HIGHLY unrecommended. You\n";
140 print " should get the 'config_default.php' that matches the version\n";
141 print " of SquirrelMail that you are running. You can get this from\n";
142 print " the SquirrelMail web page by going to the following URL:\n";
143 print " http://www.squirrelmail.org.\n";
144 print "\n";
145 print "Continue loading with old config_default.php (a bad idea) [y/N]? ";
146 $ctu = <STDIN>;
147
148 if ( ( $ctu !~ /^y\n/i ) || ( $ctu =~ /^\n/ ) ) {
149 exit;
150 }
151
152 print "\nDo you want me to stop warning you [y/N]? ";
153 $ctu = <STDIN>;
154 if ( $ctu =~ /^y\n/i ) {
155 $print_config_version = $conf_pl_version;
156 } else {
157 $print_config_version = $config_version;
158 }
159 } else {
160 $print_config_version = $config_version;
161 }
162 $config = 2;
163 open( FILE, "config_default.php" );
1e0628fb 164} else {
eaace00e 165 print "No configuration file found. Please get config_default.php\n";
166 print "or config.php before running this again. This program needs\n";
167 print "a default config file to get default values.\n";
168 exit;
bbd30ac8 169}
170
a3439b27 171# Read and parse the current configuration file
172# (either config.php or config_default.php).
eaace00e 173while ( $line = <FILE> ) {
598294a7 174 $line =~ s/^\s+//;
eaace00e 175 $line =~ s/^\$//;
176 $var = $line;
177
178 $var =~ s/=/EQUALS/;
85645192 179 if ( $var =~ /^([a-z])/i ) {
eaace00e 180 @options = split ( /\s*EQUALS\s*/, $var );
85645192 181 $options[1] =~ s/[\n\r]//g;
182 $options[1] =~ s/[\'\"];\s*$//;
eaace00e 183 $options[1] =~ s/;$//;
85645192 184 $options[1] =~ s/^[\'\"]//;
ed65d11b 185 # de-escape escaped strings
186 $options[1] =~ s/\\'/'/g;
187 $options[1] =~ s/\\\\/\\/g;
eaace00e 188
82351c82 189 if ( $options[0] =~ /^user_themes\[[0-9]+\]\[['"]PATH['"]\]/ ) {
eaace00e 190 $sub = $options[0];
85645192 191 $sub =~ s/\]\[['"]PATH['"]\]//;
eaace00e 192 $sub =~ s/.*\[//;
82351c82 193 if ( -e "../css/" ) {
194 $options[1] =~ s/^\.\.\/config/\.\.\/css/;
a3439b27 195 }
82351c82 196 $user_theme_path[$sub] = &change_to_rel_path($options[1]);
197 } elsif ( $options[0] =~ /^user_themes\[[0-9]+\]\[['"]NAME['"]\]/ ) {
eaace00e 198 $sub = $options[0];
85645192 199 $sub =~ s/\]\[['"]NAME['"]\]//;
eaace00e 200 $sub =~ s/.*\[//;
82351c82 201 $user_theme_name[$sub] = $options[1];
83139c0b 202 } elsif ( $options[0] =~ /^icon_themes\[[0-9]+\]\[['"]PATH['"]\]/ ) {
203 $sub = $options[0];
204 $sub =~ s/\]\[['"]PATH['"]\]//;
205 $sub =~ s/.*\[//;
206 if ( -e "../images/" ) {
207 $options[1] =~ s/^\.\.\/config/\.\.\/images/;
208 }
209 $icon_theme_path[$sub] = &change_to_rel_path($options[1]);
210 } elsif ( $options[0] =~ /^icon_themes\[[0-9]+\]\[['"]NAME['"]\]/ ) {
211 $sub = $options[0];
212 $sub =~ s/\]\[['"]NAME['"]\]//;
213 $sub =~ s/.*\[//;
214 $icon_theme_name[$sub] = $options[1];
5e78e498 215 } elsif ( $options[0] =~ /^aTemplateSet\[[0-9]+\]\[['"]ID['"]\]/ ) {
85bacb8f 216 $sub = $options[0];
5e78e498 217 $sub =~ s/\]\[['"]ID['"]\]//;
85bacb8f 218 $sub =~ s/.*\[//;
219 if ( -e "../templates" ) {
220 $options[1] =~ s/^\.\.\/config/\.\.\/templates/;
221 }
5e78e498 222 $templateset_id[$sub] = $options[1];
649162c3 223##### FIXME: This section BELOW here so old prefs files don't blow up when running conf.pl
b4e8b4a3 224##### Remove after a month or two
649162c3 225} elsif ( $options[0] =~ /^aTemplateSet\[[0-9]+\]\[['"]PATH['"]\]/ ) {
226 $sub = $options[0];
227 $sub =~ s/\]\[['"]PATH['"]\]//;
228 $sub =~ s/.*\[//;
229 if ( -e "../templates" ) {
230 $options[1] =~ s/^\.\.\/config/\.\.\/templates/;
231 }
232 $templateset_id[$sub] = $options[1];
233##### FIXME: This section ABOVE here so old prefs files don't blow up when running conf.pl
b4e8b4a3 234##### Remove after a month or two
85bacb8f 235 } elsif ( $options[0] =~ /^aTemplateSet\[[0-9]+\]\[['"]NAME['"]\]/ ) {
236 $sub = $options[0];
237 $sub =~ s/\]\[['"]NAME['"]\]//;
238 $sub =~ s/.*\[//;
239 $templateset_name[$sub] = $options[1];
a1b036d6 240 } elsif ( $options[0] =~ /^plugins\[[0-9]*\]/ ) {
eaace00e 241 $sub = $options[0];
242 $sub =~ s/\]//;
243 $sub =~ s/^plugins\[//;
a1b036d6 244 if ($sub eq '') {
245 push @plugins, $options[1];
246 } else {
247 $plugins[$sub] = $options[1];
248 }
81132de8 249 } elsif ($options[0] =~ /^fontsets\[\'[a-z]*\'\]/) {
250 # parse associative $fontsets array
251 $sub = $options[0];
252 $sub =~ s/\'\]//;
253 $sub =~ s/^fontsets\[\'//;
254 $fontsets{$sub} = $options[1];
e2409f9c 255 } elsif ( $options[0] =~ /^theme\[[0-9]+\]\[['"]PATH|NAME['"]\]/ ) {
9061389c 256 ##
257 ## $color themes are no longer supported. Please leave this
258 ## so conf.pl doesn't barf if it encounters a $theme.
259 ##
eaace00e 260 } elsif ( $options[0] =~ /^ldap_server\[[0-9]+\]/ ) {
261 $sub = $options[0];
262 $sub =~ s/\]//;
263 $sub =~ s/^ldap_server\[//;
264 $continue = 0;
265 while ( ( $tmp = <FILE> ) && ( $continue != 1 ) ) {
266 if ( $tmp =~ /\);\s*$/ ) {
267 $continue = 1;
268 }
269
85645192 270 if ( $tmp =~ /^\s*[\'\"]host[\'\"]/i ) {
271 $tmp =~ s/^\s*[\'\"]host[\'\"]\s*=>\s*[\'\"]//i;
272 $tmp =~ s/[\'\"],?\s*$//;
273 $tmp =~ s/[\'\"]\);\s*$//;
eaace00e 274 $host = $tmp;
85645192 275 } elsif ( $tmp =~ /^\s*[\'\"]base[\'\"]/i ) {
276 $tmp =~ s/^\s*[\'\"]base[\'\"]\s*=>\s*[\'\"]//i;
277 $tmp =~ s/[\'\"],?\s*$//;
278 $tmp =~ s/[\'\"]\);\s*$//;
eaace00e 279 $base = $tmp;
85645192 280 } elsif ( $tmp =~ /^\s*[\'\"]charset[\'\"]/i ) {
281 $tmp =~ s/^\s*[\'\"]charset[\'\"]\s*=>\s*[\'\"]//i;
282 $tmp =~ s/[\'\"],?\s*$//;
283 $tmp =~ s/[\'\"]\);\s*$//;
eaace00e 284 $charset = $tmp;
85645192 285 } elsif ( $tmp =~ /^\s*[\'\"]port[\'\"]/i ) {
286 $tmp =~ s/^\s*[\'\"]port[\'\"]\s*=>\s*[\'\"]?//i;
287 $tmp =~ s/[\'\"]?,?\s*$//;
288 $tmp =~ s/[\'\"]?\);\s*$//;
eaace00e 289 $port = $tmp;
85645192 290 } elsif ( $tmp =~ /^\s*[\'\"]maxrows[\'\"]/i ) {
291 $tmp =~ s/^\s*[\'\"]maxrows[\'\"]\s*=>\s*[\'\"]?//i;
292 $tmp =~ s/[\'\"]?,?\s*$//;
293 $tmp =~ s/[\'\"]?\);\s*$//;
eaace00e 294 $maxrows = $tmp;
43397658 295 } elsif ( $tmp =~ /^\s*[\'\"]filter[\'\"]/i ) {
296 $tmp =~ s/^\s*[\'\"]filter[\'\"]\s*=>\s*[\'\"]?//i;
297 $tmp =~ s/[\'\"]?,?\s*$//;
298 $tmp =~ s/[\'\"]?\);\s*$//;
299 $filter = $tmp;
85645192 300 } elsif ( $tmp =~ /^\s*[\'\"]name[\'\"]/i ) {
301 $tmp =~ s/^\s*[\'\"]name[\'\"]\s*=>\s*[\'\"]//i;
302 $tmp =~ s/[\'\"],?\s*$//;
303 $tmp =~ s/[\'\"]\);\s*$//;
eaace00e 304 $name = $tmp;
85645192 305 } elsif ( $tmp =~ /^\s*[\'\"]binddn[\'\"]/i ) {
306 $tmp =~ s/^\s*[\'\"]binddn[\'\"]\s*=>\s*[\'\"]//i;
307 $tmp =~ s/[\'\"],?\s*$//;
308 $tmp =~ s/[\'\"]\);\s*$//;
30e9932c 309 $binddn = $tmp;
85645192 310 } elsif ( $tmp =~ /^\s*[\'\"]bindpw[\'\"]/i ) {
311 $tmp =~ s/^\s*[\'\"]bindpw[\'\"]\s*=>\s*[\'\"]//i;
312 $tmp =~ s/[\'\"],?\s*$//;
313 $tmp =~ s/[\'\"]\);\s*$//;
30e9932c 314 $bindpw = $tmp;
85645192 315 } elsif ( $tmp =~ /^\s*[\'\"]protocol[\'\"]/i ) {
316 $tmp =~ s/^\s*[\'\"]protocol[\'\"]\s*=>\s*[\'\"]?//i;
317 $tmp =~ s/[\'\"]?,?\s*$//;
318 $tmp =~ s/[\'\"]?\);\s*$//;
30e9932c 319 $protocol = $tmp;
43397658 320 } elsif ( $tmp =~ /^\s*[\'\"]limit_scope[\'\"]/i ) {
321 $tmp =~ s/^\s*[\'\"]limit_scope[\'\"]\s*=>\s*[\'\"]?//i;
322 $tmp =~ s/[\'\"]?,?\s*$//;
323 $tmp =~ s/[\'\"]?\);\s*$//;
324 $limit_scope = $tmp;
327e2d96 325 } elsif ( $tmp =~ /^\s*[\'\"]listing[\'\"]/i ) {
326 $tmp =~ s/^\s*[\'\"]listing[\'\"]\s*=>\s*[\'\"]?//i;
327 $tmp =~ s/[\'\"]?,?\s*$//;
328 $tmp =~ s/[\'\"]?\);\s*$//;
329 $listing = $tmp;
664fd7a0 330 } elsif ( $tmp =~ /^\s*[\'\"]writeable[\'\"]/i ) {
331 $tmp =~ s/^\s*[\'\"]writeable[\'\"]\s*=>\s*[\'\"]?//i;
332 $tmp =~ s/[\'\"]?,?\s*$//;
333 $tmp =~ s/[\'\"]?\);\s*$//;
334 $writeable = $tmp;
593370a4 335 } elsif ( $tmp =~ /^\s*[\'\"]search_tree[\'\"]/i ) {
336 $tmp =~ s/^\s*[\'\"]search_tree[\'\"]\s*=>\s*[\'\"]?//i;
337 $tmp =~ s/[\'\"]?,?\s*$//;
338 $tmp =~ s/[\'\"]?\);\s*$//;
339 $search_tree = $tmp;
340 } elsif ( $tmp =~ /^\s*[\'\"]starttls[\'\"]/i ) {
341 $tmp =~ s/^\s*[\'\"]starttls[\'\"]\s*=>\s*[\'\"]?//i;
342 $tmp =~ s/[\'\"]?,?\s*$//;
343 $tmp =~ s/[\'\"]?\);\s*$//;
344 $starttls = $tmp;
eaace00e 345 }
a3439b27 346 }
eaace00e 347 $ldap_host[$sub] = $host;
348 $ldap_base[$sub] = $base;
349 $ldap_name[$sub] = $name;
350 $ldap_port[$sub] = $port;
351 $ldap_maxrows[$sub] = $maxrows;
43397658 352 $ldap_filter[$sub] = $filter;
eaace00e 353 $ldap_charset[$sub] = $charset;
30e9932c 354 $ldap_binddn[$sub] = $binddn;
355 $ldap_bindpw[$sub] = $bindpw;
356 $ldap_protocol[$sub] = $protocol;
43397658 357 $ldap_limit_scope[$sub] = $limit_scope;
327e2d96 358 $ldap_listing[$sub] = $listing;
664fd7a0 359 $ldap_writeable[$sub] = $writeable;
593370a4 360 $ldap_search_tree[$sub] = $search_tree;
361 $ldap_starttls[$sub] = $starttls;
83139c0b 362 } elsif ( $options[0] =~ /^(data_dir|attachment_dir|org_logo|signout_page|icon_theme_def)$/ ) {
8bd9e0dd 363 ${ $options[0] } = &change_to_rel_path($options[1]);
eaace00e 364 } else {
365 ${ $options[0] } = $options[1];
366 }
367 }
bbd30ac8 368}
1a7a2fcc 369close FILE;
0ae4c1f2 370
a15f9d93 371# FIXME: unknown introduction date
35aaf666 372$useSendmail = 'false' if ( lc($useSendmail) ne 'true' );
373$sendmail_path = "/usr/sbin/sendmail" if ( !$sendmail_path );
374$pop_before_smtp = 'false' if ( !$pop_before_smtp );
375$default_unseen_notify = 2 if ( !$default_unseen_notify );
376$default_unseen_type = 1 if ( !$default_unseen_type );
377$config_use_color = 0 if ( !$config_use_color );
378$invert_time = 'false' if ( !$invert_time );
379$force_username_lowercase = 'false' if ( !$force_username_lowercase );
380$optional_delimiter = "detect" if ( !$optional_delimiter );
381$auto_create_special = 'false' if ( !$auto_create_special );
382$default_use_priority = 'true' if ( !$default_use_priority );
35aaf666 383$default_use_mdn = 'true' if ( !$default_use_mdn );
384$delete_folder = 'false' if ( !$delete_folder );
385$noselect_fix_enable = 'false' if ( !$noselect_fix_enable );
386$frame_top = "_top" if ( !$frame_top );
387$provider_uri = '' if ( !$provider_uri );
388$provider_name = '' if ( !$provider_name );
35aaf666 389$no_list_for_subscribe = 'false' if ( !$no_list_for_subscribe );
390$allow_charset_search = 'true' if ( !$allow_charset_search );
66bfb27b 391$allow_advanced_search = 0 if ( !$allow_advanced_search) ;
35aaf666 392$prefs_user_field = 'user' if ( !$prefs_user_field );
393$prefs_key_field = 'prefkey' if ( !$prefs_key_field );
394$prefs_val_field = 'prefval' if ( !$prefs_val_field );
a15f9d93 395$session_name = 'SQMSESSID' if ( !$session_name );
396$skip_SM_header = 'false' if ( !$skip_SM_header );
397$default_use_javascript_addr_book = 'false' if (! $default_use_javascript_addr_book);
398
beebd508 399# since 1.2.0
400$hide_sm_attributions = 'false' if ( !$hide_sm_attributions );
a2aa472a 401# since 1.2.5
402$edit_identity = 'true' if ( !$edit_identity );
403$edit_name = 'true' if ( !$edit_name );
beebd508 404
a15f9d93 405# since 1.4.0
35aaf666 406$use_smtp_tls= 'false' if ( !$use_smtp_tls);
407$smtp_auth_mech = 'none' if ( !$smtp_auth_mech );
408$use_imap_tls = 'false' if ( !$use_imap_tls );
409$imap_auth_mech = 'login' if ( !$imap_auth_mech );
81132de8 410
71d3f882 411# since 1.5.0
35aaf666 412$show_alternative_names = 'false' if ( !$show_alternative_names );
5ba5dc8e 413# $available_languages option available only in 1.5.0. removed due to $languages
414# implementation changes. options are provided by limit_languages plugin
415# $available_languages = 'all' if ( !$available_languages );
f03f6ee7 416$aggressive_decoding = 'false' if ( !$aggressive_decoding );
ca885a4f 417# available only in 1.5.0 and 1.5.1
418# $advanced_tree = 'false' if ( !$advanced_tree );
35aaf666 419$use_php_recode = 'false' if ( !$use_php_recode );
420$use_php_iconv = 'false' if ( !$use_php_iconv );
81132de8 421
71d3f882 422# since 1.5.1
423$use_icons = 'false' if ( !$use_icons );
ef6ad2a1 424$use_iframe = 'false' if ( !$use_iframe );
71d3f882 425$lossy_encoding = 'false' if ( !$lossy_encoding );
426$allow_remote_configtest = 'false' if ( !$allow_remote_configtest );
427$addrbook_global_table = 'global_abook' if ( !$addrbook_global_table );
428$addrbook_global_writeable = 'false' if ( !$addrbook_global_writeable );
429$addrbook_global_listing = 'false' if ( !$addrbook_global_listing );
430$abook_global_file = '' if ( !$abook_global_file);
431$abook_global_file_writeable = 'false' if ( !$abook_global_file_writeable);
432$abook_global_file_listing = 'true' if ( !$abook_global_file_listing );
432db2fc 433$encode_header_key = '' if ( !$encode_header_key );
434$hide_auth_header = 'false' if ( !$hide_auth_header );
ee20a285 435$time_zone_type = '0' if ( !$time_zone_type );
06316c07 436$prefs_user_size = 128 if ( !$prefs_user_size );
437$prefs_key_size = 64 if ( !$prefs_key_size );
438$prefs_val_size = 65536 if ( !$prefs_val_size );
81132de8 439
fd7ab795 440# add qmail-inject test here for backwards compatibility
85bacb8f 441if ( !$sendmail_args && $sendmail_path =~ /qmail-inject/ ) {
fd7ab795 442 $sendmail_args = '';
443} elsif ( !$sendmail_args ) {
444 $sendmail_args = '-i -t';
445}
39d3ec89 446
81132de8 447$default_fontsize = '' if ( !$default_fontsize);
448$default_fontset = '' if ( !$default_fontset);
449if ( !%fontsets) {
450 %fontsets = ('serif', 'serif',
451 'sans', 'helvetica,arial,sans-serif',
452 'comicsans', 'comic sans ms,sans-serif',
453 'tahoma', 'tahoma,sans-serif',
454 'verasans', 'bitstream vera sans,verdana,sans-serif');
455}
456
a15f9d93 457# $use_imap_tls and $use_smtp_tls are switched to integer since 1.5.1
458$use_imap_tls = 0 if ( $use_imap_tls eq 'false');
459$use_imap_tls = 1 if ( $use_imap_tls eq 'true');
460$use_smtp_tls = 0 if ( $use_smtp_tls eq 'false');
461$use_smtp_tls = 1 if ( $use_smtp_tls eq 'true');
801da708 462# sorting options changed names and reversed values in 1.5.1
463$disable_thread_sort = 'false' if ( !$disable_thread_sort );
464$disable_server_sort = 'false' if ( !$disable_server_sort );
81132de8 465
7311c377 466# since 1.5.2
467$abook_file_line_length = 2048 if ( !$abook_file_line_length );
3dc5d88f 468$config_location_base = '' if ( !$config_location_base );
029d1fc2 469$smtp_sitewide_user = '' if ( !$smtp_sitewide_user );
470$smtp_sitewide_pass = '' if ( !$smtp_sitewide_pass );
9061389c 471$icon_theme_def = '' if ( !$icon_theme_def );
93d67e0d 472$disable_plugins = 'false' if ( !$disable_plugins );
473$disable_plugins_user = '' if ( !$disable_plugins_user );
9c0f1780 474$only_secure_cookies = 'true' if ( !$only_secure_cookies );
7311c377 475
eaace00e 476if ( $ARGV[0] eq '--install-plugin' ) {
477 print "Activating plugin " . $ARGV[1] . "\n";
ebd13f55 478 push @plugins, $ARGV[1];
479 save_data();
480 exit(0);
eaace00e 481} elsif ( $ARGV[0] eq '--remove-plugin' ) {
482 print "Removing plugin " . $ARGV[1] . "\n";
ebd13f55 483 foreach $plugin (@plugins) {
eaace00e 484 if ( $plugin ne $ARGV[1] ) {
485 push @newplugins, $plugin;
ebd13f55 486 }
487 }
488 @plugins = @newplugins;
489 save_data();
490 exit(0);
091ee417 491} elsif ( $ARGV[0] eq '--update-plugins' or $ARGV[0] eq '-u') {
492 build_plugin_hook_array();
493 exit(0);
494} elsif ( $ARGV[0] eq '--help' or $ARGV[0] eq '-h') {
495 print "SquirrelMail Configuration Script\n";
496 print "Usage:\n";
497 print " * No arguments: initiates the configuration dialog\n";
498 print " * --install-plugin <plugin> : activates the specified plugin\n";
499 print " * --remove-plugin <plugin> : deactivates the specified plugin\n";
500 print " * --update-plugins , -u : rebuilds plugin_hooks.php according\n";
501 print " to plugins activated in config.php\n";
502 print " * --help , -h : Displays this help\n";
503 print "\n";
504 exit(0);
ebd13f55 505}
506
7a4f9bfb 507
508
509####################################################################################
510
511# used in multiple places, define once
512$list_supported_imap_servers =
513 " bincimap = Binc IMAP server\n" .
514 " courier = Courier IMAP server\n" .
515 " cyrus = Cyrus IMAP server\n" .
516 " dovecot = Dovecot Secure IMAP server\n" .
517 " exchange = Microsoft Exchange IMAP server\n" .
518 " hmailserver = hMailServer\n" .
519 " macosx = Mac OS X Mailserver\n" .
520 " mercury32 = Mercury/32\n" .
521 " uw = University of Washington's IMAP server\n";
522
5b6ae78a 523#####################################################################################
eaace00e 524if ( $config_use_color == 1 ) {
525 $WHT = "\x1B[37;1m";
526 $NRM = "\x1B[0m";
0ecb47e5 527} else {
eaace00e 528 $WHT = "";
529 $NRM = "";
530 $config_use_color = 2;
531}
532
8b5c49cd 533while ( ( $command ne "q" ) && ( $command ne "Q" ) && ( $command ne ":q" ) ) {
f8c17cdd 534 clear_screen();
eaace00e 535 print $WHT. "SquirrelMail Configuration : " . $NRM;
536 if ( $config == 1 ) { print "Read: config.php"; }
537 elsif ( $config == 2 ) { print "Read: config_default.php"; }
538 print " ($print_config_version)\n";
539 print "---------------------------------------------------------\n";
540
541 if ( $menu == 0 ) {
542 print $WHT. "Main Menu --\n" . $NRM;
543 print "1. Organization Preferences\n";
544 print "2. Server Settings\n";
545 print "3. Folder Defaults\n";
546 print "4. General Options\n";
348610ca 547 print "5. User Interface\n";
4272758c 548 print "6. Address Books\n";
eaace00e 549 print "7. Message of the Day (MOTD)\n";
550 print "8. Plugins\n";
551 print "9. Database\n";
598294a7 552 print "10. Language settings\n";
553 print "11. Tweaks\n";
eaace00e 554 print "\n";
555 print "D. Set pre-defined settings for specific IMAP servers\n";
556 print "\n";
557 } elsif ( $menu == 1 ) {
558 print $WHT. "Organization Preferences\n" . $NRM;
b6e0c3b6 559 print "1. Organization Name : $WHT$org_name$NRM\n";
560 print "2. Organization Logo : $WHT$org_logo$NRM\n";
561 print "3. Org. Logo Width/Height : $WHT($org_logo_width/$org_logo_height)$NRM\n";
562 print "4. Organization Title : $WHT$org_title$NRM\n";
563 print "5. Signout Page : $WHT$signout_page$NRM\n";
39d3ec89 564 print "6. Top Frame : $WHT$frame_top$NRM\n";
565 print "7. Provider link : $WHT$provider_uri$NRM\n";
566 print "8. Provider name : $WHT$provider_name$NRM\n";
0ae4c1f2 567
eaace00e 568 print "\n";
dcc1cc82 569 print "R Return to Main Menu\n";
eaace00e 570 } elsif ( $menu == 2 ) {
47a29326 571 print $WHT. "Server Settings\n\n" . $NRM;
572 print $WHT . "General" . $NRM . "\n";
573 print "-------\n";
574 print "1. Domain : $WHT$domain$NRM\n";
575 print "2. Invert Time : $WHT$invert_time$NRM\n";
576 print "3. Sendmail or SMTP : $WHT";
35aaf666 577 if ( lc($useSendmail) eq 'true' ) {
eaace00e 578 print "Sendmail";
579 } else {
580 print "SMTP";
581 }
582 print "$NRM\n";
47a29326 583 print "\n";
598294a7 584
47a29326 585 if ( $show_imap_settings ) {
586 print $WHT . "IMAP Settings". $NRM . "\n--------------\n";
587 print "4. IMAP Server : $WHT$imapServerAddress$NRM\n";
588 print "5. IMAP Port : $WHT$imapPort$NRM\n";
589 print "6. Authentication type : $WHT$imap_auth_mech$NRM\n";
2b4a868c 590 print "7. Secure IMAP (TLS) : $WHT" . display_use_tls($use_imap_tls) . "$NRM\n";
47a29326 591 print "8. Server software : $WHT$imap_server_type$NRM\n";
592 print "9. Delimiter : $WHT$optional_delimiter$NRM\n";
593 print "\n";
594 } elsif ( $show_smtp_settings ) {
35aaf666 595 if ( lc($useSendmail) eq 'true' ) {
47a29326 596 print $WHT . "Sendmail" . $NRM . "\n--------\n";
597 print "4. Sendmail Path : $WHT$sendmail_path$NRM\n";
fd7ab795 598 print "5. Sendmail arguments : $WHT$sendmail_args$NRM\n";
599 print "6. Header encryption key : $WHT$encode_header_key$NRM\n";
47a29326 600 print "\n";
601 } else {
602 print $WHT . "SMTP Settings" . $NRM . "\n-------------\n";
603 print "4. SMTP Server : $WHT$smtpServerAddress$NRM\n";
604 print "5. SMTP Port : $WHT$smtpPort$NRM\n";
605 print "6. POP before SMTP : $WHT$pop_before_smtp$NRM\n";
029d1fc2 606 print "7. SMTP Authentication : $WHT$smtp_auth_mech" . display_smtp_sitewide_userpass() ."$NRM\n";
2b4a868c 607 print "8. Secure SMTP (TLS) : $WHT" . display_use_tls($use_smtp_tls) . "$NRM\n";
432db2fc 608 print "9. Header encryption key : $WHT$encode_header_key$NRM\n";
47a29326 609 print "\n";
610 }
eaace00e 611 }
47a29326 612
613 if ($show_imap_settings == 0) {
614 print "A. Update IMAP Settings : ";
615 print "$WHT$imapServerAddress$NRM:";
616 print "$WHT$imapPort$NRM ";
617 print "($WHT$imap_server_type$NRM)\n";
598294a7 618 }
47a29326 619 if ($show_smtp_settings == 0) {
35aaf666 620 if ( lc($useSendmail) eq 'true' ) {
47a29326 621 print "B. Change Sendmail Config : $WHT$sendmail_path$NRM\n";
622 } else {
623 print "B. Update SMTP Settings : ";
624 print "$WHT$smtpServerAddress$NRM:";
625 print "$WHT$smtpPort$NRM\n";
626 }
627 }
628 if ( $show_smtp_settings || $show_imap_settings )
629 {
598294a7 630 print "H. Hide " .
631 ($show_imap_settings ? "IMAP Server" :
35aaf666 632 (lc($useSendmail) eq 'true') ? "Sendmail" : "SMTP") . " Settings\n";
47a29326 633 }
598294a7 634
eaace00e 635 print "\n";
dcc1cc82 636 print "R Return to Main Menu\n";
eaace00e 637 } elsif ( $menu == 3 ) {
638 print $WHT. "Folder Defaults\n" . $NRM;
639 print "1. Default Folder Prefix : $WHT$default_folder_prefix$NRM\n";
640 print "2. Show Folder Prefix Option : $WHT$show_prefix_option$NRM\n";
641 print "3. Trash Folder : $WHT$trash_folder$NRM\n";
642 print "4. Sent Folder : $WHT$sent_folder$NRM\n";
643 print "5. Drafts Folder : $WHT$draft_folder$NRM\n";
644 print "6. By default, move to trash : $WHT$default_move_to_trash$NRM\n";
645 print "7. By default, move to sent : $WHT$default_move_to_sent$NRM\n";
646 print "8. By default, save as draft : $WHT$default_save_as_draft$NRM\n";
647 print "9. List Special Folders First : $WHT$list_special_folders_first$NRM\n";
648 print "10. Show Special Folders Color : $WHT$use_special_folder_color$NRM\n";
649 print "11. Auto Expunge : $WHT$auto_expunge$NRM\n";
650 print "12. Default Sub. of INBOX : $WHT$default_sub_of_inbox$NRM\n";
651 print "13. Show 'Contain Sub.' Option : $WHT$show_contain_subfolders_option$NRM\n";
652 print "14. Default Unseen Notify : $WHT$default_unseen_notify$NRM\n";
653 print "15. Default Unseen Type : $WHT$default_unseen_type$NRM\n";
654 print "16. Auto Create Special Folders : $WHT$auto_create_special$NRM\n";
2eec12b5 655 print "17. Folder Delete Bypasses Trash : $WHT$delete_folder$NRM\n";
ca85aabe 656 print "18. Enable /NoSelect folder fix : $WHT$noselect_fix_enable$NRM\n";
eaace00e 657 print "\n";
dcc1cc82 658 print "R Return to Main Menu\n";
eaace00e 659 } elsif ( $menu == 4 ) {
660 print $WHT. "General Options\n" . $NRM;
9c0f1780 661 print "1. Data Directory : $WHT$data_dir$NRM\n";
662 print "2. Attachment Directory : $WHT$attachment_dir$NRM\n";
663 print "3. Directory Hash Level : $WHT$dir_hash_level$NRM\n";
664 print "4. Default Left Size : $WHT$default_left_size$NRM\n";
665 print "5. Usernames in Lowercase : $WHT$force_username_lowercase$NRM\n";
666 print "6. Allow use of priority : $WHT$default_use_priority$NRM\n";
667 print "7. Hide SM attributions : $WHT$hide_sm_attributions$NRM\n";
668 print "8. Allow use of receipts : $WHT$default_use_mdn$NRM\n";
669 print "9. Allow editing of identity : $WHT$edit_identity$NRM\n";
670 print " Allow editing of name : $WHT$edit_name$NRM\n";
671 print " Remove username from header : $WHT$hide_auth_header$NRM\n";
672 print "10. Disable server thread sort : $WHT$disable_thread_sort$NRM\n";
673 print "11. Disable server-side sorting : $WHT$disable_server_sort$NRM\n";
674 print "12. Allow server charset search : $WHT$allow_charset_search$NRM\n";
675 print "13. Allow advanced search : $WHT$allow_advanced_search$NRM\n";
676 print "14. PHP session name : $WHT$session_name$NRM\n";
677 print "15. Time zone configuration : $WHT$time_zone_type$NRM\n";
678 print "16. Location base : $WHT$config_location_base$NRM\n";
679 print "17. Only secure cookies if poss. : $WHT$only_secure_cookies$NRM\n";
eaace00e 680 print "\n";
dcc1cc82 681 print "R Return to Main Menu\n";
eaace00e 682 } elsif ( $menu == 5 ) {
348610ca 683 print $WHT. "User Interface\n" . $NRM;
83139c0b 684 print "1. Use Icons? : $WHT$use_icons$NRM\n";
685# print "3. Default Icon Set : $WHT$icon_theme_def$NRM\n";
686 print "2. Default font size : $WHT$default_fontsize$NRM\n";
687 print "3. Manage template sets\n";
688 print "4. Manage user themes\n";
689 print "5. Manage font sets\n";
690 print "6. Manage icon themes\n";
85bacb8f 691
eaace00e 692 print "\n";
dcc1cc82 693 print "R Return to Main Menu\n";
eaace00e 694 } elsif ( $menu == 6 ) {
4272758c 695 print $WHT. "Address Books\n" . $NRM;
696 print "1. Change LDAP Servers\n";
eaace00e 697 for ( $count = 0 ; $count <= $#ldap_host ; $count++ ) {
698 print " > $ldap_host[$count]\n";
699 }
71d3f882 700 print "2. Use Javascript address book search : $WHT$default_use_javascript_addr_book$NRM\n";
ee20a285 701 print "3. Global address book file : $WHT$abook_global_file$NRM\n";
4272758c 702 print "4. Allow writing into global file address book : $WHT$abook_global_file_writeable$NRM\n";
71d3f882 703 print "5. Allow listing of global file address book : $WHT$abook_global_file_listing$NRM\n";
7311c377 704 print "6. Allowed address book line length : $WHT$abook_file_line_length$NRM\n";
eaace00e 705 print "\n";
dcc1cc82 706 print "R Return to Main Menu\n";
eaace00e 707 } elsif ( $menu == 7 ) {
708 print $WHT. "Message of the Day (MOTD)\n" . $NRM;
709 print "\n$motd\n";
710 print "\n";
711 print "1 Edit the MOTD\n";
712 print "\n";
dcc1cc82 713 print "R Return to Main Menu\n";
eaace00e 714 } elsif ( $menu == 8 ) {
93d67e0d 715 if (lc($disable_plugins) eq 'true' && $disable_plugins_user ne '') {
716 print $WHT. "Plugins (WARNING: All plugins are currently disabled\n for the user \"$disable_plugins_user\"!)\n" . $NRM;
717 } elsif (lc($disable_plugins) eq 'true') {
718 print $WHT. "Plugins (WARNING: All plugins are currently disabled!)\n" . $NRM;
719 } else {
720 print $WHT. "Plugins\n" . $NRM;
721 }
eaace00e 722 print " Installed Plugins\n";
723 $num = 0;
724 for ( $count = 0 ; $count <= $#plugins ; $count++ ) {
725 $num = $count + 1;
3e339df8 726 print " $num. $plugins[$count]" . get_plugin_version($plugins[$count]) . "\n";
eaace00e 727 }
728 print "\n Available Plugins:\n";
729 opendir( DIR, "../plugins" );
730 @files = readdir(DIR);
731 $pos = 0;
732 @unused_plugins = ();
733 for ( $i = 0 ; $i <= $#files ; $i++ ) {
734 if ( -d "../plugins/" . $files[$i] && $files[$i] !~ /^\./ && $files[$i] ne "CVS" ) {
735 $match = 0;
736 for ( $k = 0 ; $k <= $#plugins ; $k++ ) {
737 if ( $plugins[$k] eq $files[$i] ) {
738 $match = 1;
739 }
740 }
741 if ( $match == 0 ) {
742 $unused_plugins[$pos] = $files[$i];
743 $pos++;
744 }
1a7a2fcc 745 }
eaace00e 746 }
747
748 for ( $i = 0 ; $i <= $#unused_plugins ; $i++ ) {
749 $num = $num + 1;
3e339df8 750 print " $num. $unused_plugins[$i]" . get_plugin_version($unused_plugins[$i]) . "\n";
eaace00e 751 }
752 closedir DIR;
753
754 print "\n";
93d67e0d 755 if (lc($disable_plugins) eq 'true' && $disable_plugins_user ne '') {
756 print "E Enable active plugins (all plugins currently\n disabled for the user \"$disable_plugins_user\")\n";
757 } elsif (lc($disable_plugins) eq 'true') {
758 print "E Enable active plugins (all plugins currently\n disabled)\n";
759 } else {
760 print "D Disable all plugins\n";
761 }
762 print "U Set the user for whom plugins can be disabled\n";
dcc1cc82 763 print "R Return to Main Menu\n";
eaace00e 764 } elsif ( $menu == 9 ) {
765 print $WHT. "Database\n" . $NRM;
766 print "1. DSN for Address Book : $WHT$addrbook_dsn$NRM\n";
767 print "2. Table for Address Book : $WHT$addrbook_table$NRM\n";
99a6c222 768 print "\n";
eaace00e 769 print "3. DSN for Preferences : $WHT$prefs_dsn$NRM\n";
770 print "4. Table for Preferences : $WHT$prefs_table$NRM\n";
06316c07 771 print "5. Field for username : $WHT$prefs_user_field$NRM ($prefs_user_size)\n";
772 print "6. Field for prefs key : $WHT$prefs_key_field$NRM ($prefs_key_size)\n";
773 print "7. Field for prefs value : $WHT$prefs_val_field$NRM ($prefs_val_size)\n";
eaace00e 774 print "\n";
30e9932c 775 print "8. DSN for Global Address Book : $WHT$addrbook_global_dsn$NRM\n";
776 print "9. Table for Global Address Book : $WHT$addrbook_global_table$NRM\n";
777 print "10. Allow writing into Global Address Book : $WHT$addrbook_global_writeable$NRM\n";
778 print "11. Allow listing of Global Address Book : $WHT$addrbook_global_listing$NRM\n";
779 print "\n";
dcc1cc82 780 print "R Return to Main Menu\n";
39d3ec89 781 } elsif ( $menu == 10 ) {
35aaf666 782 print $WHT. "Language settings\n" . $NRM;
783 print "1. Default Language : $WHT$squirrelmail_default_language$NRM\n";
784 print "2. Default Charset : $WHT$default_charset$NRM\n";
785 print "3. Show alternative language names : $WHT$show_alternative_names$NRM\n";
5ba5dc8e 786 print "4. Enable aggressive decoding : $WHT$aggressive_decoding$NRM\n";
787 print "5. Enable lossy encoding : $WHT$lossy_encoding$NRM\n";
35aaf666 788 print "\n";
dcc1cc82 789 print "R Return to Main Menu\n";
39d3ec89 790 } elsif ( $menu == 11 ) {
35aaf666 791 print $WHT. "Interface tweaks\n" . $NRM;
ca885a4f 792 print "1. Display html mails in iframe : $WHT$use_iframe$NRM\n";
35aaf666 793 print "\n";
794 print $WHT. "PHP tweaks\n" . $NRM;
72bf0ae7 795 print "4. Use php recode functions : $WHT$use_php_recode$NRM\n";
796 print "5. Use php iconv functions : $WHT$use_php_iconv$NRM\n";
35aaf666 797 print "\n";
71d3f882 798 print $WHT. "Configuration tweaks\n" . $NRM;
72bf0ae7 799 print "6. Allow remote configtest : $WHT$allow_remote_configtest$NRM\n";
71d3f882 800 print "\n";
dcc1cc82 801 print "R Return to Main Menu\n";
eaace00e 802 }
803 if ( $config_use_color == 1 ) {
1ef64acb 804 print "C Turn color off\n";
eaace00e 805 } else {
1ef64acb 806 print "C Turn color on\n";
eaace00e 807 }
dcc1cc82 808 print "S Save data\n";
809 print "Q Quit\n";
eaace00e 810
811 print "\n";
812 print "Command >> " . $WHT;
813 $command = <STDIN>;
85645192 814 $command =~ s/[\n\r]//g;
eaace00e 815 $command =~ tr/A-Z/a-z/;
816 print "$NRM\n";
817
818 # Read the commands they entered.
819 if ( $command eq "r" ) {
820 $menu = 0;
821 } elsif ( $command eq "s" ) {
822 save_data();
823 print "Press enter to continue...";
824 $tmp = <STDIN>;
825 $saved = 1;
826 } elsif ( ( $command eq "q" ) && ( $saved == 0 ) ) {
827 print "You have not saved your data.\n";
828 print "Save? [" . $WHT . "Y" . $NRM . "/n]: ";
829 $save = <STDIN>;
830 if ( ( $save =~ /^y/i ) || ( $save =~ /^\s*$/ ) ) {
831 save_data();
832 }
833 } elsif ( $command eq "c" ) {
834 if ( $config_use_color == 1 ) {
835 $config_use_color = 2;
836 $WHT = "";
837 $NRM = "";
838 } else {
839 $config_use_color = 1;
840 $WHT = "\x1B[37;1m";
841 $NRM = "\x1B[0m";
842 }
843 } elsif ( $command eq "d" && $menu == 0 ) {
844 set_defaults();
845 } else {
846 $saved = 0;
847 if ( $menu == 0 ) {
39d3ec89 848 if ( ( $command > 0 ) && ( $command < 12 ) ) {
eaace00e 849 $menu = $command;
1a7a2fcc 850 }
eaace00e 851 } elsif ( $menu == 1 ) {
852 if ( $command == 1 ) { $org_name = command1(); }
853 elsif ( $command == 2 ) { $org_logo = command2(); }
b6e0c3b6 854 elsif ( $command == 3 ) { ($org_logo_width,$org_logo_height) = command2a(); }
855 elsif ( $command == 4 ) { $org_title = command3(); }
856 elsif ( $command == 5 ) { $signout_page = command4(); }
39d3ec89 857 elsif ( $command == 6 ) { $frame_top = command6(); }
858 elsif ( $command == 7 ) { $provider_uri = command7(); }
859 elsif ( $command == 8 ) { $provider_name = command8(); }
0ae4c1f2 860
eaace00e 861 } elsif ( $menu == 2 ) {
47a29326 862 if ( $command eq "a" ) { $show_imap_settings = 1; $show_smtp_settings = 0; }
863 elsif ( $command eq "b" ) { $show_imap_settings = 0; $show_smtp_settings = 1; }
864 elsif ( $command eq "h" ) { $show_imap_settings = 0; $show_smtp_settings = 0; }
865 elsif ( $command <= 3 ) {
866 if ( $command == 1 ) { $domain = command11(); }
867 elsif ( $command == 2 ) { $invert_time = command110(); }
868 elsif ( $command == 3 ) { $useSendmail = command14(); }
869 $show_imap_settings = 0; $show_smtp_settings = 0;
870 } elsif ( $show_imap_settings ) {
871 if ( $command == 4 ) { $imapServerAddress = command12(); }
872 elsif ( $command == 5 ) { $imapPort = command13(); }
b47821fb 873 elsif ( $command == 6 ) { $imap_auth_mech = command112a(); }
a15f9d93 874 elsif ( $command == 7 ) { $use_imap_tls = command_use_tls("IMAP",$use_imap_tls); }
47a29326 875 elsif ( $command == 8 ) { $imap_server_type = command19(); }
876 elsif ( $command == 9 ) { $optional_delimiter = command111(); }
35aaf666 877 } elsif ( $show_smtp_settings && lc($useSendmail) eq 'true' ) {
432db2fc 878 if ( $command == 4 ) { $sendmail_path = command15(); }
fd7ab795 879 elsif ( $command == 5 ) { $sendmail_args = command_sendmail_args(); }
880 elsif ( $command == 6 ) { $encode_header_key = command114(); }
47a29326 881 } elsif ( $show_smtp_settings ) {
882 if ( $command == 4 ) { $smtpServerAddress = command16(); }
883 elsif ( $command == 5 ) { $smtpPort = command17(); }
884 elsif ( $command == 6 ) { $pop_before_smtp = command18a(); }
b47821fb 885 elsif ( $command == 7 ) { $smtp_auth_mech = command112b(); }
a15f9d93 886 elsif ( $command == 8 ) { $use_smtp_tls = command_use_tls("SMTP",$use_smtp_tls); }
432db2fc 887 elsif ( $command == 9 ) { $encode_header_key = command114(); }
47a29326 888 }
eaace00e 889 } elsif ( $menu == 3 ) {
890 if ( $command == 1 ) { $default_folder_prefix = command21(); }
891 elsif ( $command == 2 ) { $show_prefix_option = command22(); }
892 elsif ( $command == 3 ) { $trash_folder = command23a(); }
893 elsif ( $command == 4 ) { $sent_folder = command23b(); }
894 elsif ( $command == 5 ) { $draft_folder = command23c(); }
895 elsif ( $command == 6 ) { $default_move_to_trash = command24a(); }
896 elsif ( $command == 7 ) { $default_move_to_sent = command24b(); }
897 elsif ( $command == 8 ) { $default_save_as_draft = command24c(); }
898 elsif ( $command == 9 ) { $list_special_folders_first = command27(); }
899 elsif ( $command == 10 ) { $use_special_folder_color = command28(); }
900 elsif ( $command == 11 ) { $auto_expunge = command29(); }
901 elsif ( $command == 12 ) { $default_sub_of_inbox = command210(); }
902 elsif ( $command == 13 ) { $show_contain_subfolders_option = command211(); }
903 elsif ( $command == 14 ) { $default_unseen_notify = command212(); }
904 elsif ( $command == 15 ) { $default_unseen_type = command213(); }
905 elsif ( $command == 16 ) { $auto_create_special = command214(); }
906 elsif ( $command == 17 ) { $delete_folder = command215(); }
ca85aabe 907 elsif ( $command == 18 ) { $noselect_fix_enable = command216(); }
eaace00e 908 } elsif ( $menu == 4 ) {
39d3ec89 909 if ( $command == 1 ) { $data_dir = command33a(); }
910 elsif ( $command == 2 ) { $attachment_dir = command33b(); }
911 elsif ( $command == 3 ) { $dir_hash_level = command33c(); }
912 elsif ( $command == 4 ) { $default_left_size = command35(); }
913 elsif ( $command == 5 ) { $force_username_lowercase = command36(); }
914 elsif ( $command == 6 ) { $default_use_priority = command37(); }
915 elsif ( $command == 7 ) { $hide_sm_attributions = command38(); }
916 elsif ( $command == 8 ) { $default_use_mdn = command39(); }
ee20a285 917 elsif ( $command == 9 ) { $edit_identity = command310(); }
11e00010 918 elsif ( $command == 10 ) { $disable_thread_sort = command312(); }
919 elsif ( $command == 11 ) { $disable_server_sort = command313(); }
39d3ec89 920 elsif ( $command == 12 ) { $allow_charset_search = command314(); }
de74555e 921 elsif ( $command == 13 ) { $allow_advanced_search = command316(); }
922 elsif ( $command == 14 ) { $session_name = command317(); }
ee20a285 923 elsif ( $command == 15 ) { $time_zone_type = command318(); }
3dc5d88f 924 elsif ( $command == 16 ) { $config_location_base = command_config_location_base(); }
9c0f1780 925 elsif ( $command == 17 ) { $only_secure_cookies = command319(); }
eaace00e 926 } elsif ( $menu == 5 ) {
83139c0b 927 if ( $command == 1 ) { $use_icons = commandB3(); }
928# elsif ( $command == 3 ) { $icon_theme_def = commandB7(); }
929 elsif ( $command == 2 ) { $default_fontsize = command_default_fontsize(); }
930 elsif ( $command == 3 ) { $templateset_default = command_templates(); }
931 elsif ( $command == 4 ) { command_userThemes(); }
932 elsif ( $command == 5 ) { command_fontsets(); }
933 elsif ( $command == 6 ) { command_iconSets(); }
eaace00e 934 } elsif ( $menu == 6 ) {
935 if ( $command == 1 ) { command61(); }
936 elsif ( $command == 2 ) { command62(); }
4272758c 937 elsif ( $command == 3 ) { $abook_global_file=command63(); }
938 elsif ( $command == 4 ) { command64(); }
71d3f882 939 elsif ( $command == 5 ) { command65(); }
7311c377 940 elsif ( $command == 6 ) { command_abook_file_line_length(); }
eaace00e 941 } elsif ( $menu == 7 ) {
942 if ( $command == 1 ) { $motd = command71(); }
943 } elsif ( $menu == 8 ) {
93d67e0d 944 if ( $command =~ /^[0-9]+/ ) { @plugins = command81(); }
945 elsif ( $command eq "u" ) { $disable_plugins_user = command82(); }
946 elsif ( $command eq "d" ) { $disable_plugins = 'true'; }
947 elsif ( $command eq "e" ) { $disable_plugins = 'false'; }
eaace00e 948 } elsif ( $menu == 9 ) {
99a6c222 949 if ( $command == 1 ) { $addrbook_dsn = command91(); }
950 elsif ( $command == 2 ) { $addrbook_table = command92(); }
951 elsif ( $command == 3 ) { $prefs_dsn = command93(); }
952 elsif ( $command == 4 ) { $prefs_table = command94(); }
953 elsif ( $command == 5 ) { $prefs_user_field = command95(); }
954 elsif ( $command == 6 ) { $prefs_key_field = command96(); }
955 elsif ( $command == 7 ) { $prefs_val_field = command97(); }
30e9932c 956 elsif ( $command == 8 ) { $addrbook_global_dsn = command98(); }
957 elsif ( $command == 9 ) { $addrbook_global_table = command99(); }
958 elsif ( $command == 10 ) { $addrbook_global_writeable = command910(); }
959 elsif ( $command == 11 ) { $addrbook_global_listing = command911(); }
39d3ec89 960 } elsif ( $menu == 10 ) {
961 if ( $command == 1 ) { $squirrelmail_default_language = commandA1(); }
5ba5dc8e 962 elsif ( $command == 2 ) { $default_charset = commandA2(); }
dcc1cc82 963 elsif ( $command == 3 ) { $show_alternative_names = commandA3(); }
5ba5dc8e 964 elsif ( $command == 4 ) { $aggressive_decoding = commandA4(); }
965 elsif ( $command == 5 ) { $lossy_encoding = commandA5(); }
39d3ec89 966 } elsif ( $menu == 11 ) {
ca885a4f 967 if ( $command == 1 ) { $use_iframe = commandB2(); }
72bf0ae7 968 elsif ( $command == 4 ) { $use_php_recode = commandB4(); }
969 elsif ( $command == 5 ) { $use_php_iconv = commandB5(); }
970 elsif ( $command == 6 ) { $allow_remote_configtest = commandB6(); }
eaace00e 971 }
972 }
828b4753 973}
974
cbd6543c 975# we exit here
976print "\nExiting conf.pl.\n".
35aaf666 977 "You might want to test your configuration by browsing to\n".
978 "http://your-squirrelmail-location/src/configtest.php\n".
979 "Happy SquirrelMailing!\n\n";
cbd6543c 980
981
828b4753 982####################################################################################
983
5b6ae78a 984# org_name
985sub command1 {
eaace00e 986 print "We have tried to make the name SquirrelMail as transparent as\n";
987 print "possible. If you set up an organization name, most places where\n";
988 print "SquirrelMail would take credit will be credited to your organization.\n";
989 print "\n";
360ef370 990 print "If your Organization Name includes a '\$', please precede it with a \\. \n";
991 print "Other '\$' will be considered the beginning of a variable that\n";
992 print "must be defined before the \$org_name is printed.\n";
360ef370 993 print "\n";
eaace00e 994 print "[$WHT$org_name$NRM]: $WHT";
995 $new_org_name = <STDIN>;
996 if ( $new_org_name eq "\n" ) {
997 $new_org_name = $org_name;
998 } else {
85645192 999 $new_org_name =~ s/[\r\n]//g;
35aaf666 1000 $new_org_name =~ s/\"/&quot;/g;
eaace00e 1001 }
1002 return $new_org_name;
5b6ae78a 1003}
1004
1005# org_logo
1006sub command2 {
eaace00e 1007 print "Your organization's logo is an image that will be displayed at\n";
25be56ab 1008 print "different times throughout SquirrelMail. ";
1009 print "\n";
1010 print "Please be aware of the following: \n";
1011 print " - Relative URLs are relative to the config dir\n";
1012 print " to use the default logo, use ../images/sm_logo.png\n";
1013 print " - To specify a logo defined outside the SquirrelMail source tree\n";
1014 print " use the absolute URL the webserver would use to include the file\n";
5d28b77e 1015 print " e.g. http://www.example.com/images/mylogo.gif or /images/mylogo.jpg\n";
eaace00e 1016 print "\n";
1017 print "[$WHT$org_logo$NRM]: $WHT";
1018 $new_org_logo = <STDIN>;
1019 if ( $new_org_logo eq "\n" ) {
1020 $new_org_logo = $org_logo;
1021 } else {
85645192 1022 $new_org_logo =~ s/[\r\n]//g;
eaace00e 1023 }
1024 return $new_org_logo;
5b6ae78a 1025}
1026
b6e0c3b6 1027# org_logo_width
1028sub command2a {
1029 print "Your organization's logo is an image that will be displayed at\n";
1030 print "different times throughout SquirrelMail. Width\n";
1031 print "and Height of your logo image. Use '0' to disable.\n";
1032 print "\n";
1033 print "Width: [$WHT$org_logo_width$NRM]: $WHT";
1034 $new_org_logo_width = <STDIN>;
1035 $new_org_logo_width =~ tr/0-9//cd; # only want digits!
1036 if ( $new_org_logo_width eq '' ) {
1037 $new_org_logo_width = $org_logo_width;
1038 }
0e21688d 1039 if ( $new_org_logo_width > 0 ) {
1040 print "Height: [$WHT$org_logo_height$NRM]: $WHT";
1041 $new_org_logo_height = <STDIN>;
1042 $new_org_logo_height =~ tr/0-9//cd; # only want digits!
e03345e1 1043 if( $new_org_logo_height eq '' ) {
35aaf666 1044 $new_org_logo_height = $org_logo_height;
1045 }
00c4b08d 1046 } else {
0e21688d 1047 $new_org_logo_height = 0;
b6e0c3b6 1048 }
1049 return ($new_org_logo_width, $new_org_logo_height);
1050}
1051
5b6ae78a 1052# org_title
1053sub command3 {
eaace00e 1054 print "A title is what is displayed at the top of the browser window in\n";
1055 print "the titlebar. Usually this will end up looking something like:\n";
1056 print "\"Netscape: $org_title\"\n";
1057 print "\n";
360ef370 1058 print "If your Organization Title includes a '\$', please precede it with a \\. \n";
1059 print "Other '\$' will be considered the beginning of a variable that\n";
1060 print "must be defined before the \$org_title is printed.\n";
360ef370 1061 print "\n";
eaace00e 1062 print "[$WHT$org_title$NRM]: $WHT";
1063 $new_org_title = <STDIN>;
1064 if ( $new_org_title eq "\n" ) {
1065 $new_org_title = $org_title;
1066 } else {
85645192 1067 $new_org_title =~ s/[\r\n]//g;
35aaf666 1068 $new_org_title =~ s/\"/\'/g;
eaace00e 1069 }
1070 return $new_org_title;
5b6ae78a 1071}
5b6ae78a 1072
f923b93d 1073# signout_page
1074sub command4 {
eaace00e 1075 print "When users click the Sign Out button they will be logged out and\n";
1076 print "then sent to signout_page. If signout_page is left empty,\n";
1077 print "(hit space and then return) they will be taken, as normal,\n";
1078 print "to the default and rather sparse SquirrelMail signout page.\n";
1079 print "\n";
1080 print "[$WHT$signout_page$NRM]: $WHT";
1081 $new_signout_page = <STDIN>;
1082 if ( $new_signout_page eq "\n" ) {
1083 $new_signout_page = $signout_page;
1084 } else {
85645192 1085 $new_signout_page =~ s/[\r\n]//g;
eaace00e 1086 $new_signout_page =~ s/^\s+$//g;
1087 }
1088 return $new_signout_page;
6ef7145f 1089}
1090
80e86e94 1091# Default top frame
1092sub command6 {
1093 print "SquirrelMail defaults to using the whole of the browser window.\n";
1094 print "This allows you to keep it within a specified frame. The default\n";
1095 print "is '_top'\n";
1096 print "\n";
1097 print "[$WHT$frame_top$NRM]: $WHT";
1098 $new_frame_top = <STDIN>;
eaace00e 1099 if ( $new_frame_top eq "\n" ) {
80e86e94 1100 $new_frame_top = '_top';
1101 } else {
85645192 1102 $new_frame_top =~ s/[\r\n]//g;
80e86e94 1103 $new_frame_top =~ s/^\s+$//g;
1104 }
1105 return $new_frame_top;
1106}
1107
0ae4c1f2 1108# Default link to provider
1109sub command7 {
1110 print "Here you can set the link on the right of the page.\n";
8b5c49cd 1111 print "If empty, it will link to the SquirrelMail About page.\n";
0ae4c1f2 1112 print "\n";
1113 print "[$WHT$provider_uri$NRM]: $WHT";
1114 $new_provider_uri = <STDIN>;
1115 if ( $new_provider_uri eq "\n" ) {
8b5c49cd 1116 $new_provider_uri = '';
0ae4c1f2 1117 } else {
85645192 1118 $new_provider_uri =~ s/[\r\n]//g;
0ae4c1f2 1119 $new_provider_uri =~ s/^\s+$//g;
1120 }
7b6563c0 1121 return $new_provider_uri;
0ae4c1f2 1122}
1123
1124sub command8 {
1125 print "Here you can set the name of the link on the right of the page.\n";
26eed4f7 1126 print "The default is 'SquirrelMail'\n";
0ae4c1f2 1127 print "\n";
1128 print "[$WHT$provider_name$NRM]: $WHT";
1129 $new_provider_name = <STDIN>;
1130 if ( $new_provider_name eq "\n" ) {
1131 $new_provider_name = 'SquirrelMail';
1132 } else {
85645192 1133 $new_provider_name =~ s/[\r\n]//g;
0ae4c1f2 1134 $new_provider_name =~ s/^\s+$//g;
26eed4f7 1135 $new_provider_name =~ s/\'/\\'/g;
0ae4c1f2 1136 }
7b6563c0 1137 return $new_provider_name;
0ae4c1f2 1138}
1139
828b4753 1140####################################################################################
5b6ae78a 1141
828b4753 1142# domain
1143sub command11 {
e1e4f932 1144 print "The domain name is the suffix at the end of all email addresses. If\n";
5d28b77e 1145 print "for example, your email address is jdoe\@example.com, then your domain\n";
1146 print "would be example.com.\n";
eaace00e 1147 print "\n";
1148 print "[$WHT$domain$NRM]: $WHT";
1149 $new_domain = <STDIN>;
1150 if ( $new_domain eq "\n" ) {
1151 $new_domain = $domain;
1152 } else {
da9e7627 1153 $new_domain =~ s/\s//g;
eaace00e 1154 }
1155 return $new_domain;
828b4753 1156}
5b6ae78a 1157
828b4753 1158# imapServerAddress
1159sub command12 {
47a29326 1160 print "This is the hostname where your IMAP server can be contacted.\n";
eaace00e 1161 print "[$WHT$imapServerAddress$NRM]: $WHT";
1162 $new_imapServerAddress = <STDIN>;
1163 if ( $new_imapServerAddress eq "\n" ) {
1164 $new_imapServerAddress = $imapServerAddress;
1165 } else {
85645192 1166 $new_imapServerAddress =~ s/[\r\n]//g;
eaace00e 1167 }
1168 return $new_imapServerAddress;
828b4753 1169}
5b6ae78a 1170
828b4753 1171# imapPort
1172sub command13 {
eaace00e 1173 print "This is the port that your IMAP server is on. Usually this is 143.\n";
1174 print "[$WHT$imapPort$NRM]: $WHT";
1175 $new_imapPort = <STDIN>;
1176 if ( $new_imapPort eq "\n" ) {
1177 $new_imapPort = $imapPort;
1178 } else {
85645192 1179 $new_imapPort =~ s/[\r\n]//g;
eaace00e 1180 }
1181 return $new_imapPort;
828b4753 1182}
1183
1184# useSendmail
1185sub command14 {
eaace00e 1186 print "You now need to choose the method that you will use for sending\n";
1187 print "messages in SquirrelMail. You can either connect to an SMTP server\n";
1188 print "or use sendmail directly.\n";
35aaf666 1189 if ( lc($useSendmail) eq 'true' ) {
eaace00e 1190 $default_value = "1";
1191 } else {
1192 $default_value = "2";
1193 }
1194 print "\n";
1195 print " 1. Sendmail\n";
1196 print " 2. SMTP\n";
1197 print "Your choice [1/2] [$WHT$default_value$NRM]: $WHT";
1198 $use_sendmail = <STDIN>;
1199 if ( ( $use_sendmail =~ /^1\n/i )
1200 || ( ( $use_sendmail =~ /^\n/ ) && ( $default_value eq "1" ) ) ) {
35aaf666 1201 $useSendmail = 'true';
eaace00e 1202 } else {
35aaf666 1203 $useSendmail = 'false';
eaace00e 1204 }
1205 return $useSendmail;
828b4753 1206}
5b6ae78a 1207
828b4753 1208# sendmail_path
1209sub command15 {
eaace00e 1210 print "Specify where the sendmail executable is located. Usually /usr/sbin/sendmail\n";
1211 print "[$WHT$sendmail_path$NRM]: $WHT";
1212 $new_sendmail_path = <STDIN>;
1213 if ( $new_sendmail_path eq "\n" ) {
1214 $new_sendmail_path = $sendmail_path;
1215 } else {
85645192 1216 $new_sendmail_path =~ s/[\r\n]//g;
eaace00e 1217 }
1218 return $new_sendmail_path;
828b4753 1219}
5b6ae78a 1220
fd7ab795 1221# Extra sendmail arguments
1222sub command_sendmail_args {
1223 print "Specify additional sendmail program arguments.\n";
1224 print "\n";
1225 print "Make sure that arguments are supported by your sendmail program. -f argument \n";
1226 print "is added automatically by SquirrelMail scripts. Variable defaults to standard\n";
1227 print "/usr/sbin/sendmail arguments. If you use qmail-inject, nbsmtp or any other \n";
1228 print "sendmail wrapper, which does not support -i and -t arguments, set variable to\n";
85bacb8f 1229 print "empty string or use arguments suitable for your mailer.\n";
fd7ab795 1230 print "\n";
1231 print "[$WHT$sendmail_args$NRM]: $WHT";
1232 $new_sendmail_args = <STDIN>;
1233 if ( $new_sendmail_args eq "\n" ) {
1234 $new_sendmail_args = $sendmail_args;
1235 } else {
1236 # strip linefeeds and crs.
1237 $new_sendmail_args =~ s/[\r\n]//g;
1238 }
1239 return trim($new_sendmail_args);
1240}
1241
828b4753 1242# smtpServerAddress
1243sub command16 {
47a29326 1244 print "This is the hostname of your SMTP server.\n";
eaace00e 1245 print "[$WHT$smtpServerAddress$NRM]: $WHT";
1246 $new_smtpServerAddress = <STDIN>;
1247 if ( $new_smtpServerAddress eq "\n" ) {
1248 $new_smtpServerAddress = $smtpServerAddress;
1249 } else {
85645192 1250 $new_smtpServerAddress =~ s/[\r\n]//g;
eaace00e 1251 }
1252 return $new_smtpServerAddress;
828b4753 1253}
1254
1255# smtpPort
1256sub command17 {
eaace00e 1257 print "This is the port to connect to for SMTP. Usually 25.\n";
1258 print "[$WHT$smtpPort$NRM]: $WHT";
1259 $new_smtpPort = <STDIN>;
1260 if ( $new_smtpPort eq "\n" ) {
1261 $new_smtpPort = $smtpPort;
1262 } else {
85645192 1263 $new_smtpPort =~ s/[\r\n]//g;
eaace00e 1264 }
1265 return $new_smtpPort;
bbd30ac8 1266}
d2f4c914 1267
2044f95a 1268# pop before SMTP
1269sub command18a {
1270 print "Do you wish to use POP3 before SMTP? Your server must\n";
1271 print "support this in order for SquirrelMail to work with it.\n";
1272
1273 $YesNo = 'n';
35aaf666 1274 $YesNo = 'y' if ( lc($pop_before_smtp) eq 'true' );
2044f95a 1275
1276 print "Use pop before SMTP (y/n) [$WHT$YesNo$NRM]: $WHT";
1277
1278 $new_pop_before_smtp = <STDIN>;
1279 $new_pop_before_smtp =~ tr/yn//cd;
35aaf666 1280 return 'true' if ( $new_pop_before_smtp eq "y" );
1281 return 'false' if ( $new_pop_before_smtp eq "n" );
2044f95a 1282 return $pop_before_smtp;
1283}
1284
598294a7 1285# imap_server_type
d2f4c914 1286sub command19 {
eaace00e 1287 print "Each IMAP server has its own quirks. As much as we tried to stick\n";
1288 print "to standards, it doesn't help much if the IMAP server doesn't follow\n";
1289 print "the same principles. We have made some work-arounds for some of\n";
1290 print "these servers. If you would like to use them, please select your\n";
1291 print "IMAP server. If you do not wish to use these work-arounds, you can\n";
1292 print "set this to \"other\", and none will be used.\n";
7a4f9bfb 1293 print $list_supported_imap_servers;
a33764f6 1294 print "\n";
b39825f0 1295 print " other = Not one of the above servers\n";
a33764f6 1296 print "\n";
eaace00e 1297 print "[$WHT$imap_server_type$NRM]: $WHT";
1298 $new_imap_server_type = <STDIN>;
1299
1300 if ( $new_imap_server_type eq "\n" ) {
1301 $new_imap_server_type = $imap_server_type;
1302 } else {
85645192 1303 $new_imap_server_type =~ s/[\r\n]//g;
eaace00e 1304 }
1305 return $new_imap_server_type;
a93b12ba 1306}
3f8fe68e 1307
d47b2518 1308# invert_time
d2f4c914 1309sub command110 {
eaace00e 1310 print "Sometimes the date of messages sent is messed up (off by a few hours\n";
1311 print "on some machines). Typically this happens if the system doesn't support\n";
1312 print "tm_gmtoff. It will happen only if your time zone is \"negative\".\n";
1313 print "This most often occurs on Solaris 7 machines in the United States.\n";
1314 print "By default, this is off. It should be kept off unless problems surface\n";
1315 print "about the time that messages are sent.\n";
1316 print " no = Do NOT fix time -- almost always correct\n";
1317 print " yes = Fix the time for this system\n";
1318
1319 $YesNo = 'n';
35aaf666 1320 $YesNo = 'y' if ( lc($invert_time) eq 'true' );
eaace00e 1321
1322 print "Fix the time for this system (y/n) [$WHT$YesNo$NRM]: $WHT";
1323
1324 $new_invert_time = <STDIN>;
1325 $new_invert_time =~ tr/yn//cd;
35aaf666 1326 return 'true' if ( $new_invert_time eq "y" );
1327 return 'false' if ( $new_invert_time eq "n" );
eaace00e 1328 return $invert_time;
1329}
d47b2518 1330
d2f4c914 1331sub command111 {
eaace00e 1332 print "This is the delimiter that your IMAP server uses to distinguish between\n";
1333 print "folders. For example, Cyrus uses '.' as the delimiter and a complete\n";
1334 print "folder would look like 'INBOX.Friends.Bob', while UW uses '/' and would\n";
1335 print "look like 'INBOX/Friends/Bob'. Normally this should be left at 'detect'\n";
1336 print "but if you are sure you know what delimiter your server uses, you can\n";
1337 print "specify it here.\n";
1338 print "\nTo have it autodetect the delimiter, set it to 'detect'.\n\n";
1339 print "[$WHT$optional_delimiter$NRM]: $WHT";
1340 $new_optional_delimiter = <STDIN>;
1341
1342 if ( $new_optional_delimiter eq "\n" ) {
1343 $new_optional_delimiter = $optional_delimiter;
1344 } else {
85645192 1345 $new_optional_delimiter =~ s/[\r\n]//g;
eaace00e 1346 }
1347 return $new_optional_delimiter;
40ba4d36 1348}
b47821fb 1349# IMAP authentication type
33feaaec 1350# Possible values: login, plain, cram-md5, digest-md5
b47821fb 1351# Now offers to detect supported mechs, assuming server & port are set correctly
1352
1353sub command112a {
61e49023 1354 if ($use_imap_tls ne "0") {
1355 # 1. Script does not handle TLS.
1356 # 2. Server does not have to declare all supported authentication mechs when
1357 # STARTTLS is used. Supported mechs are declared only after STARTTLS.
1358 print "Auto-detection of login methods is unavailable when using TLS or STARTTLS.\n";
80e3fcf8 1359 } else {
35aaf666 1360 print "If you have already set the hostname and port number, I can try to\n";
1361 print "detect the mechanisms your IMAP server supports.\n";
1362 print "I will try to detect CRAM-MD5 and DIGEST-MD5 support. I can't test\n";
1363 print "for \"login\" or \"plain\" without knowing a username and password.\n";
1364 print "Auto-detecting is optional - you can safely say \"n\" here.\n";
1365 print "\nTry to detect supported mechanisms? [y/N]: ";
1366 $inval=<STDIN>;
1367 chomp($inval);
1368 if ($inval =~ /^y\b/i) {
1369 # Yes, let's try to detect.
1370 print "Trying to detect IMAP capabilities...\n";
1371 my $host = $imapServerAddress . ':'. $imapPort;
1372 print "CRAM-MD5:\t";
1373 my $tmp = detect_auth_support('IMAP',$host,'CRAM-MD5');
1374 if (defined($tmp)) {
1375 if ($tmp eq 'YES') {
1376 print "$WHT SUPPORTED$NRM\n";
1377 } else {
1378 print "$WHT NOT SUPPORTED$NRM\n";
1379 }
80e3fcf8 1380 } else {
35aaf666 1381 print $WHT . " ERROR DETECTING$NRM\n";
1382 }
1383
1384 print "DIGEST-MD5:\t";
1385 $tmp = detect_auth_support('IMAP',$host,'DIGEST-MD5');
1386 if (defined($tmp)) {
1387 if ($tmp eq 'YES') {
1388 print "$WHT SUPPORTED$NRM\n";
1389 } else {
1390 print "$WHT NOT SUPPORTED$NRM\n";
1391 }
1392 } else {
1393 print $WHT . " ERROR DETECTING$NRM\n";
1394 }
598294a7 1395
35aaf666 1396 }
598294a7 1397 }
35aaf666 1398 print "\nWhat authentication mechanism do you want to use for IMAP connections?\n\n";
1399 print $WHT . "login" . $NRM . " - Plaintext. If you can do better, you probably should.\n";
33feaaec 1400 print $WHT . "plain" . $NRM . " - SASL PLAIN. If you need this, you already know it.\n";
35aaf666 1401 print $WHT . "cram-md5" . $NRM . " - Slightly better than plaintext methods.\n";
1402 print $WHT . "digest-md5" . $NRM . " - Privacy protection - better than cram-md5.\n";
1403 print "\n*** YOUR IMAP SERVER MUST SUPPORT THE MECHANISM YOU CHOOSE HERE ***\n";
1404 print "If you don't understand or are unsure, you probably want \"login\"\n\n";
1405 print "login, plain, cram-md5, or digest-md5 [$WHT$imap_auth_mech$NRM]: $WHT";
b47821fb 1406 $inval=<STDIN>;
1407 chomp($inval);
33feaaec 1408 if ( ($inval =~ /^cram-md5\b/i) || ($inval =~ /^digest-md5\b/i) || ($inval =~ /^login\b/i) || ($inval =~ /^plain\b/i)) {
b47821fb 1409 return lc($inval);
1410 } else {
1411 # user entered garbage or default value so nothing needs to be set
1412 return $imap_auth_mech;
1413 }
1414}
40ba4d36 1415
598294a7 1416
b47821fb 1417# SMTP authentication type
1418# Possible choices: none, plain, cram-md5, digest-md5
1419sub command112b {
61e49023 1420 if ($use_smtp_tls ne "0") {
1421 print "Auto-detection of login methods is unavailable when using TLS or STARTTLS.\n";
1422 } elsif (eval ("use IO::Socket; 1")) {
1423 # try loading IO::Socket module
80e3fcf8 1424 print "If you have already set the hostname and port number, I can try to\n";
1425 print "automatically detect some of the mechanisms your SMTP server supports.\n";
35aaf666 1426 print "Auto-detection is *optional* - you can safely say \"n\" here.\n";
80e3fcf8 1427 print "\nTry to detect auth mechanisms? [y/N]: ";
1428 $inval=<STDIN>;
1429 chomp($inval);
1430 if ($inval =~ /^y\b/i) {
35aaf666 1431 # Yes, let's try to detect.
1432 print "Trying to detect supported methods (SMTP)...\n";
598294a7 1433
35aaf666 1434 # Special case!
1435 # Check none by trying to relay to junk@microsoft.com
1436 $host = $smtpServerAddress . ':' . $smtpPort;
35aaf666 1437 my $sock = IO::Socket::INET->new($host);
1438 print "Testing none:\t\t$WHT";
1439 if (!defined($sock)) {
1440 print " ERROR TESTING\n";
1441 close $sock;
1442 } else {
5d28b77e 1443 print $sock "HELO $domain\r\n";
35aaf666 1444 $got = <$sock>; # Discard
5d28b77e 1445 print $sock "MAIL FROM:<tester\@squirrelmail.org>\r\n";
1446 $got = <$sock>; # Discard
1447 print $sock "RCPT TO:<junk\@microsoft.com\r\n";
35aaf666 1448 $got = <$sock>; # This is the important line
1449 if ($got =~ /^250\b/) { # SMTP will relay without auth
1450 print "SUPPORTED$NRM\n";
1451 } else {
1452 print "NOT SUPPORTED$NRM\n";
1453 }
5d28b77e 1454 print $sock "RSET\r\n";
1455 print $sock "QUIT\r\n";
35aaf666 1456 close $sock;
1457 }
1458 # Try login (SquirrelMail default)
1459 print "Testing login:\t\t";
1460 $tmp=detect_auth_support('SMTP',$host,'LOGIN');
1461 if (defined($tmp)) {
1462 if ($tmp eq 'YES') {
1463 print $WHT . "SUPPORTED$NRM\n";
1464 } else {
1465 print $WHT . "NOT SUPPORTED$NRM\n";
1466 }
1467 } else {
1468 print $WHT . "ERROR DETECTING$NRM\n";
1469 }
598294a7 1470
35aaf666 1471 # Try CRAM-MD5
80e3fcf8 1472 print "Testing CRAM-MD5:\t";
1473 $tmp=detect_auth_support('SMTP',$host,'CRAM-MD5');
1474 if (defined($tmp)) {
1475 if ($tmp eq 'YES') {
1476 print $WHT . "SUPPORTED$NRM\n";
1477 } else {
1478 print $WHT . "NOT SUPPORTED$NRM\n";
1479 }
1480 } else {
1481 print $WHT . "ERROR DETECTING$NRM\n";
b47821fb 1482 }
598294a7 1483
80e3fcf8 1484
1485 print "Testing DIGEST-MD5:\t";
1486 $tmp=detect_auth_support('SMTP',$host,'DIGEST-MD5');
1487 if (defined($tmp)) {
1488 if ($tmp eq 'YES') {
1489 print $WHT . "SUPPORTED$NRM\n";
1490 } else {
1491 print $WHT . "NOT SUPPORTED$NRM\n";
1492 }
1493 } else {
1494 print $WHT . "ERROR DETECTING$NRM\n";
b47821fb 1495 }
598294a7 1496 }
80e3fcf8 1497 }
1498 print "\nWhat authentication mechanism do you want to use for SMTP connections?\n";
b47821fb 1499 print $WHT . "none" . $NRM . " - Your SMTP server does not require authorization.\n";
fe0b18b3 1500 print $WHT . "login" . $NRM . " - Plaintext. If you can do better, you probably should.\n";
33feaaec 1501 print $WHT . "plain" . $NRM . " - SASL PLAIN. You already know it if you need this.\n";
639c7164 1502 print $WHT . "cram-md5" . $NRM . " - Slightly better than plaintext.\n";
1503 print $WHT . "digest-md5" . $NRM . " - Privacy protection - better than cram-md5.\n";
fe0b18b3 1504 print $WHT . "\n*** YOUR SMTP SERVER MUST SUPPORT THE MECHANISM YOU CHOOSE HERE ***\n" . $NRM;
b47821fb 1505 print "If you don't understand or are unsure, you probably want \"none\"\n\n";
fe0b18b3 1506 print "none, login, cram-md5, or digest-md5 [$WHT$smtp_auth_mech$NRM]: $WHT";
47a29326 1507 $inval=<STDIN>;
1508 chomp($inval);
b47821fb 1509 if ($inval =~ /^none\b/i) {
029d1fc2 1510 # remove sitewide smtp authentication information
1511 $smtp_sitewide_user = '';
1512 $smtp_sitewide_pass = '';
1513 # SMTP doesn't necessarily require logins
1514 return "none";
1515 } elsif ( ($inval =~ /^cram-md5\b/i) || ($inval =~ /^digest-md5\b/i) ||
1516 ($inval =~ /^login\b/i) || ($inval =~/^plain\b/i)) {
1517 command_smtp_sitewide_userpass($inval);
1518 return lc($inval);
1519 } elsif (trim($inval) eq '') {
1520 # user selected default value
1521 command_smtp_sitewide_userpass($smtp_auth_mech);
1522 return $smtp_auth_mech;
1523 } else {
1524 # user entered garbage
1525 return $smtp_auth_mech;
47a29326 1526 }
029d1fc2 1527}
1528
1529sub command_smtp_sitewide_userpass($) {
1530 # get first function argument
1531 my $auth_mech = shift(@_);
1532 my $default, $tmp;
1533 $auth_mech = lc(trim($auth_mech));
54b27c06 1534 if ($auth_mech eq 'none') {
029d1fc2 1535 return;
1536 }
1537 print "SMTP authentication uses IMAP username and password by default.\n";
1538 print "\n";
1539 print "Would you like to use other login and password for all SquirrelMail \n";
1540 print "SMTP connections?";
1541 if ($smtp_sitewide_user ne '') {
1542 $default = 'y';
1543 print " [Yn]:";
1544 } else {
1545 $default = 'n';
1546 print " [yN]:";
1547 }
1548 $tmp=<STDIN>;
1549 $tmp = trim($tmp);
1550
1551 if ($tmp eq '') {
1552 $tmp = $default;
47a29326 1553 } else {
029d1fc2 1554 $tmp = lc($tmp);
1555 }
1556
1557 if ($tmp eq 'n') {
1558 $smtp_sitewide_user = '';
1559 $smtp_sitewide_pass = '';
1560 } elsif ($tmp eq 'y') {
1561 print "Enter username [$smtp_sitewide_user]:";
1562 my $new_user = <STDIN>;
1563 $new_user = trim($new_user);
1564 if ($new_user ne '') {
1565 $smtp_sitewide_user = $new_user;
1566 }
1567 if ($smtp_sitewide_user ne '') {
1568 print "If you don't enter any password, current sitewide password will be used.\n";
1569 print "If you enter space, password will be set to empty string.\n";
1570 print "Enter password:";
1571 my $new_pass = <STDIN>;
1572 if ($new_pass ne "\n") {
1573 $smtp_sitewide_pass = trim($new_pass);
1574 }
1575 } else {
1576 print "Invalid input. You must set username used for SMTP authentication.\n";
8b56e282 1577 print "Click enter to continue\n";
029d1fc2 1578 $tmp = <STDIN>;
1579 }
1580 } else {
1581 print "Invalid input\n";
8b56e282 1582 print "Click enter to continue\n";
029d1fc2 1583 $tmp = <STDIN>;
47a29326 1584 }
1585}
1586
029d1fc2 1587# Sub adds information about SMTP authentication type to menu
1588sub display_smtp_sitewide_userpass() {
1589 my $ret = '';
1590 if ($smtp_auth_mech ne 'none') {
1591 if ($smtp_sitewide_user ne '') {
1592 $ret = ' (with custom username and password)';
1593 } else {
1594 $ret = ' (with IMAP username and password)';
1595 }
1596 }
1597 return $ret;
1598}
1599
47a29326 1600# TLS
1601# This sub is reused for IMAP and SMTP
1602# Args: service name, default value
a15f9d93 1603sub command_use_tls {
35aaf666 1604 my($default_val,$service,$inval);
1605 $service=$_[0];
1606 $default_val=$_[1];
1607 print "TLS (Transport Layer Security) encrypts the traffic between server and client.\n";
a15f9d93 1608 print "STARTTLS extensions allow to start encryption on existing plain text connection.\n";
1609 print "These options add specific PHP and IMAP server configuration requirements.\n";
1610 print "See SquirrelMail documentation about connection security.\n";
1611 print "\n";
1612 print "If your " . $service . " server is localhost, you can safely disable this.\n";
35aaf666 1613 print "If it is remote, you may wish to seriously consider enabling this.\n";
a15f9d93 1614 $valid_input=0;
1615 while ($valid_input eq 0) {
1616 print "\nSelect connection security model:\n";
1617 print " 0 - Use plain text connection\n";
1618 print " 1 - Use TLS connection\n";
1619 print " 2 - Use STARTTLS extension\n";
1620 print "Select [$default_val]: ";
1621 $inval=<STDIN>;
1622 $inval=trim($inval);
1623 if ($inval =~ /^[012]$/ || $inval eq '') {
1624 $valid_input = 1;
1625 }
47a29326 1626 }
a15f9d93 1627 if ($inval ne '') {$default_val = $inval};
47a29326 1628 return $default_val;
35aaf666 1629}
47a29326 1630
2b4a868c 1631# This sub is used to display human readable text for
1632# $use_imap_tls and $use_smtp_tls values in conf.pl menu
1633sub display_use_tls($) {
1634 my $val = shift(@_);
1635 my $ret = 'disabled';
1636 if ($val eq '2') {
1637 $ret = 'STARTTLS';
1638 } elsif ($val eq '1') {
1639 $ret = 'TLS';
1640 }
1641 return $ret;
1642}
1643
432db2fc 1644# $encode_header_key
35aaf666 1645sub command114{
432db2fc 1646 print "Encryption key allows to hide SquirrelMail Received: headers\n";
1647 print "in outbound messages. Interface uses encryption key to encode\n";
1648 print "username, remote address and proxied address, then stores encoded\n";
1649 print "information in X-Squirrel-* headers.\n";
1650 print "\n";
1651 print "Warning: used encryption function is not bulletproof. When used\n";
1652 print "with static encryption keys, it provides only minimal security\n";
1653 print "measures and information can be decoded quickly.\n";
1654 print "\n";
1655 print "Encoded information can be decoded with decrypt_headers.php script\n";
1656 print "from SquirrelMail contrib/ directory.\n";
1657 print "\n";
1658 print "Enter encryption key: ";
1659 $new_encode_header_key = <STDIN>;
1660 if ( $new_encode_header_key eq "\n" ) {
1661 $new_encode_header_key = $encode_header_key;
1662 } else {
1663 $new_encode_header_key =~ s/[\r\n]//g;
1664 }
1665 return $new_encode_header_key;
35aaf666 1666}
47a29326 1667
3f8fe68e 1668# MOTD
1669sub command71 {
eaace00e 1670 print "\nYou can now create the welcome message that is displayed\n";
1671 print "every time a user logs on. You can use HTML or just plain\n";
dcc1cc82 1672 print
1673"text. If you do not wish to have one, just make it blank.\n\n(Type @ on a blank line to exit)\n";
eaace00e 1674
1675 $new_motd = "";
1676 do {
1677 print "] ";
1678 $line = <STDIN>;
85645192 1679 $line =~ s/[\r\n]//g;
eaace00e 1680 if ( $line ne "@" ) {
1681 $line =~ s/ /\&nbsp;\&nbsp;/g;
1682 $line =~ s/\t/\&nbsp;\&nbsp;\&nbsp;\&nbsp;/g;
1683 $line =~ s/$/ /;
8278a58d 1684 $line =~ s/\"/\\\"/g;
eaace00e 1685
1686 $new_motd = $new_motd . $line;
1687 }
1688 } while ( $line ne "@" );
1689 return $new_motd;
3f8fe68e 1690}
911ad01c 1691
9d0c7bee 1692################# PLUGINS ###################
1693
1694sub command81 {
85645192 1695 $command =~ s/[\s\n\r]*//g;
eaace00e 1696 if ( $command > 0 ) {
1697 $command = $command - 1;
1698 if ( $command <= $#plugins ) {
1699 @newplugins = ();
1700 $ct = 0;
1701 while ( $ct <= $#plugins ) {
1702 if ( $ct != $command ) {
1703 @newplugins = ( @newplugins, $plugins[$ct] );
1704 }
1705 $ct++;
9d0c7bee 1706 }
eaace00e 1707 @plugins = @newplugins;
1708 } elsif ( $command <= $#plugins + $#unused_plugins + 1 ) {
1709 $num = $command - $#plugins - 1;
1710 @newplugins = @plugins;
1711 $ct = 0;
1712 while ( $ct <= $#unused_plugins ) {
1713 if ( $ct == $num ) {
1714 @newplugins = ( @newplugins, $unused_plugins[$ct] );
eaace00e 1715 }
1716 $ct++;
9d0c7bee 1717 }
eaace00e 1718 @plugins = @newplugins;
1719 }
1720 }
1721 return @plugins;
1722}
9d0c7bee 1723
93d67e0d 1724# disable_plugins_user
1725sub command82 {
1726 print "When all active plugins are disabled, they can be disabled only\n";
1727 print "for the one user named here. If left blank, plugins will be\n";
1728 print "disabled for ALL users. This setting has no effect if plugins\n";
1729 print "are not disabled.\n";
1730 print "\n";
1731 print "This must be the exact IMAP login name for the desired user.\n";
1732 print "\n";
1733 print "[$WHT$disable_plugins_user$NRM]: $WHT";
1734 $new_disable_plugins_user = <STDIN>;
1735 if ( $new_disable_plugins_user eq "\n" ) {
1736 $new_disable_plugins_user = $disable_plugins_user;
1737 } else {
1738 $new_disable_plugins_user =~ s/[\r\n]//g;
1739 }
1740 return $new_disable_plugins_user;
1741}
1742
911ad01c 1743################# FOLDERS ###################
1744
1745# default_folder_prefix
1746sub command21 {
eaace00e 1747 print "Some IMAP servers (UW, for example) store mail and folders in\n";
1748 print "your user space in a separate subdirectory. This is where you\n";
1749 print "specify what that directory is.\n";
1750 print "\n";
1751 print "EXAMPLE: mail/";
1752 print "\n";
1753 print "NOTE: If you use Cyrus, or some server that would not use this\n";
1754 print " option, you must set this to 'none'.\n";
1755 print "\n";
1756 print "[$WHT$default_folder_prefix$NRM]: $WHT";
1757 $new_default_folder_prefix = <STDIN>;
1758
1759 if ( $new_default_folder_prefix eq "\n" ) {
1760 $new_default_folder_prefix = $default_folder_prefix;
1761 } else {
d52532d5 1762 $new_default_folder_prefix =~ s/[\r\n]//g;
eaace00e 1763 }
d52532d5 1764 if ( ( $new_default_folder_prefix =~ /^\s*$/ ) || ( $new_default_folder_prefix =~ m/^none$/i ) ) {
eaace00e 1765 $new_default_folder_prefix = "";
1766 } else {
d52532d5 1767 # add the trailing delimiter only if we know what the server is.
ce9f808b 1768 if (($imap_server_type eq 'cyrus' and
1769 $optional_delimiter eq 'detect') or
1770 ($imap_server_type eq 'courier' and
1771 $optional_delimiter eq 'detect')) {
d52532d5 1772 $new_default_folder_prefix =~ s/\.*$/\./;
ce9f808b 1773 } elsif ($imap_server_type eq 'uw' and
1774 $optional_delimiter eq 'detect') {
d52532d5 1775 $new_default_folder_prefix =~ s/\/*$/\//;
0e21688d 1776 }
eaace00e 1777 }
1778 return $new_default_folder_prefix;
911ad01c 1779}
1780
1781# Show Folder Prefix
1782sub command22 {
eaace00e 1783 print "It is possible to set up the default folder prefix as a user\n";
1784 print "specific option, where each user can specify what their mail\n";
1785 print "folder is. If you set this to false, they will never see the\n";
1786 print "option, but if it is true, this option will appear in the\n";
1787 print "'options' section.\n";
1788 print "\n";
1789 print "NOTE: You set the default folder prefix in option '1' of this\n";
1790 print " section. That will be the default if the user doesn't\n";
1791 print " specify anything different.\n";
1792 print "\n";
1793
35aaf666 1794 if ( lc($show_prefix_option) eq 'true' ) {
eaace00e 1795 $default_value = "y";
1796 } else {
1797 $default_value = "n";
1798 }
1799 print "\n";
1800 print "Show option (y/n) [$WHT$default_value$NRM]: $WHT";
1801 $new_show = <STDIN>;
1802 if ( ( $new_show =~ /^y\n/i ) || ( ( $new_show =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
35aaf666 1803 $show_prefix_option = 'true';
eaace00e 1804 } else {
35aaf666 1805 $show_prefix_option = 'false';
eaace00e 1806 }
1807 return $show_prefix_option;
911ad01c 1808}
1809
598294a7 1810# Trash Folder
f7b1b3b1 1811sub command23a {
eaace00e 1812 print "You can now specify where the default trash folder is located.\n";
1813 print "On servers where you do not want this, you can set it to anything\n";
1814 print "and set option 6 to false.\n";
1815 print "\n";
1816 print "This is relative to where the rest of your email is kept. You do\n";
1817 print "not need to worry about their mail directory. If this folder\n";
1818 print "would be ~/mail/trash on the filesystem, you only need to specify\n";
1819 print "that this is 'trash', and be sure to put 'mail/' in option 1.\n";
1820 print "\n";
1821
1822 print "[$WHT$trash_folder$NRM]: $WHT";
1823 $new_trash_folder = <STDIN>;
1824 if ( $new_trash_folder eq "\n" ) {
1825 $new_trash_folder = $trash_folder;
1826 } else {
5ef3253e 1827 if (check_imap_folder($new_trash_folder)) {
1828 $new_trash_folder =~ s/[\r\n]//g;
1829 } else {
1830 $new_trash_folder = $trash_folder;
1831 }
eaace00e 1832 }
1833 return $new_trash_folder;
911ad01c 1834}
1835
598294a7 1836# Sent Folder
f7b1b3b1 1837sub command23b {
eaace00e 1838 print "This is where messages that are sent will be stored. SquirrelMail\n";
1839 print "by default puts a copy of all outgoing messages in this folder.\n";
1840 print "\n";
1841 print "This is relative to where the rest of your email is kept. You do\n";
1842 print "not need to worry about their mail directory. If this folder\n";
1843 print "would be ~/mail/sent on the filesystem, you only need to specify\n";
1844 print "that this is 'sent', and be sure to put 'mail/' in option 1.\n";
1845 print "\n";
1846
1847 print "[$WHT$sent_folder$NRM]: $WHT";
1848 $new_sent_folder = <STDIN>;
1849 if ( $new_sent_folder eq "\n" ) {
1850 $new_sent_folder = $sent_folder;
1851 } else {
5ef3253e 1852 if (check_imap_folder($new_sent_folder)) {
1853 $new_sent_folder =~ s/[\r\n]//g;
1854 } else {
1855 $new_sent_folder = $sent_folder;
1856 }
eaace00e 1857 }
1858 return $new_sent_folder;
911ad01c 1859}
1860
598294a7 1861# Draft Folder
f7b1b3b1 1862sub command23c {
eaace00e 1863 print "You can now specify where the default draft folder is located.\n";
1864 print "On servers where you do not want this, you can set it to anything\n";
1865 print "and set option 9 to false.\n";
1866 print "\n";
1867 print "This is relative to where the rest of your email is kept. You do\n";
1868 print "not need to worry about their mail directory. If this folder\n";
1869 print "would be ~/mail/drafts on the filesystem, you only need to specify\n";
1870 print "that this is 'drafts', and be sure to put 'mail/' in option 1.\n";
1871 print "\n";
1872
1873 print "[$WHT$draft_folder$NRM]: $WHT";
1874 $new_draft_folder = <STDIN>;
1875 if ( $new_draft_folder eq "\n" ) {
1876 $new_draft_folder = $draft_folder;
1877 } else {
5ef3253e 1878 if (check_imap_folder($new_draft_folder)) {
1879 $new_draft_folder =~ s/[\r\n]//g;
1880 } else {
1881 $new_draft_folder = $draft_folder;
1882 }
eaace00e 1883 }
1884 return $new_draft_folder;
f7b1b3b1 1885}
1886
598294a7 1887# default move to trash
f7b1b3b1 1888sub command24a {
eaace00e 1889 print "By default, should messages get moved to the trash folder? You\n";
1890 print "can specify the default trash folder in option 3. If this is set\n";
1891 print "to false, messages will get deleted immediately without moving\n";
1892 print "to the trash folder.\n";
1893 print "\n";
1894 print "Trash folder is currently: $trash_folder\n";
1895 print "\n";
1896
35aaf666 1897 if ( lc($default_move_to_trash) eq 'true' ) {
eaace00e 1898 $default_value = "y";
1899 } else {
1900 $default_value = "n";
1901 }
1902 print "By default, move to trash (y/n) [$WHT$default_value$NRM]: $WHT";
1903 $new_show = <STDIN>;
1904 if ( ( $new_show =~ /^y\n/i ) || ( ( $new_show =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
35aaf666 1905 $default_move_to_trash = 'true';
eaace00e 1906 } else {
35aaf666 1907 $default_move_to_trash = 'false';
eaace00e 1908 }
1909 return $default_move_to_trash;
2f287147 1910}
1911
598294a7 1912# default move to sent
f7b1b3b1 1913sub command24b {
eaace00e 1914 print "By default, should messages get moved to the sent folder? You\n";
1915 print "can specify the default sent folder in option 4. If this is set\n";
1916 print "to false, messages will get sent and no copy will be made.\n";
1917 print "\n";
6517cfd0 1918 print "Sent folder is currently: $sent_folder\n";
eaace00e 1919 print "\n";
1920
35aaf666 1921 if ( lc($default_move_to_sent) eq 'true' ) {
eaace00e 1922 $default_value = "y";
1923 } else {
1924 $default_value = "n";
1925 }
1926 print "By default, move to sent (y/n) [$WHT$default_value$NRM]: $WHT";
1927 $new_show = <STDIN>;
1928 if ( ( $new_show =~ /^y\n/i ) || ( ( $new_show =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
35aaf666 1929 $default_move_to_sent = 'true';
eaace00e 1930 } else {
35aaf666 1931 $default_move_to_sent = 'false';
eaace00e 1932 }
1933 return $default_move_to_sent;
2f287147 1934}
1935
f7b1b3b1 1936# default save as draft
1937sub command24c {
eaace00e 1938 print "By default, should the save to draft option be shown? You can\n";
1939 print "specify the default drafts folder in option 5. If this is set\n";
1940 print "to false, users will not be shown the save to draft option.\n";
1941 print "\n";
1942 print "Drafts folder is currently: $draft_folder\n";
1943 print "\n";
1944
35aaf666 1945 if ( lc($default_move_to_draft) eq 'true' ) {
eaace00e 1946 $default_value = "y";
1947 } else {
1948 $default_value = "n";
1949 }
1950 print "By default, save as draft (y/n) [$WHT$default_value$NRM]: $WHT";
1951 $new_show = <STDIN>;
1952 if ( ( $new_show =~ /^y\n/i ) || ( ( $new_show =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
35aaf666 1953 $default_save_as_draft = 'true';
eaace00e 1954 } else {
35aaf666 1955 $default_save_as_draft = 'false';
eaace00e 1956 }
1957 return $default_save_as_draft;
f7b1b3b1 1958}
1959
598294a7 1960# List special folders first
2f287147 1961sub command27 {
eaace00e 1962 print "SquirrelMail has what we call 'special folders' that are not\n";
1963 print "manipulated and viewed like normal folders. Some examples of\n";
1964 print "these folders would be INBOX, Trash, Sent, etc. This option\n";
1965 print "Simply asks if you want these folders listed first in the folder\n";
1966 print "listing.\n";
1967 print "\n";
1968
35aaf666 1969 if ( lc($list_special_folders_first) eq 'true' ) {
eaace00e 1970 $default_value = "y";
1971 } else {
1972 $default_value = "n";
1973 }
1974 print "\n";
1975 print "List first (y/n) [$WHT$default_value$NRM]: $WHT";
1976 $new_show = <STDIN>;
1977 if ( ( $new_show =~ /^y\n/i ) || ( ( $new_show =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
35aaf666 1978 $list_special_folders_first = 'true';
eaace00e 1979 } else {
35aaf666 1980 $list_special_folders_first = 'false';
eaace00e 1981 }
1982 return $list_special_folders_first;
911ad01c 1983}
1984
598294a7 1985# Show special folders color
2f287147 1986sub command28 {
eaace00e 1987 print "SquirrelMail has what we call 'special folders' that are not\n";
1988 print "manipulated and viewed like normal folders. Some examples of\n";
1989 print "these folders would be INBOX, Trash, Sent, etc. This option\n";
1990 print "wants to know if we should display special folders in a\n";
1991 print "color than the other folders.\n";
1992 print "\n";
1993
35aaf666 1994 if ( lc($use_special_folder_color) eq 'true' ) {
eaace00e 1995 $default_value = "y";
1996 } else {
1997 $default_value = "n";
1998 }
1999 print "\n";
2000 print "Show color (y/n) [$WHT$default_value$NRM]: $WHT";
2001 $new_show = <STDIN>;
2002 if ( ( $new_show =~ /^y\n/i ) || ( ( $new_show =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
35aaf666 2003 $use_special_folder_color = 'true';
eaace00e 2004 } else {
35aaf666 2005 $use_special_folder_color = 'false';
eaace00e 2006 }
2007 return $use_special_folder_color;
911ad01c 2008}
2009
598294a7 2010# Auto expunge
2f287147 2011sub command29 {
eaace00e 2012 print "The way that IMAP handles deleting messages is as follows. You\n";
2013 print "mark the message as deleted, and then to 'really' delete it, you\n";
2014 print "expunge it. This option asks if you want to just have messages\n";
2015 print "marked as deleted, or if you want SquirrelMail to expunge the \n";
2016 print "messages too.\n";
2017 print "\n";
2018
35aaf666 2019 if ( lc($auto_expunge) eq 'true' ) {
eaace00e 2020 $default_value = "y";
2021 } else {
2022 $default_value = "n";
2023 }
2024 print "Auto expunge (y/n) [$WHT$default_value$NRM]: $WHT";
2025 $new_show = <STDIN>;
2026 if ( ( $new_show =~ /^y\n/i ) || ( ( $new_show =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
35aaf666 2027 $auto_expunge = 'true';
eaace00e 2028 } else {
35aaf666 2029 $auto_expunge = 'false';
eaace00e 2030 }
2031 return $auto_expunge;
911ad01c 2032}
2033
598294a7 2034# Default sub of inbox
2f287147 2035sub command210 {
eaace00e 2036 print "Some IMAP servers (Cyrus) have all folders as subfolders of INBOX.\n";
2037 print "This can cause some confusion in folder creation for users when\n";
2038 print "they try to create folders and don't put it as a subfolder of INBOX\n";
2039 print "and get permission errors. This option asks if you want folders\n";
2040 print "to be subfolders of INBOX by default.\n";
2041 print "\n";
2042
35aaf666 2043 if ( lc($default_sub_of_inbox) eq 'true' ) {
eaace00e 2044 $default_value = "y";
2045 } else {
2046 $default_value = "n";
2047 }
2048 print "Default sub of INBOX (y/n) [$WHT$default_value$NRM]: $WHT";
2049 $new_show = <STDIN>;
2050 if ( ( $new_show =~ /^y\n/i ) || ( ( $new_show =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
35aaf666 2051 $default_sub_of_inbox = 'true';
eaace00e 2052 } else {
35aaf666 2053 $default_sub_of_inbox = 'false';
eaace00e 2054 }
2055 return $default_sub_of_inbox;
911ad01c 2056}
2057
598294a7 2058# Show contain subfolder option
2f287147 2059sub command211 {
eaace00e 2060 print "Some IMAP servers (UW) make it so that there are two types of\n";
2061 print "folders. Those that contain messages, and those that contain\n";
2062 print "subfolders. If this is the case for your server, set this to\n";
2063 print "true, and it will ask the user whether the folder they are\n";
2064 print "creating contains subfolders or messages.\n";
2065 print "\n";
2066
35aaf666 2067 if ( lc($show_contain_subfolders_option) eq 'true' ) {
eaace00e 2068 $default_value = "y";
2069 } else {
2070 $default_value = "n";
2071 }
2072 print "Show option (y/n) [$WHT$default_value$NRM]: $WHT";
2073 $new_show = <STDIN>;
2074 if ( ( $new_show =~ /^y\n/i ) || ( ( $new_show =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
35aaf666 2075 $show_contain_subfolders_option = 'true';
eaace00e 2076 } else {
35aaf666 2077 $show_contain_subfolders_option = 'false';
eaace00e 2078 }
2079 return $show_contain_subfolders_option;
911ad01c 2080}
2081
598294a7 2082# Default Unseen Notify
24fc5dd2 2083sub command212 {
eaace00e 2084 print "This option specifies where the users will receive notification\n";
2085 print "about unseen messages by default. This is of course an option that\n";
2086 print "can be changed on a user level.\n";
2087 print " 1 = No notification\n";
2088 print " 2 = Only on the INBOX\n";
2089 print " 3 = On all folders\n";
2090 print "\n";
2091
2092 print "Which one should be default (1,2,3)? [$WHT$default_unseen_notify$NRM]: $WHT";
2093 $new_show = <STDIN>;
85645192 2094 if ( $new_show =~ /^[123]\n/i ) {
eaace00e 2095 $default_unseen_notify = $new_show;
2096 }
85645192 2097 $default_unseen_notify =~ s/[\r\n]//g;
eaace00e 2098 return $default_unseen_notify;
24fc5dd2 2099}
2100
598294a7 2101# Default Unseen Type
24fc5dd2 2102sub command213 {
eaace00e 2103 print "Here you can define the default way that unseen messages will be displayed\n";
2104 print "to the user in the folder listing on the left side.\n";
2105 print " 1 = Only unseen messages (4)\n";
2106 print " 2 = Unseen and Total messages (4/27)\n";
2107 print "\n";
2108
2109 print "Which one should be default (1,2)? [$WHT$default_unseen_type$NRM]: $WHT";
2110 $new_show = <STDIN>;
85645192 2111 if ( $new_show =~ /^[12]\n/i ) {
eaace00e 2112 $default_unseen_type = $new_show;
2113 }
85645192 2114 $default_unseen_type =~ s/[\r\n]//g;
eaace00e 2115 return $default_unseen_type;
24fc5dd2 2116}
2117
f7bfc9de 2118# Auto create special folders
2119sub command214 {
eaace00e 2120 print "Would you like the Sent, Trash, and Drafts folders to be created\n";
2121 print "automatically print for you when a user logs in? If the user\n";
2122 print "accidentally deletes their special folders, this option will\n";
2123 print "automatically create it again for them.\n";
2124 print "\n";
2125
35aaf666 2126 if ( lc($auto_create_special) eq 'true' ) {
eaace00e 2127 $default_value = "y";
2128 } else {
2129 $default_value = "n";
2130 }
2131 print "Auto create special folders? (y/n) [$WHT$default_value$NRM]: $WHT";
2132 $new_show = <STDIN>;
2133 if ( ( $new_show =~ /^y\n/i ) || ( ( $new_show =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
35aaf666 2134 $auto_create_special = 'true';
eaace00e 2135 } else {
35aaf666 2136 $auto_create_special = 'false';
eaace00e 2137 }
2138 return $auto_create_special;
f7bfc9de 2139}
2140
598294a7 2141# Automatically delete folders
4e85a37f 2142sub command215 {
d04165f3 2143 if ( $imap_server_type eq "uw" ) {
2144 print "UW IMAP servers will not allow folders containing mail to also contain folders.\n";
2145 print "Deleting folders will bypass the trash folder and be immediately deleted\n\n";
98468fba 2146 print "If this is not the correct value for your server,\n";
2147 print "please use option D on the Main Menu to configure your server correctly.\n\n";
8b56e282 2148 print "Press enter to continue...\n";
2eec12b5 2149 $new_delete = <STDIN>;
35aaf666 2150 $delete_folder = 'true';
598294a7 2151 } else {
d04165f3 2152 if ( $imap_server_type eq "courier" ) {
2153 print "Courier (or Courier-IMAP) IMAP servers may not support ";
2154 print "subfolders of Trash. \n";
2155 print "Specifically, if Courier is set to always move messages to Trash, \n";
2156 print "Trash will be treated by Courier as a special folder that does not \n";
2157 print "allow subfolders. \n\n";
2158 print "Please verify your Courier configuration, and test folder deletion \n";
598294a7 2159 print "when changing this setting.\n\n";
d04165f3 2160 }
2161
2162 print "Are subfolders of the Trash supported by your IMAP server?\n";
2163 print "If so, should deleted folders be sent to Trash?\n";
2164 print "If not, say no (deleted folders should not be sent to Trash)\n\n";
2165 # reversal of logic.
2166 # question was: Should folders be automatically deleted instead of sent to trash..
598294a7 2167 # we've changed the question to make it more clear,
2168 # and are here handling that to avoid changing the answers..
35aaf666 2169 if ( lc($delete_folder) eq 'true' ) {
2eec12b5 2170 $default_value = "n";
d04165f3 2171 } else {
2172 $default_value = "y";
2eec12b5 2173 }
d04165f3 2174 print "Send deleted folders to Trash? (y/n) [$WHT$default_value$NRM]: $WHT";
2eec12b5 2175 $new_delete = <STDIN>;
2176 if ( ( $new_delete =~ /^y\n/i ) || ( ( $new_delete =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
35aaf666 2177 $delete_folder = 'false';
d04165f3 2178 } else {
35aaf666 2179 $delete_folder = 'true';
2eec12b5 2180 }
eaace00e 2181 }
2182 return $delete_folder;
2183}
24fc5dd2 2184
ca85aabe 2185#noselect fix
2186sub command216 {
2187 print "Some IMAP server allow subfolders to exist even if the parent\n";
2188 print "folders do not. This fixes some problems with the folder list\n";
2189 print "when this is the case, causing the /NoSelect folders to be displayed\n";
2190 print "\n";
2191
35aaf666 2192 if ( lc($noselect_fix_enable) eq 'true' ) {
ca85aabe 2193 $default_value = "y";
2194 } else {
2195 $default_value = "n";
2196 }
2197 print "enable noselect fix? (y/n) [$WHT$noselect_fix_enable$NRM]: $WHT";
2198 $noselect_fix_enable = <STDIN>;
2199 if ( ( $noselect_fix_enable =~ /^y\n/i ) || ( ( $noselect_fix_enable =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
35aaf666 2200 $noselect_fix_enable = 'true';
ca85aabe 2201 } else {
35aaf666 2202 $noselect_fix_enable = 'false';
ca85aabe 2203 }
2204 return $noselect_fix_enable;
2205}
ccfb2029 2206############# GENERAL OPTIONS #####################
2207
ccfb2029 2208# Data directory
3392dc86 2209sub command33a {
e6566358 2210 print "Specify the location for your data directory.\n";
368ab966 2211 print "You need to create this directory yourself.\n";
e6566358 2212 print "The path name can be absolute or relative (to the config directory).\n";
368ab966 2213 print "Here are two examples:\n";
2214 print " Absolute: /var/local/squirrelmail/data/\n";
598294a7 2215 print " Relative: ../data/\n";
8bd9e0dd 2216 print "Relative paths to directories outside of the SquirrelMail distribution\n";
e6566358 2217 print "will be converted to their absolute path equivalents in config.php.\n\n";
30e9932c 2218 print "Note: There are potential security risks with having a writeable directory\n";
e6566358 2219 print "under the web server's root directory (ex: /home/httpd/html).\n";
2220 print "For this reason, it is recommended to put the data directory\n";
2eec12b5 2221 print "in an alternate location of your choice. \n";
2222 print "\n";
2223
2224 print "[$WHT$data_dir$NRM]: $WHT";
2225 $new_data_dir = <STDIN>;
2226 if ( $new_data_dir eq "\n" ) {
2227 $new_data_dir = $data_dir;
2228 } else {
85645192 2229 $new_data_dir =~ s/[\r\n]//g;
2eec12b5 2230 }
eaace00e 2231 if ( $new_data_dir =~ /^\s*$/ ) {
2232 $new_data_dir = "";
2233 } else {
2234 $new_data_dir =~ s/\/*$//g;
2235 $new_data_dir =~ s/$/\//g;
2236 }
2237 return $new_data_dir;
ccfb2029 2238}
2239
2240# Attachment directory
3392dc86 2241sub command33b {
eaace00e 2242 print "Path to directory used for storing attachments while a mail is\n";
368ab966 2243 print "being composed. The path name can be absolute or relative (to the\n";
2244 print "config directory). Here are two examples:\n";
2245 print " Absolute: /var/local/squirrelmail/attach/\n";
e6566358 2246 print " Relative: ../attach/\n";
2247 print "Relative paths to directories outside of the SquirrelMail distribution\n";
2248 print "will be converted to their absolute path equivalents in config.php.\n\n";
2249 print "Note: There are a few security considerations regarding this\n";
eaace00e 2250 print "directory:\n";
2251 print " 1. It should have the permission 733 (rwx-wx-wx) to make it\n";
2252 print " impossible for a random person with access to the webserver\n";
2253 print " to list files in this directory. Confidential data might\n";
2254 print " be laying around in there.\n";
e6566358 2255 print " Depending on your user:group assignments, 730 (rwx-wx---)\n";
2256 print " may be possible, and more secure (e.g. root:apache)\n";
eaace00e 2257 print " 2. Since the webserver is not able to list the files in the\n";
2258 print " content is also impossible for the webserver to delete files\n";
2259 print " lying around there for too long.\n";
2260 print " 3. It should probably be another directory than the data\n";
2261 print " directory specified in option 3.\n";
2262 print "\n";
2263
2264 print "[$WHT$attachment_dir$NRM]: $WHT";
2265 $new_attachment_dir = <STDIN>;
2266 if ( $new_attachment_dir eq "\n" ) {
2267 $new_attachment_dir = $attachment_dir;
2268 } else {
85645192 2269 $new_attachment_dir =~ s/[\r\n]//g;
eaace00e 2270 }
2271 if ( $new_attachment_dir =~ /^\s*$/ ) {
2272 $new_attachment_dir = "";
2273 } else {
2274 $new_attachment_dir =~ s/\/*$//g;
2275 $new_attachment_dir =~ s/$/\//g;
2276 }
2277 return $new_attachment_dir;
ccfb2029 2278}
2279
3392dc86 2280sub command33c {
eaace00e 2281 print "The directory hash level setting allows you to configure the level\n";
598294a7 2282 print "of hashing that SquirrelMail employs in your data and attachment\n";
eaace00e 2283 print "directories. This value must be an integer ranging from 0 to 4.\n";
598294a7 2284 print "When this value is set to 0, SquirrelMail will simply store all\n";
eaace00e 2285 print "files as normal in the data and attachment directories. However,\n";
2286 print "when set to a value from 1 to 4, a simple hashing scheme will be\n";
2287 print "used to organize the files in this directory. In short, the crc32\n";
2288 print "value for a username will be computed. Then, up to the first 4\n";
2289 print "digits of the hash, as set by this configuration value, will be\n";
2290 print "used to directory hash the files for that user in the data and\n";
2291 print "attachment directory. This allows for better performance on\n";
2292 print "servers with larger numbers of users.\n";
2293 print "\n";
2294
2295 print "[$WHT$dir_hash_level$NRM]: $WHT";
2296 $new_dir_hash_level = <STDIN>;
2297 if ( $new_dir_hash_level eq "\n" ) {
2298 $new_dir_hash_level = $dir_hash_level;
2299 } else {
85645192 2300 $new_dir_hash_level =~ s/[\r\n]//g;
eaace00e 2301 }
2302 if ( ( int($new_dir_hash_level) < 0 )
2303 || ( int($new_dir_hash_level) > 4 )
2304 || !( int($new_dir_hash_level) eq $new_dir_hash_level ) ) {
2305 print "Invalid Directory Hash Level.\n";
2306 print "Value must be an integer ranging from 0 to 4\n";
2307 print "Hit enter to continue.\n";
2308 $enter_key = <STDIN>;
2309
2310 $new_dir_hash_level = $dir_hash_level;
2311 }
2312
2313 return $new_dir_hash_level;
3392dc86 2314}
ccfb2029 2315
2316sub command35 {
eaace00e 2317 print "This is the default size (in pixels) of the left folder list.\n";
2318 print "Default is 200, but you can set it to whatever you wish. This\n";
2319 print "is a user preference, so this will only show up as their default.\n";
2320 print "\n";
2321 print "[$WHT$default_left_size$NRM]: $WHT";
2322 $new_default_left_size = <STDIN>;
2323 if ( $new_default_left_size eq "\n" ) {
2324 $new_default_left_size = $default_left_size;
2325 } else {
85645192 2326 $new_default_left_size =~ s/[\r\n]//g;
eaace00e 2327 }
2328 return $new_default_left_size;
ccfb2029 2329}
2330
985f7c88 2331sub command36 {
eaace00e 2332 print "Some IMAP servers only have lowercase letters in the usernames\n";
2333 print "but they still allow people with uppercase to log in. This\n";
2334 print "causes a problem with the user's preference files. This option\n";
2335 print "transparently changes all usernames to lowercase.";
2336 print "\n";
2337
35aaf666 2338 if ( lc($force_username_lowercase) eq 'true' ) {
eaace00e 2339 $default_value = "y";
2340 } else {
2341 $default_value = "n";
2342 }
2343 print "Convert usernames to lowercase (y/n) [$WHT$default_value$NRM]: $WHT";
2344 $new_show = <STDIN>;
2345 if ( ( $new_show =~ /^y\n/i ) || ( ( $new_show =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
35aaf666 2346 return 'true';
eaace00e 2347 }
35aaf666 2348 return 'false';
985f7c88 2349}
2350
0d15cd19 2351sub command37 {
eaace00e 2352 print "";
2353 print "\n";
985f7c88 2354
35aaf666 2355 if ( lc($default_use_priority) eq 'true' ) {
eaace00e 2356 $default_value = "y";
2357 } else {
2358 $default_value = "n";
2359 }
2360
2361 print "Allow users to specify priority of outgoing mail (y/n) [$WHT$default_value$NRM]: $WHT";
2362 $new_show = <STDIN>;
2363 if ( ( $new_show =~ /^y\n/i ) || ( ( $new_show =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
35aaf666 2364 return 'true';
eaace00e 2365 }
35aaf666 2366 return 'false';
826b7f71 2367}
2368
eaace00e 2369sub command38 {
2370 print "";
2371 print "\n";
2372
35aaf666 2373 if ( lc($default_hide_attribution) eq 'true' ) {
eaace00e 2374 $default_value = "y";
2375 } else {
2376 $default_value = "n";
2377 }
2378
2379 print "Hide SM attributions (y/n) [$WHT$default_value$NRM]: $WHT";
2380 $new_show = <STDIN>;
2381 if ( ( $new_show =~ /^y\n/i ) || ( ( $new_show =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
35aaf666 2382 return 'true';
eaace00e 2383 }
35aaf666 2384 return 'false';
eaace00e 2385}
826b7f71 2386
8c21da0c 2387sub command39 {
eaace00e 2388 print "";
2389 print "\n";
2390
35aaf666 2391 if ( lc($default_use_mdn) eq 'true' ) {
eaace00e 2392 $default_value = "y";
2393 } else {
2394 $default_value = "n";
2395 }
2396
2397 print "Enable support for read/delivery receipt support (y/n) [$WHT$default_value$NRM]: $WHT";
2398 $new_show = <STDIN>;
2399 if ( ( $new_show =~ /^y\n/i ) || ( ( $new_show =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
35aaf666 2400 return 'true';
eaace00e 2401 }
35aaf666 2402 return 'false';
8c21da0c 2403}
2404
432db2fc 2405
8a7d0669 2406sub command310 {
85bacb8f 2407 print " In loosely managed environments, you may want to allow users
2408 to edit their full name and email address. In strictly managed
bb08da84 2409 environments, you may want to force users to use the name
2410 and email address assigned to them.
85bacb8f 2411
bb08da84 2412 'y' - allow a user to edit their full name and email address,
2413 'n' - users must use the assigned values.
85bacb8f 2414
bb08da84 2415 ";
eaace00e 2416
35aaf666 2417 if ( lc($edit_identity) eq 'true' ) {
8a7d0669 2418 $default_value = "y";
2419 } else {
2420 $default_value = "n";
2421 }
2eec12b5 2422 print "Allow editing of user's identity? (y/n) [$WHT$default_value$NRM]: $WHT";
8a7d0669 2423 $new_edit = <STDIN>;
eaace00e 2424 if ( ( $new_edit =~ /^y\n/i ) || ( ( $new_edit =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
35aaf666 2425 $edit_identity = 'true';
2426 $edit_name = 'true';
bb08da84 2427 $hide_auth_header = command311b();
8a7d0669 2428 } else {
35aaf666 2429 $edit_identity = 'false';
2eec12b5 2430 $edit_name = command311();
432db2fc 2431 $hide_auth_header = command311b();
8a7d0669 2432 }
2433 return $edit_identity;
2434}
2435
2436sub command311 {
85bacb8f 2437 print " Given that users are not allowed to modify their
bb08da84 2438 email address, can they edit their full name?
85bacb8f 2439
bb08da84 2440 ";
8a7d0669 2441
35aaf666 2442 if ( lc($edit_name) eq 'true' ) {
8a7d0669 2443 $default_value = "y";
2444 } else {
2445 $default_value = "n";
2446 }
bb08da84 2447 print "Allow the user to edit their full name? (y/n) [$WHT$default_value$NRM]: $WHT";
8a7d0669 2448 $new_edit = <STDIN>;
eaace00e 2449 if ( ( $new_edit =~ /^y\n/i ) || ( ( $new_edit =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
35aaf666 2450 $edit_name = 'true';
8a7d0669 2451 } else {
35aaf666 2452 $edit_name = 'false';
8a7d0669 2453 }
2454 return $edit_name;
2455}
8c21da0c 2456
432db2fc 2457sub command311b {
bb08da84 2458 print " SquirrelMail adds username information to every sent email
85bacb8f 2459 in order to prevent possible sender forging when users are allowed
bb08da84 2460 to change their email and/or full name.
2461
85bacb8f 2462 You can remove user information from this header (y), if you think that
2463 it violates privacy or security.
2464
2465 Note: If users are allowed to change their email addresses,
bb08da84 2466 this setting will make it difficult to determine who sent what where.
2467 Use at your own risk.
85bacb8f 2468
bb08da84 2469 ";
85bacb8f 2470
432db2fc 2471 if ( lc($hide_auth_header) eq "true" ) {
2472 $default_value = "y";
2473 } else {
2474 $default_value = "n";
2475 }
2476 print "Remove username from email headers? (y/n) [$WHT$default_value$NRM]: $WHT";
2477 $new_header = <STDIN>;
2478 if ( ( $new_header =~ /^y\n/i ) || ( ( $new_header =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
2479 $hide_auth_header = "true";
2480 } else {
2481 $hide_auth_header = "false";
2482 }
bb08da84 2483 return $hide_auth_header;
432db2fc 2484}
2485
7c612fdd 2486sub command312 {
0e3ece54 2487 print "This option allows you to disable server side thread sorting if your server \n";
801da708 2488 print "declares THREAD support, but you don't want to provide threading options \n";
2489 print "to end users or THREAD extension is broken or extension does not work with \n";
2490 print "options used by SquirrelMail. Option is not used, if THREAD extension is \n";
2491 print "not declared in IMAP CAPABILITY.\n";
7c612fdd 2492 print "\n";
2493
801da708 2494 if ( lc($disable_thread_sort) eq 'true' ) {
7c612fdd 2495 $default_value = "y";
2496 } else {
2497 $default_value = "n";
2498 }
801da708 2499 print "Disable server side thread sorting? (y/n) [$WHT$default_value$NRM]: $WHT";
11e00010 2500 $disable_thread_sort = <STDIN>;
2501 if ( ( $disable_thread_sort =~ /^y\n/i ) || ( ( $disable_thread_sort =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
2502 $disable_thread_sort = 'true';
7c612fdd 2503 } else {
11e00010 2504 $disable_thread_sort = 'false';
7c612fdd 2505 }
11e00010 2506 return $disable_thread_sort;
7c612fdd 2507}
2508
aa0da530 2509sub command313 {
0e3ece54 2510 print "This option allows you to disable server side sorting if your server declares \n";
801da708 2511 print "SORT support, but SORT extension is broken or does not work with options \n";
2512 print "used by SquirrelMail. Option is not used, if SORT extension is not declared \n";
2513 print "in IMAP CAPABILITY.\n";
2514 print "\n";
2515 print "It is strongly recommended to keep server side sorting enabled, if your ";
2516 print "IMAP server supports it.";
aa0da530 2517 print "\n";
2518
11e00010 2519 if ( lc($disable_server_sort) eq 'true' ) {
aa0da530 2520 $default_value = "y";
2521 } else {
2522 $default_value = "n";
2523 }
801da708 2524 print "Disable server-side sorting? (y/n) [$WHT$default_value$NRM]: $WHT";
11e00010 2525 $disable_server_sort = <STDIN>;
2526 if ( ( $disable_server_sort =~ /^y\n/i ) || ( ( $disable_server_sort =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
2527 $disable_server_sort = 'true';
aa0da530 2528 } else {
11e00010 2529 $disable_server_sort = 'false';
aa0da530 2530 }
11e00010 2531 return $disable_server_sort;
aa0da530 2532}
2533
65ffb3ce 2534sub command314 {
2535 print "This option allows you to choose if SM uses charset search\n";
2536 print "Your IMAP server must support the SEARCH CHARSET command for this to work\n";
2537 print "\n";
2538
35aaf666 2539 if ( lc($allow_charset_search) eq 'true' ) {
65ffb3ce 2540 $default_value = "y";
2541 } else {
2542 $default_value = "n";
2543 }
2544 print "Allow charset searching? (y/n) [$WHT$default_value$NRM]: $WHT";
2545 $allow_charset_search = <STDIN>;
2546 if ( ( $allow_charset_search =~ /^y\n/i ) || ( ( $allow_charset_search =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
35aaf666 2547 $allow_charset_search = 'true';
65ffb3ce 2548 } else {
35aaf666 2549 $allow_charset_search = 'false';
65ffb3ce 2550 }
2551 return $allow_charset_search;
2552}
2553
4ecd3a70 2554# command315 (UID support) obsoleted.
3c7ee482 2555
de74555e 2556# advanced search option
6c499577 2557sub command316 {
66bfb27b 2558 print "This option allows you to control the use of advanced search form.\n";
0f1b00b8 2559 print " 0 = enable basic search only\n";
2560 print " 1 = enable advanced search only\n";
2561 print " 2 = enable both\n";
2562 print "\n";
2563
2564 print "Allowed search (0,1,2)? [$WHT$allow_advanced_search$NRM]: $WHT";
2565 $new_allow_advanced_search = <STDIN>;
85645192 2566 if ( $new_allow_advanced_search =~ /^[012]\n/i ) {
0f1b00b8 2567 $allow_advanced_search = $new_allow_advanced_search;
de74555e 2568 }
85645192 2569 $allow_advanced_search =~ s/[\r\n]//g;
66bfb27b 2570 return $allow_advanced_search;
de74555e 2571}
2572
2573
2574sub command317 {
35aaf666 2575 print "This option allows you to change the name of the PHP session used\n";
2576 print "by SquirrelMail. Unless you know what you are doing, you probably\n";
2577 print "don't need or want to change this from the default of SQMSESSID.\n";
6c499577 2578 print "[$WHT$session_name$NRM]: $WHT";
2579 $new_session_name = <STDIN>;
35aaf666 2580 chomp($new_session_name);
6614128e 2581 if ( $new_session_name eq "" ) {
6c499577 2582 $new_session_name = $session_name;
2583 }
2584 return $new_session_name;
2585}
2586
ee20a285 2587# time zone config (since 1.5.1)
2588sub command318 {
2589 print "This option allows you to control the use of time zones.\n";
2590 print " 0 = (default) standard, GNU C time zone names\n";
2591 print " 1 = strict, generic time zone codes with offsets\n";
2592 print " 2 = custom, GNU C time zones loaded from config/timezones.php\n";
2593 print " 3 = custom strict, generic time zone codes with offsets loaded \n";
2594 print " from config/timezones.php\n";
2595 print "See SquirrelMail documentation about format of config/timezones.php file.\n";
2596 print "\n";
2597
2598 print "Used time zone configuration (0,1,2,3)? [$WHT$time_zone_type$NRM]: $WHT";
2599 $new_time_zone_type = <STDIN>;
2600 if ( $new_time_zone_type =~ /^[0123]\n/i ) {
2601 $time_zone_type = $new_time_zone_type;
2602 } else {
2603 print "\nInvalid configuration value.\n";
2604 print "\nPress enter to continue...";
2605 $tmp = <STDIN>;
2606 }
2607 $time_zone_type =~ s/[\r\n]//g;
2608 return $time_zone_type;
2609}
dcc1cc82 2610
74530cf4 2611# set the location base for redirects (since 1.5.2)
3dc5d88f 2612sub command_config_location_base {
74530cf4 2613 print "Here you can set the base part of the SquirrelMail URL.\n";
2614 print "It is normally autodetected but if that fails, use this\n";
2615 print "option to override.\n";
2616 print "It should contain only the protocol and hostname/port parts\n";
2617 print "of the URL; the full path will be appended automatically.\n\n";
2618 print "Examples:\nhttp://webmail.example.org\nhttp://webmail.example.com:8080\nhttps://webmail.example.com:6691\n\n";
2619 print "Do not add any path elements.\n";
2620
2621 print "URL base? [" .$WHT."autodetect$NRM]: $WHT";
2622 $new_config_location_base = <STDIN>;
2623 chomp($new_config_location_base);
2624 $config_location_base = $new_config_location_base;
2625
2626 return $config_location_base;
2627}
2628
9c0f1780 2629# only_secure_cookies (since 1.5.2)
2630sub command319 {
2631 print "This option allows you to specify that if a user session is initiated\n";
2632 print "under a secure (HTTPS, SSL-encrypted) connection, the cookies given to\n";
2633 print "the browser will ONLY be transmitted via a secure connection henceforth.\n\n";
2634 print "Generally this is a Good Thing, and should NOT be disabled. However,\n";
2635 print "if you intend to use the Secure Login or Show SSL Link plugins to\n";
2636 print "encrypt the user login, but not the rest of the SquirrelMail session,\n";
2637 print "this can be turned off. Think twice before doing so.\n";
2638 print "\n";
2639
2640 if ( lc($only_secure_cookies) eq 'true' ) {
2641 $default_value = "y";
2642 } else {
2643 $default_value = "n";
2644 }
2645 print "Transmit cookies only on secure connection when available? (y/n) [$WHT$default_value$NRM]: $WHT";
2646 $only_secure_cookies = <STDIN>;
2647 if ( ( $only_secure_cookies =~ /^y\n/i ) || ( ( $only_secure_cookies =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
2648 $only_secure_cookies = 'true';
2649 } else {
2650 $only_secure_cookies = 'false';
2651 }
2652 return $only_secure_cookies;
2653}
2654
74530cf4 2655
83139c0b 2656sub command_userThemes {
82351c82 2657 print "\nDefine the user themes that you wish to use. If you have added\n";
2658 print "a theme of your own, just follow the instructions (?) about\n";
2659 print "how to add them. You can also change the default theme.\n\n";
3641f36d 2660
2661 print "Available user themes:\n";
2662 $count = 0;
2663 while ( $count <= $#user_theme_name ) {
2664 if ( $count == $user_theme_default ) {
2665 print " *";
2666 } else {
2667 print " ";
2668 }
2669 if ( $count < 10 ) {
2670 print " ";
2671 }
2672 $name = $user_theme_name[$count];
2673 $num_spaces = 35 - length($name);
2674 for ( $i = 0 ; $i < $num_spaces ; $i++ ) {
2675 $name = $name . " ";
2676 }
2677
2678 print " $count. $name";
2679 print "($user_theme_path[$count])\n";
2680
2681 $count++;
2682 }
9061389c 2683
2684 print "\n";
3641f36d 2685 print ".------------------------------------.\n";
2686 print "| t (detect user themes) |\n";
2687 print "| + (add user theme) |\n";
2688 print "| - N (remove user theme) |\n";
2689 print "| m N (mark default user theme) |\n";
2690 print "| l (list user themes) |\n";
2691 print "| d (done) |\n";
2692 print "`------------------------------------'\n";
9061389c 2693
3641f36d 2694 print "\n[user_themes] command (?=help) > ";
eaace00e 2695 $input = <STDIN>;
85645192 2696 $input =~ s/[\r\n]//g;
eaace00e 2697 while ( $input ne "d" ) {
2698 if ( $input =~ /^\s*l\s*/i ) {
2699 $count = 0;
82351c82 2700 while ( $count <= $#user_theme_name ) {
2701 if ( $count == $user_theme_default ) {
eaace00e 2702 print " *";
2703 } else {
2704 print " ";
2705 }
2eec12b5 2706 if ( $count < 10 ) {
2707 print " ";
2708 }
82351c82 2709 $name = $user_theme_name[$count];
2eec12b5 2710 $num_spaces = 35 - length($name);
eaace00e 2711 for ( $i = 0 ; $i < $num_spaces ; $i++ ) {
2712 $name = $name . " ";
2713 }
2714
2715 print " $count. $name";
82351c82 2716 print "($user_theme_path[$count])\n";
eaace00e 2717
2718 $count++;
ccfb2029 2719 }
eaace00e 2720 } elsif ( $input =~ /^\s*m\s*[0-9]+/i ) {
82351c82 2721 $old_def = $user_theme_default;
2722 $user_theme_default = $input;
2723 $user_theme_default =~ s/^\s*m\s*//;
2724 if ( ( $user_theme_default > $#user_theme_name ) || ( $user_theme_default < 0 ) ) {
2725 print "Cannot set default theme to $user_theme_default. That theme does not exist.\n";
2726 $user_theme_default = $old_def;
ccfb2029 2727 }
eaace00e 2728 } elsif ( $input =~ /^\s*\+/ ) {
82351c82 2729 print "What is the name of this theme? ";
eaace00e 2730 $name = <STDIN>;
85645192 2731 $name =~ s/[\r\n]//g;
83139c0b 2732 $user_theme_name[ $#user_theme_name + 1 ] = $name;
82351c82 2733 print "Be sure to put ../css/ before the filename.\n";
2734 print "What file is this stored in (ex: ../css/my_theme/): ";
eaace00e 2735 $name = <STDIN>;
85645192 2736 $name =~ s/[\r\n]//g;
82351c82 2737 $user_theme_path[ $#user_theme_path + 1 ] = $name;
eaace00e 2738 } elsif ( $input =~ /^\s*-\s*[0-9]?/ ) {
2739 if ( $input =~ /[0-9]+\s*$/ ) {
2740 $rem_num = $input;
2741 $rem_num =~ s/^\s*-\s*//g;
2742 $rem_num =~ s/\s*$//;
2743 } else {
82351c82 2744 $rem_num = $#user_theme_name;
ccfb2029 2745 }
82351c82 2746 if ( $rem_num == $user_theme_default ) {
eaace00e 2747 print "You cannot remove the default theme!\n";
2748 } else {
2749 $count = 0;
2750 @new_theme_name = ();
2751 @new_theme_path = ();
82351c82 2752 while ( $count <= $#user_theme_name ) {
eaace00e 2753 if ( $count != $rem_num ) {
82351c82 2754 @new_theme_name = ( @new_theme_name, $user_theme_name[$count] );
2755 @new_theme_path = ( @new_theme_path, $user_theme_path[$count] );
eaace00e 2756 }
2757 $count++;
2758 }
82351c82 2759 @user_theme_name = @new_theme_name;
2760 @user_theme_path = @new_theme_path;
2761 if ( $user_theme_default > $rem_num ) {
2762 $user_theme_default--;
eaace00e 2763 }
8442ac08 2764 }
eaace00e 2765 } elsif ( $input =~ /^\s*t\s*/i ) {
2766 print "\nStarting detection...\n\n";
2767
82351c82 2768 opendir( DIR, "../css" );
2769 @files = readdir(DIR);
eaace00e 2770 $cnt = 0;
2771 while ( $cnt <= $#files ) {
82351c82 2772 $filename = "../css/" . $files[$cnt] .'/';
2773 if ( $filename ne "../css/rtl.css" && -e $filename . "default.css" ) {
eaace00e 2774 $found = 0;
82351c82 2775 for ( $x = 0 ; $x <= $#user_theme_path ; $x++ ) {
2776 if ( $user_theme_path[$x] eq $filename ) {
eaace00e 2777 $found = 1;
2778 }
2779 }
2780 if ( $found != 1 ) {
82351c82 2781 print "** Found user theme: $filename\n";
eaace00e 2782 print " What is its name? ";
2783 $nm = <STDIN>;
85645192 2784 $nm =~ s/[\n\r]//g;
82351c82 2785 $user_theme_name[ $#user_theme_name + 1 ] = $nm;
2786 $user_theme_path[ $#user_theme_path + 1 ] = $filename;
eaace00e 2787 }
2788 }
2789 $cnt++;
8442ac08 2790 }
eaace00e 2791 print "\n";
82351c82 2792 for ( $cnt = 0 ; $cnt <= $#user_theme_path ; $cnt++ ) {
2793 $filename = $user_theme_path[$cnt];
2794 if ( $filename != 'none' && !( -e $filename ."/default.css" ) ) {
eaace00e 2795 print " Removing $filename (file not found)\n";
2796 $offset = 0;
82351c82 2797 @new_user_theme_name = ();
2798 @new_user_theme_path = ();
2799 for ( $x = 0 ; $x < $#user_theme_path ; $x++ ) {
2800 if ( $user_theme_path[$x] eq $filename ) {
eaace00e 2801 $offset = 1;
2802 }
2803 if ( $offset == 1 ) {
82351c82 2804 $new_user_theme_name[$x] = $user_theme_name[ $x + 1 ];
2805 $new_user_theme_path[$x] = $user_theme_path[ $x + 1 ];
eaace00e 2806 } else {
82351c82 2807 $new_user_theme_name[$x] = $user_theme_name[$x];
2808 $new_user_theme_path[$x] = $user_theme_path[$x];
eaace00e 2809 }
2810 }
82351c82 2811 @user_theme_name = @new_user_theme_name;
2812 @user_theme_path = @new_user_theme_path;
eaace00e 2813 }
2814 }
2815 print "\nDetection complete!\n\n";
2816
2817 closedir DIR;
2818 } elsif ( $input =~ /^\s*\?\s*/ ) {
83139c0b 2819 print ".------------------------------------.\n";
2820 print "| t (detect user themes) |\n";
2821 print "| + (add user theme) |\n";
2822 print "| - N (remove user theme) |\n";
2823 print "| m N (mark default user theme) |\n";
2824 print "| l (list user themes) |\n";
2825 print "| d (done) |\n";
2826 print "`------------------------------------'\n";
2827 }
2828 print "[user_themes] command (?=help) > ";
2829 $input = <STDIN>;
2830 $input =~ s/[\r\n]//g;
2831 }
2832}
2833
2834sub command_iconSets {
2835 print "\nDefine the icon themes that you wish to use. If you have added\n";
2836 print "a theme of your own, just follow the instructions (?) about\n";
341fd984 2837 print "how to add them. You can also change the default and fallback\n";
2838 print "themes. The default theme will be used when no icon theme is\n";
2839 print "set by the user. The fallback theme will be used if an icon\n";
2840 print "cannot be found in the currently selected icon theme.\n\n";
3641f36d 2841
2842 print "Available icon themes:\n\n";
2843
2844 $count = 0;
2845 while ( $count <= $#icon_theme_name ) {
2846 if ( $count == $icon_theme_def ) {
341fd984 2847 print " d";
2848 } else {
2849 print " ";
2850 }
2851 if ( $count eq $icon_theme_fallback ) {
2852 print "f ";
3641f36d 2853 } else {
2854 print " ";
2855 }
2856 if ( $count < 10 ) {
2857 print " ";
2858 }
2859 $name = $icon_theme_name[$count];
2860 $num_spaces = 35 - length($name);
2861 for ( $i = 0 ; $i < $num_spaces ; $i++ ) {
2862 $name = $name . " ";
2863 }
2864
2865 print " $count. $name";
2866 print "($icon_theme_path[$count])\n";
2867
2868 $count++;
2869 }
2870
341fd984 2871 print "\n d = Default icon theme\n";
2872 print " f = Fallback icon theme\n";
3641f36d 2873 print "\n";
2874 print ".------------------------------------.\n";
2875 print "| t (detect icon themes) |\n";
2876 print "| + (add icon theme) |\n";
2877 print "| - N (remove icon theme) |\n";
2878 print "| m N (mark default icon theme) |\n";
341fd984 2879 print "| f N (set fallback icon set) |\n";
3641f36d 2880 print "| l (list icon themes) |\n";
2881 print "| d (done) |\n";
2882 print "`------------------------------------'\n";
2883
2884 print "\n[icon_themes] command (?=help) > ";
83139c0b 2885 $input = <STDIN>;
2886 $input =~ s/[\r\n]//g;
2887 while ( $input ne "d" ) {
2888 if ( $input =~ /^\s*l\s*/i ) {
2889 $count = 0;
341fd984 2890 print "\n";
83139c0b 2891 while ( $count <= $#icon_theme_name ) {
341fd984 2892 if ( $count == $icon_theme_def ) {
2893 print " d";
2894 } else {
2895 print " ";
2896 }
2897 if ( $count eq $icon_theme_fallback ) {
2898 print "f ";
2899 } else {
2900 print " ";
2901 }
83139c0b 2902 $name = $icon_theme_name[$count];
2903 $num_spaces = 35 - length($name);
2904 for ( $i = 0 ; $i < $num_spaces ; $i++ ) {
2905 $name = $name . " ";
2906 }
2907
2908 print " $count. $name";
2909 print "($icon_theme_path[$count])\n";
2910
2911 $count++;
2912 }
341fd984 2913 print "\n d = Default icon theme\n";
2914 print " f = Fallback icon theme\n\n";
83139c0b 2915 } elsif ( $input =~ /^\s*m\s*[0-9]+/i ) {
2916 $old_def = $icon_theme_def;
2917 $icon_theme_def = $input;
2918 $icon_theme_def =~ s/^\s*m\s*//;
2919 if ( ( $icon_theme_default > $#icon_theme_name ) || ( $icon_theme_default < 0 ) ) {
2920 print "Cannot set default icon theme to $icon_theme_default. That theme does not exist.\n";
2921 $icon_theme_def = $old_def;
2922 }
341fd984 2923 } elsif ( $input =~ /^\s*f\s*[0-9]+/i ) {
2924 $old_fb = $icon_theme_fallback;
2925 $icon_theme_fallback = $input;
2926 $icon_theme_fallback =~ s/^\s*f\s*//;
2927 if ( ( $icon_theme_fallback > $#icon_theme_name ) || ( $icon_theme_fallback < 0 ) ) {
2928 print "Cannot set fallback icon theme to $icon_theme_fallback. That theme does not exist.\n";
2929 $icon_theme_fallback = $old_fb;
2930 }
83139c0b 2931 } elsif ( $input =~ /^\s*\+/ ) {
2932 print "What is the name of this icon theme? ";
2933 $name = <STDIN>;
2934 $name =~ s/[\r\n]//g;
2935 $icon_theme_name[ $#icon_theme_name + 1 ] = $name;
2936 print "Be sure to put ../images/themes/ before the filename.\n";
2937 print "What directory is this icon theme stored in (ex: ../images/themes/my_theme/)? ";
2938 $name = <STDIN>;
2939 $name =~ s/[\r\n]//g;
2940 $icon_theme_path[ $#icon_theme_path + 1 ] = $name;
2941 } elsif ( $input =~ /^\s*-\s*[0-9]?/ ) {
2942 if ( $input =~ /[0-9]+\s*$/ ) {
2943 $rem_num = $input;
2944 $rem_num =~ s/^\s*-\s*//g;
2945 $rem_num =~ s/\s*$//;
2946 } else {
2947 $rem_num = $#icon_theme_name;
2948 }
2949 if ( $rem_num == $icon_theme_def ) {
2950 print "You cannot remove the default icon theme!\n";
341fd984 2951 } elsif ( $rem_num == $icon_theme_fallback ) {
2952 print "You cannot remove the fallback icon theme!\n";
83139c0b 2953 } else {
2954 $count = 0;
2955 @new_theme_name = ();
2956 @new_theme_path = ();
2957 while ( $count <= $#icon_theme_name ) {
2958 if ( $count != $rem_num ) {
2959 @new_theme_name = ( @new_theme_name, $icon_theme_name[$count] );
2960 @new_theme_path = ( @new_theme_path, $icon_theme_path[$count] );
2961 }
2962 $count++;
2963 }
2964 @icon_theme_name = @new_theme_name;
2965 @icon_theme_path = @new_theme_path;
2966 if ( $icon_theme_def > $rem_num ) {
2967 $icon_theme_def--;
2968 }
2969 }
2970 } elsif ( $input =~ /^\s*t\s*/i ) {
2971 print "\nStarting detection...\n\n";
2972
2973 opendir( DIR, "../images/themes/" );
2974 @files = readdir(DIR);
2975 $cnt = 0;
2976 while ( $cnt <= $#files ) {
2977 $filename = "../images/themes/" . $files[$cnt] .'/';
2978 if ( -d "../images/themes/" . $files[$cnt] && $files[$cnt] !~ /^\./ && $files[$cnt] ne "CVS" ) {
2979 $found = 0;
2980 for ( $x = 0 ; $x <= $#icon_theme_path ; $x++ ) {
2981 if ( $icon_theme_path[$x] eq $filename ) {
2982 $found = 1;
2983 }
2984 }
2985 if ( $found != 1 ) {
2986 print "** Found icon theme: $filename\n";
2987 print " What is its name? ";
2988 $nm = <STDIN>;
2989 $nm =~ s/[\n\r]//g;
2990 $icon_theme_name[ $#icon_theme_name + 1 ] = $nm;
2991 $icon_theme_path[ $#icon_theme_path + 1 ] = $filename;
2992 }
2993 }
2994 $cnt++;
2995 }
2996 print "\n";
2997 for ( $cnt = 0 ; $cnt <= $#icon_theme_path ; $cnt++ ) {
2998 $filename = $icon_theme_path[$cnt];
2999 if ( $filename ne "none" && $filename ne "template" && ! -d $filename ) {
3000 print " Removing $filename (file not found)\n";
3001 $offset = 0;
3002 @new_icon_theme_name = ();
3003 @new_icon_theme_path = ();
3004 for ( $x = 0 ; $x < $#icon_theme_path ; $x++ ) {
3005 if ( $icon_theme_path[$x] eq $filename ) {
3006 $offset = 1;
3007 }
3008 if ( $offset == 1 ) {
3009 $new_icon_theme_name[$x] = $icon_theme_name[ $x + 1 ];
3010 $new_icon_theme_path[$x] = $icon_theme_path[ $x + 1 ];
3011 } else {
3012 $new_icon_theme_name[$x] = $icon_theme_name[$x];
3013 $new_icon_theme_path[$x] = $icon_theme_path[$x];
3014 }
3015 }
3016 @icon_theme_name = @new_icon_theme_name;
3017 @icon_theme_path = @new_icon_theme_path;
3018 }
3019 }
3020 print "\nDetection complete!\n\n";
3021
3022 closedir DIR;
3023 } elsif ( $input =~ /^\s*\?\s*/ ) {
3024 print ".------------------------------------.\n";
3025 print "| t (detect icon themes) |\n";
3026 print "| + (add icon theme) |\n";
3027 print "| - N (remove icon theme) |\n";
3028 print "| m N (mark default icon theme) |\n";
341fd984 3029 print "| f N (set fallback icon set) |\n";
83139c0b 3030 print "| l (list icon themes) |\n";
3031 print "| d (done) |\n";
3032 print "`------------------------------------'\n";
eaace00e 3033 }
83139c0b 3034 print "[icon_themes] command (?=help) > ";
eaace00e 3035 $input = <STDIN>;
85645192 3036 $input =~ s/[\r\n]//g;
eaace00e 3037 }
3038}
ccfb2029 3039
85bacb8f 3040sub command_templates {
3641f36d 3041 print "\nDefine the template sets that you wish to use. If you have added\n";
3042 print "a template set of your own, just follow the instructions (?) about\n";
3043 print "how to add them. You can also change the default template.\n";
85bacb8f 3044
3045 print "\n Available Templates:\n";
3046
3047 $count = 0;
3048 while ( $count <= $#templateset_name ) {
293906dd 3049 if ( $templateset_id[$count] eq $templateset_default ) {
3050 print " d";
3051 } else {
3052 print " ";
3053 }
3054 if ( $templateset_id[$count] eq $templateset_fallback ) {
3055 print "f ";
85bacb8f 3056 } else {
3057 print " ";
3058 }
3059 if ( $count < 10 ) {
3060 print " ";
3061 }
3062 $name = $templateset_name[$count];
3063 $num_spaces = 35 - length($name);
3064 for ( $i = 0 ; $i < $num_spaces ; $i++ ) {
3065 $name = $name . " ";
3066 }
3067
3068 print " $count. $name";
5e78e498 3069 print "($templateset_id[$count])\n";
85bacb8f 3070
3071 $count++;
3072 }
293906dd 3073 print "\n d = default template set\n"
3074 . " f = fallback template set\n\n";
85bacb8f 3075
5e78e498 3076 $menu_text = ".-------------------------------------.\n"
83139c0b 3077 . "| t (detect template set) |\n"
5e78e498 3078 . "| + (add template set) |\n"
3079 . "| - N (remove template set) |\n"
3080 . "| m N (mark default template set) |\n"
293906dd 3081 . "| f N (set fallback template set) |\n"
5e78e498 3082 . "| l (list template sets) |\n"
3083 . "| d (done) |\n"
3084 . "|-------------------------------------|\n"
3085 . "| where N is a template set number |\n"
3086 . "`-------------------------------------'\n";
85bacb8f 3087 print "\n";
5e78e498 3088 print $menu_text;
85bacb8f 3089 print "\n[template set] command (?=help) > ";
3090
3091 $input = <STDIN>;
3092 $input =~ s/[\r\n]//g;
3093 while ( $input ne "d" ) {
5e78e498 3094
3095 # list template sets
3096 #
85bacb8f 3097 if ( $input =~ /^\s*l\s*/i ) {
3098 $count = 0;
3099 while ( $count <= $#templateset_name ) {
293906dd 3100 if ( $templateset_id[$count] eq $templateset_default ) {
3101 print " d";
3102 } else {
3103 print " ";
3104 }
3105 if ( $templateset_id[$count] eq $templateset_fallback ) {
3106 print "f ";
85bacb8f 3107 } else {
3108 print " ";
3109 }
3110 if ( $count < 10 ) {
3111 print " ";
3112 }
3113 $name = $templateset_name[$count];
3114 $num_spaces = 35 - length($name);
3115 for ( $i = 0 ; $i < $num_spaces ; $i++ ) {
3116 $name = $name . " ";
3117 }
3118
3119 print " $count. $name";
5e78e498 3120 print "($templateset_id[$count])\n";
85bacb8f 3121
3122 $count++;
3123 }
293906dd 3124 print "\n d = default template set\n"
3125 . " f = fallback template set\n\n";
5e78e498 3126
3127 # mark default template set
3128 #
85bacb8f 3129 } elsif ( $input =~ /^\s*m\s*[0-9]+/i ) {
3130 $old_def = $templateset_default;
293906dd 3131 $input =~ s/^\s*m\s*//;
3132 $templateset_default = $templateset_id[$input];
3133 if ( $templateset_default =~ /^\s*$/ ) {
3134 print "Cannot set default template set to $input. That template set does not exist.\n";
85bacb8f 3135 $templateset_default = $old_def;
3136 }
5e78e498 3137
293906dd 3138 # set fallback template set
3139 #
3140 } elsif ( $input =~ /^\s*f\s*[0-9]+/i ) {
3141 $old_def = $templateset_fallback;
3142 $input =~ s/^\s*f\s*//;
3143 $templateset_fallback = $templateset_id[$input];
3144 if ( $templateset_fallback =~ /^\s*$/ ) {
3145 print "Cannot set fallback template set to $input. That template set does not exist.\n";
3146 $templateset_fallback = $old_def;
3147 }
3148
5e78e498 3149 # add template set
3150 #
85bacb8f 3151 } elsif ( $input =~ /^\s*\+/ ) {
5e78e498 3152 print "\nWhat is the name of this template (as shown to your users): ";
85bacb8f 3153 $name = <STDIN>;
3154 $name =~ s/[\r\n]//g;
3155 $templateset_name[ $#templateset_name + 1 ] = $name;
5e78e498 3156 print "\n\nThe directory name should not contain any path information\n"
3157 . "or slashes, and should be the name of the directory that the\n"
3158 . "template set is found in within the SquirrelMail templates\n"
3159 . "directory.\n\n";
3160 print "What directory is this stored in (ex: default_advanced): ";
85bacb8f 3161 $name = <STDIN>;
3162 $name =~ s/[\r\n]//g;
5e78e498 3163 $templateset_id[ $#templateset_id + 1 ] = $name;
3164
3165 # detect template sets
3166 #
85bacb8f 3167 } elsif ( $input =~ /^\s*t\s*/i ) {
3168 print "\nStarting detection...\n\n";
3169 opendir( DIR, "../templates" );
3170 @files = readdir(DIR);
3171 $cnt = 0;
85bacb8f 3172 while ( $cnt <= $#files ) {
3173 if ( -d "../templates/" . $files[$cnt] && $files[$cnt] !~ /^\./ && $files[$cnt] ne "CVS" ) {
5e78e498 3174 $filename = $files[$cnt];
85bacb8f 3175 $found = 0;
5e78e498 3176 for ( $x = 0 ; $x <= $#templateset_id ; $x++ ) {
3177 if ( $templateset_id[$x] eq $filename ) {
85bacb8f 3178 $found = 1;
5e78e498 3179 last;
85bacb8f 3180 }
3181 }
5e78e498 3182 if ( $found != 1) {
85bacb8f 3183 print "** Found template set: $filename\n";
5e78e498 3184 print " What is it's name (as shown to your users)? ";
85bacb8f 3185 $nm = <STDIN>;
3186 $nm =~ s/[\n\r]//g;
5e78e498 3187 $templateset_id[ $#templateset_id + 1 ] = $filename;
85bacb8f 3188 $templateset_name[ $#templateset_name + 1 ] = $nm;
85bacb8f 3189 }
85bacb8f 3190 }
3191 $cnt++;
3192 }
3193 print "\n";
5e78e498 3194 for ( $cnt= 0 ; $cnt <= $#templateset_id ; ) {
3195 $filename = $templateset_id[$cnt];
3196 if ( !(-d change_to_rel_path('SM_PATH . \'templates/' . $filename)) ) {
3197 print " Removing \"$filename\" (template set directory not found)\n";
293906dd 3198 if ( $templateset_default eq $filename ) { $templateset_default = 'default'; }
3199 if ( $templateset_fallback eq $filename ) { $templateset_fallback = 'default'; }
85bacb8f 3200 $offset = 0;
3201 @new_templateset_name = ();
5e78e498 3202 @new_templateset_id = ();
3203 for ( $x = 0 ; $x < $#templateset_id ; $x++ ) {
3204 if ( $templateset_id[$x] eq $filename ) {
85bacb8f 3205 $offset = 1;
3206 }
3207 if ( $offset == 1 ) {
3208 $new_templateset_name[$x] = $templateset_name[ $x + 1 ];
5e78e498 3209 $new_templateset_id[$x] = $templateset_id[ $x + 1 ];
85bacb8f 3210 } else {
3211 $new_templateset_name[$x] = $templateset_name[$x];
5e78e498 3212 $new_templateset_id[$x] = $templateset_id[$x];
85bacb8f 3213 }
3214 }
3215 @templateset_name = @new_templateset_name;
5e78e498 3216 @templateset_id = @new_templateset_id;
3217 } else { $cnt++; }
85bacb8f 3218 }
3219 print "\nDetection complete!\n\n";
3220
3221 closedir DIR;
5e78e498 3222
3223 # remove template set
3224 #
3225 # undocumented functionality of removing last template set isn't that great
3226 #} elsif ( $input =~ /^\s*-\s*[0-9]?/ ) {
3227 } elsif ( $input =~ /^\s*-\s*[0-9]+/ ) {
85bacb8f 3228 if ( $input =~ /[0-9]+\s*$/ ) {
3229 $rem_num = $input;
3230 $rem_num =~ s/^\s*-\s*//g;
3231 $rem_num =~ s/\s*$//;
3232 } else {
3233 $rem_num = $#templateset_name;
3234 }
293906dd 3235 if ( $templateset_id[$rem_num] eq $templateset_default ) {
85bacb8f 3236 print "You cannot remove the default template set!\n";
293906dd 3237 } elsif ( $templateset_id[$rem_num] eq $templateset_fallback ) {
3238 print "You cannot remove the fallback template set!\n";
85bacb8f 3239 } else {
3240 $count = 0;
3241 @new_templateset_name = ();
5e78e498 3242 @new_templateset_id = ();
85bacb8f 3243 while ( $count <= $#templateset_name ) {
3244 if ( $count != $rem_num ) {
3245 @new_templateset_name = ( @new_templateset_name, $templateset_name[$count] );
5e78e498 3246 @new_templateset_id = ( @new_templateset_id, $templateset_id[$count] );
85bacb8f 3247 }
3248 $count++;
3249 }
3250 @templateset_name = @new_templateset_name;
5e78e498 3251 @templateset_id = @new_templateset_id;
85bacb8f 3252 }
5e78e498 3253
3254 # help
3255 #
85bacb8f 3256 } elsif ( $input =~ /^\s*\?\s*/ ) {
5e78e498 3257 print $menu_text;
293906dd 3258
3259 # command not understood
3260 #
3261 } else {
3262 print "Command not understood\n";
85bacb8f 3263 }
293906dd 3264
85bacb8f 3265 print "[template set] command (?=help) > ";
3266 $input = <STDIN>;
3267 $input =~ s/[\r\n]//g;
3268 }
3269 return $templateset_default;
3270}
3271
3272
81132de8 3273# sets default font size option
3274sub command_default_fontsize {
3275 print "Enter default font size [$WHT$$default_fontsize$NRM]: $WHT";
3276 $new_size = <STDIN>;
3277 if ( $new_size eq "\n" ) {
3278 $new_size = $size;
3279 } else {
3280 $new_size =~ s/[\r\n]//g;
3281 }
3282 return $new_size;
3283}
3284
3285# controls available fontsets
3286sub command_fontsets {
3287 # Greeting
3288 print "You can control fontsets available to end users here.\n";
3289 # set initial $input value
3290 $input = 'l';
3291 while ( $input ne "x" ) {
3292 if ( $input =~ /^\s*a\s*/i ) {
3293 # add new fontset
3294 print "\nFontset name: ";
3295 $name = <STDIN>;
3296 if (! $fontsets{trim($name)}) {
3297 print "Fontset string: ";
3298 $value = <STDIN>;
3299 $fontsets{trim($name)} = trim($value);
3300 } else {
3301 print "\nERROR: Such fontset already exists.\n";