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