projects / squirrelmail.git / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
blame | history | raw | HEAD
RPC requests should use their own template sets with different content-type.
[squirrelmail.git] / config / conf.pl
1 #!/usr/bin/env perl
2 # conf.pl
3 #
4 # Copyright (c) 1999-2007 The SquirrelMail Project Team
5 # Licensed under the GNU GPL. For full terms see COPYING.
6 #
7 # A simple configure script to configure SquirrelMail
8 #
9 # $Id$
10 ############################################################
11 $conf_pl_version = "1.5.0";
12
13 ############################################################
14 # Check what directory we're supposed to be running in, and
15 # change there if necessary. File::Basename has been in
16 # Perl since at least 5.003_7, and nobody sane runs anything
17 # before that, but just in case.
18 ############################################################
19 my $dir;
20 if ( eval q{require "File/Basename.pm"} ) {
21 $dir = File::Basename::dirname($0);
22 chdir($dir);
23 }
24
25 ############################################################
26 # Some people try to run this as a CGI. That's wrong!
27 ############################################################
28 if ( defined( $ENV{'PATH_INFO'} )
29 || defined( $ENV{'QUERY_STRING'} )
30 || defined( $ENV{'REQUEST_METHOD'} ) ) {
31 print "Content-Type: text/html\n\n";
32 print "You must run this script from the command line.";
33 exit;
34 }
35
36 ############################################################
37 # If we got here, use Cwd to get the full directory path
38 # (the Basename stuff above will sometimes return '.' as
39 # the base directory, which is not helpful here).
40 ############################################################
41 use Cwd;
42 $dir = cwd();
43
44
45 ############################################################
46 # First, lets read in the data already in there...
47 ############################################################
48 if ( -e "config.php" ) {
49 # 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";
56 print "Press enter to continue";
57 $ctu = <STDIN>;
58 exit;
59 }
60 open( FILE, "config.php" );
61 while ( $line = <FILE> ) {
62 $line =~ s/^\s+//;
63 $line =~ s/^\$//;
64 $var = $line;
65
66 $var =~ s/=/EQUALS/;
67 if ( $var =~ /^([a-z])/i ) {
68 @o = split ( /\s*EQUALS\s*/, $var );
69 if ( $o[0] eq "config_version" ) {
70 $o[1] =~ s/[\n\r]//g;
71 $o[1] =~ s/[\'\"];\s*$//;
72 $o[1] =~ s/;$//;
73 $o[1] =~ s/^[\'\"]//;
74
75 $config_version = $o[1];
76 close(FILE);
77 }
78 }
79 }
80 close(FILE);
81
82 if ( $config_version ne $conf_pl_version ) {
83 clear_screen();
84 print "WARNING:\n";
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/;
120 if ( $var =~ /^([a-z])/i ) {
121 @o = split ( /\s*EQUALS\s*/, $var );
122 if ( $o[0] eq "config_version" ) {
123 $o[1] =~ s/[\n\r]//g;
124 $o[1] =~ s/[\'\"];\s*$//;
125 $o[1] =~ s/;$//;
126 $o[1] =~ s/^[\'\"]//;
127
128 $config_version = $o[1];
129 close(FILE);
130 }
131 }
132 }
133 close(FILE);
134
135 if ( $config_version ne $conf_pl_version ) {
136 clear_screen();
137 print "WARNING:\n";
138 print " You are trying to use a 'config_default.php' from an older\n";
139 print " version of SquirrelMail. This is HIGHLY unrecommended. You\n";
140 print " should get the 'config_default.php' that matches the version\n";
141 print " of SquirrelMail that you are running. You can get this from\n";
142 print " the SquirrelMail web page by going to the following URL:\n";
143 print " http://squirrelmail.org.\n";
144 print "\n";
145 print "Continue loading with old config_default.php (a bad idea) [y/N]? ";
146 $ctu = <STDIN>;
147
148 if ( ( $ctu !~ /^y\n/i ) || ( $ctu =~ /^\n/ ) ) {
149 exit;
150 }
151
152 print "\nDo you want me to stop warning you [y/N]? ";
153 $ctu = <STDIN>;
154 if ( $ctu =~ /^y\n/i ) {
155 $print_config_version = $conf_pl_version;
156 } else {
157 $print_config_version = $config_version;
158 }
159 } else {
160 $print_config_version = $config_version;
161 }
162 $config = 2;
163 open( FILE, "config_default.php" );
164 } else {
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;
169 }
170
171 # Read and parse the current configuration file
172 # (either config.php or config_default.php).
173 while ( $line = <FILE> ) {
174 $line =~ s/^\s+//;
175 $line =~ s/^\$//;
176 $var = $line;
177
178 $var =~ s/=/EQUALS/;
179 if ( $var =~ /^([a-z])/i ) {
180 @options = split ( /\s*EQUALS\s*/, $var );
181 $options[1] =~ s/[\n\r]//g;
182 $options[1] =~ s/[\'\"];\s*$//;
183 $options[1] =~ s/;$//;
184 $options[1] =~ s/^[\'\"]//;
185 # de-escape escaped strings
186 $options[1] =~ s/\\'/'/g;
187 $options[1] =~ s/\\\\/\\/g;
188
189 if ( $options[0] =~ /^user_themes\[[0-9]+\]\[['"]PATH['"]\]/ ) {
190 $sub = $options[0];
191 $sub =~ s/\]\[['"]PATH['"]\]//;
192 $sub =~ s/.*\[//;
193 if ( -e "../css/" ) {
194 $options[1] =~ s/^\.\.\/config/\.\.\/css/;
195 }
196 $user_theme_path[$sub] = &change_to_rel_path($options[1]);
197 } elsif ( $options[0] =~ /^user_themes\[[0-9]+\]\[['"]NAME['"]\]/ ) {
198 $sub = $options[0];
199 $sub =~ s/\]\[['"]NAME['"]\]//;
200 $sub =~ s/.*\[//;
201 $user_theme_name[$sub] = $options[1];
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];
215 } elsif ( $options[0] =~ /^aTemplateSet\[[0-9]+\]\[['"]ID['"]\]/ ) {
216 $sub = $options[0];
217 $sub =~ s/\]\[['"]ID['"]\]//;
218 $sub =~ s/.*\[//;
219 if ( -e "../templates" ) {
220 $options[1] =~ s/^\.\.\/config/\.\.\/templates/;
221 }
222 $templateset_id[$sub] = $options[1];
223 ##### FIXME: This section BELOW here so old prefs files don't blow up when running conf.pl
224 ##### Remove after a month or two
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
234 ##### Remove after a month or two
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];
240 } elsif ( $options[0] =~ /^plugins\[[0-9]*\]/ ) {
241 $sub = $options[0];
242 $sub =~ s/\]//;
243 $sub =~ s/^plugins\[//;
244 if ($sub eq '') {
245 push @plugins, $options[1];
246 } else {
247 $plugins[$sub] = $options[1];
248 }
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];
255 } elsif ( $options[0] =~ /^theme\[[0-9]+\]\[['"]PATH|NAME['"]\]/ ) {
256 ##
257 ## $color themes are no longer supported. Please leave this
258 ## so conf.pl doesn't barf if it encounters a $theme.
259 ##
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
270 if ( $tmp =~ /^\s*[\'\"]host[\'\"]/i ) {
271 $tmp =~ s/^\s*[\'\"]host[\'\"]\s*=>\s*[\'\"]//i;
272 $tmp =~ s/[\'\"],?\s*$//;
273 $tmp =~ s/[\'\"]\);\s*$//;
274 $host = $tmp;
275 } elsif ( $tmp =~ /^\s*[\'\"]base[\'\"]/i ) {
276 $tmp =~ s/^\s*[\'\"]base[\'\"]\s*=>\s*[\'\"]//i;
277 $tmp =~ s/[\'\"],?\s*$//;
278 $tmp =~ s/[\'\"]\);\s*$//;
279 $base = $tmp;
280 } elsif ( $tmp =~ /^\s*[\'\"]charset[\'\"]/i ) {
281 $tmp =~ s/^\s*[\'\"]charset[\'\"]\s*=>\s*[\'\"]//i;
282 $tmp =~ s/[\'\"],?\s*$//;
283 $tmp =~ s/[\'\"]\);\s*$//;
284 $charset = $tmp;
285 } elsif ( $tmp =~ /^\s*[\'\"]port[\'\"]/i ) {
286 $tmp =~ s/^\s*[\'\"]port[\'\"]\s*=>\s*[\'\"]?//i;
287 $tmp =~ s/[\'\"]?,?\s*$//;
288 $tmp =~ s/[\'\"]?\);\s*$//;
289 $port = $tmp;
290 } elsif ( $tmp =~ /^\s*[\'\"]maxrows[\'\"]/i ) {
291 $tmp =~ s/^\s*[\'\"]maxrows[\'\"]\s*=>\s*[\'\"]?//i;
292 $tmp =~ s/[\'\"]?,?\s*$//;
293 $tmp =~ s/[\'\"]?\);\s*$//;
294 $maxrows = $tmp;
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;
300 } elsif ( $tmp =~ /^\s*[\'\"]name[\'\"]/i ) {
301 $tmp =~ s/^\s*[\'\"]name[\'\"]\s*=>\s*[\'\"]//i;
302 $tmp =~ s/[\'\"],?\s*$//;
303 $tmp =~ s/[\'\"]\);\s*$//;
304 $name = $tmp;
305 } elsif ( $tmp =~ /^\s*[\'\"]binddn[\'\"]/i ) {
306 $tmp =~ s/^\s*[\'\"]binddn[\'\"]\s*=>\s*[\'\"]//i;
307 $tmp =~ s/[\'\"],?\s*$//;
308 $tmp =~ s/[\'\"]\);\s*$//;
309 $binddn = $tmp;
310 } elsif ( $tmp =~ /^\s*[\'\"]bindpw[\'\"]/i ) {
311 $tmp =~ s/^\s*[\'\"]bindpw[\'\"]\s*=>\s*[\'\"]//i;
312 $tmp =~ s/[\'\"],?\s*$//;
313 $tmp =~ s/[\'\"]\);\s*$//;
314 $bindpw = $tmp;
315 } elsif ( $tmp =~ /^\s*[\'\"]protocol[\'\"]/i ) {
316 $tmp =~ s/^\s*[\'\"]protocol[\'\"]\s*=>\s*[\'\"]?//i;
317 $tmp =~ s/[\'\"]?,?\s*$//;
318 $tmp =~ s/[\'\"]?\);\s*$//;
319 $protocol = $tmp;
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;
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;
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;
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;
345 }
346 }
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;
352 $ldap_filter[$sub] = $filter;
353 $ldap_charset[$sub] = $charset;
354 $ldap_binddn[$sub] = $binddn;
355 $ldap_bindpw[$sub] = $bindpw;
356 $ldap_protocol[$sub] = $protocol;
357 $ldap_limit_scope[$sub] = $limit_scope;
358 $ldap_listing[$sub] = $listing;
359 $ldap_writeable[$sub] = $writeable;
360 $ldap_search_tree[$sub] = $search_tree;
361 $ldap_starttls[$sub] = $starttls;
362 } elsif ( $options[0] =~ /^(data_dir|attachment_dir|org_logo|signout_page|icon_theme_def)$/ ) {
363 ${ $options[0] } = &change_to_rel_path($options[1]);
364 } else {
365 ${ $options[0] } = $options[1];
366 }
367 }
368 }
369 close FILE;
370
371 # RPC template sets aren't included in user interface skin list,
372 # so add the one from the config file here
373 #
374 if ($rpc_templateset =~ /_rpc$/) {
375 $templateset_name[$#templateset_name + 1] = $rpc_templateset;
376 $templateset_id[$#templateset_id + 1] = $rpc_templateset;
377 }
378
379 # FIXME: unknown introduction date
380 $useSendmail = 'false' if ( lc($useSendmail) ne 'true' );
381 $sendmail_path = "/usr/sbin/sendmail" if ( !$sendmail_path );
382 $pop_before_smtp = 'false' if ( !$pop_before_smtp );
383 $pop_before_smtp_host = '' if ( !$pop_before_smtp_host );
384 $default_unseen_notify = 2 if ( !$default_unseen_notify );
385 $default_unseen_type = 1 if ( !$default_unseen_type );
386 $config_use_color = 0 if ( !$config_use_color );
387 $invert_time = 'false' if ( !$invert_time );
388 $force_username_lowercase = 'false' if ( !$force_username_lowercase );
389 $optional_delimiter = "detect" if ( !$optional_delimiter );
390 $auto_create_special = 'false' if ( !$auto_create_special );
391 $default_use_priority = 'true' if ( !$default_use_priority );
392 $default_use_mdn = 'true' if ( !$default_use_mdn );
393 $delete_folder = 'false' if ( !$delete_folder );
394 $noselect_fix_enable = 'false' if ( !$noselect_fix_enable );
395 $frame_top = "_top" if ( !$frame_top );
396 $provider_uri = '' if ( !$provider_uri );
397 $provider_name = '' if ( !$provider_name || $provider_name eq 'SquirrelMail');
398 $no_list_for_subscribe = 'false' if ( !$no_list_for_subscribe );
399 $allow_charset_search = 'true' if ( !$allow_charset_search );
400 $allow_advanced_search = 0 if ( !$allow_advanced_search) ;
401 $prefs_user_field = 'user' if ( !$prefs_user_field );
402 $prefs_key_field = 'prefkey' if ( !$prefs_key_field );
403 $prefs_val_field = 'prefval' if ( !$prefs_val_field );
404 $session_name = 'SQMSESSID' if ( !$session_name );
405 $skip_SM_header = 'false' if ( !$skip_SM_header );
406 $default_use_javascript_addr_book = 'false' if (! $default_use_javascript_addr_book);
407
408 # since 1.2.0
409 $hide_sm_attributions = 'false' if ( !$hide_sm_attributions );
410 # since 1.2.5
411 $edit_identity = 'true' if ( !$edit_identity );
412 $edit_name = 'true' if ( !$edit_name );
413
414 # since 1.4.0
415 $use_smtp_tls= 'false' if ( !$use_smtp_tls);
416 $smtp_auth_mech = 'none' if ( !$smtp_auth_mech );
417 $use_imap_tls = 'false' if ( !$use_imap_tls );
418 $imap_auth_mech = 'login' if ( !$imap_auth_mech );
419
420 # since 1.5.0
421 $show_alternative_names = 'false' if ( !$show_alternative_names );
422 # $available_languages option available only in 1.5.0. removed due to $languages
423 # implementation changes. options are provided by limit_languages plugin
424 # $available_languages = 'all' if ( !$available_languages );
425 $aggressive_decoding = 'false' if ( !$aggressive_decoding );
426 # available only in 1.5.0 and 1.5.1
427 # $advanced_tree = 'false' if ( !$advanced_tree );
428 $use_php_recode = 'false' if ( !$use_php_recode );
429 $use_php_iconv = 'false' if ( !$use_php_iconv );
430
431 # since 1.5.1
432 $use_icons = 'false' if ( !$use_icons );
433 $use_iframe = 'false' if ( !$use_iframe );
434 $lossy_encoding = 'false' if ( !$lossy_encoding );
435 $allow_remote_configtest = 'false' if ( !$allow_remote_configtest );
436 $secured_config = 'true' if ( !$secured_config );
437
438 $sm_debug_mode = 'SM_DEBUG_MODE_MODERATE' if ( !$sm_debug_mode );
439 #FIXME: When this is STABLE software, remove the line above and uncomment the one below:
440 #$sm_debug_mode = 'SM_DEBUG_MODE_OFF' if ( !$sm_debug_mode );
441 $sm_debug_mode = convert_debug_binary_integer_to_constants($sm_debug_mode);
442
443 $addrbook_global_table = 'global_abook' if ( !$addrbook_global_table );
444 $addrbook_global_writeable = 'false' if ( !$addrbook_global_writeable );
445 $addrbook_global_listing = 'false' if ( !$addrbook_global_listing );
446 $abook_global_file = '' if ( !$abook_global_file);
447 $abook_global_file_writeable = 'false' if ( !$abook_global_file_writeable);
448 $abook_global_file_listing = 'true' if ( !$abook_global_file_listing );
449 $encode_header_key = '' if ( !$encode_header_key );
450 $hide_auth_header = 'false' if ( !$hide_auth_header );
451 $time_zone_type = '0' if ( !$time_zone_type );
452 $prefs_user_size = 128 if ( !$prefs_user_size );
453 $prefs_key_size = 64 if ( !$prefs_key_size );
454 $prefs_val_size = 65536 if ( !$prefs_val_size );
455
456 # add qmail-inject test here for backwards compatibility
457 if ( !$sendmail_args && $sendmail_path =~ /qmail-inject/ ) {
458 $sendmail_args = '';
459 } elsif ( !$sendmail_args ) {
460 $sendmail_args = '-i -t';
461 }
462
463 $default_fontsize = '' if ( !$default_fontsize);
464 $default_fontset = '' if ( !$default_fontset);
465 if ( !%fontsets) {
466 %fontsets = ('serif', 'serif',
467 'sans', 'helvetica,arial,sans-serif',
468 'comicsans', 'comic sans ms,sans-serif',
469 'tahoma', 'tahoma,sans-serif',
470 'verasans', 'bitstream vera sans,verdana,sans-serif');
471 }
472
473 # $use_imap_tls and $use_smtp_tls are switched to integer since 1.5.1
474 $use_imap_tls = 0 if ( $use_imap_tls eq 'false');
475 $use_imap_tls = 1 if ( $use_imap_tls eq 'true');
476 $use_smtp_tls = 0 if ( $use_smtp_tls eq 'false');
477 $use_smtp_tls = 1 if ( $use_smtp_tls eq 'true');
478 # sorting options changed names and reversed values in 1.5.1
479 $disable_thread_sort = 'false' if ( !$disable_thread_sort );
480 $disable_server_sort = 'false' if ( !$disable_server_sort );
481
482 # since 1.5.2
483 $abook_file_line_length = 2048 if ( !$abook_file_line_length );
484 $config_location_base = '' if ( !$config_location_base );
485 $smtp_sitewide_user = '' if ( !$smtp_sitewide_user );
486 $smtp_sitewide_pass = '' if ( !$smtp_sitewide_pass );
487 $icon_theme_def = '' if ( !$icon_theme_def );
488 $disable_plugins = 'false' if ( !$disable_plugins );
489 $disable_plugins_user = '' if ( !$disable_plugins_user );
490 $only_secure_cookies = 'true' if ( !$only_secure_cookies );
491 $ask_user_info = 'true' if ( !$ask_user_info );
492
493 if ( $ARGV[0] eq '--install-plugin' ) {
494 print "Activating plugin " . $ARGV[1] . "\n";
495 if ( -d "../plugins/" . $ARGV[1]) {
496 push @plugins, $ARGV[1];
497 save_data();
498 exit(0);
499 } else {
500 print "No such plugin.\n";
501 exit(1);
502 }
503 } elsif ( $ARGV[0] eq '--remove-plugin' ) {
504 print "Removing plugin " . $ARGV[1] . "\n";
505 foreach $plugin (@plugins) {
506 if ( $plugin ne $ARGV[1] ) {
507 push @newplugins, $plugin;
508 }
509 }
510 @plugins = @newplugins;
511 save_data();
512 exit(0);
513 } elsif ( $ARGV[0] eq '--update-plugins' or $ARGV[0] eq '-u') {
514 build_plugin_hook_array();
515 exit(0);
516 } elsif ( $ARGV[0] eq '--help' or $ARGV[0] eq '-h') {
517 print "SquirrelMail Configuration Script\n";
518 print "Usage:\n";
519 print " * No arguments: initiates the configuration dialog\n";
520 print " * --install-plugin <plugin> : activates the specified plugin\n";
521 print " * --remove-plugin <plugin> : deactivates the specified plugin\n";
522 print " * --update-plugins , -u : rebuilds plugin_hooks.php according\n";
523 print " to plugins activated in config.php\n";
524 print " * --help , -h : Displays this help\n";
525 print "\n";
526 exit(0);
527 }
528
529
530
531 ####################################################################################
532
533 # used in multiple places, define once
534 $list_supported_imap_servers =
535 " bincimap = Binc IMAP server\n" .
536 " courier = Courier IMAP server\n" .
537 " cyrus = Cyrus IMAP server\n" .
538 " dovecot = Dovecot Secure IMAP server\n" .
539 " exchange = Microsoft Exchange IMAP server\n" .
540 " hmailserver = hMailServer\n" .
541 " macosx = Mac OS X Mailserver\n" .
542 " mercury32 = Mercury/32\n" .
543 " uw = University of Washington's IMAP server\n";
544
545 #####################################################################################
546 if ( $config_use_color == 1 ) {
547 $WHT = "\x1B[37;1m";
548 $NRM = "\x1B[0m";
549 } else {
550 $WHT = "";
551 $NRM = "";
552 $config_use_color = 2;
553 }
554
555 # lists can be printed in more than one column; default is just one
556 #
557 $columns = 1;
558
559 # try to get screen width dynamically if possible; default to 80
560 # (user can override with "w#" command)
561 #
562 eval { require "sys/ioctl.ph" };
563 if ($@
564 || !defined &TIOCGWINSZ
565 || !open(TTY, "+</dev/tty")
566 || !ioctl(TTY, &TIOCGWINSZ, $winsize='')) {
567 $screen_width = 80;
568 } else {
569 ($row, $col, $xpixel, $ypixel) = unpack('S4', $winsize);
570 $screen_width = $col;
571 }
572
573 while ( ( $command ne "q" ) && ( $command ne "Q" ) && ( $command ne ":q" ) ) {
574 clear_screen();
575 print $WHT. "SquirrelMail Configuration : " . $NRM;
576 if ( $config == 1 ) { print "Read: config.php"; }
577 elsif ( $config == 2 ) { print "Read: config_default.php"; }
578 print " ($print_config_version)\n";
579 print "---------------------------------------------------------\n";
580
581 if ( $menu == 0 ) {
582 print $WHT. "Main Menu --\n" . $NRM;
583 print "1. Organization Preferences\n";
584 print "2. Server Settings\n";
585 print "3. Folder Defaults\n";
586 print "4. General Options\n";
587 print "5. User Interface\n";
588 print "6. Address Books\n";
589 print "7. Message of the Day (MOTD)\n";
590 print "8. Plugins\n";
591 print "9. Database\n";
592 print "10. Language settings\n";
593 print "11. Tweaks\n";
594 print "\n";
595 print "D. Set pre-defined settings for specific IMAP servers\n";
596 print "\n";
597 } elsif ( $menu == 1 ) {
598 print $WHT. "Organization Preferences\n" . $NRM;
599 print "1. Organization Name : $WHT$org_name$NRM\n";
600 print "2. Organization Logo : $WHT$org_logo$NRM\n";
601 print "3. Org. Logo Width/Height : $WHT($org_logo_width/$org_logo_height)$NRM\n";
602 print "4. Organization Title : $WHT$org_title$NRM\n";
603 print "5. Signout Page : $WHT$signout_page$NRM\n";
604 print "6. Top Frame : $WHT$frame_top$NRM\n";
605 print "7. Provider link : $WHT$provider_uri$NRM\n";
606 print "8. Provider link text : $WHT$provider_name$NRM\n";
607
608 print "\n";
609 print "R Return to Main Menu\n";
610 } elsif ( $menu == 2 ) {
611 print $WHT. "Server Settings\n\n" . $NRM;
612 print $WHT . "General" . $NRM . "\n";
613 print "-------\n";
614 print "1. Domain : $WHT$domain$NRM\n";
615 print "2. Invert Time : $WHT$invert_time$NRM\n";
616 print "3. Sendmail or SMTP : $WHT";
617 if ( lc($useSendmail) eq 'true' ) {
618 print "Sendmail";
619 } else {
620 print "SMTP";
621 }
622 print "$NRM\n";
623 print "\n";
624
625 if ( $show_imap_settings ) {
626 print $WHT . "IMAP Settings". $NRM . "\n--------------\n";
627 print "4. IMAP Server : $WHT$imapServerAddress$NRM\n";
628 print "5. IMAP Port : $WHT$imapPort$NRM\n";
629 print "6. Authentication type : $WHT$imap_auth_mech$NRM\n";
630 print "7. Secure IMAP (TLS) : $WHT" . display_use_tls($use_imap_tls) . "$NRM\n";
631 print "8. Server software : $WHT$imap_server_type$NRM\n";
632 print "9. Delimiter : $WHT$optional_delimiter$NRM\n";
633 print "\n";
634 } elsif ( $show_smtp_settings ) {
635 if ( lc($useSendmail) eq 'true' ) {
636 print $WHT . "Sendmail" . $NRM . "\n--------\n";
637 print "4. Sendmail Path : $WHT$sendmail_path$NRM\n";
638 print "5. Sendmail arguments : $WHT$sendmail_args$NRM\n";
639 print "6. Header encryption key : $WHT$encode_header_key$NRM\n";
640 print "\n";
641 } else {
642 print $WHT . "SMTP Settings" . $NRM . "\n-------------\n";
643 print "4. SMTP Server : $WHT$smtpServerAddress$NRM\n";
644 print "5. SMTP Port : $WHT$smtpPort$NRM\n";
645 print "6. POP before SMTP : $WHT$pop_before_smtp$NRM\n";
646 print "7. SMTP Authentication : $WHT$smtp_auth_mech" . display_smtp_sitewide_userpass() ."$NRM\n";
647 print "8. Secure SMTP (TLS) : $WHT" . display_use_tls($use_smtp_tls) . "$NRM\n";
648 print "9. Header encryption key : $WHT$encode_header_key$NRM\n";
649 print "\n";
650 }
651 }
652
653 if ($show_imap_settings == 0) {
654 print "A. Update IMAP Settings : ";
655 print "$WHT$imapServerAddress$NRM:";
656 print "$WHT$imapPort$NRM ";
657 print "($WHT$imap_server_type$NRM)\n";
658 }
659 if ($show_smtp_settings == 0) {
660 if ( lc($useSendmail) eq 'true' ) {
661 print "B. Change Sendmail Config : $WHT$sendmail_path$NRM\n";
662 } else {
663 print "B. Update SMTP Settings : ";
664 print "$WHT$smtpServerAddress$NRM:";
665 print "$WHT$smtpPort$NRM\n";
666 }
667 }
668 if ( $show_smtp_settings || $show_imap_settings )
669 {
670 print "H. Hide " .
671 ($show_imap_settings ? "IMAP Server" :
672 (lc($useSendmail) eq 'true') ? "Sendmail" : "SMTP") . " Settings\n";
673 }
674
675 print "\n";
676 print "R Return to Main Menu\n";
677 } elsif ( $menu == 3 ) {
678 print $WHT. "Folder Defaults\n" . $NRM;
679 print "1. Default Folder Prefix : $WHT$default_folder_prefix$NRM\n";
680 print "2. Show Folder Prefix Option : $WHT$show_prefix_option$NRM\n";
681 print "3. Trash Folder : $WHT$trash_folder$NRM\n";
682 print "4. Sent Folder : $WHT$sent_folder$NRM\n";
683 print "5. Drafts Folder : $WHT$draft_folder$NRM\n";
684 print "6. By default, move to trash : $WHT$default_move_to_trash$NRM\n";
685 print "7. By default, save sent messages : $WHT$default_move_to_sent$NRM\n";
686 print "8. By default, save as draft : $WHT$default_save_as_draft$NRM\n";
687 print "9. List Special Folders First : $WHT$list_special_folders_first$NRM\n";
688 print "10. Show Special Folders Color : $WHT$use_special_folder_color$NRM\n";
689 print "11. Auto Expunge : $WHT$auto_expunge$NRM\n";
690 print "12. Default Sub. of INBOX : $WHT$default_sub_of_inbox$NRM\n";
691 print "13. Show 'Contain Sub.' Option : $WHT$show_contain_subfolders_option$NRM\n";
692 print "14. Default Unseen Notify : $WHT$default_unseen_notify$NRM\n";
693 print "15. Default Unseen Type : $WHT$default_unseen_type$NRM\n";
694 print "16. Auto Create Special Folders : $WHT$auto_create_special$NRM\n";
695 print "17. Folder Delete Bypasses Trash : $WHT$delete_folder$NRM\n";
696 print "18. Enable /NoSelect folder fix : $WHT$noselect_fix_enable$NRM\n";
697 print "\n";
698 print "R Return to Main Menu\n";
699 } elsif ( $menu == 4 ) {
700 print $WHT. "General Options\n" . $NRM;
701 print "1. Data Directory : $WHT$data_dir$NRM\n";
702 print "2. Attachment Directory : $WHT$attachment_dir$NRM\n";
703 print "3. Directory Hash Level : $WHT$dir_hash_level$NRM\n";
704 print "4. Default Left Size : $WHT$default_left_size$NRM\n";
705 print "5. Usernames in Lowercase : $WHT$force_username_lowercase$NRM\n";
706 print "6. Allow use of priority : $WHT$default_use_priority$NRM\n";
707 print "7. Hide SM attributions : $WHT$hide_sm_attributions$NRM\n";
708 print "8. Allow use of receipts : $WHT$default_use_mdn$NRM\n";
709 print "9. Allow editing of identity : $WHT$edit_identity$NRM\n";
710 print " Allow editing of name : $WHT$edit_name$NRM\n";
711 print " Remove username from header : $WHT$hide_auth_header$NRM\n";
712 print "10. Disable server thread sort : $WHT$disable_thread_sort$NRM\n";
713 print "11. Disable server-side sorting : $WHT$disable_server_sort$NRM\n";
714 print "12. Allow server charset search : $WHT$allow_charset_search$NRM\n";
715 print "13. Allow advanced search : $WHT$allow_advanced_search$NRM\n";
716 print "14. PHP session name : $WHT$session_name$NRM\n";
717 print "15. Time zone configuration : $WHT$time_zone_type$NRM\n";
718 print "16. Location base : $WHT$config_location_base$NRM\n";
719 print "17. Only secure cookies if poss. : $WHT$only_secure_cookies$NRM\n";
720 print "\n";
721 print "R Return to Main Menu\n";
722 } elsif ( $menu == 5 ) {
723 print $WHT. "User Interface\n" . $NRM;
724 print "1. Use Icons? : $WHT$use_icons$NRM\n";
725 # print "3. Default Icon Set : $WHT$icon_theme_def$NRM\n";
726 print "2. Default font size : $WHT$default_fontsize$NRM\n";
727 print "3. Manage template sets (skins)\n";
728 print "4. Manage user themes\n";
729 print "5. Manage font sets\n";
730 print "6. Manage icon themes\n";
731
732 print "\n";
733 print "R Return to Main Menu\n";
734 } elsif ( $menu == 6 ) {
735 print $WHT. "Address Books\n" . $NRM;
736 print "1. Change LDAP Servers\n";
737 for ( $count = 0 ; $count <= $#ldap_host ; $count++ ) {
738 print " > $ldap_host[$count]\n";
739 }
740 print "2. Use Javascript address book search : $WHT$default_use_javascript_addr_book$NRM\n";
741 print "3. Global address book file : $WHT$abook_global_file$NRM\n";
742 print "4. Allow writing into global file address book : $WHT$abook_global_file_writeable$NRM\n";
743 print "5. Allow listing of global file address book : $WHT$abook_global_file_listing$NRM\n";
744 print "6. Allowed address book line length : $WHT$abook_file_line_length$NRM\n";
745 print "\n";
746 print "R Return to Main Menu\n";
747 } elsif ( $menu == 7 ) {
748 print $WHT. "Message of the Day (MOTD)\n" . $NRM;
749 print "\n$motd\n";
750 print "\n";
751 print "1 Edit the MOTD\n";
752 print "\n";
753 print "R Return to Main Menu\n";
754 } elsif ( $menu == 8 ) {
755 if (lc($disable_plugins) eq 'true' && $disable_plugins_user ne '') {
756 print $WHT. "Plugins (WARNING: All plugins are currently disabled\n for the user \"$disable_plugins_user\"!)\n" . $NRM;
757 } elsif (lc($disable_plugins) eq 'true') {
758 print $WHT. "Plugins (WARNING: All plugins are currently disabled!)\n" . $NRM;
759 } else {
760 print $WHT. "Plugins\n" . $NRM;
761 }
762 print " Installed Plugins\n";
763 if ($columns > 1) {
764 $num = print_multi_col_list(1, $columns, $screen_width, 1, @plugins);
765 } else {
766 $num = 0;
767 for ( $count = 0 ; $count <= $#plugins ; $count++ ) {
768 $num = $count + 1;
769 $english_name = get_plugin_english_name($plugins[$count]);
770 if ( $english_name eq "" ) {
771 print " $WHT$num.$NRM $plugins[$count]" . get_plugin_version($plugins[$count]) . "\n";
772 } else {
773 print " $WHT$num.$NRM $english_name ($plugins[$count])" . get_plugin_version($plugins[$count]) . "\n";
774 }
775 }
776 }
777 print "\n Available Plugins:\n";
778 opendir( DIR, "../plugins" );
779 @files = sort(readdir(DIR));
780 $pos = 0;
781 @unused_plugins = ();
782 for ( $i = 0 ; $i <= $#files ; $i++ ) {
783 if ( -d "../plugins/" . $files[$i] && $files[$i] !~ /^\./ && $files[$i] ne ".svn" ) {
784 $match = 0;
785 for ( $k = 0 ; $k <= $#plugins ; $k++ ) {
786 if ( $plugins[$k] eq $files[$i] ) {
787 $match = 1;
788 }
789 }
790 if ( $match == 0 ) {
791 $unused_plugins[$pos] = $files[$i];
792 $pos++;
793 }
794 }
795 }
796
797 if ($columns > 1) {
798 $num = print_multi_col_list($num + 1, $columns, $screen_width, 1, @unused_plugins);
799 } else {
800 for ( $i = 0 ; $i <= $#unused_plugins ; $i++ ) {
801 $num = $num + 1;
802 $english_name = get_plugin_english_name($unused_plugins[$i]);
803 if ( $english_name eq "" ) {
804 print " $WHT$num.$NRM $unused_plugins[$i]" . get_plugin_version($unused_plugins[$i]) . "\n";
805 } else {
806 print " $WHT$num.$NRM $english_name ($unused_plugins[$i])" . get_plugin_version($unused_plugins[$i]) . "\n";
807 }
808 }
809 }
810 closedir DIR;
811
812 print "\n";
813 if (lc($disable_plugins) eq 'true' && $disable_plugins_user ne '') {
814 print "E Enable active plugins (all plugins currently\n disabled for the user \"$disable_plugins_user\")\n";
815 } elsif (lc($disable_plugins) eq 'true') {
816 print "E Enable active plugins (all plugins currently\n disabled)\n";
817 } else {
818 print "D Disable all plugins\n";
819 }
820 print "U Set the user for whom plugins can be disabled\n";
821 print "R Return to Main Menu\n";
822 print "C# List plugins in <#> number of columns\n";
823 print "W# Change screen width to <#> (currently $screen_width)\n";
824 } elsif ( $menu == 9 ) {
825 print $WHT. "Database\n" . $NRM;
826 print "1. DSN for Address Book : $WHT$addrbook_dsn$NRM\n";
827 print "2. Table for Address Book : $WHT$addrbook_table$NRM\n";
828 print "\n";
829 print "3. DSN for Preferences : $WHT$prefs_dsn$NRM\n";
830 print "4. Table for Preferences : $WHT$prefs_table$NRM\n";
831 print "5. Field for username : $WHT$prefs_user_field$NRM ($prefs_user_size)\n";
832 print "6. Field for prefs key : $WHT$prefs_key_field$NRM ($prefs_key_size)\n";
833 print "7. Field for prefs value : $WHT$prefs_val_field$NRM ($prefs_val_size)\n";
834 print "\n";
835 print "8. DSN for Global Address Book : $WHT$addrbook_global_dsn$NRM\n";
836 print "9. Table for Global Address Book : $WHT$addrbook_global_table$NRM\n";
837 print "10. Allow writing into Global Address Book : $WHT$addrbook_global_writeable$NRM\n";
838 print "11. Allow listing of Global Address Book : $WHT$addrbook_global_listing$NRM\n";
839 print "\n";
840 print "R Return to Main Menu\n";
841 } elsif ( $menu == 10 ) {
842 print $WHT. "Language settings\n" . $NRM;
843 print "1. Default Language : $WHT$squirrelmail_default_language$NRM\n";
844 print "2. Default Charset : $WHT$default_charset$NRM\n";
845 print "3. Show alternative language names : $WHT$show_alternative_names$NRM\n";
846 print "4. Enable aggressive decoding : $WHT$aggressive_decoding$NRM\n";
847 print "5. Enable lossy encoding : $WHT$lossy_encoding$NRM\n";
848 print "\n";
849 print "R Return to Main Menu\n";
850 } elsif ( $menu == 11 ) {
851 print $WHT. "Interface tweaks\n" . $NRM;
852 print "1. Display html mails in iframe : $WHT$use_iframe$NRM\n";
853 print "2. Ask user info on first login : $WHT$ask_user_info$NRM\n";
854 print "\n";
855 print $WHT. "PHP tweaks\n" . $NRM;
856 print "4. Use php recode functions : $WHT$use_php_recode$NRM\n";
857 print "5. Use php iconv functions : $WHT$use_php_iconv$NRM\n";
858 print "\n";
859 print $WHT. "Configuration tweaks\n" . $NRM;
860 print "6. Allow remote configtest : $WHT$allow_remote_configtest$NRM\n";
861 print "7. Debug mode : $WHT$sm_debug_mode$NRM\n";
862 print "8. Secured configuration mode : $WHT$secured_config$NRM\n";
863 print "\n";
864 print "R Return to Main Menu\n";
865 }
866 if ( $config_use_color == 1 ) {
867 print "C Turn color off\n";
868 } else {
869 print "C Turn color on\n";
870 }
871 print "S Save data\n";
872 print "Q Quit\n";
873
874 print "\n";
875 print "Command >> " . $WHT;
876 $command = <STDIN>;
877 $command =~ s/[\n\r]//g;
878 $command =~ tr/A-Z/a-z/;
879 print "$NRM\n";
880
881 # Read the commands they entered.
882 if ( $command eq "r" ) {
883 $menu = 0;
884 } elsif ( $command eq "s" ) {
885 save_data();
886 print "Press enter to continue...";
887 $tmp = <STDIN>;
888 $saved = 1;
889 } elsif ( ( $command eq "q" ) && ( $saved == 0 ) ) {
890 print "You have not saved your data.\n";
891 print "Save? [" . $WHT . "Y" . $NRM . "/n]: ";
892 $save = <STDIN>;
893 if ( ( $save =~ /^y/i ) || ( $save =~ /^\s*$/ ) ) {
894 save_data();
895 }
896 } elsif ( $command eq "c" ) {
897 if ( $config_use_color == 1 ) {
898 $config_use_color = 2;
899 $WHT = "";
900 $NRM = "";
901 } else {
902 $config_use_color = 1;
903 $WHT = "\x1B[37;1m";
904 $NRM = "\x1B[0m";
905 }
906 } elsif ( $command =~ /^w([0-9]+)/ ) {
907 $screen_width = $1;
908 } elsif ( $command eq "d" && $menu == 0 ) {
909 set_defaults();
910 } else {
911 $saved = 0;
912 if ( $menu == 0 ) {
913 if ( ( $command > 0 ) && ( $command < 12 ) ) {
914 $menu = $command;
915 }
916 } elsif ( $menu == 1 ) {
917 if ( $command == 1 ) { $org_name = command1(); }
918 elsif ( $command == 2 ) { $org_logo = command2(); }
919 elsif ( $command == 3 ) { ($org_logo_width,$org_logo_height) = command2a(); }
920 elsif ( $command == 4 ) { $org_title = command3(); }
921 elsif ( $command == 5 ) { $signout_page = command4(); }
922 elsif ( $command == 6 ) { $frame_top = command6(); }
923 elsif ( $command == 7 ) { $provider_uri = command7(); }
924 elsif ( $command == 8 ) { $provider_name = command8(); }
925
926 } elsif ( $menu == 2 ) {
927 if ( $command eq "a" ) { $show_imap_settings = 1; $show_smtp_settings = 0; }
928 elsif ( $command eq "b" ) { $show_imap_settings = 0; $show_smtp_settings = 1; }
929 elsif ( $command eq "h" ) { $show_imap_settings = 0; $show_smtp_settings = 0; }
930 elsif ( $command <= 3 ) {
931 if ( $command == 1 ) { $domain = command11(); }
932 elsif ( $command == 2 ) { $invert_time = command110(); }
933 elsif ( $command == 3 ) { $useSendmail = command14(); }
934 $show_imap_settings = 0; $show_smtp_settings = 0;
935 } elsif ( $show_imap_settings ) {
936 if ( $command == 4 ) { $imapServerAddress = command12(); }
937 elsif ( $command == 5 ) { $imapPort = command13(); }
938 elsif ( $command == 6 ) { $imap_auth_mech = command112a(); }
939 elsif ( $command == 7 ) { $use_imap_tls = command_use_tls("IMAP",$use_imap_tls); }
940 elsif ( $command == 8 ) { $imap_server_type = command19(); }
941 elsif ( $command == 9 ) { $optional_delimiter = command111(); }
942 } elsif ( $show_smtp_settings && lc($useSendmail) eq 'true' ) {
943 if ( $command == 4 ) { $sendmail_path = command15(); }
944 elsif ( $command == 5 ) { $sendmail_args = command_sendmail_args(); }
945 elsif ( $command == 6 ) { $encode_header_key = command114(); }
946 } elsif ( $show_smtp_settings ) {
947 if ( $command == 4 ) { $smtpServerAddress = command16(); }
948 elsif ( $command == 5 ) { $smtpPort = command17(); }
949 elsif ( $command == 6 ) { $pop_before_smtp = command18a(); }
950 elsif ( $command == 7 ) { $smtp_auth_mech = command112b(); }
951 elsif ( $command == 8 ) { $use_smtp_tls = command_use_tls("SMTP",$use_smtp_tls); }
952 elsif ( $command == 9 ) { $encode_header_key = command114(); }
953 }
954 } elsif ( $menu == 3 ) {
955 if ( $command == 1 ) { $default_folder_prefix = command21(); }
956 elsif ( $command == 2 ) { $show_prefix_option = command22(); }
957 elsif ( $command == 3 ) { $trash_folder = command23a(); }
958 elsif ( $command == 4 ) { $sent_folder = command23b(); }
959 elsif ( $command == 5 ) { $draft_folder = command23c(); }
960 elsif ( $command == 6 ) { $default_move_to_trash = command24a(); }
961 elsif ( $command == 7 ) { $default_move_to_sent = command24b(); }
962 elsif ( $command == 8 ) { $default_save_as_draft = command24c(); }
963 elsif ( $command == 9 ) { $list_special_folders_first = command27(); }
964 elsif ( $command == 10 ) { $use_special_folder_color = command28(); }
965 elsif ( $command == 11 ) { $auto_expunge = command29(); }
966 elsif ( $command == 12 ) { $default_sub_of_inbox = command210(); }
967 elsif ( $command == 13 ) { $show_contain_subfolders_option = command211(); }
968 elsif ( $command == 14 ) { $default_unseen_notify = command212(); }
969 elsif ( $command == 15 ) { $default_unseen_type = command213(); }
970 elsif ( $command == 16 ) { $auto_create_special = command214(); }
971 elsif ( $command == 17 ) { $delete_folder = command215(); }
972 elsif ( $command == 18 ) { $noselect_fix_enable = command216(); }
973 } elsif ( $menu == 4 ) {
974 if ( $command == 1 ) { $data_dir = command33a(); }
975 elsif ( $command == 2 ) { $attachment_dir = command33b(); }
976 elsif ( $command == 3 ) { $dir_hash_level = command33c(); }
977 elsif ( $command == 4 ) { $default_left_size = command35(); }
978 elsif ( $command == 5 ) { $force_username_lowercase = command36(); }
979 elsif ( $command == 6 ) { $default_use_priority = command37(); }
980 elsif ( $command == 7 ) { $hide_sm_attributions = command38(); }
981 elsif ( $command == 8 ) { $default_use_mdn = command39(); }
982 elsif ( $command == 9 ) { $edit_identity = command310(); }
983 elsif ( $command == 10 ) { $disable_thread_sort = command312(); }
984 elsif ( $command == 11 ) { $disable_server_sort = command313(); }
985 elsif ( $command == 12 ) { $allow_charset_search = command314(); }
986 elsif ( $command == 13 ) { $allow_advanced_search = command316(); }
987 elsif ( $command == 14 ) { $session_name = command317(); }
988 elsif ( $command == 15 ) { $time_zone_type = command318(); }
989 elsif ( $command == 16 ) { $config_location_base = command_config_location_base(); }
990 elsif ( $command == 17 ) { $only_secure_cookies = command319(); }
991 } elsif ( $menu == 5 ) {
992 if ( $command == 1 ) { $use_icons = commandB3(); }
993 # elsif ( $command == 3 ) { $icon_theme_def = commandB7(); }
994 elsif ( $command == 2 ) { $default_fontsize = command_default_fontsize(); }
995 elsif ( $command == 3 ) { $templateset_default = command_templates(); }
996 elsif ( $command == 4 ) { command_userThemes(); }
997 elsif ( $command == 5 ) { command_fontsets(); }
998 elsif ( $command == 6 ) { command_iconSets(); }
999 } elsif ( $menu == 6 ) {
1000 if ( $command == 1 ) { command61(); }
1001 elsif ( $command == 2 ) { command62(); }
1002 elsif ( $command == 3 ) { $abook_global_file=command63(); }
1003 elsif ( $command == 4 ) { command64(); }
1004 elsif ( $command == 5 ) { command65(); }
1005 elsif ( $command == 6 ) { command_abook_file_line_length(); }
1006 } elsif ( $menu == 7 ) {
1007 if ( $command == 1 ) { $motd = command71(); }
1008 } elsif ( $menu == 8 ) {
1009 if ( $command =~ /^[0-9]+/ ) { @plugins = command81(); }
1010 elsif ( $command eq "u" ) { $disable_plugins_user = command82(); }
1011 elsif ( $command eq "d" ) { $disable_plugins = 'true'; }
1012 elsif ( $command eq "e" ) { $disable_plugins = 'false'; }
1013 elsif ( $command =~ /^c([0-9]+)/ ) { $columns = $1; }
1014 } elsif ( $menu == 9 ) {
1015 if ( $command == 1 ) { $addrbook_dsn = command91(); }
1016 elsif ( $command == 2 ) { $addrbook_table = command92(); }
1017 elsif ( $command == 3 ) { $prefs_dsn = command93(); }
1018 elsif ( $command == 4 ) { $prefs_table = command94(); }
1019 elsif ( $command == 5 ) { $prefs_user_field = command95(); }
1020 elsif ( $command == 6 ) { $prefs_key_field = command96(); }
1021 elsif ( $command == 7 ) { $prefs_val_field = command97(); }
1022 elsif ( $command == 8 ) { $addrbook_global_dsn = command98(); }
1023 elsif ( $command == 9 ) { $addrbook_global_table = command99(); }
1024 elsif ( $command == 10 ) { $addrbook_global_writeable = command910(); }
1025 elsif ( $command == 11 ) { $addrbook_global_listing = command911(); }
1026 } elsif ( $menu == 10 ) {
1027 if ( $command == 1 ) { $squirrelmail_default_language = commandA1(); }
1028 elsif ( $command == 2 ) { $default_charset = commandA2(); }
1029 elsif ( $command == 3 ) { $show_alternative_names = commandA3(); }
1030 elsif ( $command == 4 ) { $aggressive_decoding = commandA4(); }
1031 elsif ( $command == 5 ) { $lossy_encoding = commandA5(); }
1032 } elsif ( $menu == 11 ) {
1033 if ( $command == 1 ) { $use_iframe = commandB2(); }
1034 elsif ( $command == 2 ) { $ask_user_info = command_ask_user_info(); }
1035 elsif ( $command == 4 ) { $use_php_recode = commandB4(); }
1036 elsif ( $command == 5 ) { $use_php_iconv = commandB5(); }
1037 elsif ( $command == 6 ) { $allow_remote_configtest = commandB6(); }
1038 elsif ( $command == 7 ) { $sm_debug_mode = commandB8(); }
1039 elsif ( $command == 8 ) { $secured_config = commandB9(); }
1040 }
1041 }
1042 }
1043
1044 # we exit here
1045 print "\nExiting conf.pl.\n".
1046 "You might want to test your configuration by browsing to\n".
1047 "http://your-squirrelmail-location/src/configtest.php\n".
1048 "Happy SquirrelMailing!\n\n";
1049
1050
1051 ####################################################################################
1052
1053 # org_name
1054 sub command1 {
1055 print "We have tried to make the name SquirrelMail as transparent as\n";
1056 print "possible. If you set up an organization name, most places where\n";
1057 print "SquirrelMail would take credit will be credited to your organization.\n";
1058 print "\n";
1059 print "If your Organization Name includes a '\$', please precede it with a \\. \n";
1060 print "Other '\$' will be considered the beginning of a variable that\n";
1061 print "must be defined before the \$org_name is printed.\n";
1062 print "\n";
1063 print "[$WHT$org_name$NRM]: $WHT";
1064 $new_org_name = <STDIN>;
1065 if ( $new_org_name eq "\n" ) {
1066 $new_org_name = $org_name;
1067 } else {
1068 $new_org_name =~ s/[\r\n]//g;
1069 $new_org_name =~ s/\"/&quot;/g;
1070 }
1071 return $new_org_name;
1072 }
1073
1074 # org_logo
1075 sub command2 {
1076 print "Your organization's logo is an image that will be displayed at\n";
1077 print "different times throughout SquirrelMail. ";
1078 print "\n";
1079 print "Please be aware of the following: \n";
1080 print " - Relative URLs are relative to the config dir\n";
1081 print " to use the default logo, use ../images/sm_logo.png\n";
1082 print " - To specify a logo defined outside the SquirrelMail source tree\n";
1083 print " use the absolute URL the webserver would use to include the file\n";
1084 print " e.g. http://example.com/images/mylogo.gif or /images/mylogo.jpg\n";
1085 print "\n";
1086 print "[$WHT$org_logo$NRM]: $WHT";
1087 $new_org_logo = <STDIN>;
1088 if ( $new_org_logo eq "\n" ) {
1089 $new_org_logo = $org_logo;
1090 } else {
1091 $new_org_logo =~ s/[\r\n]//g;
1092 }
1093 return $new_org_logo;
1094 }
1095
1096 # org_logo_width
1097 sub command2a {
1098 print "Your organization's logo is an image that will be displayed at\n";
1099 print "different times throughout SquirrelMail. Width\n";
1100 print "and Height of your logo image. Use '0' to disable.\n";
1101 print "\n";
1102 print "Width: [$WHT$org_logo_width$NRM]: $WHT";
1103 $new_org_logo_width = <STDIN>;
1104 $new_org_logo_width =~ tr/0-9//cd; # only want digits!
1105 if ( $new_org_logo_width eq '' ) {
1106 $new_org_logo_width = $org_logo_width;
1107 }
1108 if ( $new_org_logo_width > 0 ) {
1109 print "Height: [$WHT$org_logo_height$NRM]: $WHT";
1110 $new_org_logo_height = <STDIN>;
1111 $new_org_logo_height =~ tr/0-9//cd; # only want digits!
1112 if( $new_org_logo_height eq '' ) {
1113 $new_org_logo_height = $org_logo_height;
1114 }
1115 } else {
1116 $new_org_logo_height = 0;
1117 }
1118 return ($new_org_logo_width, $new_org_logo_height);
1119 }
1120
1121 # org_title
1122 sub command3 {
1123 print "A title is what is displayed at the top of the browser window in\n";
1124 print "the titlebar. Usually this will end up looking something like:\n";
1125 print "\"Netscape: $org_title\"\n";
1126 print "\n";
1127 print "If your Organization Title includes a '\$', please precede it with a \\. \n";
1128 print "Other '\$' will be considered the beginning of a variable that\n";
1129 print "must be defined before the \$org_title is printed.\n";
1130 print "\n";
1131 print "[$WHT$org_title$NRM]: $WHT";
1132 $new_org_title = <STDIN>;
1133 if ( $new_org_title eq "\n" ) {
1134 $new_org_title = $org_title;
1135 } else {
1136 $new_org_title =~ s/[\r\n]//g;
1137 $new_org_title =~ s/\"/\'/g;
1138 }
1139 return $new_org_title;
1140 }
1141
1142 # signout_page
1143 sub command4 {
1144 print "When users click the Sign Out button they will be logged out and\n";
1145 print "then sent to signout_page. If signout_page is left empty,\n";
1146 print "(hit space and then return) they will be taken, as normal,\n";
1147 print "to the default and rather sparse SquirrelMail signout page.\n";
1148 print "\n";
1149 print "[$WHT$signout_page$NRM]: $WHT";
1150 $new_signout_page = <STDIN>;
1151 if ( $new_signout_page eq "\n" ) {
1152 $new_signout_page = $signout_page;
1153 } else {
1154 $new_signout_page =~ s/[\r\n]//g;
1155 $new_signout_page =~ s/^\s+$//g;
1156 }
1157 return $new_signout_page;
1158 }
1159
1160 # Default top frame
1161 sub command6 {
1162 print "SquirrelMail defaults to using the whole of the browser window.\n";
1163 print "This allows you to keep it within a specified frame. The default\n";
1164 print "is '_top'\n";
1165 print "\n";
1166 print "[$WHT$frame_top$NRM]: $WHT";
1167 $new_frame_top = <STDIN>;
1168 if ( $new_frame_top eq "\n" ) {
1169 $new_frame_top = '_top';
1170 } else {
1171 $new_frame_top =~ s/[\r\n]//g;
1172 $new_frame_top =~ s/^\s+$//g;
1173 }
1174 return $new_frame_top;
1175 }
1176
1177 # Default link to provider
1178 sub command7 {
1179 print "Here you can set the link on the top-right of the message list.\n";
1180 print "If empty, it will not be displayed.\n";
1181 print "\n";
1182 print "[$WHT$provider_uri$NRM]: $WHT";
1183 $new_provider_uri = <STDIN>;
1184 if ( $new_provider_uri eq "\n" ) {
1185 $new_provider_uri = '';
1186 } else {
1187 $new_provider_uri =~ s/[\r\n]//g;
1188 $new_provider_uri =~ s/^\s+$//g;
1189 }
1190 return $new_provider_uri;
1191 }
1192
1193 sub command8 {
1194 print "Here you can set the name of the link on the top-right of the message list.\n";
1195 print "The default is empty (do not display anything).'\n";
1196 print "\n";
1197 print "[$WHT$provider_name$NRM]: $WHT";
1198 $new_provider_name = <STDIN>;
1199 if ( $new_provider_name eq "\n" ) {
1200 $new_provider_name = '';
1201 } else {
1202 $new_provider_name =~ s/[\r\n]//g;
1203 $new_provider_name =~ s/^\s+$//g;
1204 $new_provider_name =~ s/\'/\\'/g;
1205 }
1206 return $new_provider_name;
1207 }
1208
1209 ####################################################################################
1210
1211 # domain
1212 sub command11 {
1213 print "The domain name is the suffix at the end of all email addresses. If\n";
1214 print "for example, your email address is jdoe\@example.com, then your domain\n";
1215 print "would be example.com.\n";
1216 print "\n";
1217 print "[$WHT$domain$NRM]: $WHT";
1218 $new_domain = <STDIN>;
1219 if ( $new_domain eq "\n" ) {
1220 $new_domain = $domain;
1221 } else {
1222 $new_domain =~ s/\s//g;
1223 }
1224 return $new_domain;
1225 }
1226
1227 # imapServerAddress
1228 sub command12 {
1229 print "This is the hostname where your IMAP server can be contacted.\n";
1230 print "[$WHT$imapServerAddress$NRM]: $WHT";
1231 $new_imapServerAddress = <STDIN>;
1232 if ( $new_imapServerAddress eq "\n" ) {
1233 $new_imapServerAddress = $imapServerAddress;
1234 } else {
1235 $new_imapServerAddress =~ s/[\r\n]//g;
1236 }
1237 return $new_imapServerAddress;
1238 }
1239
1240 # imapPort
1241 sub command13 {
1242 print "This is the port that your IMAP server is on. Usually this is 143.\n";
1243 print "[$WHT$imapPort$NRM]: $WHT";
1244 $new_imapPort = <STDIN>;
1245 if ( $new_imapPort eq "\n" ) {
1246 $new_imapPort = $imapPort;
1247 } else {
1248 $new_imapPort =~ s/[\r\n]//g;
1249 }
1250 return $new_imapPort;
1251 }
1252
1253 # useSendmail
1254 sub command14 {
1255 print "You now need to choose the method that you will use for sending\n";
1256 print "messages in SquirrelMail. You can either connect to an SMTP server\n";
1257 print "or use sendmail directly.\n";
1258 if ( lc($useSendmail) eq 'true' ) {
1259 $default_value = "1";
1260 } else {
1261 $default_value = "2";
1262 }
1263 print "\n";
1264 print " 1. Sendmail\n";
1265 print " 2. SMTP\n";
1266 print "Your choice [1/2] [$WHT$default_value$NRM]: $WHT";
1267 $use_sendmail = <STDIN>;
1268 if ( ( $use_sendmail =~ /^1\n/i )
1269 || ( ( $use_sendmail =~ /^\n/ ) && ( $default_value eq "1" ) ) ) {
1270 $useSendmail = 'true';
1271 } else {
1272 $useSendmail = 'false';
1273 }
1274 return $useSendmail;
1275 }
1276
1277 # sendmail_path
1278 sub command15 {
1279 print "Specify where the sendmail executable is located. Usually /usr/sbin/sendmail\n";
1280 print "[$WHT$sendmail_path$NRM]: $WHT";
1281 $new_sendmail_path = <STDIN>;
1282 if ( $new_sendmail_path eq "\n" ) {
1283 $new_sendmail_path = $sendmail_path;
1284 } else {
1285 $new_sendmail_path =~ s/[\r\n]//g;
1286 }
1287 return $new_sendmail_path;
1288 }
1289
1290 # Extra sendmail arguments
1291 sub command_sendmail_args {
1292 print "Specify additional sendmail program arguments.\n";
1293 print "\n";
1294 print "Make sure that arguments are supported by your sendmail program. -f argument \n";
1295 print "is added automatically by SquirrelMail scripts. Variable defaults to standard\n";
1296 print "/usr/sbin/sendmail arguments. If you use qmail-inject, nbsmtp or any other \n";
1297 print "sendmail wrapper, which does not support -i and -t arguments, set variable to\n";
1298 print "empty string or use arguments suitable for your mailer.\n";
1299 print "\n";
1300 print "[$WHT$sendmail_args$NRM]: $WHT";
1301 $new_sendmail_args = <STDIN>;
1302 if ( $new_sendmail_args eq "\n" ) {
1303 $new_sendmail_args = $sendmail_args;
1304 } else {
1305 # strip linefeeds and crs.
1306 $new_sendmail_args =~ s/[\r\n]//g;
1307 }
1308 return trim($new_sendmail_args);
1309 }
1310
1311 # smtpServerAddress
1312 sub command16 {
1313 print "This is the hostname of your SMTP server.\n";
1314 print "[$WHT$smtpServerAddress$NRM]: $WHT";
1315 $new_smtpServerAddress = <STDIN>;
1316 if ( $new_smtpServerAddress eq "\n" ) {
1317 $new_smtpServerAddress = $smtpServerAddress;
1318 } else {
1319 $new_smtpServerAddress =~ s/[\r\n]//g;
1320 }
1321 return $new_smtpServerAddress;
1322 }
1323
1324 # smtpPort
1325 sub command17 {
1326 print "This is the port to connect to for SMTP. Usually 25.\n";
1327 print "[$WHT$smtpPort$NRM]: $WHT";
1328 $new_smtpPort = <STDIN>;
1329 if ( $new_smtpPort eq "\n" ) {
1330 $new_smtpPort = $smtpPort;
1331 } else {
1332 $new_smtpPort =~ s/[\r\n]//g;
1333 }
1334 return $new_smtpPort;
1335 }
1336
1337 # pop before SMTP
1338 sub command18a {
1339 print "Do you wish to use POP3 before SMTP? Your server must\n";
1340 print "support this in order for SquirrelMail to work with it.\n";
1341
1342 $YesNo = 'n';
1343 $YesNo = 'y' if ( lc($pop_before_smtp) eq 'true' );
1344
1345 print "Use POP before SMTP (y/n) [$WHT$YesNo$NRM]: $WHT";
1346
1347 $new_pop_before_smtp = <STDIN>;
1348 $new_pop_before_smtp =~ tr/yn//cd;
1349 if ( $new_pop_before_smtp eq "y" ) {
1350 $new_pop_before_smtp = "true";
1351 } elsif ( $new_pop_before_smtp eq "n" ) {
1352 $new_pop_before_smtp = "false";
1353 } else {
1354 $new_pop_before_smtp = $pop_before_smtp;
1355 }
1356
1357 # if using POP before SMTP, allow setting of custom POP server address
1358 if ($new_pop_before_smtp eq "true") {
1359 print "$NRM\nIf the address of the POP server is not the same as\n";
1360 print "your SMTP server, you may specify it here. Leave blank (to\n";
1361 print "clear this, enter only spaces) to use the same address as\n";
1362 print "your SMTP server.\n";
1363 print "POP before SMTP server address [$WHT$pop_before_smtp_host$NRM]: $WHT";
1364
1365 $new_pop_before_smtp_host = <STDIN>;
1366 if ( $new_pop_before_smtp_host eq "\n" ) {
1367 $new_pop_before_smtp_host = $pop_before_smtp_host;
1368 } elsif ($new_pop_before_smtp_host =~ /^\s+$/) {
1369 $new_pop_before_smtp_host = '';
1370 } else {
1371 $new_pop_before_smtp_host =~ s/[\r|\n]//g;
1372 }
1373 $pop_before_smtp_host = $new_pop_before_smtp_host;
1374 }
1375
1376 return $new_pop_before_smtp;
1377 }
1378
1379 # imap_server_type
1380 sub command19 {
1381 print "Each IMAP server has its own quirks. As much as we tried to stick\n";
1382 print "to standards, it doesn't help much if the IMAP server doesn't follow\n";
1383 print "the same principles. We have made some work-arounds for some of\n";
1384 print "these servers. If you would like to use them, please select your\n";
1385 print "IMAP server. If you do not wish to use these work-arounds, you can\n";
1386 print "set this to \"other\", and none will be used.\n";
1387 print $list_supported_imap_servers;
1388 print "\n";
1389 print " other = Not one of the above servers\n";
1390 print "\n";
1391 print "[$WHT$imap_server_type$NRM]: $WHT";
1392 $new_imap_server_type = <STDIN>;
1393
1394 if ( $new_imap_server_type eq "\n" ) {
1395 $new_imap_server_type = $imap_server_type;
1396 } else {
1397 $new_imap_server_type =~ s/[\r\n]//g;
1398 }
1399 return $new_imap_server_type;
1400 }
1401
1402 # invert_time
1403 sub command110 {
1404 print "Sometimes the date of messages sent is messed up (off by a few hours\n";
1405 print "on some machines). Typically this happens if the system doesn't support\n";
1406 print "tm_gmtoff. It will happen only if your time zone is \"negative\".\n";
1407 print "This most often occurs on Solaris 7 machines in the United States.\n";
1408 print "By default, this is off. It should be kept off unless problems surface\n";
1409 print "about the time that messages are sent.\n";
1410 print " no = Do NOT fix time -- almost always correct\n";
1411 print " yes = Fix the time for this system\n";
1412
1413 $YesNo = 'n';
1414 $YesNo = 'y' if ( lc($invert_time) eq 'true' );
1415
1416 print "Fix the time for this system (y/n) [$WHT$YesNo$NRM]: $WHT";
1417
1418 $new_invert_time = <STDIN>;
1419 $new_invert_time =~ tr/yn//cd;
1420 return 'true' if ( $new_invert_time eq "y" );
1421 return 'false' if ( $new_invert_time eq "n" );
1422 return $invert_time;
1423 }
1424
1425 sub command111 {
1426 print "This is the delimiter that your IMAP server uses to distinguish between\n";
1427 print "folders. For example, Cyrus uses '.' as the delimiter and a complete\n";
1428 print "folder would look like 'INBOX.Friends.Bob', while UW uses '/' and would\n";
1429 print "look like 'INBOX/Friends/Bob'. Normally this should be left at 'detect'\n";
1430 print "but if you are sure you know what delimiter your server uses, you can\n";
1431 print "specify it here.\n";
1432 print "\nTo have it autodetect the delimiter, set it to 'detect'.\n\n";
1433 print "[$WHT$optional_delimiter$NRM]: $WHT";
1434 $new_optional_delimiter = <STDIN>;
1435
1436 if ( $new_optional_delimiter eq "\n" ) {
1437 $new_optional_delimiter = $optional_delimiter;
1438 } else {
1439 $new_optional_delimiter =~ s/[\r\n]//g;
1440 }
1441 return $new_optional_delimiter;
1442 }
1443 # IMAP authentication type
1444 # Possible values: login, plain, cram-md5, digest-md5
1445 # Now offers to detect supported mechs, assuming server & port are set correctly
1446
1447 sub command112a {
1448 if ($use_imap_tls ne "0") {
1449 # 1. Script does not handle TLS.
1450 # 2. Server does not have to declare all supported authentication mechs when
1451 # STARTTLS is used. Supported mechs are declared only after STARTTLS.
1452 print "Auto-detection of login methods is unavailable when using TLS or STARTTLS.\n";
1453 } else {
1454 print "If you have already set the hostname and port number, I can try to\n";
1455 print "detect the mechanisms your IMAP server supports.\n";
1456 print "I will try to detect CRAM-MD5 and DIGEST-MD5 support. I can't test\n";
1457 print "for \"login\" or \"plain\" without knowing a username and password.\n";
1458 print "Auto-detecting is optional - you can safely say \"n\" here.\n";
1459 print "\nTry to detect supported mechanisms? [y/N]: ";
1460 $inval=<STDIN>;
1461 chomp($inval);
1462 if ($inval =~ /^y\b/i) {
1463 # Yes, let's try to detect.
1464 print "Trying to detect IMAP capabilities...\n";
1465 my $host = $imapServerAddress . ':'. $imapPort;
1466 print "CRAM-MD5:\t";
1467 my $tmp = detect_auth_support('IMAP',$host,'CRAM-MD5');
1468 if (defined($tmp)) {
1469 if ($tmp eq 'YES') {
1470 print "$WHT SUPPORTED$NRM\n";
1471 } else {
1472 print "$WHT NOT SUPPORTED$NRM\n";
1473 }
1474 } else {
1475 print $WHT . " ERROR DETECTING$NRM\n";
1476 }
1477
1478 print "DIGEST-MD5:\t";
1479 $tmp = detect_auth_support('IMAP',$host,'DIGEST-MD5');
1480 if (defined($tmp)) {
1481 if ($tmp eq 'YES') {
1482 print "$WHT SUPPORTED$NRM\n";
1483 } else {
1484 print "$WHT NOT SUPPORTED$NRM\n";
1485 }
1486 } else {
1487 print $WHT . " ERROR DETECTING$NRM\n";
1488 }
1489
1490 }
1491 }
1492 print "\nWhat authentication mechanism do you want to use for IMAP connections?\n\n";
1493 print $WHT . "login" . $NRM . " - Plaintext. If you can do better, you probably should.\n";
1494 print $WHT . "plain" . $NRM . " - SASL PLAIN. If you need this, you already know it.\n";
1495 print $WHT . "cram-md5" . $NRM . " - Slightly better than plaintext methods.\n";
1496 print $WHT . "digest-md5" . $NRM . " - Privacy protection - better than cram-md5.\n";
1497 print "\n*** YOUR IMAP SERVER MUST SUPPORT THE MECHANISM YOU CHOOSE HERE ***\n";
1498 print "If you don't understand or are unsure, you probably want \"login\"\n\n";
1499 print "login, plain, cram-md5, or digest-md5 [$WHT$imap_auth_mech$NRM]: $WHT";
1500 $inval=<STDIN>;
1501 chomp($inval);
1502 if ( ($inval =~ /^cram-md5\b/i) || ($inval =~ /^digest-md5\b/i) || ($inval =~ /^login\b/i) || ($inval =~ /^plain\b/i)) {
1503 return lc($inval);
1504 } else {
1505 # user entered garbage or default value so nothing needs to be set
1506 return $imap_auth_mech;
1507 }
1508 }
1509
1510
1511 # SMTP authentication type
1512 # Possible choices: none, plain, cram-md5, digest-md5
1513 sub command112b {
1514 if ($use_smtp_tls ne "0") {
1515 print "Auto-detection of login methods is unavailable when using TLS or STARTTLS.\n";
1516 } elsif (eval ("use IO::Socket; 1")) {
1517 # try loading IO::Socket module
1518 print "If you have already set the hostname and port number, I can try to\n";
1519 print "automatically detect some of the mechanisms your SMTP server supports.\n";
1520 print "Auto-detection is *optional* - you can safely say \"n\" here.\n";
1521 print "\nTry to detect auth mechanisms? [y/N]: ";
1522 $inval=<STDIN>;
1523 chomp($inval);
1524 if ($inval =~ /^y\b/i) {
1525 # Yes, let's try to detect.
1526 print "Trying to detect supported methods (SMTP)...\n";
1527
1528 # Special case!
1529 # Check none by trying to relay to junk@microsoft.com
1530 $host = $smtpServerAddress . ':' . $smtpPort;
1531 my $sock = IO::Socket::INET->new($host);
1532 print "Testing none:\t\t$WHT";
1533 if (!defined($sock)) {
1534 print " ERROR TESTING\n";
1535 close $sock;
1536 } else {
1537 $got = <$sock>; # Discard greeting
1538 print $sock "HELO $domain\r\n";
1539 $got = <$sock>; # Discard
1540 print $sock "MAIL FROM:<tester\@squirrelmail.org>\r\n";
1541 $got = <$sock>; # Discard
1542 print $sock "RCPT TO:<junk\@microsoft.com\r\n";
1543 $got = <$sock>; # This is the important line
1544 if ($got =~ /^250\b/) { # SMTP will relay without auth
1545 print "SUPPORTED$NRM\n";
1546 } else {
1547 print "NOT SUPPORTED$NRM\n";
1548 }
1549 print $sock "RSET\r\n";
1550 print $sock "QUIT\r\n";
1551 close $sock;
1552 }
1553 # Try login (SquirrelMail default)
1554 print "Testing login:\t\t";
1555 $tmp=detect_auth_support('SMTP',$host,'LOGIN');
1556 if (defined($tmp)) {
1557 if ($tmp eq 'YES') {
1558 print $WHT . "SUPPORTED$NRM\n";
1559 } else {
1560 print $WHT . "NOT SUPPORTED$NRM\n";
1561 }
1562 } else {
1563 print $WHT . "ERROR DETECTING$NRM\n";
1564 }
1565
1566 # Try CRAM-MD5
1567 print "Testing CRAM-MD5:\t";
1568 $tmp=detect_auth_support('SMTP',$host,'CRAM-MD5');
1569 if (defined($tmp)) {
1570 if ($tmp eq 'YES') {
1571 print $WHT . "SUPPORTED$NRM\n";
1572 } else {
1573 print $WHT . "NOT SUPPORTED$NRM\n";
1574 }
1575 } else {
1576 print $WHT . "ERROR DETECTING$NRM\n";
1577 }
1578
1579
1580 print "Testing DIGEST-MD5:\t";
1581 $tmp=detect_auth_support('SMTP',$host,'DIGEST-MD5');
1582 if (defined($tmp)) {
1583 if ($tmp eq 'YES') {
1584 print $WHT . "SUPPORTED$NRM\n";
1585 } else {
1586 print $WHT . "NOT SUPPORTED$NRM\n";
1587 }
1588 } else {
1589 print $WHT . "ERROR DETECTING$NRM\n";
1590 }
1591 }
1592 }
1593 print "\nWhat authentication mechanism do you want to use for SMTP connections?\n";
1594 print $WHT . "none" . $NRM . " - Your SMTP server does not require authorization.\n";
1595 print $WHT . "login" . $NRM . " - Plaintext. If you can do better, you probably should.\n";
1596 print $WHT . "plain" . $NRM . " - SASL PLAIN. You already know it if you need this.\n";
1597 print $WHT . "cram-md5" . $NRM . " - Slightly better than plaintext.\n";
1598 print $WHT . "digest-md5" . $NRM . " - Privacy protection - better than cram-md5.\n";
1599 print $WHT . "\n*** YOUR SMTP SERVER MUST SUPPORT THE MECHANISM YOU CHOOSE HERE ***\n" . $NRM;
1600 print "If you don't understand or are unsure, you probably want \"none\"\n\n";
1601 print "none, login, cram-md5, or digest-md5 [$WHT$smtp_auth_mech$NRM]: $WHT";
1602 $inval=<STDIN>;
1603 chomp($inval);
1604 if ($inval =~ /^none\b/i) {
1605 # remove sitewide smtp authentication information
1606 $smtp_sitewide_user = '';
1607 $smtp_sitewide_pass = '';
1608 # SMTP doesn't necessarily require logins
1609 return "none";
1610 } elsif ( ($inval =~ /^cram-md5\b/i) || ($inval =~ /^digest-md5\b/i) ||
1611 ($inval =~ /^login\b/i) || ($inval =~/^plain\b/i)) {
1612 command_smtp_sitewide_userpass($inval);
1613 return lc($inval);
1614 } elsif (trim($inval) eq '') {
1615 # user selected default value
1616 command_smtp_sitewide_userpass($smtp_auth_mech);
1617 return $smtp_auth_mech;
1618 } else {
1619 # user entered garbage
1620 return $smtp_auth_mech;
1621 }
1622 }
1623
1624 sub command_smtp_sitewide_userpass($) {
1625 # get first function argument
1626 my $auth_mech = shift(@_);
1627 my $default, $tmp;
1628 $auth_mech = lc(trim($auth_mech));
1629 if ($auth_mech eq 'none') {
1630 return;
1631 }
1632 print "SMTP authentication uses IMAP username and password by default.\n";
1633 print "\n";
1634 print "Would you like to use other login and password for all SquirrelMail \n";
1635 print "SMTP connections?";
1636 if ($smtp_sitewide_user ne '') {
1637 $default = 'y';
1638 print " [Y/n]:";
1639 } else {
1640 $default = 'n';
1641 print " [y/N]:";
1642 }
1643 $tmp=<STDIN>;
1644 $tmp = trim($tmp);
1645
1646 if ($tmp eq '') {
1647 $tmp = $default;
1648 } else {
1649 $tmp = lc($tmp);
1650 }
1651
1652 if ($tmp eq 'n') {
1653 $smtp_sitewide_user = '';
1654 $smtp_sitewide_pass = '';
1655 } elsif ($tmp eq 'y') {
1656 print "Enter username [$smtp_sitewide_user]:";
1657 my $new_user = <STDIN>;
1658 $new_user = trim($new_user);
1659 if ($new_user ne '') {
1660 $smtp_sitewide_user = $new_user;
1661 }
1662 if ($smtp_sitewide_user ne '') {
1663 print "If you don't enter any password, current sitewide password will be used.\n";
1664 print "If you enter space, password will be set to empty string.\n";
1665 print "Enter password:";
1666 my $new_pass = <STDIN>;
1667 if ($new_pass ne "\n") {
1668 $smtp_sitewide_pass = trim($new_pass);
1669 }
1670 } else {
1671 print "Invalid input. You must set username used for SMTP authentication.\n";
1672 print "Click enter to continue\n";
1673 $tmp = <STDIN>;
1674 }
1675 } else {
1676 print "Invalid input\n";
1677 print "Click enter to continue\n";
1678 $tmp = <STDIN>;
1679 }
1680 }
1681
1682 # Sub adds information about SMTP authentication type to menu
1683 sub display_smtp_sitewide_userpass() {
1684 my $ret = '';
1685 if ($smtp_auth_mech ne 'none') {
1686 if ($smtp_sitewide_user ne '') {
1687 $ret = ' (with custom username and password)';
1688 } else {
1689 $ret = ' (with IMAP username and password)';
1690 }
1691 }
1692 return $ret;
1693 }
1694
1695 # TLS
1696 # This sub is reused for IMAP and SMTP
1697 # Args: service name, default value
1698 sub command_use_tls {
1699 my($default_val,$service,$inval);
1700 $service=$_[0];
1701 $default_val=$_[1];
1702 print "TLS (Transport Layer Security) encrypts the traffic between server and client.\n";
1703 print "STARTTLS extensions allow to start encryption on existing plain text connection.\n";
1704 print "These options add specific PHP and IMAP server configuration requirements.\n";
1705 print "See SquirrelMail documentation about connection security.\n";
1706 print "\n";
1707 print "If your " . $service . " server is localhost, you can safely disable this.\n";
1708 print "If it is remote, you may wish to seriously consider enabling this.\n";
1709 $valid_input=0;
1710 while ($valid_input eq 0) {
1711 print "\nSelect connection security model:\n";
1712 print " 0 - Use plain text connection\n";
1713 print " 1 - Use TLS connection\n";
1714 print " 2 - Use STARTTLS extension\n";
1715 print "Select [$default_val]: ";
1716 $inval=<STDIN>;
1717 $inval=trim($inval);
1718 if ($inval =~ /^[012]$/ || $inval eq '') {
1719 $valid_input = 1;
1720 }
1721 }
1722 if ($inval ne '') {$default_val = $inval};
1723 return $default_val;
1724 }
1725
1726 # This sub is used to display human readable text for
1727 # $use_imap_tls and $use_smtp_tls values in conf.pl menu
1728 sub display_use_tls($) {
1729 my $val = shift(@_);
1730 my $ret = 'disabled';
1731 if ($val eq '2') {
1732 $ret = 'STARTTLS';
1733 } elsif ($val eq '1') {
1734 $ret = 'TLS';
1735 }
1736 return $ret;
1737 }
1738
1739 # $encode_header_key
1740 sub command114 {
1741 print "Encryption key allows to hide SquirrelMail Received: headers\n";
1742 print "in outbound messages. Interface uses encryption key to encode\n";
1743 print "username, remote address and proxied address, then stores encoded\n";
1744 print "information in X-Squirrel-* headers.\n";
1745 print "\n";
1746 print "Warning: used encryption function is not bulletproof. When used\n";
1747 print "with static encryption keys, it provides only minimal security\n";
1748 print "measures and information can be decoded quickly.\n";
1749 print "\n";
1750 print "Encoded information can be decoded with decrypt_headers.php script\n";
1751 print "from SquirrelMail contrib/ directory.\n";
1752 print "\n";
1753 print "Enter encryption key: ";
1754 $new_encode_header_key = <STDIN>;
1755 if ( $new_encode_header_key eq "\n" ) {
1756 $new_encode_header_key = $encode_header_key;
1757 } else {
1758 $new_encode_header_key =~ s/[\r\n]//g;
1759 }
1760 return $new_encode_header_key;
1761 }
1762
1763 # MOTD
1764 sub command71 {
1765 print "\nYou can now create the welcome message that is displayed\n";
1766 print "every time a user logs on. You can use HTML or just plain\n";
1767 print
1768 "text. If you do not wish to have one, just make it blank.\n\n(Type @ on a blank line to exit)\n";
1769
1770 $new_motd = "";
1771 do {
1772 print "] ";
1773 $line = <STDIN>;
1774 $line =~ s/[\r\n]//g;
1775 if ( $line ne "@" ) {
1776 $line =~ s/ /\&nbsp;\&nbsp;/g;
1777 $line =~ s/\t/\&nbsp;\&nbsp;\&nbsp;\&nbsp;/g;
1778 $line =~ s/$/ /;
1779 $line =~ s/\"/\\\"/g;
1780
1781 $new_motd = $new_motd . $line;
1782 }
1783 } while ( $line ne "@" );
1784 return $new_motd;
1785 }
1786
1787 ################# PLUGINS ###################
1788
1789 sub command81 {
1790 $command =~ s/[\s\n\r]*//g;
1791 if ( $command > 0 ) {
1792 $command = $command - 1;
1793 if ( $command <= $#plugins ) {
1794 @newplugins = ();
1795 $ct = 0;
1796 while ( $ct <= $#plugins ) {
1797 if ( $ct != $command ) {
1798 @newplugins = ( @newplugins, $plugins[$ct] );
1799 }
1800 $ct++;
1801 }
1802 @plugins = @newplugins;
1803 } elsif ( $command <= $#plugins + $#unused_plugins + 1 ) {
1804 $num = $command - $#plugins - 1;
1805 @newplugins = @plugins;
1806 $ct = 0;
1807 while ( $ct <= $#unused_plugins ) {
1808 if ( $ct == $num ) {
1809 @newplugins = ( @newplugins, $unused_plugins[$ct] );
1810 }
1811 $ct++;
1812 }
1813 @plugins = @newplugins;
1814 }
1815 }
1816 return @plugins;
1817 }
1818
1819 # disable_plugins_user
1820 sub command82 {
1821 print "When all active plugins are disabled, they can be disabled only\n";
1822 print "for the one user named here. If left blank, plugins will be\n";
1823 print "disabled for ALL users. This setting has no effect if plugins\n";
1824 print "are not disabled.\n";
1825 print "\n";
1826 print "This must be the exact IMAP login name for the desired user.\n";
1827 print "\n";
1828 print "[$WHT$disable_plugins_user$NRM]: $WHT";
1829 $new_disable_plugins_user = <STDIN>;
1830 if ( $new_disable_plugins_user eq "\n" ) {
1831 $new_disable_plugins_user = $disable_plugins_user;
1832 } else {
1833 $new_disable_plugins_user =~ s/[\r\n]//g;
1834 }
1835 return $new_disable_plugins_user;
1836 }
1837
1838 ################# FOLDERS ###################
1839
1840 # default_folder_prefix
1841 sub command21 {
1842 print "Some IMAP servers (UW, for example) store mail and folders in\n";
1843 print "your user space in a separate subdirectory. This is where you\n";
1844 print "specify what that directory is.\n";
1845 print "\n";
1846 print "EXAMPLE: mail/";
1847 print "\n";
1848 print "NOTE: If you use Cyrus, or some server that would not use this\n";
1849 print " option, you must set this to 'none'.\n";
1850 print "\n";
1851 print "[$WHT$default_folder_prefix$NRM]: $WHT";
1852 $new_default_folder_prefix = <STDIN>;
1853
1854 if ( $new_default_folder_prefix eq "\n" ) {
1855 $new_default_folder_prefix = $default_folder_prefix;
1856 } else {
1857 $new_default_folder_prefix =~ s/[\r\n]//g;
1858 }
1859 if ( ( $new_default_folder_prefix =~ /^\s*$/ ) || ( $new_default_folder_prefix =~ m/^none$/i ) ) {
1860 $new_default_folder_prefix = "";
1861 } else {
1862 # add the trailing delimiter only if we know what the server is.
1863 if (($imap_server_type eq 'cyrus' and
1864 $optional_delimiter eq 'detect') or
1865 ($imap_server_type eq 'courier' and
1866 $optional_delimiter eq 'detect')) {
1867 $new_default_folder_prefix =~ s/\.*$/\./;
1868 } elsif ($imap_server_type eq 'uw' and
1869 $optional_delimiter eq 'detect') {
1870 $new_default_folder_prefix =~ s/\/*$/\//;
1871 }
1872 }
1873 return $new_default_folder_prefix;
1874 }
1875
1876 # Show Folder Prefix
1877 sub command22 {
1878 print "It is possible to set up the default folder prefix as a user\n";
1879 print "specific option, where each user can specify what their mail\n";
1880 print "folder is. If you set this to false, they will never see the\n";
1881 print "option, but if it is true, this option will appear in the\n";
1882 print "'options' section.\n";
1883 print "\n";
1884 print "NOTE: You set the default folder prefix in option '1' of this\n";
1885 print " section. That will be the default if the user doesn't\n";
1886 print " specify anything different.\n";
1887 print "\n";
1888
1889 if ( lc($show_prefix_option) eq 'true' ) {
1890 $default_value = "y";
1891 } else {
1892 $default_value = "n";
1893 }
1894 print "\n";
1895 print "Show option (y/n) [$WHT$default_value$NRM]: $WHT";
1896 $new_show = <STDIN>;
1897 if ( ( $new_show =~ /^y\n/i ) || ( ( $new_show =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
1898 $show_prefix_option = 'true';
1899 } else {
1900 $show_prefix_option = 'false';
1901 }
1902 return $show_prefix_option;
1903 }
1904
1905 # Trash Folder
1906 sub command23a {
1907 print "You can now specify where the default trash folder is located.\n";
1908 print "On servers where you do not want this, you can set it to anything\n";
1909 print "and set option 6 to false.\n";
1910 print "\n";
1911 print "This is relative to where the rest of your email is kept. You do\n";
1912 print "not need to worry about their mail directory. If this folder\n";
1913 print "would be ~/mail/trash on the filesystem, you only need to specify\n";
1914 print "that this is 'trash', and be sure to put 'mail/' in option 1.\n";
1915 print "\n";
1916
1917 print "[$WHT$trash_folder$NRM]: $WHT";
1918 $new_trash_folder = <STDIN>;
1919 if ( $new_trash_folder eq "\n" ) {
1920 $new_trash_folder = $trash_folder;
1921 } else {
1922 if (check_imap_folder($new_trash_folder)) {
1923 $new_trash_folder =~ s/[\r\n]//g;
1924 } else {
1925 $new_trash_folder = $trash_folder;
1926 }
1927 }
1928 return $new_trash_folder;
1929 }
1930
1931 # Sent Folder
1932 sub command23b {
1933 print "This is where messages that are sent will be stored. SquirrelMail\n";
1934 print "by default puts a copy of all outgoing messages in this folder.\n";
1935 print "\n";
1936 print "This is relative to where the rest of your email is kept. You do\n";
1937 print "not need to worry about their mail directory. If this folder\n";
1938 print "would be ~/mail/sent on the filesystem, you only need to specify\n";
1939 print "that this is 'sent', and be sure to put 'mail/' in option 1.\n";
1940 print "\n";
1941
1942 print "[$WHT$sent_folder$NRM]: $WHT";
1943 $new_sent_folder = <STDIN>;
1944 if ( $new_sent_folder eq "\n" ) {
1945 $new_sent_folder = $sent_folder;
1946 } else {
1947 if (check_imap_folder($new_sent_folder)) {
1948 $new_sent_folder =~ s/[\r\n]//g;
1949 } else {
1950 $new_sent_folder = $sent_folder;
1951 }
1952 }
1953 return $new_sent_folder;
1954 }
1955
1956 # Draft Folder
1957 sub command23c {
1958 print "You can now specify where the default draft folder is located.\n";
1959 print "On servers where you do not want this, you can set it to anything\n";
1960 print "and set option 9 to false.\n";
1961 print "\n";
1962 print "This is relative to where the rest of your email is kept. You do\n";
1963 print "not need to worry about their mail directory. If this folder\n";
1964 print "would be ~/mail/drafts on the filesystem, you only need to specify\n";
1965 print "that this is 'drafts', and be sure to put 'mail/' in option 1.\n";
1966 print "\n";
1967
1968 print "[$WHT$draft_folder$NRM]: $WHT";
1969 $new_draft_folder = <STDIN>;
1970 if ( $new_draft_folder eq "\n" ) {
1971 $new_draft_folder = $draft_folder;
1972 } else {
1973 if (check_imap_folder($new_draft_folder)) {
1974 $new_draft_folder =~ s/[\r\n]//g;
1975 } else {
1976 $new_draft_folder = $draft_folder;
1977 }
1978 }
1979 return $new_draft_folder;
1980 }
1981
1982 # default move to trash
1983 sub command24a {
1984 print "By default, should messages get moved to the trash folder? You\n";
1985 print "can specify the default trash folder in option 3. If this is set\n";
1986 print "to false, messages will get deleted immediately without moving\n";
1987 print "to the trash folder.\n";
1988 print "\n";
1989 print "Trash folder is currently: $trash_folder\n";
1990 print "\n";
1991
1992 if ( lc($default_move_to_trash) eq 'true' ) {
1993 $default_value = "y";
1994 } else {
1995 $default_value = "n";
1996 }
1997 print "By default, move to trash (y/n) [$WHT$default_value$NRM]: $WHT";
1998 $new_show = <STDIN>;
1999 if ( ( $new_show =~ /^y\n/i ) || ( ( $new_show =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
2000 $default_move_to_trash = 'true';
2001 } else {
2002 $default_move_to_trash = 'false';
2003 }
2004 return $default_move_to_trash;
2005 }
2006
2007 # default move to sent (save sent messages)
2008 sub command24b {
2009 print "By default, should copies of outgoing messages get saved in the\n";
2010 print "sent folder? You can specify the default sent folder in option 4.\n";
2011 print "If this is set to false, messages will get sent and no copy will\n";
2012 print "be made.\n";
2013 print "\n";
2014 print "Sent folder is currently: $sent_folder\n";
2015 print "\n";
2016
2017 if ( lc($default_move_to_sent) eq 'true' ) {
2018 $default_value = "y";
2019 } else {
2020 $default_value = "n";
2021 }
2022 print "By default, save sent messages (y/n) [$WHT$default_value$NRM]: $WHT";
2023 $new_show = <STDIN>;
2024 if ( ( $new_show =~ /^y\n/i ) || ( ( $new_show =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
2025 $default_move_to_sent = 'true';
2026 } else {
2027 $default_move_to_sent = 'false';
2028 }
2029 return $default_move_to_sent;
2030 }
2031
2032 # default save as draft
2033 sub command24c {
2034 print "By default, should the save to draft option be shown? You can\n";
2035 print "specify the default drafts folder in option 5. If this is set\n";
2036 print "to false, users will not be shown the save to draft option.\n";
2037 print "\n";
2038 print "Drafts folder is currently: $draft_folder\n";
2039 print "\n";
2040
2041 if ( lc($default_save_as_draft) eq 'true' ) {
2042 $default_value = "y";
2043 } else {
2044 $default_value = "n";
2045 }
2046 print "By default, save as draft (y/n) [$WHT$default_value$NRM]: $WHT";
2047 $new_show = <STDIN>;
2048 if ( ( $new_show =~ /^y\n/i ) || ( ( $new_show =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
2049 $default_save_as_draft = 'true';
2050 } else {
2051 $default_save_as_draft = 'false';
2052 }
2053 return $default_save_as_draft;
2054 }
2055
2056 # List special folders first
2057 sub command27 {
2058 print "SquirrelMail has what we call 'special folders' that are not\n";
2059 print "manipulated and viewed like normal folders. Some examples of\n";
2060 print "these folders would be INBOX, Trash, Sent, etc. This option\n";
2061 print "Simply asks if you want these folders listed first in the folder\n";
2062 print "listing.\n";
2063 print "\n";
2064
2065 if ( lc($list_special_folders_first) eq 'true' ) {
2066 $default_value = "y";
2067 } else {
2068 $default_value = "n";
2069 }
2070 print "\n";
2071 print "List first (y/n) [$WHT$default_value$NRM]: $WHT";
2072 $new_show = <STDIN>;
2073 if ( ( $new_show =~ /^y\n/i ) || ( ( $new_show =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
2074 $list_special_folders_first = 'true';
2075 } else {
2076 $list_special_folders_first = 'false';
2077 }
2078 return $list_special_folders_first;
2079 }
2080
2081 # Show special folders color
2082 sub command28 {
2083 print "SquirrelMail has what we call 'special folders' that are not\n";
2084 print "manipulated and viewed like normal folders. Some examples of\n";
2085 print "these folders would be INBOX, Trash, Sent, etc. This option\n";
2086 print "wants to know if we should display special folders in a\n";
2087 print "color than the other folders.\n";
2088 print "\n";
2089
2090 if ( lc($use_special_folder_color) eq 'true' ) {
2091 $default_value = "y";
2092 } else {
2093 $default_value = "n";
2094 }
2095 print "\n";
2096 print "Show color (y/n) [$WHT$default_value$NRM]: $WHT";
2097 $new_show = <STDIN>;
2098 if ( ( $new_show =~ /^y\n/i ) || ( ( $new_show =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
2099 $use_special_folder_color = 'true';
2100 } else {
2101 $use_special_folder_color = 'false';
2102 }
2103 return $use_special_folder_color;
2104 }
2105
2106 # Auto expunge
2107 sub command29 {
2108 print "The way that IMAP handles deleting messages is as follows. You\n";
2109 print "mark the message as deleted, and then to 'really' delete it, you\n";
2110 print "expunge it. This option asks if you want to just have messages\n";
2111 print "marked as deleted, or if you want SquirrelMail to expunge the \n";
2112 print "messages too.\n";
2113 print "\n";
2114
2115 if ( lc($auto_expunge) eq 'true' ) {
2116 $default_value = "y";
2117 } else {
2118 $default_value = "n";
2119 }
2120 print "Auto expunge (y/n) [$WHT$default_value$NRM]: $WHT";
2121 $new_show = <STDIN>;
2122 if ( ( $new_show =~ /^y\n/i ) || ( ( $new_show =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
2123 $auto_expunge = 'true';
2124 } else {
2125 $auto_expunge = 'false';
2126 }
2127 return $auto_expunge;
2128 }
2129
2130 # Default sub of inbox
2131 sub command210 {
2132 print "Some IMAP servers (Cyrus) have all folders as subfolders of INBOX.\n";
2133 print "This can cause some confusion in folder creation for users when\n";
2134 print "they try to create folders and don't put it as a subfolder of INBOX\n";
2135 print "and get permission errors. This option asks if you want folders\n";
2136 print "to be subfolders of INBOX by default.\n";
2137 print "\n";
2138
2139 if ( lc($default_sub_of_inbox) eq 'true' ) {
2140 $default_value = "y";
2141 } else {
2142 $default_value = "n";
2143 }
2144 print "Default sub of INBOX (y/n) [$WHT$default_value$NRM]: $WHT";
2145 $new_show = <STDIN>;
2146 if ( ( $new_show =~ /^y\n/i ) || ( ( $new_show =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
2147 $default_sub_of_inbox = 'true';
2148 } else {
2149 $default_sub_of_inbox = 'false';
2150 }
2151 return $default_sub_of_inbox;
2152 }
2153
2154 # Show contain subfolder option
2155 sub command211 {
2156 print "Some IMAP servers (UW) make it so that there are two types of\n";
2157 print "folders. Those that contain messages, and those that contain\n";
2158 print "subfolders. If this is the case for your server, set this to\n";
2159 print "true, and it will ask the user whether the folder they are\n";
2160 print "creating contains subfolders or messages.\n";
2161 print "\n";
2162
2163 if ( lc($show_contain_subfolders_option) eq 'true' ) {
2164 $default_value = "y";
2165 } else {
2166 $default_value = "n";
2167 }
2168 print "Show option (y/n) [$WHT$default_value$NRM]: $WHT";
2169 $new_show = <STDIN>;
2170 if ( ( $new_show =~ /^y\n/i ) || ( ( $new_show =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
2171 $show_contain_subfolders_option = 'true';
2172 } else {
2173 $show_contain_subfolders_option = 'false';
2174 }
2175 return $show_contain_subfolders_option;
2176 }
2177
2178 # Default Unseen Notify
2179 sub command212 {
2180 print "This option specifies where the users will receive notification\n";
2181 print "about unseen messages by default. This is of course an option that\n";
2182 print "can be changed on a user level.\n";
2183 print " 1 = No notification\n";
2184 print " 2 = Only on the INBOX\n";
2185 print " 3 = On all folders\n";
2186 print "\n";
2187
2188 print "Which one should be default (1,2,3)? [$WHT$default_unseen_notify$NRM]: $WHT";
2189 $new_show = <STDIN>;
2190 if ( $new_show =~ /^[123]\n/i ) {
2191 $default_unseen_notify = $new_show;
2192 }
2193 $default_unseen_notify =~ s/[\r\n]//g;
2194 return $default_unseen_notify;
2195 }
2196
2197 # Default Unseen Type
2198 sub command213 {
2199 print "Here you can define the default way that unseen messages will be displayed\n";
2200 print "to the user in the folder listing on the left side.\n";
2201 print " 1 = Only unseen messages (4)\n";
2202 print " 2 = Unseen and Total messages (4/27)\n";
2203 print "\n";
2204
2205 print "Which one should be default (1,2)? [$WHT$default_unseen_type$NRM]: $WHT";
2206 $new_show = <STDIN>;
2207 if ( $new_show =~ /^[12]\n/i ) {
2208 $default_unseen_type = $new_show;
2209 }
2210 $default_unseen_type =~ s/[\r\n]//g;
2211 return $default_unseen_type;
2212 }
2213
2214 # Auto create special folders
2215 sub command214 {
2216 print "Would you like the Sent, Trash, and Drafts folders to be created\n";
2217 print "automatically print for you when a user logs in? If the user\n";
2218 print "accidentally deletes their special folders, this option will\n";
2219 print "automatically create it again for them.\n";
2220 print "\n";
2221
2222 if ( lc($auto_create_special) eq 'true' ) {
2223 $default_value = "y";
2224 } else {
2225 $default_value = "n";
2226 }
2227 print "Auto create special folders? (y/n) [$WHT$default_value$NRM]: $WHT";
2228 $new_show = <STDIN>;
2229 if ( ( $new_show =~ /^y\n/i ) || ( ( $new_show =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
2230 $auto_create_special = 'true';
2231 } else {
2232 $auto_create_special = 'false';
2233 }
2234 return $auto_create_special;
2235 }
2236
2237 # Automatically delete folders
2238 sub command215 {
2239 if ( $imap_server_type eq "uw" ) {
2240 print "UW IMAP servers will not allow folders containing mail to also contain folders.\n";
2241 print "Deleting folders will bypass the trash folder and be immediately deleted\n\n";
2242 print "If this is not the correct value for your server,\n";
2243 print "please use option D on the Main Menu to configure your server correctly.\n\n";
2244 print "Press enter to continue...\n";
2245 $new_delete = <STDIN>;
2246 $delete_folder = 'true';
2247 } else {
2248 if ( $imap_server_type eq "courier" ) {
2249 print "Courier (or Courier-IMAP) IMAP servers may not support ";
2250 print "subfolders of Trash. \n";
2251 print "Specifically, if Courier is set to always move messages to Trash, \n";
2252 print "Trash will be treated by Courier as a special folder that does not \n";
2253 print "allow subfolders. \n\n";
2254 print "Please verify your Courier configuration, and test folder deletion \n";
2255 print "when changing this setting.\n\n";
2256 }
2257
2258 print "Are subfolders of the Trash supported by your IMAP server?\n";
2259 print "If so, should deleted folders be sent to Trash?\n";
2260 print "If not, say no (deleted folders should not be sent to Trash)\n\n";
2261 # reversal of logic.
2262 # question was: Should folders be automatically deleted instead of sent to trash..
2263 # we've changed the question to make it more clear,
2264 # and are here handling that to avoid changing the answers..
2265 if ( lc($delete_folder) eq 'true' ) {
2266 $default_value = "n";
2267 } else {
2268 $default_value = "y";
2269 }
2270 print "Send deleted folders to Trash? (y/n) [$WHT$default_value$NRM]: $WHT";
2271 $new_delete = <STDIN>;
2272 if ( ( $new_delete =~ /^y\n/i ) || ( ( $new_delete =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
2273 $delete_folder = 'false';
2274 } else {
2275 $delete_folder = 'true';
2276 }
2277 }
2278 return $delete_folder;
2279 }
2280
2281 #noselect fix
2282 sub command216 {
2283 print "Some IMAP servers allow subfolders to exist even if the parent\n";
2284 print "folders do not. This fixes some problems with the folder list\n";
2285 print "when this is the case, causing the /NoSelect folders to be displayed\n";
2286 print "\n";
2287
2288 if ( lc($noselect_fix_enable) eq 'true' ) {
2289 $default_value = "y";
2290 } else {
2291 $default_value = "n";
2292 }
2293 print "enable noselect fix? (y/n) [$WHT$noselect_fix_enable$NRM]: $WHT";
2294 $noselect_fix_enable = <STDIN>;
2295 if ( ( $noselect_fix_enable =~ /^y\n/i ) || ( ( $noselect_fix_enable =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
2296 $noselect_fix_enable = 'true';
2297 } else {
2298 $noselect_fix_enable = 'false';
2299 }
2300 return $noselect_fix_enable;
2301 }
2302 ############# GENERAL OPTIONS #####################
2303
2304 # Data directory
2305 sub command33a {
2306 print "Specify the location for your data directory.\n";
2307 print "You need to create this directory yourself.\n";
2308 print "The path name can be absolute or relative (to the config directory).\n";
2309 print "Here are two examples:\n";
2310 print " Absolute: /var/local/squirrelmail/data/\n";
2311 print " Relative: ../data/\n";
2312 print "Relative paths to directories outside of the SquirrelMail distribution\n";
2313 print "will be converted to their absolute path equivalents in config.php.\n\n";
2314 print "Note: There are potential security risks with having a writeable directory\n";
2315 print "under the web server's root directory (ex: /home/httpd/html).\n";
2316 print "For this reason, it is recommended to put the data directory\n";
2317 print "in an alternate location of your choice. \n";
2318 print "\n";
2319
2320 print "[$WHT$data_dir$NRM]: $WHT";
2321 $new_data_dir = <STDIN>;
2322 if ( $new_data_dir eq "\n" ) {
2323 $new_data_dir = $data_dir;
2324 } else {
2325 $new_data_dir =~ s/[\r\n]//g;
2326 }
2327 if ( $new_data_dir =~ /^\s*$/ ) {
2328 $new_data_dir = "";
2329 } else {
2330 $new_data_dir =~ s/\/*$//g;
2331 $new_data_dir =~ s/$/\//g;
2332 }
2333 return $new_data_dir;
2334 }
2335
2336 # Attachment directory
2337 sub command33b {
2338 print "Path to directory used for storing attachments while a mail is\n";
2339 print "being composed. The path name can be absolute or relative (to the\n";
2340 print "config directory). Here are two examples:\n";
2341 print " Absolute: /var/local/squirrelmail/attach/\n";
2342 print " Relative: ../attach/\n";
2343 print "Relative paths to directories outside of the SquirrelMail distribution\n";
2344 print "will be converted to their absolute path equivalents in config.php.\n\n";
2345 print "Note: There are a few security considerations regarding this\n";
2346 print "directory:\n";
2347 print " 1. It should have the permission 733 (rwx-wx-wx) to make it\n";
2348 print " impossible for a random person with access to the webserver\n";
2349 print " to list files in this directory. Confidential data might\n";
2350 print " be laying around in there.\n";
2351 print " Depending on your user:group assignments, 730 (rwx-wx---)\n";
2352 print " may be possible, and more secure (e.g. root:apache)\n";
2353 print " 2. Since the webserver is not able to list the files in the\n";
2354 print " content is also impossible for the webserver to delete files\n";
2355 print " lying around there for too long.\n";
2356 print " 3. It should probably be another directory than the data\n";
2357 print " directory specified in option 3.\n";
2358 print "\n";
2359
2360 print "[$WHT$attachment_dir$NRM]: $WHT";
2361 $new_attachment_dir = <STDIN>;
2362 if ( $new_attachment_dir eq "\n" ) {
2363 $new_attachment_dir = $attachment_dir;
2364 } else {
2365 $new_attachment_dir =~ s/[\r\n]//g;
2366 }
2367 if ( $new_attachment_dir =~ /^\s*$/ ) {
2368 $new_attachment_dir = "";
2369 } else {
2370 $new_attachment_dir =~ s/\/*$//g;
2371 $new_attachment_dir =~ s/$/\//g;
2372 }
2373 return $new_attachment_dir;
2374 }
2375
2376 sub command33c {
2377 print "The directory hash level setting allows you to configure the level\n";
2378 print "of hashing that SquirrelMail employs in your data and attachment\n";
2379 print "directories. This value must be an integer ranging from 0 to 4.\n";
2380 print "When this value is set to 0, SquirrelMail will simply store all\n";
2381 print "files as normal in the data and attachment directories. However,\n";
2382 print "when set to a value from 1 to 4, a simple hashing scheme will be\n";
2383 print "used to organize the files in this directory. In short, the crc32\n";
2384 print "value for a username will be computed. Then, up to the first 4\n";
2385 print "digits of the hash, as set by this configuration value, will be\n";
2386 print "used to directory hash the files for that user in the data and\n";
2387 print "attachment directory. This allows for better performance on\n";
2388 print "servers with larger numbers of users.\n";
2389 print "\n";
2390
2391 print "[$WHT$dir_hash_level$NRM]: $WHT";
2392 $new_dir_hash_level = <STDIN>;
2393 if ( $new_dir_hash_level eq "\n" ) {
2394 $new_dir_hash_level = $dir_hash_level;
2395 } else {
2396 $new_dir_hash_level =~ s/[\r\n]//g;
2397 }
2398 if ( ( int($new_dir_hash_level) < 0 )
2399 || ( int($new_dir_hash_level) > 4 )
2400 || !( int($new_dir_hash_level) eq $new_dir_hash_level ) ) {
2401 print "Invalid Directory Hash Level.\n";
2402 print "Value must be an integer ranging from 0 to 4\n";
2403 print "Hit enter to continue.\n";
2404 $enter_key = <STDIN>;
2405
2406 $new_dir_hash_level = $dir_hash_level;
2407 }
2408
2409 return $new_dir_hash_level;
2410 }
2411
2412 sub command35 {
2413 print "This is the default size (in pixels) of the left folder list.\n";
2414 print "Default is 200, but you can set it to whatever you wish. This\n";
2415 print "is a user preference, so this will only show up as their default.\n";
2416 print "\n";
2417 print "[$WHT$default_left_size$NRM]: $WHT";
2418 $new_default_left_size = <STDIN>;
2419 if ( $new_default_left_size eq "\n" ) {
2420 $new_default_left_size = $default_left_size;
2421 } else {
2422 $new_default_left_size =~ s/[\r\n]//g;
2423 }
2424 return $new_default_left_size;
2425 }
2426
2427 sub command36 {
2428 print "Some IMAP servers only have lowercase letters in the usernames\n";
2429 print "but they still allow people with uppercase to log in. This\n";
2430 print "causes a problem with the user's preference files. This option\n";
2431 print "transparently changes all usernames to lowercase.";
2432 print "\n";
2433
2434 if ( lc($force_username_lowercase) eq 'true' ) {
2435 $default_value = "y";
2436 } else {
2437 $default_value = "n";
2438 }
2439 print "Convert usernames to lowercase (y/n) [$WHT$default_value$NRM]: $WHT";
2440 $new_show = <STDIN>;
2441 if ( ( $new_show =~ /^y\n/i ) || ( ( $new_show =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
2442 return 'true';
2443 }
2444 return 'false';
2445 }
2446
2447 sub command37 {
2448 print "";
2449 print "\n";
2450
2451 if ( lc($default_use_priority) eq 'true' ) {
2452 $default_value = "y";
2453 } else {
2454 $default_value = "n";
2455 }
2456
2457 print "Allow users to specify priority of outgoing mail (y/n) [$WHT$default_value$NRM]: $WHT";
2458 $new_show = <STDIN>;
2459 if ( ( $new_show =~ /^y\n/i ) || ( ( $new_show =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
2460 return 'true';
2461 }
2462 return 'false';
2463 }
2464
2465 sub command38 {
2466 print "";
2467 print "\n";
2468
2469 if ( lc($hide_sm_attributions) eq 'true' ) {
2470 $default_value = "y";
2471 } else {
2472 $default_value = "n";
2473 }
2474
2475 print "Hide SM attributions (y/n) [$WHT$default_value$NRM]: $WHT";
2476 $new_show = <STDIN>;
2477 if ( ( $new_show =~ /^y\n/i ) || ( ( $new_show =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
2478 return 'true';
2479 }
2480 return 'false';
2481 }
2482
2483 sub command39 {
2484 print "";
2485 print "\n";
2486
2487 if ( lc($default_use_mdn) eq 'true' ) {
2488 $default_value = "y";
2489 } else {
2490 $default_value = "n";
2491 }
2492
2493 print "Enable support for read/delivery receipt support (y/n) [$WHT$default_value$NRM]: $WHT";
2494 $new_show = <STDIN>;
2495 if ( ( $new_show =~ /^y\n/i ) || ( ( $new_show =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
2496 return 'true';
2497 }
2498 return 'false';
2499 }
2500
2501
2502 sub command310 {
2503 print " In loosely managed environments, you may want to allow users
2504 to edit their full name and email address. In strictly managed
2505 environments, you may want to force users to use the name
2506 and email address assigned to them.
2507
2508 'y' - allow a user to edit their full name and email address,
2509 'n' - users must use the assigned values.
2510
2511 ";
2512
2513 if ( lc($edit_identity) eq 'true' ) {
2514 $default_value = "y";
2515 } else {
2516 $default_value = "n";
2517 }
2518 print "Allow editing of user's identity? (y/n) [$WHT$default_value$NRM]: $WHT";
2519 $new_edit = <STDIN>;
2520 if ( ( $new_edit =~ /^y\n/i ) || ( ( $new_edit =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
2521 $edit_identity = 'true';
2522 $edit_name = 'true';
2523 $hide_auth_header = command311b();
2524 } else {
2525 $edit_identity = 'false';
2526 $edit_name = command311();
2527 $hide_auth_header = command311b();
2528 }
2529 return $edit_identity;
2530 }
2531
2532 sub command311 {
2533 print " Given that users are not allowed to modify their
2534 email address, can they edit their full name?
2535
2536 ";
2537
2538 if ( lc($edit_name) eq 'true' ) {
2539 $default_value = "y";
2540 } else {
2541 $default_value = "n";
2542 }
2543 print "Allow the user to edit their full name? (y/n) [$WHT$default_value$NRM]: $WHT";
2544 $new_edit = <STDIN>;
2545 if ( ( $new_edit =~ /^y\n/i ) || ( ( $new_edit =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
2546 $edit_name = 'true';
2547 } else {
2548 $edit_name = 'false';
2549 }
2550 return $edit_name;
2551 }
2552
2553 sub command311b {
2554 print " SquirrelMail adds username information to every sent email
2555 in order to prevent possible sender forging when users are allowed
2556 to change their email and/or full name.
2557
2558 You can remove user information from this header (y), if you think that
2559 it violates privacy or security.
2560
2561 Note: If users are allowed to change their email addresses,
2562 this setting will make it difficult to determine who sent what where.
2563 Use at your own risk.
2564
2565 ";
2566
2567 if ( lc($hide_auth_header) eq "true" ) {
2568 $default_value = "y";
2569 } else {
2570 $default_value = "n";
2571 }
2572 print "Remove username from email headers? (y/n) [$WHT$default_value$NRM]: $WHT";
2573 $new_header = <STDIN>;
2574 if ( ( $new_header =~ /^y\n/i ) || ( ( $new_header =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
2575 $hide_auth_header = "true";
2576 } else {
2577 $hide_auth_header = "false";
2578 }
2579 return $hide_auth_header;
2580 }
2581
2582 sub command312 {
2583 print "This option allows you to disable server side thread sorting if your server \n";
2584 print "declares THREAD support, but you don't want to provide threading options \n";
2585 print "to end users or THREAD extension is broken or extension does not work with \n";
2586 print "options used by SquirrelMail. Option is not used, if THREAD extension is \n";
2587 print "not declared in IMAP CAPABILITY.\n";
2588 print "\n";
2589
2590 if ( lc($disable_thread_sort) eq 'true' ) {
2591 $default_value = "y";
2592 } else {
2593 $default_value = "n";
2594 }
2595 print "Disable server side thread sorting? (y/n) [$WHT$default_value$NRM]: $WHT";
2596 $disable_thread_sort = <STDIN>;
2597 if ( ( $disable_thread_sort =~ /^y\n/i ) || ( ( $disable_thread_sort =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
2598 $disable_thread_sort = 'true';
2599 } else {
2600 $disable_thread_sort = 'false';
2601 }
2602 return $disable_thread_sort;
2603 }
2604
2605 sub command313 {
2606 print "This option allows you to disable server side sorting if your server declares \n";
2607 print "SORT support, but SORT extension is broken or does not work with options \n";
2608 print "used by SquirrelMail. Option is not used, if SORT extension is not declared \n";
2609 print "in IMAP CAPABILITY.\n";
2610 print "\n";
2611 print "It is strongly recommended to keep server side sorting enabled, if your ";
2612 print "IMAP server supports it.";
2613 print "\n";
2614
2615 if ( lc($disable_server_sort) eq 'true' ) {
2616 $default_value = "y";
2617 } else {
2618 $default_value = "n";
2619 }
2620 print "Disable server-side sorting? (y/n) [$WHT$default_value$NRM]: $WHT";
2621 $disable_server_sort = <STDIN>;
2622 if ( ( $disable_server_sort =~ /^y\n/i ) || ( ( $disable_server_sort =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
2623 $disable_server_sort = 'true';
2624 } else {
2625 $disable_server_sort = 'false';
2626 }
2627 return $disable_server_sort;
2628 }
2629
2630 sub command314 {
2631 print "This option allows you to choose if SM uses charset search\n";
2632 print "Your IMAP server must support the SEARCH CHARSET command for this to work\n";
2633 print "\n";
2634
2635 if ( lc($allow_charset_search) eq 'true' ) {
2636 $default_value = "y";
2637 } else {
2638 $default_value = "n";
2639 }
2640 print "Allow charset searching? (y/n) [$WHT$default_value$NRM]: $WHT";
2641 $allow_charset_search = <STDIN>;
2642 if ( ( $allow_charset_search =~ /^y\n/i ) || ( ( $allow_charset_search =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
2643 $allow_charset_search = 'true';
2644 } else {
2645 $allow_charset_search = 'false';
2646 }
2647 return $allow_charset_search;
2648 }
2649
2650 # command315 (UID support) obsoleted.
2651
2652 # advanced search option
2653 sub command316 {
2654 print "This option allows you to control the use of advanced search form.\n";
2655 print " 0 = enable basic search only\n";
2656 print " 1 = enable advanced search only\n";
2657 print " 2 = enable both\n";
2658 print "\n";
2659
2660 print "Allowed search (0,1,2)? [$WHT$allow_advanced_search$NRM]: $WHT";
2661 $new_allow_advanced_search = <STDIN>;
2662 if ( $new_allow_advanced_search =~ /^[012]\n/i ) {
2663 $allow_advanced_search = $new_allow_advanced_search;
2664 }
2665 $allow_advanced_search =~ s/[\r\n]//g;
2666 return $allow_advanced_search;
2667 }
2668
2669
2670 sub command317 {
2671 print "This option allows you to change the name of the PHP session used\n";
2672 print "by SquirrelMail. Unless you know what you are doing, you probably\n";
2673 print "don't need or want to change this from the default of SQMSESSID.\n";
2674 print "[$WHT$session_name$NRM]: $WHT";
2675 $new_session_name = <STDIN>;
2676 chomp($new_session_name);
2677 if ( $new_session_name eq "" ) {
2678 $new_session_name = $session_name;
2679 }
2680 return $new_session_name;
2681 }
2682
2683 # time zone config (since 1.5.1)
2684 sub command318 {
2685 print "This option allows you to control the use of time zones.\n";
2686 print " 0 = (default) standard, GNU C time zone names\n";
2687 print " 1 = strict, generic time zone codes with offsets\n";
2688 print " 2 = custom, GNU C time zones loaded from config/timezones.php\n";
2689 print " 3 = custom strict, generic time zone codes with offsets loaded \n";
2690 print " from config/timezones.php\n";
2691 print "See SquirrelMail documentation about format of config/timezones.php file.\n";
2692 print "\n";
2693
2694 print "Desired time zone configuration (0,1,2,3)? [$WHT$time_zone_type$NRM]: $WHT";
2695 $new_time_zone_type = <STDIN>;
2696 if ( $new_time_zone_type =~ /^[0123]\n/i ) {
2697 $time_zone_type = $new_time_zone_type;
2698 } else {
2699 print "\nInvalid configuration value.\n";
2700 print "\nPress enter to continue...";
2701 $tmp = <STDIN>;
2702 }
2703 $time_zone_type =~ s/[\r\n]//g;
2704 return $time_zone_type;
2705 }
2706
2707 # set the location base for redirects (since 1.5.2)
2708 sub command_config_location_base {
2709 print "Here you can set the base part of the SquirrelMail URL.\n";
2710 print "It is normally autodetected but if that fails, use this\n";
2711 print "option to override.\n";
2712 print "It should contain only the protocol and hostname/port parts\n";
2713 print "of the URL; the full path will be appended automatically.\n\n";
2714 print "Examples:\nhttp://webmail.example.org\nhttp://webmail.example.com:8080\nhttps://webmail.example.com:6691\n\n";
2715 print "Do not add any path elements.\n";
2716
2717 print "URL base? [" .$WHT."autodetect$NRM]: $WHT";
2718 $new_config_location_base = <STDIN>;
2719 chomp($new_config_location_base);
2720 $config_location_base = $new_config_location_base;
2721
2722 return $config_location_base;
2723 }
2724
2725 # only_secure_cookies (since 1.5.2)
2726 sub command319 {
2727 print "This option allows you to specify that if a user session is initiated\n";
2728 print "under a secure (HTTPS, SSL-encrypted) connection, the cookies given to\n";
2729 print "the browser will ONLY be transmitted via a secure connection henceforth.\n\n";
2730 print "Generally this is a Good Thing, and should NOT be disabled. However,\n";
2731 print "if you intend to use the Secure Login or Show SSL Link plugins to\n";
2732 print "encrypt the user login, but not the rest of the SquirrelMail session,\n";
2733 print "this can be turned off. Think twice before doing so.\n";
2734 print "\n";
2735
2736 if ( lc($only_secure_cookies) eq 'true' ) {
2737 $default_value = "y";
2738 } else {
2739 $default_value = "n";
2740 }
2741 print "Transmit cookies only on secure connection when available? (y/n) [$WHT$default_value$NRM]: $WHT";
2742 $only_secure_cookies = <STDIN>;
2743 if ( ( $only_secure_cookies =~ /^y\n/i ) || ( ( $only_secure_cookies =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
2744 $only_secure_cookies = 'true';
2745 } else {
2746 $only_secure_cookies = 'false';
2747 }
2748 return $only_secure_cookies;
2749 }
2750
2751
2752 sub command_userThemes {
2753 print "\nDefine the user themes that you wish to use. If you have added\n";
2754 print "a theme of your own, just follow the instructions (?) about\n";
2755 print "how to add them. You can also change the default theme.\n\n";
2756
2757 print "Available user themes:\n";
2758 $count = 0;
2759 while ( $count <= $#user_theme_name ) {
2760 if ( $count == $user_theme_default ) {
2761 print " *";
2762 } else {
2763 print " ";
2764 }
2765 if ( $count < 10 ) {
2766 print " ";
2767 }
2768 $name = $user_theme_name[$count];
2769 $num_spaces = 35 - length($name);
2770 for ( $i = 0 ; $i < $num_spaces ; $i++ ) {
2771 $name = $name . " ";
2772 }
2773
2774 print " $count. $name";
2775 print "($user_theme_path[$count])\n";
2776
2777 $count++;
2778 }
2779
2780 print "\n";
2781 print ".------------------------------------.\n";
2782 print "| t (detect user themes) |\n";
2783 print "| + (add user theme) |\n";
2784 print "| - N (remove user theme) |\n";
2785 print "| m N (mark default user theme) |\n";
2786 print "| l (list user themes) |\n";
2787 print "| d (done) |\n";
2788 print "`------------------------------------'\n";
2789
2790 print "\n[user_themes] command (?=help) > ";
2791 $input = <STDIN>;
2792 $input =~ s/[\r\n]//g;
2793 while ( $input ne "d" ) {
2794 if ( $input =~ /^\s*l\s*/i ) {
2795 $count = 0;
2796 while ( $count <= $#user_theme_name ) {
2797 if ( $count == $user_theme_default ) {
2798 print " *";
2799 } else {
2800 print " ";
2801 }
2802 if ( $count < 10 ) {
2803 print " ";
2804 }
2805 $name = $user_theme_name[$count];
2806 $num_spaces = 35 - length($name);
2807 for ( $i = 0 ; $i < $num_spaces ; $i++ ) {
2808 $name = $name . " ";
2809 }
2810
2811 print " $count. $name";
2812 print "($user_theme_path[$count])\n";
2813
2814 $count++;
2815 }
2816 } elsif ( $input =~ /^\s*m\s*[0-9]+/i ) {
2817 $old_def = $user_theme_default;
2818 $user_theme_default = $input;
2819 $user_theme_default =~ s/^\s*m\s*//;
2820 if ( ( $user_theme_default > $#user_theme_name ) || ( $user_theme_default < 0 ) ) {
2821 print "Cannot set default theme to $user_theme_default. That theme does not exist.\n";
2822 $user_theme_default = $old_def;
2823 }
2824 } elsif ( $input =~ /^\s*\+/ ) {
2825 print "What is the name of this theme? ";
2826 $name = <STDIN>;
2827 $name =~ s/[\r\n]//g;
2828 $user_theme_name[ $#user_theme_name + 1 ] = $name;
2829 print "Be sure to put ../css/ before the filename.\n";
2830 print "What file is this stored in (ex: ../css/my_theme/): ";
2831 $name = <STDIN>;
2832 $name =~ s/[\r\n]//g;
2833 $user_theme_path[ $#user_theme_path + 1 ] = $name;
2834 } elsif ( $input =~ /^\s*-\s*[0-9]?/ ) {
2835 if ( $input =~ /[0-9]+\s*$/ ) {
2836 $rem_num = $input;
2837 $rem_num =~ s/^\s*-\s*//g;
2838 $rem_num =~ s/\s*$//;
2839 } else {
2840 $rem_num = $#user_theme_name;
2841 }
2842 if ( $rem_num == $user_theme_default ) {
2843 print "You cannot remove the default theme!\n";
2844 } else {
2845 $count = 0;
2846 @new_theme_name = ();
2847 @new_theme_path = ();
2848 while ( $count <= $#user_theme_name ) {
2849 if ( $count != $rem_num ) {
2850 @new_theme_name = ( @new_theme_name, $user_theme_name[$count] );
2851 @new_theme_path = ( @new_theme_path, $user_theme_path[$count] );
2852 }
2853 $count++;
2854 }
2855 @user_theme_name = @new_theme_name;
2856 @user_theme_path = @new_theme_path;
2857 if ( $user_theme_default > $rem_num ) {
2858 $user_theme_default--;
2859 }
2860 }
2861 } elsif ( $input =~ /^\s*t\s*/i ) {
2862 print "\nStarting detection...\n\n";
2863
2864 opendir( DIR, "../css" );
2865 @files = sort(readdir(DIR));
2866 $cnt = 0;
2867 while ( $cnt <= $#files ) {
2868 $filename = "../css/" . $files[$cnt] .'/';
2869 if ( $files[$cnt] !~ /^\./ && $filename ne "../css/rtl.css" && -e $filename . "default.css" ) {
2870 $found = 0;
2871 for ( $x = 0 ; $x <= $#user_theme_path ; $x++ ) {
2872 if ( $user_theme_path[$x] eq $filename ) {
2873 $found = 1;
2874 }
2875 }
2876 if ( $found != 1 ) {
2877 print "** Found user theme: $filename\n";
2878 $def = $files[$cnt];
2879 $def =~ s/_/ /g;
2880 $def = lc($def);
2881 #$def =~ s/(^\w+)/ucfirst $1/eg;
2882 #$def =~ s/(\s+)(\w+)/$1 . ucfirst $2/eg;
2883 $def =~ s/(^\w+)|(\s+)(\w+)/ucfirst $1 . $2 . ucfirst $3/eg;
2884 print " What is its name? [$def]: ";
2885 $nm = <STDIN>;
2886 $nm =~ s/^\s+|\s+$|[\n\r]//g;
2887 if ( $nm eq '' ) { $nm = $def; }
2888 $user_theme_name[ $#user_theme_name + 1 ] = $nm;
2889 $user_theme_path[ $#user_theme_path + 1 ] = $filename;
2890 }
2891 }
2892 $cnt++;
2893 }
2894 print "\n";
2895 for ( $cnt = 0 ; $cnt <= $#user_theme_path ; $cnt++ ) {
2896 $filename = $user_theme_path[$cnt];
2897 if ( $filename != 'none' && !( -e $filename ."/default.css" ) ) {
2898 print " Removing $filename (file not found)\n";
2899 $offset = 0;
2900 @new_user_theme_name = ();
2901 @new_user_theme_path = ();
2902 for ( $x = 0 ; $x < $#user_theme_path ; $x++ ) {
2903 if ( $user_theme_path[$x] eq $filename ) {
2904 $offset = 1;
2905 }
2906 if ( $offset == 1 ) {
2907 $new_user_theme_name[$x] = $user_theme_name[ $x + 1 ];
2908 $new_user_theme_path[$x] = $user_theme_path[ $x + 1 ];
2909 } else {
2910 $new_user_theme_name[$x] = $user_theme_name[$x];
2911 $new_user_theme_path[$x] = $user_theme_path[$x];
2912 }
2913 }
2914 @user_theme_name = @new_user_theme_name;
2915 @user_theme_path = @new_user_theme_path;
2916 }
2917 }
2918 print "\nDetection complete!\n\n";
2919
2920 closedir DIR;
2921 } elsif ( $input =~ /^\s*\?\s*/ ) {
2922 print ".------------------------------------.\n";
2923 print "| t (detect user themes) |\n";
2924 print "| + (add user theme) |\n";
2925 print "| - N (remove user theme) |\n";
2926 print "| m N (mark default user theme) |\n";
2927 print "| l (list user themes) |\n";
2928 print "| d (done) |\n";
2929 print "`------------------------------------'\n";
2930 }
2931 print "[user_themes] command (?=help) > ";
2932 $input = <STDIN>;
2933 $input =~ s/[\r\n]//g;
2934 }
2935 }
2936
2937 sub command_iconSets {
2938 print "\nDefine the icon themes that you wish to use. If you have added\n";
2939 print "a theme of your own, just follow the instructions (?) about\n";
2940 print "how to add them. You can also change the default and fallback\n";
2941 print "themes. The default theme will be used when no icon theme is\n";
2942 print "set by the user. The fallback theme will be used if an icon\n";
2943 print "cannot be found in the currently selected icon theme.\n\n";
2944
2945 print "Available icon themes:\n\n";
2946
2947 $count = 0;
2948 while ( $count <= $#icon_theme_name ) {
2949 if ( $count == $icon_theme_def ) {
2950 print " d";
2951 } else {
2952 print " ";
2953 }
2954 if ( $count eq $icon_theme_fallback ) {
2955 print "f ";
2956 } else {
2957 print " ";
2958 }
2959 if ( $count < 10 ) {
2960 print " ";
2961 }
2962 $name = $icon_theme_name[$count];
2963 $num_spaces = 35 - length($name);
2964 for ( $i = 0 ; $i < $num_spaces ; $i++ ) {
2965 $name = $name . " ";
2966 }
2967
2968 print " $count. $name";
2969 print "($icon_theme_path[$count])\n";
2970
2971 $count++;
2972 }
2973
2974 print "\n d = Default icon theme\n";
2975 print " f = Fallback icon theme\n";
2976 print "\n";
2977 print ".------------------------------------.\n";
2978 print "| t (detect icon themes) |\n";
2979 print "| + (add icon theme) |\n";
2980 print "| - N (remove icon theme) |\n";
2981 print "| m N (mark default icon theme) |\n";
2982 print "| f N (set fallback icon set) |\n";
2983 print "| l (list icon themes) |\n";
2984 print "| d (done) |\n";
2985 print "`------------------------------------'\n";
2986
2987 print "\n[icon_themes] command (?=help) > ";
2988 $input = <STDIN>;
2989 $input =~ s/[\r\n]//g;
2990 while ( $input ne "d" ) {
2991 if ( $input =~ /^\s*l\s*/i ) {
2992 $count = 0;
2993 print "\n";
2994 while ( $count <= $#icon_theme_name ) {
2995 if ( $count == $icon_theme_def ) {
2996 print " d";
2997 } else {
2998 print " ";
2999 }
3000 if ( $count eq $icon_theme_fallback ) {
3001 print "f ";
3002 } else {
3003 print " ";
3004 }
3005 $name = $icon_theme_name[$count];
3006 $num_spaces = 35 - length($name);
3007 for ( $i = 0 ; $i < $num_spaces ; $i++ ) {
3008 $name = $name . " ";
3009 }
3010
3011 print " $count. $name";
3012 print "($icon_theme_path[$count])\n";
3013
3014 $count++;
3015 }
3016 print "\n d = Default icon theme\n";
3017 print " f = Fallback icon theme\n\n";
3018 } elsif ( $input =~ /^\s*m\s*[0-9]+/i ) {
3019 $old_def = $icon_theme_def;
3020 $icon_theme_def = $input;
3021 $icon_theme_def =~ s/^\s*m\s*//;
3022 if ( ( $icon_theme_default > $#icon_theme_name ) || ( $icon_theme_default < 0 ) ) {
3023 print "Cannot set default icon theme to $icon_theme_default. That theme does not exist.\n";
3024 $icon_theme_def = $old_def;
3025 }
3026 } elsif ( $input =~ /^\s*f\s*[0-9]+/i ) {
3027 $old_fb = $icon_theme_fallback;
3028 $icon_theme_fallback = $input;
3029 $icon_theme_fallback =~ s/^\s*f\s*//;
3030 if ( ( $icon_theme_fallback > $#icon_theme_name ) || ( $icon_theme_fallback < 0 ) ) {
3031 print "Cannot set fallback icon theme to $icon_theme_fallback. That theme does not exist.\n";
3032 $icon_theme_fallback = $old_fb;
3033 }
3034 } elsif ( $input =~ /^\s*\+/ ) {
3035 print "What is the name of this icon theme? ";
3036 $name = <STDIN>;
3037 $name =~ s/[\r\n]//g;
3038 $icon_theme_name[ $#icon_theme_name + 1 ] = $name;
3039 print "Be sure to put ../images/themes/ before the filename.\n";
3040 print "What directory is this icon theme stored in (ex: ../images/themes/my_theme/)? ";
3041 $name = <STDIN>;
3042 $name =~ s/[\r\n]//g;
3043 $icon_theme_path[ $#icon_theme_path + 1 ] = $name;
3044 } elsif ( $input =~ /^\s*-\s*[0-9]?/ ) {
3045 if ( $input =~ /[0-9]+\s*$/ ) {
3046 $rem_num = $input;
3047 $rem_num =~ s/^\s*-\s*//g;
3048 $rem_num =~ s/\s*$//;
3049 } else {
3050 $rem_num = $#icon_theme_name;
3051 }
3052 if ( $rem_num == $icon_theme_def ) {
3053 print "You cannot remove the default icon theme!\n";
3054 } elsif ( $rem_num == $icon_theme_fallback ) {
3055 print "You cannot remove the fallback icon theme!\n";
3056 } else {
3057 $count = 0;
3058 @new_theme_name = ();
3059 @new_theme_path = ();
3060 while ( $count <= $#icon_theme_name ) {
3061 if ( $count != $rem_num ) {
3062 @new_theme_name = ( @new_theme_name, $icon_theme_name[$count] );
3063 @new_theme_path = ( @new_theme_path, $icon_theme_path[$count] );
3064 }
3065 $count++;
3066 }
3067 @icon_theme_name = @new_theme_name;
3068 @icon_theme_path = @new_theme_path;
3069 if ( $icon_theme_def > $rem_num ) {
3070 $icon_theme_def--;
3071 }
3072 }
3073 } elsif ( $input =~ /^\s*t\s*/i ) {
3074 print "\nStarting detection...\n\n";
3075
3076 opendir( DIR, "../images/themes/" );
3077 @files = sort(readdir(DIR));
3078 $cnt = 0;
3079 while ( $cnt <= $#files ) {
3080 $filename = "../images/themes/" . $files[$cnt] .'/';
3081 if ( -d "../images/themes/" . $files[$cnt] && $files[$cnt] !~ /^\./ && $files[$cnt] ne ".svn" ) {
3082 $found = 0;
3083 for ( $x = 0 ; $x <= $#icon_theme_path ; $x++ ) {
3084 if ( $icon_theme_path[$x] eq $filename ) {
3085 $found = 1;
3086 }
3087 }
3088 if ( $found != 1 ) {
3089 print "** Found icon theme: $filename\n";
3090 $def = $files[$cnt];
3091 $def =~ s/_/ /g;
3092 $def = lc($def);
3093 #$def =~ s/(^\w+)/ucfirst $1/eg;
3094 #$def =~ s/(\s+)(\w+)/$1 . ucfirst $2/eg;
3095 $def =~ s/(^\w+)|(\s+)(\w+)/ucfirst $1 . $2 . ucfirst $3/eg;
3096 print " What is its name? [$def]: ";
3097 $nm = <STDIN>;
3098 $nm =~ s/^\s+|\s+$|[\n\r]//g;
3099 if ( $nm eq '' ) { $nm = $def; }
3100 $icon_theme_name[ $#icon_theme_name + 1 ] = $nm;
3101 $icon_theme_path[ $#icon_theme_path + 1 ] = $filename;
3102 }
3103 }
3104 $cnt++;
3105 }
3106 print "\n";
3107 for ( $cnt = 0 ; $cnt <= $#icon_theme_path ; $cnt++ ) {
3108 $filename = $icon_theme_path[$cnt];
3109 if ( $filename ne "none" && $filename ne "template" && ! -d $filename ) {
3110 print " Removing $filename (file not found)\n";
3111 $offset = 0;
3112 @new_icon_theme_name = ();
3113 @new_icon_theme_path = ();
3114 for ( $x = 0 ; $x < $#icon_theme_path ; $x++ ) {
3115 if ( $icon_theme_path[$x] eq $filename ) {
3116 $offset = 1;
3117 }
3118 if ( $offset == 1 ) {
3119 $new_icon_theme_name[$x] = $icon_theme_name[ $x + 1 ];
3120 $new_icon_theme_path[$x] = $icon_theme_path[ $x + 1 ];
3121 } else {
3122 $new_icon_theme_name[$x] = $icon_theme_name[$x];
3123 $new_icon_theme_path[$x] = $icon_theme_path[$x];
3124 }
3125 }
3126 @icon_theme_name = @new_icon_theme_name;
3127 @icon_theme_path = @new_icon_theme_path;
3128 }
3129 }
3130 print "\nDetection complete!\n\n";
3131
3132 closedir DIR;
3133 } elsif ( $input =~ /^\s*\?\s*/ ) {
3134 print ".------------------------------------.\n";
3135 print "| t (detect icon themes) |\n";
3136 print "| + (add icon theme) |\n";
3137 print "| - N (remove icon theme) |\n";
3138 print "| m N (mark default icon theme) |\n";
3139 print "| f N (set fallback icon set) |\n";
3140 print "| l (list icon themes) |\n";
3141 print "| d (done) |\n";
3142 print "`------------------------------------'\n";
3143 }
3144 print "[icon_themes] command (?=help) > ";
3145 $input = <STDIN>;
3146 $input =~ s/[\r\n]//g;
3147 }
3148 }
3149
3150 sub command_templates {
3151 print "\nDefine the template sets (skins) that you wish to use. If you have added\n";
3152 print "a template set of your own, just follow the instructions (?) about\n";
3153 print "how to add them. You can also change the default template.\n";
3154
3155 print "\n Available Templates:\n";
3156
3157 $count = 0;
3158 while ( $count <= $#templateset_name ) {
3159 if ( $templateset_id[$count] eq $templateset_default ) {
3160 print " d";
3161 } else {
3162 print " ";
3163 }
3164 if ( $templateset_id[$count] eq $templateset_fallback ) {
3165 print "f";
3166 } else {
3167 print " ";
3168 }
3169 if ( $templateset_id[$count] eq $rpc_templateset ) {
3170 print "r ";
3171 } else {
3172 print " ";
3173 }
3174 if ( $count < 10 ) {
3175 print " ";
3176 }
3177 if ( $count < 100 ) {
3178 print " ";
3179 }
3180 $name = $templateset_name[$count];
3181
3182 # present RPC template sets differently
3183 #
3184 if ( $templateset_id[$count] =~ /_rpc$/ ) {
3185 $name = $name . " (not shown in user interface; used for RPC interface only)";
3186 } else {
3187
3188 $num_spaces = 35 - length($name);
3189 for ( $i = 0 ; $i < $num_spaces ; $i++ ) {
3190 $name = $name . " ";
3191 }
3192 $name = $name . "($templateset_id[$count])";
3193
3194 }
3195
3196 print " $count. $name\n";
3197
3198 $count++;
3199 }
3200 print "\n d = default template set\n"
3201 . " f = fallback template set\n"
3202 . " r = RPC template set\n\n";
3203
3204 $menu_text = ".-------------------------------------.\n"
3205 . "| t (detect template set) |\n"
3206 . "| + (add template set) |\n"
3207 . "| - N (remove template set) |\n"
3208 . "| m N (mark default template set) |\n"
3209 . "| f N (set fallback template set) |\n"
3210 . "| r N (set RPC template set) |\n"
3211 . "| l (list template sets/skins) |\n"
3212 . "| d (done) |\n"
3213 . "|-------------------------------------|\n"
3214 . "| where N is a template set number |\n"
3215 . "`-------------------------------------'\n";
3216 print "\n";
3217 print $menu_text;
3218 print "\n[template set] command (?=help) > ";
3219
3220 $input = <STDIN>;
3221 $input =~ s/[\r\n]//g;
3222 while ( $input ne "d" ) {
3223
3224 # list template sets
3225 #
3226 if ( $input =~ /^\s*l\s*/i ) {
3227 $count = 0;
3228 while ( $count <= $#templateset_name ) {
3229 if ( $templateset_id[$count] eq $templateset_default ) {
3230 print " d";
3231 } else {
3232 print " ";
3233 }
3234 if ( $templateset_id[$count] eq $templateset_fallback ) {
3235 print "f";
3236 } else {
3237 print " ";
3238 }
3239 if ( $templateset_id[$count] eq $rpc_templateset ) {
3240 print "r ";
3241 } else {
3242 print " ";
3243 }
3244 if ( $count < 10 ) {
3245 print " ";
3246 }
3247 if ( $count < 100 ) {
3248 print " ";
3249 }
3250 $name = $templateset_name[$count];
3251
3252 # present RPC template sets differently
3253 #
3254 if ( $templateset_id[$count] =~ /_rpc$/ ) {
3255 $name = $name . " (not shown in user interface; used for RPC interface only)";
3256 } else {
3257
3258 $num_spaces = 35 - length($name);
3259 for ( $i = 0 ; $i < $num_spaces ; $i++ ) {
3260 $name = $name . " ";
3261 }
3262 $name = $name . "($templateset_id[$count])";
3263
3264 }
3265
3266 print " $count. $name\n";
3267
3268 $count++;
3269 }
3270 print "\n d = default template set\n"
3271 . " f = fallback template set\n"
3272 . " r = RPC template set\n\n";
3273
3274 # mark default template set
3275 #
3276 } elsif ( $input =~ /^\s*m\s*[0-9]+/i ) {
3277 $old_def = $templateset_default;
3278 $input =~ s/^\s*m\s*//;
3279 $templateset_default = $templateset_id[$input];
3280 if ( $templateset_default =~ /^\s*$/ ) {
3281 print "Cannot set default template set to $input. That template set does not exist.\n";
3282 $templateset_default = $old_def;
3283 }
3284 if ( $templateset_default =~ /_rpc$/ ) {
3285 print "Cannot set default template set to $input. That template set is intended for the RPC interface only.\n";
3286 $templateset_default = $old_def;
3287 }
3288
3289 # set fallback template set
3290 #
3291 } elsif ( $input =~ /^\s*f\s*[0-9]+/i ) {
3292 $old_def = $templateset_fallback;
3293 $input =~ s/^\s*f\s*//;
3294 $templateset_fallback = $templateset_id[$input];
3295 if ( $templateset_fallback =~ /^\s*$/ ) {
3296 print "Cannot set fallback template set to $input. That template set does not exist.\n";
3297 $templateset_fallback = $old_def;
3298 }
3299 if ( $templateset_fallback =~ /_rpc$/ ) {
3300 print "Cannot set fallback template set to $input. That template set is intended for the RPC interface only.\n";
3301 $templateset_fallback = $old_def;
3302 }
3303
3304 # set RPC template set
3305 #
3306 } elsif ( $input =~ /^\s*r\s*[0-9]+/i ) {
3307 $old_def = $rpc_templateset;
3308 $input =~ s/^\s*r\s*//;
3309 $rpc_templateset = $templateset_id[$input];
3310 if ( $rpc_templateset =~ /^\s*$/ ) {
3311 print "Cannot set RPC template set to $input. That template set does not exist.\n";
3312 $rpc_templateset = $old_def;
3313 }
3314 if ( $rpc_templateset !~ /_rpc$/ ) {
3315 print "Cannot set fallback template set to $input. That template set is not intended for the RPC interface.\n";
3316 $rpc_templateset = $old_def;
3317 }
3318
3319 # add template set
3320 #
3321 } elsif ( $input =~ /^\s*\+/ ) {
3322 print "\nWhat is the name of this template (as shown to your users): ";
3323 $name = <STDIN>;
3324 $name =~ s/[\r\n]//g;
3325 $templateset_name[ $#templateset_name + 1 ] = $name;
3326 print "\n\nThe directory name should not contain any path information\n"
3327 . "or slashes, and should be the name of the directory that the\n"
3328 . "template set is found in within the SquirrelMail templates\n"
3329 . "directory.\n\n";
3330 print "What directory is this stored in (ex: default_advanced): ";
3331 $name = <STDIN>;
3332 $name =~ s/[\r\n]//g;
3333 $templateset_id[ $#templateset_id + 1 ] = $name;
3334
3335 # detect template sets
3336 #
3337 } elsif ( $input =~ /^\s*t\s*/i ) {
3338 print "\nStarting detection...\n\n";
3339 opendir( DIR, "../templates" );
3340 @files = sort(readdir(DIR));
3341 $cnt = 0;
3342 while ( $cnt <= $#files ) {
3343 if ( -d "../templates/" . $files[$cnt] && $files[$cnt] !~ /^\./ && $files[$cnt] ne ".svn" ) {
3344 $filename = $files[$cnt];
3345 $found = 0;
3346 for ( $x = 0 ; $x <= $#templateset_id ; $x++ ) {
3347 if ( $templateset_id[$x] eq $filename ) {
3348 $found = 1;
3349 last;
3350 }
3351 }
3352 if ( $found != 1) {
3353 print "** Found template set: $filename\n";
3354 $def = $files[$cnt];
3355
3356 # no user-friendly names needed for RPC template sets
3357 #
3358 if ( $def =~ /_rpc$/ ) {
3359 $nm = $def;
3360 } else {
3361 $def = lc($def);
3362 $def =~ s/_/ /g;
3363 #$def =~ s/(^\w+)/ucfirst $1/eg;
3364 #$def =~ s/(\s+)(\w+)/$1 . ucfirst $2/eg;
3365 $def =~ s/(^\w+)|(\s+)(\w+)/ucfirst $1 . $2 . ucfirst $3/eg;
3366 print " What is it's name (as shown to your users)? [$def]: ";
3367 $nm = <STDIN>;
3368 $nm =~ s/^\s+|\s+$|[\n\r]//g;
3369 if ( $nm eq '' ) { $nm = $def; }
3370 }
3371 $templateset_id[ $#templateset_id + 1 ] = $filename;
3372 $templateset_name[ $#templateset_name + 1 ] = $nm;
3373 }
3374 }
3375 $cnt++;
3376 }
3377 print "\n";
3378 for ( $cnt= 0 ; $cnt <= $#templateset_id ; ) {
3379 $filename = $templateset_id[$cnt];
3380 if ( !(-d change_to_rel_path('SM_PATH . \'templates/' . $filename)) ) {
3381 print " Removing \"$filename\" (template set directory not found)\n";
3382 if ( $templateset_default eq $filename ) { $templateset_default = 'default'; }
3383 if ( $templateset_fallback eq $filename ) { $templateset_fallback = 'default'; }
3384 if ( $rpc_templateset eq $filename ) { $rpc_templateset = 'default_rpc'; }
3385 $offset = 0;
3386 @new_templateset_name = ();
3387 @new_templateset_id = ();
3388 for ( $x = 0 ; $x < $#templateset_id ; $x++ ) {
3389 if ( $templateset_id[$x] eq $filename ) {
3390 $offset = 1;
3391 }
3392 if ( $offset == 1 ) {
3393 $new_templateset_name[$x] = $templateset_name[ $x + 1 ];
3394 $new_templateset_id[$x] = $templateset_id[ $x + 1 ];
3395 } else {
3396 $new_templateset_name[$x] = $templateset_name[$x];
3397 $new_templateset_id[$x] = $templateset_id[$x];
3398 }
3399 }
3400 @templateset_name = @new_templateset_name;
3401 @templateset_id = @new_templateset_id;
3402 } else { $cnt++; }
3403 }
3404 print "\nDetection complete!\n\n";
3405
3406 closedir DIR;
3407
3408 # remove template set
3409 #
3410 # undocumented functionality of removing last template set isn't that great
3411 #} elsif ( $input =~ /^\s*-\s*[0-9]?/ ) {
3412 } elsif ( $input =~ /^\s*-\s*[0-9]+/ ) {
3413 if ( $input =~ /[0-9]+\s*$/ ) {
3414 $rem_num = $input;
3415 $rem_num =~ s/^\s*-\s*//g;
3416 $rem_num =~ s/\s*$//;
3417 } else {
3418 $rem_num = $#templateset_name;
3419 }
3420 if ( $templateset_id[$rem_num] eq $templateset_default ) {
3421 print "You cannot remove the default template set!\n";
3422 } elsif ( $templateset_id[$rem_num] eq $templateset_fallback ) {
3423 print "You cannot remove the fallback template set!\n";
3424 } elsif ( $templateset_id[$rem_num] eq $rpc_templateset ) {
3425 print "You cannot remove the RPC template set!\n";
3426 } else {
3427 $count = 0;
3428 @new_templateset_name = ();
3429 @new_templateset_id = ();
3430 while ( $count <= $#templateset_name ) {
3431 if ( $count != $rem_num ) {
3432 @new_templateset_name = ( @new_templateset_name, $templateset_name[$count] );
3433 @new_templateset_id = ( @new_templateset_id, $templateset_id[$count] );
3434 }
3435 $count++;
3436 }
3437 @templateset_name = @new_templateset_name;
3438 @templateset_id = @new_templateset_id;
3439 }
3440
3441 # help
3442 #
3443 } elsif ( $input =~ /^\s*\?\s*/ ) {
3444 print $menu_text;
3445
3446 # command not understood
3447 #
3448 } else {
3449 print "Command not understood\n";
3450 }
3451
3452 print "[template set] command (?=help) > ";
3453 $input = <STDIN>;
3454 $input =~ s/[\r\n]//g;
3455 }
3456 return $templateset_default;
3457 }
3458
3459
3460 # sets default font size option
3461 sub command_default_fontsize {
3462 print "Enter default font size [$WHT$$default_fontsize$NRM]: $WHT";
3463 $new_size = <STDIN>;
3464 if ( $new_size eq "\n" ) {
3465 $new_size = $size;
3466 } else {
3467 $new_size =~ s/[\r\n]//g;
3468 }
3469 return $new_size;
3470 }
3471
3472 # controls available fontsets
3473 sub command_fontsets {
3474 # Greeting
3475 print "You can control fontsets available to end users here.\n";
3476 # set initial $input value
3477 $input = 'l';
3478 while ( $input ne "x" ) {
3479 if ( $input =~ /^\s*a\s*/i ) {
3480 # add new fontset
3481 print "\nFontset name: ";
3482 $name = <STDIN>;
3483 if (! $fontsets{trim($name)}) {
3484 print "Fontset string: ";
3485 $value = <STDIN>;
3486 $fontsets{trim($name)} = trim($value);
3487 } else {
3488 print "\nERROR: Such fontset already exists.\n";
3489 }
3490 } elsif ( $input =~ /^\s*e\s*/i ) {
3491 # edit existing fontset
3492 print "\nFontset name: ";
3493 $name = <STDIN>;
3494 if (! $fontsets{trim($name)}) {
3495 print "\nERROR: No such fontset.\n";
3496 } else {
3497 print "Fontset string [$fontsets{trim($name)}]: ";
3498 $value = <STDIN>;
3499 $fontsets{trim($name)} = trim($value);
3500 }
3501 } elsif ( $input =~ /^\s*d\s*/ ) {
3502 # delete existing fontset
3503 print "\nFontset name: ";
3504 $name = <STDIN>;
3505 if (! $fontsets{trim($name)}) {
3506 print "\nERROR: No such fontset.\n";
3507 } else {
3508 delete $fontsets{trim($name)};
3509 }
3510 } elsif ( $input =~ /^\s*l\s*/ ) {
3511 # list fontsets
3512 print "\nConfigured fontsets:\n";
3513 while (($fontset_name, $fontset_string) = each(%fontsets)) {
3514 print " $fontset_name = $fontset_string\n";
3515 }
3516 print "Default fontset: $default_fontset\n";
3517 } elsif ( $input =~ /^\s*m\s*/ ) {
3518 # set default fontset
3519 print "\nSet default fontset [$default_fontset]: ";
3520 $name = <STDIN>;
3521 if (trim($name) ne '' and ! $fontsets{trim($name)}) {
3522 print "\nERROR: No such fontset.\n";
3523 } else {
3524 $default_fontset = trim($name);
3525 }
3526 } else {
3527 # print available commands on any other input
3528 print "\nAvailable commands:\n";
3529 print " a - Adds new fontset.\n";
3530 print " d - Deletes existing fontset.\n";
3531 print " e - Edits existing fontset.\n";
3532 print " h or ? - Shows this help screen.\n";
3533 print " l - Lists available fontsets.\n";
3534 print " m - Sets default fontset.\n";
3535 print " x - Exits fontset editor mode.\n";
3536 }
3537 print "\nCommand [fontsets] (a,d,e,h,?=help,l,m,x)> ";
3538 $input = <STDIN>;
3539 $input =~ s/[\r\n]//g;
3540 }
3541 }
3542
3543 sub command61 {
3544 print "You can now define different LDAP servers.\n";
3545 print "Please ensure proper permissions for config.php when including\n";
3546 print "sensitive passwords.\n\n";
3547 print "[ldap] command (?=help) > ";
3548 $input = <STDIN>;
3549 $input =~ s/[\r\n]//g;
3550 while ( $input ne "d" ) {
3551 if ( $input =~ /^\s*l\s*/i ) {
3552 $count = 0;
3553 while ( $count <= $#ldap_host ) {
3554 print "$count. $ldap_host[$count]\n";
3555 print " base: $ldap_base[$count]\n";
3556 if ( $ldap_charset[$count] ) {
3557 print " charset: $ldap_charset[$count]\n";
3558 }
3559 if ( $ldap_port[$count] ) {
3560 print " port: $ldap_port[$count]\n";
3561 }
3562 if ( $ldap_name[$count] ) {
3563 print " name: $ldap_name[$count]\n";
3564 }
3565 if ( $ldap_maxrows[$count] ) {
3566 print " maxrows: $ldap_maxrows[$count]\n";
3567 }
3568 if ( $ldap_filter[$count] ) {
3569 print " filter: $ldap_filter[$count]\n";
3570 }
3571 if ( $ldap_binddn[$count] ) {
3572 print " binddn: $ldap_binddn[$count]\n";
3573 if ( $ldap_bindpw[$count] ) {
3574 print " bindpw: $ldap_bindpw[$count]\n";
3575 }
3576 }
3577 if ( $ldap_protocol[$count] ) {
3578 print " protocol: $ldap_protocol[$count]\n";
3579 }
3580 if ( $ldap_limit_scope[$count] ) {
3581 print " limit_scope: $ldap_limit_scope[$count]\n";
3582 }
3583 if ( $ldap_listing[$count] ) {
3584 print " listing: $ldap_listing[$count]\n";
3585 }
3586 if ( $ldap_writeable[$count] ) {
3587 print " writeable: $ldap_writeable[$count]\n";
3588 }
3589 if ( $ldap_search_tree[$count] ) {
3590 print " search_tree: $ldap_search_tree[$count]\n";
3591 }
3592 if ( $ldap_starttls[$count] ) {
3593 print " starttls: $ldap_starttls[$count]\n";
3594 }
3595
3596 print "\n";
3597 $count++;
3598 }
3599 } elsif ( $input =~ /^\s*\+/ ) {
3600 $sub = $#ldap_host + 1;
3601
3602 print "First, we need to have the hostname or the IP address where\n";
3603 print "this LDAP server resides. Example: ldap.bigfoot.com\n";
3604 print "\n";
3605 print "You can use any URI compatible with your LDAP library. Please\n";
3606 print "note that StartTLS option is not compatible with ldaps and\n";
3607 print "ldapi URIs.\n";
3608 print "hostname: ";
3609 $name = <STDIN>;
3610 $name =~ s/[\r\n]//g;
3611 $ldap_host[$sub] = $name;
3612
3613 print "\n";
3614
3615 print "Next, we need the server root (base dn). For this, an empty\n";
3616 print "string is allowed.\n";
3617 print "Example: ou=member_directory,o=netcenter.com\n";
3618 print "base: ";
3619 $name = <STDIN>;
3620 $name =~ s/[\r\n]//g;
3621 $ldap_base[$sub] = $name;
3622
3623 print "\n";
3624
3625 print "This is the TCP/IP port number for the LDAP server. Default\n";
3626 print "port is 389. This is optional. Press ENTER for default.\n";
3627 print "port: ";
3628 $name = <STDIN>;
3629 $name =~ s/[\r\n]//g;
3630 $ldap_port[$sub] = $name;
3631
3632 print "\n";
3633
3634 print "This is the charset for the server. Default is utf-8. This\n";
3635 print "is also optional. Press ENTER for default.\n";
3636 print "charset: ";
3637 $name = <STDIN>;
3638 $name =~ s/[\r\n]//g;
3639 $ldap_charset[$sub] = $name;
3640
3641 print "\n";
3642
3643 print "This is the name for the server, used to tag the results of\n";
3644 print "the search. Default it \"LDAP: hostname\". Press ENTER for default\n";
3645 print "name: ";
3646 $name = <STDIN>;
3647 $name =~ s/[\r\n]//g;
3648 $ldap_name[$sub] = $name;
3649
3650 print "\n";
3651
3652 print "You can specify the maximum number of rows in the search result.\n";
3653 print "Default value is equal to 250 rows. Press ENTER for default.\n";
3654 print "maxrows: ";
3655 $name = <STDIN>;
3656 $name =~ s/[\r\n]//g;
3657 $ldap_maxrows[$sub] = $name;
3658
3659
3660 print "\n";
3661
3662 print "If your LDAP server does not like anonymous logins, you can specify bind DN.\n";
3663 print "Default is none, anonymous bind. Press ENTER for default.\n";
3664 print "binddn: ";
3665 $name = <STDIN>;
3666 $name =~ s/[\r\n]//g;
3667 $ldap_binddn[$sub] = $name;
3668
3669 print "\n";
3670
3671 if ( $ldap_binddn[$sub] ne '' ) {
3672
3673 print "Now, please specify password for that DN.\n";
3674 print "bindpw: ";
3675 $name = <STDIN>;
3676 $name =~ s/[\r\n]//g;
3677 $ldap_bindpw[$sub] = $name;
3678
3679 print "\n";
3680 }
3681
3682 print "You can specify bind protocol version here.\n";
3683 print "Default protocol version depends on your php ldap settings.\n";
3684 print "Press ENTER for default.\n";
3685 print "protocol: ";
3686 $name = <STDIN>;
3687 $name =~ s/[\r\n]//g;
3688 $ldap_protocol[$sub] = $name;
3689
3690 print "\n";
3691
3692 print "This configuration section allows to set some rarely used\n";
3693 print "options and options specific to some LDAP implementations.\n";
3694 print "\n";
3695 print "Do you want to set advanced LDAP directory settings? (y/N):";
3696 $ldap_advanced_settings = <STDIN>;
3697 if ( $ldap_advanced_settings =~ /^y\n/i ) {
3698 $ldap_advanced_settings = 'true';
3699 } else {
3700 $ldap_advanced_settings = 'false';
3701 }
3702
3703 if ($ldap_advanced_settings eq 'true') {
3704 print "\n";
3705
3706 print "You can control LDAP directory listing here. This option can\n";
3707 print "be useful if you run small LDAP server and want to provide listing\n";
3708 print "of all addresses stored in LDAP to users of webmail interface.\n";
3709 print "Number of displayed entries is limited by maxrows setting.\n";
3710 print "\n";
3711 print "Don't enable this option for public LDAP directories.\n";
3712 print "\n";
3713 print "Allow listing of LDAP directory? (y/N):";
3714 $name = <STDIN>;
3715 if ( $name =~ /^y\n/i ) {
3716 $name = 'true';
3717 } else {
3718 $name = 'false';
3719 }
3720 $ldap_listing[$sub] = $name;
3721
3722 print "\n";
3723
3724 print "You can control write access to LDAP address book here. This option can\n";
3725 print "be useful if you run small LDAP server and want to provide writable\n";
3726 print "shared address book stored in LDAP to users of webmail interface.\n";
3727 print "\n";
3728 print "Don't enable this option for public LDAP directories.\n";
3729 print "\n";
3730 print "Allow writing to LDAP directory? (y/N):";
3731 $name = <STDIN>;
3732 if ( $name =~ /^y\n/i ) {
3733 $name = 'true';
3734 } else {
3735 $name = 'false';
3736 }
3737 $ldap_writeable[$sub] = $name;
3738
3739 print "\n";
3740
3741 print "You can specify an additional search filter.\n";
3742 print "This could be something like \"(objectclass=posixAccount)\".\n";
3743 print "No filtering is performed by default. Press ENTER for default.\n";
3744 print "filter: ";
3745 $name = <STDIN>;
3746 $name =~ s/[\r|\n]//g;
3747 $ldap_filter[$sub] = $name;
3748
3749 print "\n";
3750
3751 print "You can control search scope here.\n";
3752 print "This option is specific to Microsoft ADS implementation.\n";
3753 print "It requires use of v3 or newer LDAP protocol.\n";
3754 print "Don't enable it, if you use other LDAP server.\n";
3755 print "\n";
3756 print "Limit ldap scope? (y/N):";
3757 $name = <STDIN>;
3758 if ( $name =~ /^y\n/i ) {
3759 $name = 'true';
3760 } else {
3761 $name = 'false';
3762 }
3763 $ldap_limit_scope[$sub] = $name;
3764
3765 print "\n";
3766
3767 print "You can control ldap search type here.\n";
3768 print "Addresses can be searched in entire LDAP subtree (default)\n";
3769 print "or only first level entries are returned.\n";
3770 print "\n";
3771 print "Search entire LDAP subtree? (Y/n):";
3772 $name = <STDIN>;
3773 if ( $name =~ /^n\n/i ) {
3774 $name = 'false';
3775 } else {
3776 $name = 'true';
3777 }
3778 $ldap_search_tree[$sub] = $name;
3779
3780 print "\n";
3781
3782 print "You can control use of StartTLS on LDAP connection here.\n";
3783 print "This option requires use of v3 or newer LDAP protocol and php 4.2+.\n";
3784 print "\n";
3785 print "Use StartTLS? (y/N):";
3786 $name = <STDIN>;
3787 if ( $name =~ /^y\n/i ) {
3788 $name = 'true';
3789 } else {
3790 $name = 'false';
3791 }
3792 $ldap_starttls[$sub] = $name;
3793 }
3794 print "\n";
3795
3796 } elsif ( $input =~ /^\s*-\s*[0-9]?/ ) {
3797 if ( $input =~ /[0-9]+\s*$/ ) {
3798 $rem_num = $input;
3799 $rem_num =~ s/^\s*-\s*//g;
3800 $rem_num =~ s/\s*$//;
3801 } else {
3802 $rem_num = $#ldap_host;
3803 }
3804 $count = 0;
3805 @new_ldap_host = ();
3806 @new_ldap_base = ();
3807 @new_ldap_port = ();
3808 @new_ldap_name = ();
3809 @new_ldap_charset = ();
3810 @new_ldap_maxrows = ();
3811 @new_ldap_filter = ();
3812 @new_ldap_bindpw = ();
3813 @new_ldap_binddn = ();
3814 @new_ldap_protocol = ();
3815 @new_ldap_limit_scope = ();
3816 @new_ldap_listing = ();
3817 @new_ldap_writeable = ();
3818 @new_ldap_search_tree = ();
3819 @new_ldap_starttls = ();
3820
3821 while ( $count <= $#ldap_host ) {
3822 if ( $count != $rem_num ) {
3823 @new_ldap_host = ( @new_ldap_host, $ldap_host[$count] );
3824 @new_ldap_base = ( @new_ldap_base, $ldap_base[$count] );
3825 @new_ldap_port = ( @new_ldap_port, $ldap_port[$count] );
3826 @new_ldap_name = ( @new_ldap_name, $ldap_name[$count] );
3827 @new_ldap_charset = ( @new_ldap_charset, $ldap_charset[$count] );
3828 @new_ldap_maxrows = ( @new_ldap_maxrows, $ldap_maxrows[$count] );
3829 @new_ldap_filter = ( @new_ldap_filter, $ldap_filter[$count] );
3830 @new_ldap_binddn = ( @new_ldap_binddn, $ldap_binddn[$count] );
3831 @new_ldap_bindpw = ( @new_ldap_bindpw, $ldap_bindpw[$count] );
3832 @new_ldap_protocol = ( @new_ldap_protocol, $ldap_protocol[$count] );
3833 @new_ldap_limit_scope = ( @new_ldap_limit_scope, $ldap_limit_scope[$count] );
3834 @new_ldap_listing = ( @new_ldap_listing, $ldap_listing[$count] );
3835 @new_ldap_writeable = ( @new_ldap_writeable, $ldap_writeable[$count] );
3836 @new_ldap_search_tree = ( @new_ldap_search_tree, $ldap_search_tree[$count] );
3837 @new_ldap_starttls = ( @new_ldap_starttls, $ldap_starttls[$count] );
3838 }
3839 $count++;
3840 }
3841 @ldap_host = @new_ldap_host;
3842 @ldap_base = @new_ldap_base;
3843 @ldap_port = @new_ldap_port;
3844 @ldap_name = @new_ldap_name;
3845 @ldap_charset = @new_ldap_charset;
3846 @ldap_maxrows = @new_ldap_maxrows;
3847 @ldap_filter = @new_ldap_filter;
3848 @ldap_binddn = @new_ldap_binddn;
3849 @ldap_bindpw = @new_ldap_bindpw;
3850 @ldap_protocol = @new_ldap_protocol;
3851 @ldap_limit_scope = @new_ldap_limit_scope;
3852 @ldap_listing = @new_ldap_listing;
3853 @ldap_writeable = @new_ldap_writeable;
3854 @ldap_search_tree = @new_ldap_search_tree;
3855 @ldap_starttls = @new_ldap_starttls;
3856
3857 } elsif ( $input =~ /^\s*\?\s*/ ) {
3858 print ".-------------------------.\n";
3859 print "| + (add host) |\n";
3860 print "| - N (remove host) |\n";
3861 print "| l (list hosts) |\n";
3862 print "| d (done) |\n";
3863 print "`-------------------------'\n";
3864 }
3865 print "[ldap] command (?=help) > ";
3866 $input = <STDIN>;
3867 $input =~ s/[\r\n]//g;
3868 }
3869 }
3870
3871 sub command62 {
3872 print "Some of our developers have come up with very good javascript interface\n";
3873 print "for searching through address books, however, our original goals said\n";
3874 print "that we would be 100% HTML. In order to make it possible to use their\n";
3875 print "interface, and yet stick with our goals, we have also written a plain\n";
3876 print "HTML version of the search. Here, you can choose which version to use.\n";
3877 print "\n";
3878 print "This is just the default value. It is also a user option that each\n";
3879 print "user can configure individually\n";
3880 print "\n";
3881
3882 if ( lc($default_use_javascript_addr_book) eq 'true' ) {
3883 $default_value = "y";
3884 } else {
3885 $default_use_javascript_addr_book = 'false';
3886 $default_value = "n";
3887 }
3888 print "Use javascript version by default (y/n) [$WHT$default_value$NRM]: $WHT";
3889 $new_show = <STDIN>;
3890 if ( ( $new_show =~ /^y\n/i ) || ( ( $new_show =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
3891 $default_use_javascript_addr_book = 'true';
3892 } else {
3893 $default_use_javascript_addr_book = 'false';
3894 }
3895 return $default_use_javascript_addr_book;
3896 }
3897
3898 # global filebased address book
3899 sub command63 {
3900 print "If you want to use global file address book, then you\n";
3901 print "must set this option to a valid value. If option does\n";
3902 print "not have path elements, system assumes that file is\n";
3903 print "stored in data directory. If relative path is set, it is\n";
3904 print "relative to main SquirrelMail directory. If value is empty,\n";
3905 print "address book is not enabled.\n";
3906 print "\n";
3907
3908 print "[$WHT$abook_global_file$NRM]: $WHT";
3909 $new_abook_global_file = <STDIN>;
3910 if ( $new_abook_global_file eq "\n" ) {
3911 $new_abook_global_file = $abook_global_file;
3912 } else {
3913 $new_abook_global_file =~ s/[\r\n]//g;
3914 }
3915 return $new_abook_global_file;
3916 }
3917
3918 # writing into global filebased abook control
3919 sub command64 {
3920 print "This setting controls writing into global file address\n";
3921 print "book options. Address book file must be writeable by\n";
3922 print "webserver's user, if you want to enable this option.\n";
3923 print "\n";
3924
3925 if ( lc($abook_global_file_writeable) eq 'true' ) {
3926 $default_value = "y";
3927 } else {
3928 $abook_global_file_writeable = 'false';
3929 $default_value = "n";
3930 }
3931 print "Allow writing into global file address book (y/n) [$WHT$default_value$NRM]: $WHT";
3932 $new_show = <STDIN>;
3933 if ( ( $new_show =~ /^y\n/i ) || ( ( $new_show =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
3934 $abook_global_file_writeable = 'true';
3935 } else {
3936 $abook_global_file_writeable = 'false';
3937 }
3938 return $abook_global_file_writeable;
3939 }
3940
3941 # listing of global filebased abook control
3942 sub command65 {
3943 print "This setting controls listing of global file address\n";
3944 print "book in addresses page.\n";
3945 print "\n";
3946
3947 if ( lc($abook_global_file_listing) eq 'true' ) {
3948 $default_value = "y";
3949 } else {
3950 $abook_global_file_listing = 'false';
3951 $default_value = "n";
3952 }
3953 print "Allow listing of global file address book (y/n) [$WHT$default_value$NRM]: $WHT";
3954 $new_show = <STDIN>;
3955 if ( ( $new_show =~ /^y\n/i ) || ( ( $new_show =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
3956 $abook_global_file_listing = 'true';
3957 } else {
3958 $abook_global_file_listing = 'false';
3959 }
3960 return $abook_global_file_listing;
3961 }
3962
3963 # controls $abook_file_line_length setting
3964 sub command_abook_file_line_length {
3965 print "This setting controls space allocated to file based address book records.\n";
3966 print "End users will be unable to save address book entry, if total entry size \n";
3967 print "(quoted address book fields + 4 delimiters + linefeed) exceeds allowed \n";
3968 print "address book length size.\n";
3969 print "\n";
3970 print "Same setting is applied to personal and global file based address books.\n";
3971 print "\n";
3972 print "It is strongly recommended to keep default setting value. Change it only\n";
3973 print "if you really want to store address book entries that are bigger than two\n";
3974 print "kilobytes (2048).\n";
3975 print "\n";
3976
3977 print "Enter allowed address book line length [$abook_file_line_length]: ";
3978 my $tmp = <STDIN>;
3979 $tmp = trim($tmp);
3980 # value is not modified, if user hits Enter or enters space
3981 if ($tmp ne '') {
3982 # make sure that input is numeric
3983 if ($tmp =~ /^\d+$/) {
3984 $abook_file_line_length = $tmp;
3985 } else {
3986 print "If you want to change this setting, you must enter number.\n";
3987 print "If you want to keep original setting - enter space.\n\n";
3988 print "Press Enter to continue...";
3989 $tmp = <STDIN>;
3990 }
3991 }
3992 }
3993
3994 sub command91 {
3995 print "If you want to store your users address book details in a database then\n";
3996 print "you need to set this DSN to a valid value. The format for this is:\n";
3997 print "mysql://user:pass\@hostname/dbname\n";
3998 print "Where mysql can be one of the databases PHP supports, the most common\n";
3999 print "of these are mysql, msql and pgsql.\n";
4000 print "Please ensure proper permissions for config.php when including\n";
4001 print "sensitive passwords.\n\n";
4002 print "If the DSN is left empty (hit space and then return) the database\n";
4003 print "related code for address books will not be used.\n";
4004 print "\n";
4005
4006 if ( $addrbook_dsn eq "" ) {
4007 $default_value = "Disabled";
4008 } else {
4009 $default_value = $addrbook_dsn;
4010 }
4011 print "[$WHT$addrbook_dsn$NRM]: $WHT";
4012 $new_dsn = <STDIN>;
4013 if ( $new_dsn eq "\n" ) {
4014 $new_dsn = "";
4015 } else {
4016 $new_dsn =~ s/[\r\n]//g;
4017 $new_dsn =~ s/^\s+$//g;
4018 }
4019 return $new_dsn;
4020 }
4021
4022 sub command92 {
4023 print "This is the name of the table you want to store the address book\n";
4024 print "data in, it defaults to 'address'\n";
4025 print "\n";
4026 print "[$WHT$addrbook_table$NRM]: $WHT";
4027 $new_table = <STDIN>;
4028 if ( $new_table eq "\n" ) {
4029 $new_table = $addrbook_table;
4030 } else {
4031 $new_table =~ s/[\r\n]//g;
4032 }
4033 return $new_table;
4034 }
4035
4036 sub command93 {
4037 print "If you want to store your users preferences in a database then\n";
4038 print "you need to set this DSN to a valid value. The format for this is:\n";
4039 print "mysql://user:pass\@hostname/dbname\n";
4040 print "Where mysql can be one of the databases PHP supports, the most common\n";
4041 print "of these are mysql, msql and pgsql.\n";
4042 print "Please ensure proper permissions for config.php when including\n";
4043 print "sensitive passwords.\n\n";
4044 print "If the DSN is left empty (hit space and then return) the database\n";
4045 print "related code for address books will not be used.\n";
4046 print "\n";
4047
4048 if ( $prefs_dsn eq "" ) {
4049 $default_value = "Disabled";
4050 } else {
4051 $default_value = $prefs_dsn;
4052 }
4053 print "[$WHT$prefs_dsn$NRM]: $WHT";
4054 $new_dsn = <STDIN>;
4055 if ( $new_dsn eq "\n" ) {
4056 $new_dsn = "";
4057 } else {
4058 $new_dsn =~ s/[\r\n]//g;
4059 $new_dsn =~ s/^\s+$//g;
4060 }
4061 return $new_dsn;
4062 }
4063
4064 sub command94 {
4065 print "This is the name of the table you want to store the preferences\n";
4066 print "data in, it defaults to 'userprefs'\n";
4067 print "\n";
4068 print "[$WHT$prefs_table$NRM]: $WHT";
4069 $new_table = <STDIN>;
4070 if ( $new_table eq "\n" ) {
4071 $new_table = $prefs_table;
4072 } else {
4073 $new_table =~ s/[\r\n]//g;
4074 }
4075 return $new_table;
4076 }
4077
4078 sub command95 {
4079 print "This is the name of the field in which you want to store the\n";
4080 print "username of the person the prefs are for. It default to 'user'\n";
4081 print "which clashes with a reserved keyword in PostgreSQL so this\n";
4082 print "will need to be changed for that database at least\n";
4083 print "\n";
4084 print "[$WHT$prefs_user_field$NRM]: $WHT";
4085 $new_field = <STDIN>;
4086 if ( $new_field eq "\n" ) {
4087 $new_field = $prefs_user_field;
4088 } else {
4089 $new_field =~ s/[\r\n]//g;
4090 }
4091 $prefs_user_size = db_pref_size($prefs_user_size);
4092 return $new_field;
4093 }
4094
4095 sub command96 {
4096 print "This is the name of the field in which you want to store the\n";
4097 print "preferences keyword. It defaults to 'prefkey'\n";
4098 print "\n";
4099 print "[$WHT$prefs_key_field$NRM]: $WHT";
4100 $new_field = <STDIN>;
4101 if ( $new_field eq "\n" ) {
4102 $new_field = $prefs_key_field;
4103 } else {
4104 $new_field =~ s/[\r\n]//g;
4105 }
4106 $prefs_key_size = db_pref_size($prefs_key_size);
4107 return $new_field;
4108 }
4109
4110 sub command97 {
4111 print "This is the name of the field in which you want to store the\n";
4112 print "preferences value. It defaults to 'prefval'\n";
4113 print "\n";
4114 print "[$WHT$prefs_val_field$NRM]: $WHT";
4115 $new_field = <STDIN>;
4116 if ( $new_field eq "\n" ) {
4117 $new_field = $prefs_val_field;
4118 } else {
4119 $new_field =~ s/[\r\n]//g;
4120 }
4121 $prefs_val_size = db_pref_size($prefs_val_size);
4122 return $new_field;
4123 }
4124
4125 # routine is used to set database field limits
4126 # it needs one argument
4127 sub db_pref_size() {
4128 my ($size) = $_[0];
4129 print "\nDatabase fields have size limits.\n";
4130 print "\n";
4131 print "What limit is set for this field? [$WHT$size$NRM]: $WHT";
4132 $new_size = <STDIN>;
4133 if ( $new_size eq "\n" ) {
4134 $new_size = $size;
4135 } else {
4136 $new_size =~ s/[\r\n]//g;
4137 }
4138 return $new_size;
4139 }
4140
4141 sub command98 {
4142 print "If you want to store your global address book in a database then\n";
4143 print "you need to set this DSN to a valid value. The format for this is:\n";
4144 print "mysql://user:pass\@hostname/dbname\n";
4145 print "Where mysql can be one of the databases PHP supports, the most common\n";
4146 print "of these are mysql, msql and pgsql.\n";
4147 print "Please ensure proper permissions for config.php when including\n";
4148 print "sensitive passwords.\n\n";
4149 print "If the DSN is left empty (hit space and then return) the database\n";
4150 print "related code for global SQL address book will not be used.\n";
4151 print "\n";
4152
4153 if ( $addrbook_global_dsn eq "" ) {
4154 $default_value = "Disabled";
4155 } else {
4156 $default_value = $addrbook_global_dsn;
4157 }
4158 print "[$WHT$addrbook_global_dsn$NRM]: $WHT";
4159 $new_dsn = <STDIN>;
4160 if ( $new_dsn eq "\n" ) {
4161 $new_dsn = "";
4162 } else {
4163 $new_dsn =~ s/[\r\n]//g;
4164 $new_dsn =~ s/^\s+$//g;
4165 }
4166 return $new_dsn;
4167 }
4168
4169 sub command99 {
4170 print "This is the name of the table you want to store the global address book\n";
4171 print "data in. Default table name is 'global_abook'. Address book uses same\n";
4172 print "database format as personal address book.\n";
4173 print "\n";
4174 print "[$WHT$addrbook_global_table$NRM]: $WHT";
4175 $new_table = <STDIN>;
4176 if ( $new_table eq "\n" ) {
4177 $new_table = $addrbook_global_table;
4178 } else {
4179 $new_table =~ s/[\r\n]//g;
4180 }
4181 return $new_table;
4182 }
4183
4184 sub command910 {
4185 print "This option controls users\' ability to add or modify records stored \n";
4186 print "in global address book\n";
4187
4188 if ( lc($addrbook_global_writeable) eq 'true' ) {
4189 $default_value = "y";
4190 } else {
4191 $default_value = "n";
4192 }
4193 print "Allow writing into global address book? (y/n) [$WHT$default_value$NRM]: $WHT";
4194 $addrbook_global_writeable = <STDIN>;
4195 if ( ( $addrbook_global_writeable =~ /^y\n/i ) || ( ( $addrbook_global_writeable =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
4196 $addrbook_global_writeable = 'true';
4197 } else {
4198 $addrbook_global_writeable = 'false';
4199 }
4200 return $addrbook_global_writeable;
4201 }
4202
4203 sub command911 {
4204 print "Enable this option if you want to see listing of addresses stored \n";
4205 print "in global address book\n";
4206
4207 if ( lc($addrbook_global_listing) eq 'true' ) {
4208 $default_value = "y";
4209 } else {
4210 $default_value = "n";
4211 }
4212 print "Allow listing of global address book? (y/n) [$WHT$default_value$NRM]: $WHT";
4213 $addrbook_global_listing = <STDIN>;
4214 if ( ( $addrbook_global_listing =~ /^y\n/i ) || ( ( $addrbook_global_listing =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
4215 $addrbook_global_listing = 'true';
4216 } else {
4217 $addrbook_global_listing = 'false';
4218 }
4219 return $addrbook_global_listing;
4220 }
4221
4222
4223 # Default language
4224 sub commandA1 {
4225 print "SquirrelMail attempts to set the language in many ways. If it\n";
4226 print "can not figure it out in another way, it will default to this\n";
4227 print "language. Please use the code for the desired language.\n";
4228 print "\n";
4229 print "[$WHT$squirrelmail_default_language$NRM]: $WHT";
4230 $new_squirrelmail_default_language = <STDIN>;
4231 if ( $new_squirrelmail_default_language eq "\n" ) {
4232 $new_squirrelmail_default_language = $squirrelmail_default_language;
4233 } else {
4234 $new_squirrelmail_default_language =~ s/[\r\n]//g;
4235 $new_squirrelmail_default_language =~ s/^\s+$//g;
4236 }
4237 return $new_squirrelmail_default_language;
4238 }
4239 # Default Charset
4240 sub commandA2 {
4241 print "This option controls what character set is used when sending\n";
4242 print "mail and when sending HTML to the browser. Option works only\n";
4243 print "with US English (en_US) translation. Other translations use\n";
4244 print "charsets that are set in translation settings.\n";
4245 print "\n";
4246
4247 print "[$WHT$default_charset$NRM]: $WHT";
4248 $new_default_charset = <STDIN>;
4249 if ( $new_default_charset eq "\n" ) {
4250 $new_default_charset = $default_charset;
4251 } else {
4252 $new_default_charset =~ s/[\r\n]//g;
4253 }
4254 return $new_default_charset;
4255 }
4256 # Alternative language names
4257 sub commandA3 {
4258 print "Enable this option if you want to see localized language names in\n";
4259 print "language selection box. Note, that this option can trigger\n";
4260 print "installation of foreign language support modules in some browsers.\n";
4261 print "\n";
4262
4263 if ( lc($show_alternative_names) eq 'true' ) {
4264 $default_value = "y";
4265 } else {
4266 $default_value = "n";
4267 }
4268 print "Show alternative language names? (y/n) [$WHT$default_value$NRM]: $WHT";
4269 $show_alternative_names = <STDIN>;
4270 if ( ( $show_alternative_names =~ /^y\n/i ) || ( ( $show_alternative_names =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
4271 $show_alternative_names = 'true';
4272 } else {
4273 $show_alternative_names = 'false';
4274 }
4275 return $show_alternative_names;
4276 }
4277
4278 # Aggressive decoding
4279 sub commandA4 {
4280 print "Enable this option if you want to use CPU and memory intensive decoding\n";
4281 print "functions. This option allows reading multibyte charset, that are used\n";
4282 print "in Eastern Asia. SquirrelMail will try to use recode functions here,\n";
4283 print "even when you have disabled use of recode in Tweaks section.\n";
4284 print "\n";
4285
4286 if ( lc($aggressive_decoding) eq 'true' ) {
4287 $default_value = "y";
4288 } else {
4289 $default_value = "n";
4290 }
4291 print "Enable aggressive decoding? (y/n) [$WHT$default_value$NRM]: $WHT";
4292 $aggressive_decoding = <STDIN>;
4293 if ( ( $aggressive_decoding =~ /^y\n/i ) || ( ( $aggressive_decoding =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
4294 $aggressive_decoding = 'true';
4295 } else {
4296 $aggressive_decoding = 'false';
4297 }
4298 return $aggressive_decoding;
4299 }
4300
4301 # Lossy encoding
4302 sub commandA5 {
4303 print "Enable this option if you want to allow lossy charset encoding in message\n";
4304 print "composition pages. This option allows charset conversions when output\n";
4305 print "charset does not support all symbols used in original charset. Symbols\n";
4306 print "unsupported by output charset will be replaced with question marks.\n";
4307 print "\n";
4308
4309 if ( lc($lossy_encoding) eq 'true' ) {
4310 $default_value = "y";
4311 } else {
4312 $default_value = "n";
4313 }
4314 print "Enable lossy encoding? (y/n) [$WHT$default_value$NRM]: $WHT";
4315 $lossy_encoding = <STDIN>;
4316 if ( ( $lossy_encoding =~ /^y\n/i ) || ( ( $lossy_encoding =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
4317 $lossy_encoding = 'true';
4318 } else {
4319 $lossy_encoding = 'false';
4320 }
4321 return $lossy_encoding;
4322 }
4323
4324 # display html emails in iframe
4325 sub commandB2 {
4326 print "This option can enable html email rendering inside iframe.\n";
4327 print "Inline frames are used in order to provide sandbox environment";
4328 print "for html code included in html formated emails.";
4329 print "Option is experimental and might have glitches in some parts of code.";
4330 print "\n";
4331
4332 if ( lc($use_iframe) eq 'true' ) {
4333 $default_value = "y";
4334 } else {
4335 $default_value = "n";
4336 }
4337 print "Display html emails in iframe? (y/n) [$WHT$default_value$NRM]: $WHT";
4338 $use_iframe = <STDIN>;
4339 if ( ( $use_iframe =~ /^y\n/i ) || ( ( $use_iframe =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
4340 $use_iframe = 'true';
4341 } else {
4342 $use_iframe = 'false';
4343 }
4344 return $use_iframe;
4345 }
4346
4347 # ask user info
4348 sub command_ask_user_info {
4349 print "New users need to supply their real name and email address to\n";
4350 print "send out proper mails. When this option is enabled, a user that\n";
4351 print "logs in for the first time will be redirected to the Personal\n";
4352 print "Options screen and asked to supply their personal data.\n";
4353 print "\n";
4354
4355 if ( lc($ask_user_info) eq 'true' ) {
4356 $default_value = "y";
4357 } else {
4358 $default_value = "n";
4359 }
4360 print "Ask user info? (y/n) [$WHT$default_value$NRM]: $WHT";
4361 $ask_user_info = <STDIN>;
4362 if ( ( $ask_user_info =~ /^y\n/i ) || ( ( $ask_user_info =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
4363 $ask_user_info = 'true';
4364 } else {
4365 $ask_user_info = 'false';
4366 }
4367 return $ask_user_info;
4368 }
4369
4370 # use icons
4371 sub commandB3 {
4372 print "Enabling this option will cause icons to be used instead of text\n";
4373 print "markers next to each message in mailbox lists that represent\n";
4374 print "new, read, flagged, and deleted messages, as well as those that\n";
4375 print "have been replied to and forwarded. Icons are also used next to\n";
4376 print "(un)expanded folders in the folder list (Oldway = false). These\n";
4377 print "icons are quite small, but will obviously be more of a resource\n";
4378 print "drain than text markers.\n";
4379 print "\n";
4380
4381 if ( lc($use_icons) eq 'true' ) {
4382 $default_value = "y";
4383 } else {
4384 $default_value = "n";
4385 }
4386 print "Use icons? (y/n) [$WHT$default_value$NRM]: $WHT";
4387 $use_icons = <STDIN>;
4388 if ( ( $use_icons =~ /^y\n/i ) || ( ( $use_icons =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
4389 $use_icons = 'true';
4390 } else {
4391 $use_icons = 'false';
4392 }
4393 return $use_icons;
4394 }
4395 # php recode
4396 sub commandB4 {
4397 print "Enable this option if you want to use php recode functions to read\n";
4398 print "emails written in charset that differs from the one that is set in\n";
4399 print "translation selected by user. Code is experimental, it might cause\n";
4400 print "errors, if email contains charset unsupported by recode or if your\n";
4401 print "php does not have recode support.\n";
4402 print "\n";
4403
4404 if ( lc($use_php_recode) eq 'true' ) {
4405 $default_value = "y";
4406 } else {
4407 $default_value = "n";
4408 }
4409 print "Use php recode functions? (y/n) [$WHT$default_value$NRM]: $WHT";
4410 $use_php_recode = <STDIN>;
4411 if ( ( $use_php_recode =~ /^y\n/i ) || ( ( $use_php_recode =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
4412 $use_php_recode = 'true';
4413 } else {
4414 $use_php_recode = 'false';
4415 }
4416 return $use_php_recode;
4417 }
4418 # php iconv
4419 sub commandB5 {
4420 print "Enable this option if you want to use php iconv functions to read\n";
4421 print "emails written in charset that differs from the one that is set in\n";
4422 print "translation selected by user. Code is experimental, it works only\n";
4423 print "with translations that use utf-8 charset. Code might cause errors,\n";
4424 print "if email contains charset unsupported by iconv or if your php does\n";
4425 print "not have iconv support.\n";
4426 print "\n";
4427
4428 if ( lc($use_php_iconv) eq 'true' ) {
4429 $default_value = "y";
4430 } else {
4431 $default_value = "n";
4432 }
4433 print "Use php iconv functions? (y/n) [$WHT$default_value$NRM]: $WHT";
4434 $use_php_iconv = <STDIN>;
4435 if ( ( $use_php_iconv =~ /^y\n/i ) || ( ( $use_php_iconv =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
4436 $use_php_iconv = 'true';
4437 } else {
4438 $use_php_iconv = 'false';
4439 }
4440 return $use_php_iconv;
4441 }
4442
4443 # configtest block
4444 sub commandB6 {
4445 print "Enable this option if you want to check SquirrelMail configuration\n";
4446 print "remotely with configtest.php script.\n";
4447 print "\n";
4448
4449 if ( lc($allow_remote_configtest) eq 'true' ) {
4450 $default_value = "y";
4451 } else {
4452 $default_value = "n";
4453 }
4454 print "Allow remote configuration tests? (y/n) [$WHT$default_value$NRM]: $WHT";
4455 $allow_remote_configtest = <STDIN>;
4456 if ( ( $allow_remote_configtest =~ /^y\n/i ) || ( ( $allow_remote_configtest =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
4457 $allow_remote_configtest = 'true';
4458 } else {
4459 $allow_remote_configtest = 'false';
4460 }
4461 return $allow_remote_configtest;
4462 }
4463
4464 # Default Icon theme
4465 sub commandB7 {
4466 print "You may change the path to the default icon theme to be used, if icons\n";
4467 print "have been enabled. This theme will be used when an icon cannot be\n";
4468 print "found in the current theme, or when no icon theme is specified. If\n";
4469 print "left blank, and icons are enabled, the default theme will be used\n";
4470 print "from images/themes/default/.\n";
4471 print "\n";
4472 print "To clear out an existing value, just type a space for the input.\n";
4473 print "\n";
4474 print "Please be aware of the following: \n";
4475 print " - Relative URLs are relative to the config dir\n";
4476 print " to use the icon themes directory, use ../images/themes/newtheme/\n";
4477 print " - The icon theme may be outside the SquirrelMail directory, but\n";
4478 print " it must be web accessible.\n";
4479 print "[$WHT$icon_theme_def$NRM]: $WHT";
4480 $new_icon_theme_def = <STDIN>;
4481
4482 if ( $new_icon_theme_def eq "\n" ) {
4483 $new_icon_theme_def = $icon_theme_def;
4484 } else {
4485 $new_icon_theme_def =~ s/[\r\n]//g;
4486 }
4487 $new_icon_theme_def =~ s/^\s*//;
4488 return $new_icon_theme_def;
4489 }
4490
4491 # SquirrelMail debug mode (since 1.5.2)
4492 sub commandB8 {
4493 print "When debugging or developing SquirrelMail, you may want to increase\n";
4494 print "the verbosity of certain kinds of errors, notices, and/or diagnostics.\n";
4495 print "You may enable one or more of the debugging modes here. Please make\n";
4496 print "sure that you have turned off debugging if you are using SquirrelMail\n";
4497 print "in a production environment.\n\n";
4498
4499 $input = "";
4500 while ( $input ne "d\n" ) {
4501 $sm_debug_mode = convert_debug_constants_to_binary_integer($sm_debug_mode);
4502
4503 # per include/constants.php, here are the debug mode values:
4504 #
4505 # 0 SM_DEBUG_MODE_OFF
4506 # 1 SM_DEBUG_MODE_SIMPLE
4507 # 512 SM_DEBUG_MODE_MODERATE
4508 # 524288 SM_DEBUG_MODE_ADVANCED
4509 # 536870912 SM_DEBUG_MODE_STRICT
4510 #
4511 print "\n# Enabled? Description\n";
4512 print "---------------------------------------------------------------------\n";
4513 print "0 " . ($sm_debug_mode == 0 ? "y" : " ")
4514 . " No debugging (recommended in production environments)\n";
4515 print "1 " . ($sm_debug_mode & 1 ? "y" : " ")
4516 . " Simple debugging (PHP E_ERROR)\n";
4517 print "2 " . ($sm_debug_mode & 512 ? "y" : " ")
4518 . " Moderate debugging (PHP E_ALL)\n";
4519 print "3 " . ($sm_debug_mode & 524288 ? "y" : " ")
4520 . " Advanced debugging (PHP E_ALL plus log errors\n";
4521 print " intentionally suppressed)\n";
4522 print "4 " . ($sm_debug_mode & 536870912 ? "y" : " ")
4523 . " Strict debugging (PHP E_STRICT)\n";
4524 print "\n";
4525
4526 print "SquirrelMail debug mode (0,1,2,3,4) or d when done? : $WHT";
4527 $input = <STDIN>;
4528 if ( $input eq "d\n" ) {
4529 # nothing
4530 } elsif ($input !~ /^[0-9]+\n$/) {
4531 print "\nInvalid configuration value.\n";
4532 print "\nPress enter to continue...";
4533 $tmp = <STDIN>;
4534 } elsif ( $input == "0\n" ) {
4535 $sm_debug_mode = 0;
4536 } elsif ( $input == "1\n" ) {
4537 if ($sm_debug_mode & 1) {
4538 $sm_debug_mode ^= 1;
4539 } else {
4540 $sm_debug_mode |= 1;
4541 }
4542 } elsif ( $input == "2\n" ) {
4543 if ($sm_debug_mode & 512) {
4544 $sm_debug_mode ^= 512;
4545 } else {
4546 $sm_debug_mode |= 512;
4547 }
4548 } elsif ( $input == "3\n" ) {
4549 if ($sm_debug_mode & 524288) {
4550 $sm_debug_mode ^= 524288;
4551 } else {
4552 $sm_debug_mode |= 524288;
4553 }
4554 } elsif ( $input == "4\n" ) {
4555 if ($sm_debug_mode & 536870912) {
4556 $sm_debug_mode ^= 536870912;
4557 } else {
4558 $sm_debug_mode |= 536870912;
4559 }
4560 } else {
4561 print "\nInvalid configuration value.\n";
4562 print "\nPress enter to continue...";
4563 $tmp = <STDIN>;
4564 }
4565 print "\n";
4566 }
4567 $sm_debug_mode = convert_debug_binary_integer_to_constants($sm_debug_mode);
4568 return $sm_debug_mode;
4569 }
4570
4571 # Secured configuration mode (since 1.5.2)
4572 sub commandB9 {
4573 print "This option allows you to enable \"Secured Configuration\" mode,\n";
4574 print "which will guarantee that certain settings made herein will be\n";
4575 print "made immutable and will not be subject to override by either friendly\n";
4576 print "or unfriendly code/plugins. Only a small number of settings herein\n";
4577 print "will be used in this manner - just those that are deemed to be a\n";
4578 print "potential security threat when rouge plugin or other code may be\n";
4579 print "executed inside SquirrelMail.\n";
4580 print "\n";
4581
4582 if ( lc($secured_config) eq 'true' ) {
4583 $default_value = "y";
4584 } else {
4585 $default_value = "n";
4586 }
4587 print "Enable secured configuration mode? (y/n) [$WHT$default_value$NRM]: $WHT";
4588 $secured_config = <STDIN>;
4589 if ( ( $secured_config =~ /^y\n/i ) || ( ( $secured_config =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
4590 $secured_config = 'true';
4591 } else {
4592 $secured_config = 'false';
4593 }
4594 return $secured_config;
4595 }
4596
4597 sub save_data {
4598 $tab = " ";
4599 if ( open( CF, ">config.php" ) ) {
4600 print CF "<?php\n";
4601 print CF "\n";
4602
4603 print CF "/**\n";
4604 print CF " * SquirrelMail Configuration File\n";
4605 print CF " * Created using the configure script, conf.pl\n";
4606 print CF " */\n";
4607 print CF "\n";
4608
4609 if ($print_config_version) {
4610 print CF "\$config_version = '$print_config_version';\n";
4611 }
4612 # integer
4613 print CF "\$config_use_color = $config_use_color;\n";
4614 print CF "\n";
4615
4616 # string
4617 print CF "\$org_name = \"$org_name\";\n";
4618 # string
4619 print CF "\$org_logo = " . &change_to_SM_path($org_logo) . ";\n";
4620 $org_logo_width |= 0;
4621 $org_logo_height |= 0;
4622 # string
4623 print CF "\$org_logo_width = '$org_logo_width';\n";
4624 # string
4625 print CF "\$org_logo_height = '$org_logo_height';\n";
4626 # string that can contain variables.
4627 print CF "\$org_title = \"$org_title\";\n";
4628 # string
4629 print CF "\$signout_page = " . &change_to_SM_path($signout_page) . ";\n";
4630 # string
4631 print CF "\$frame_top = '$frame_top';\n";
4632 print CF "\n";
4633
4634 print CF "\$provider_uri = '$provider_uri';\n";
4635 print CF "\n";
4636
4637 print CF "\$provider_name = '$provider_name';\n";
4638 print CF "\n";
4639
4640 # string that can contain variables
4641 print CF "\$motd = \"$motd\";\n";
4642 print CF "\n";
4643
4644 # string
4645 print CF "\$squirrelmail_default_language = '$squirrelmail_default_language';\n";
4646 # string
4647 print CF "\$default_charset = '$default_charset';\n";
4648 # boolean
4649 print CF "\$show_alternative_names = $show_alternative_names;\n";
4650 # boolean
4651 print CF "\$aggressive_decoding = $aggressive_decoding;\n";
4652 # boolean
4653 print CF "\$lossy_encoding = $lossy_encoding;\n";
4654 print CF "\n";
4655
4656 # string
4657 print CF "\$domain = '$domain';\n";
4658 # string
4659 print CF "\$imapServerAddress = '$imapServerAddress';\n";
4660 # integer
4661 print CF "\$imapPort = $imapPort;\n";
4662 # boolean
4663 print CF "\$useSendmail = $useSendmail;\n";
4664 # string
4665 print CF "\$smtpServerAddress = '$smtpServerAddress';\n";
4666 # integer
4667 print CF "\$smtpPort = $smtpPort;\n";
4668 # string
4669 print CF "\$sendmail_path = '$sendmail_path';\n";
4670 # string
4671 print CF "\$sendmail_args = '$sendmail_args';\n";
4672 # boolean
4673 # print CF "\$use_authenticated_smtp = $use_authenticated_smtp;\n";
4674 # boolean
4675 print CF "\$pop_before_smtp = $pop_before_smtp;\n";
4676 # string
4677 print CF "\$pop_before_smtp_host = '$pop_before_smtp_host';\n";
4678 # string
4679 print CF "\$imap_server_type = '$imap_server_type';\n";
4680 # boolean
4681 print CF "\$invert_time = $invert_time;\n";
4682 # string
4683 print CF "\$optional_delimiter = '$optional_delimiter';\n";
4684 # string
4685 print CF "\$encode_header_key = '$encode_header_key';\n";
4686 print CF "\n";
4687
4688 # string
4689 print CF "\$default_folder_prefix = '$default_folder_prefix';\n";
4690 # string
4691 print CF "\$trash_folder = '$trash_folder';\n";
4692 # string
4693 print CF "\$sent_folder = '$sent_folder';\n";
4694 # string
4695 print CF "\$draft_folder = '$draft_folder';\n";
4696 # boolean
4697 print CF "\$default_move_to_trash = $default_move_to_trash;\n";
4698 # boolean
4699 print CF "\$default_move_to_sent = $default_move_to_sent;\n";
4700 # boolean
4701 print CF "\$default_save_as_draft = $default_save_as_draft;\n";
4702 # boolean
4703 print CF "\$show_prefix_option = $show_prefix_option;\n";
4704 # boolean
4705 print CF "\$list_special_folders_first = $list_special_folders_first;\n";
4706 # boolean
4707 print CF "\$use_special_folder_color = $use_special_folder_color;\n";
4708 # boolean
4709 print CF "\$auto_expunge = $auto_expunge;\n";
4710 # boolean
4711 print CF "\$default_sub_of_inbox = $default_sub_of_inbox;\n";
4712 # boolean
4713 print CF "\$show_contain_subfolders_option = $show_contain_subfolders_option;\n";
4714 # integer
4715 print CF "\$default_unseen_notify = $default_unseen_notify;\n";
4716 # integer
4717 print CF "\$default_unseen_type = $default_unseen_type;\n";
4718 # boolean
4719 print CF "\$auto_create_special = $auto_create_special;\n";
4720 # boolean
4721 print CF "\$delete_folder = $delete_folder;\n";
4722 # boolean
4723 print CF "\$noselect_fix_enable = $noselect_fix_enable;\n";
4724
4725 print CF "\n";
4726
4727 # string
4728 print CF "\$data_dir = " . &change_to_SM_path($data_dir) . ";\n";
4729 # string that can contain a variable
4730 print CF "\$attachment_dir = " . &change_to_SM_path($attachment_dir) . ";\n";
4731 # integer
4732 print CF "\$dir_hash_level = $dir_hash_level;\n";
4733 # string
4734 print CF "\$default_left_size = '$default_left_size';\n";
4735 # boolean
4736 print CF "\$force_username_lowercase = $force_username_lowercase;\n";
4737 # boolean
4738 print CF "\$default_use_priority = $default_use_priority;\n";
4739 # boolean
4740 print CF "\$hide_sm_attributions = $hide_sm_attributions;\n";
4741 # boolean
4742 print CF "\$default_use_mdn = $default_use_mdn;\n";
4743 # boolean
4744 print CF "\$edit_identity = $edit_identity;\n";
4745 # boolean
4746 print CF "\$edit_name = $edit_name;\n";
4747 # boolean
4748 print CF "\$hide_auth_header = $hide_auth_header;\n";
4749 # boolean
4750 print CF "\$disable_thread_sort = $disable_thread_sort;\n";
4751 # boolean
4752 print CF "\$disable_server_sort = $disable_server_sort;\n";
4753 # boolean
4754 print CF "\$allow_charset_search = $allow_charset_search;\n";
4755 # integer
4756 print CF "\$allow_advanced_search = $allow_advanced_search;\n";
4757 print CF "\n";
4758 # integer
4759 print CF "\$time_zone_type = $time_zone_type;\n";
4760 print CF "\n";
4761 # string
4762 print CF "\$config_location_base = '$config_location_base';\n";
4763 print CF "\n";
4764 # boolean
4765 print CF "\$disable_plugins = $disable_plugins;\n";
4766 # string
4767 print CF "\$disable_plugins_user = '$disable_plugins_user';\n";
4768 print CF "\n";
4769
4770 # all plugins are strings
4771 for ( $ct = 0 ; $ct <= $#plugins ; $ct++ ) {
4772 print CF "\$plugins[] = '$plugins[$ct]';\n";
4773 }
4774 print CF "\n";
4775
4776 # strings
4777 if ( $user_theme_default eq '' ) { $user_theme_default = '0'; }
4778 print CF "\$user_theme_default = $user_theme_default;\n";
4779
4780 for ( $count = 0 ; $count <= $#user_theme_name ; $count++ ) {
4781 if ($user_theme_path[$count] eq 'none') {
4782 $path = '\'none\'';
4783 } else {
4784 $path = &change_to_SM_path($user_theme_path[$count]);
4785 }
4786 print CF "\$user_themes[$count]['PATH'] = " . $path . ";\n";
4787 # escape theme name so it can contain single quotes.
4788 $esc_name = $user_theme_name[$count];
4789 $esc_name =~ s/\\/\\\\/g;
4790 $esc_name =~ s/'/\\'/g;
4791 print CF "\$user_themes[$count]['NAME'] = '$esc_name';\n";
4792 }
4793 print CF "\n";
4794
4795 if ( $icon_theme_def eq '' ) { $icon_theme_def = '0'; }
4796 print CF "\$icon_theme_def = $icon_theme_def;\n";
4797 if ( $icon_theme_fallback eq '' ) { $icon_theme_fallback = '0'; }
4798 print CF "\$icon_theme_fallback = $icon_theme_fallback;\n";
4799
4800 for ( $count = 0 ; $count <= $#icon_theme_name ; $count++ ) {
4801 $path = $icon_theme_path[$count];
4802 if ($path eq 'none' || $path eq 'template') {
4803 $path = "'".$path."'";
4804 } else {
4805 $path = &change_to_SM_path($icon_theme_path[$count]);
4806 }
4807 print CF "\$icon_themes[$count]['PATH'] = " . $path . ";\n";
4808 # escape theme name so it can contain single quotes.
4809 $esc_name = $icon_theme_name[$count];
4810 $esc_name =~ s/\\/\\\\/g;
4811 $esc_name =~ s/'/\\'/g;
4812 print CF "\$icon_themes[$count]['NAME'] = '$esc_name';\n";
4813 }
4814 print CF "\n";
4815
4816 if ( $templateset_default eq '' ) { $templateset_default = 'default'; }
4817 print CF "\$templateset_default = '$templateset_default';\n";
4818
4819 if ( $templateset_fallback eq '' ) { $templateset_fallback = 'default'; }
4820 print CF "\$templateset_fallback = '$templateset_fallback';\n";
4821
4822 if ( $rpc_templateset eq '' ) { $rpc_templateset = 'default_rpc'; }
4823 print CF "\$rpc_templateset = '$rpc_templateset';\n";
4824
4825 for ( $count = 0 ; $count <= $#templateset_name ; $count++ ) {
4826
4827 # don't include RPC template sets
4828 #
4829 if ( $templateset_id[$count] =~ /_rpc$/ ) { next; }
4830
4831 print CF "\$aTemplateSet[$count]['ID'] = '" . $templateset_id[$count] . "';\n";
4832 # escape theme name so it can contain single quotes.
4833 $esc_name = $templateset_name[$count];
4834 $esc_name =~ s/\\/\\\\/g;
4835 $esc_name =~ s/'/\\'/g;
4836 print CF "\$aTemplateSet[$count]['NAME'] = '$esc_name';\n";
4837 }
4838 print CF "\n";
4839
4840
4841 # integer
4842 print CF "\$default_fontsize = '$default_fontsize';\n";
4843 # string
4844 print CF "\$default_fontset = '$default_fontset';\n";
4845 print CF "\n";
4846 # assoc. array (maybe initial value should be set somewhere else)
4847 print CF '$fontsets = array();'."\n";
4848 while (($fontset_name, $fontset_value) = each(%fontsets)) {
4849 print CF "\$fontsets\['$fontset_name'\] = '$fontset_value';\n";
4850 }
4851 print CF "\n";
4852
4853 ## Address books
4854 # boolean
4855 print CF "\$default_use_javascript_addr_book = $default_use_javascript_addr_book;\n";
4856 for ( $count = 0 ; $count <= $#ldap_host ; $count++ ) {
4857 print CF "\$ldap_server[$count] = array(\n";
4858 # string
4859 print CF " 'host' => '$ldap_host[$count]',\n";
4860 # string
4861 print CF " 'base' => '$ldap_base[$count]'";
4862 if ( $ldap_name[$count] ) {
4863 print CF ",\n";
4864 # string
4865 print CF " 'name' => '$ldap_name[$count]'";
4866 }
4867 if ( $ldap_port[$count] ) {
4868 print CF ",\n";
4869 # integer
4870 print CF " 'port' => $ldap_port[$count]";
4871 }
4872 if ( $ldap_charset[$count] ) {
4873 print CF ",\n";
4874 # string
4875 print CF " 'charset' => '$ldap_charset[$count]'";
4876 }
4877 if ( $ldap_maxrows[$count] ) {
4878 print CF ",\n";
4879 # integer
4880 print CF " 'maxrows' => $ldap_maxrows[$count]";
4881 }
4882 # string
4883 if ( $ldap_filter[$count] ) {
4884 print CF ",\n";
4885 print CF " 'filter' => '$ldap_filter[$count]'";
4886 }
4887 if ( $ldap_binddn[$count] ) {
4888 print CF ",\n";
4889 # string
4890 print CF " 'binddn' => '$ldap_binddn[$count]'";
4891 if ( $ldap_bindpw[$count] ) {
4892 print CF ",\n";
4893 # string
4894 print CF " 'bindpw' => '$ldap_bindpw[$count]'";
4895 }
4896 }
4897 if ( $ldap_protocol[$count] ) {
4898 print CF ",\n";
4899 # integer
4900 print CF " 'protocol' => $ldap_protocol[$count]";
4901 }
4902 if ( $ldap_limit_scope[$count] ) {
4903 print CF ",\n";
4904 # boolean
4905 print CF " 'limit_scope' => $ldap_limit_scope[$count]";
4906 }
4907 if ( $ldap_listing[$count] ) {
4908 print CF ",\n";
4909 # boolean
4910 print CF " 'listing' => $ldap_listing[$count]";
4911 }
4912 if ( $ldap_writeable[$count] ) {
4913 print CF ",\n";
4914 # boolean
4915 print CF " 'writeable' => $ldap_writeable[$count]";
4916 }
4917 if ( $ldap_search_tree[$count] ) {
4918 print CF ",\n";
4919 # integer
4920 print CF " 'search_tree' => $ldap_search_tree[$count]";
4921 }
4922 if ( $ldap_listing[$count] ) {
4923 print CF ",\n";
4924 # boolean
4925 print CF " 'starttls' => $ldap_starttls[$count]";
4926 }
4927 print CF "\n";
4928 print CF ");\n";
4929 print CF "\n";
4930 }
4931
4932 # string
4933 print CF "\$addrbook_dsn = '$addrbook_dsn';\n";
4934 # string
4935 print CF "\$addrbook_table = '$addrbook_table';\n\n";
4936 # string
4937 print CF "\$prefs_dsn = '$prefs_dsn';\n";
4938 # string
4939 print CF "\$prefs_table = '$prefs_table';\n";
4940 # string
4941 print CF "\$prefs_user_field = '$prefs_user_field';\n";
4942 # integer
4943 print CF "\$prefs_user_size = $prefs_user_size;\n";
4944 # string
4945 print CF "\$prefs_key_field = '$prefs_key_field';\n";
4946 # integer
4947 print CF "\$prefs_key_size = $prefs_key_size;\n";
4948 # string
4949 print CF "\$prefs_val_field = '$prefs_val_field';\n";
4950 # integer
4951 print CF "\$prefs_val_size = $prefs_val_size;\n\n";
4952 # string
4953 print CF "\$addrbook_global_dsn = '$addrbook_global_dsn';\n";
4954 # string
4955 print CF "\$addrbook_global_table = '$addrbook_global_table';\n";
4956 # boolean
4957 print CF "\$addrbook_global_writeable = $addrbook_global_writeable;\n";
4958 # boolean
4959 print CF "\$addrbook_global_listing = $addrbook_global_listing;\n\n";
4960 # string
4961 print CF "\$abook_global_file = '$abook_global_file';\n";
4962 # boolean
4963 print CF "\$abook_global_file_writeable = $abook_global_file_writeable;\n\n";
4964 # boolean
4965 print CF "\$abook_global_file_listing = $abook_global_file_listing;\n\n";
4966 # integer
4967 print CF "\$abook_file_line_length = $abook_file_line_length;\n\n";
4968 # boolean
4969 print CF "\$no_list_for_subscribe = $no_list_for_subscribe;\n";
4970
4971 # string
4972 print CF "\$smtp_auth_mech = '$smtp_auth_mech';\n";
4973 print CF "\$smtp_sitewide_user = '". quote_single($smtp_sitewide_user) ."';\n";
4974 print CF "\$smtp_sitewide_pass = '". quote_single($smtp_sitewide_pass) ."';\n";
4975 # string
4976 print CF "\$imap_auth_mech = '$imap_auth_mech';\n";
4977 # boolean
4978 print CF "\$use_imap_tls = $use_imap_tls;\n";
4979 # boolean
4980 print CF "\$use_smtp_tls = $use_smtp_tls;\n";
4981 # string
4982 print CF "\$session_name = '$session_name';\n";
4983 # boolean
4984 print CF "\$only_secure_cookies = $only_secure_cookies;\n";
4985
4986 print CF "\n";
4987
4988 # boolean
4989 print CF "\$use_iframe = $use_iframe;\n";
4990 # boolean
4991 print CF "\$ask_user_info = $ask_user_info;\n";
4992 # boolean
4993 print CF "\$use_icons = $use_icons;\n";
4994 print CF "\n";
4995 # boolean
4996 print CF "\$use_php_recode = $use_php_recode;\n";
4997 # boolean
4998 print CF "\$use_php_iconv = $use_php_iconv;\n";
4999 print CF "\n";
5000 # boolean
5001 print CF "\$allow_remote_configtest = $allow_remote_configtest;\n";
5002 print CF "\$secured_config = $secured_config;\n";
5003 # (binary) integer or constant - convert integer
5004 # values to constants before output
5005 $sm_debug_mode = convert_debug_binary_integer_to_constants($sm_debug_mode);
5006 print CF "\$sm_debug_mode = $sm_debug_mode;\n";
5007 print CF "\n";
5008
5009 close CF;
5010
5011 print "Data saved in config.php\n";
5012
5013 build_plugin_hook_array();
5014
5015 } else {
5016 print "Error saving config.php: $!\n";
5017 }
5018 }
5019
5020 sub set_defaults {
5021 clear_screen();
5022 print $WHT. "SquirrelMail Configuration : " . $NRM;
5023 if ( $config == 1 ) { print "Read: config.php"; }
5024 elsif ( $config == 2 ) { print "Read: config_default.php"; }
5025 print "\n";
5026 print "---------------------------------------------------------\n";
5027
5028 print "While we have been building SquirrelMail, we have discovered some\n";
5029 print "preferences that work better with some servers that don't work so\n";
5030 print "well with others. If you select your IMAP server, this option will\n";
5031 print "set some pre-defined settings for that server.\n";
5032 print "\n";
5033 print "Please note that you will still need to go through and make sure\n";
5034 print "everything is correct. This does not change everything. There are\n";
5035 print "only a few settings that this will change.\n";
5036 print "\n";
5037
5038 $continue = 0;
5039 while ( $continue != 1 ) {
5040 print "Please select your IMAP server:\n";
5041 print $list_supported_imap_servers;
5042 print "\n";
5043 print " quit = Do not change anything\n";
5044 print "\n";
5045 print "Command >> ";
5046 $server = <STDIN>;
5047 $server =~ s/[\r\n]//g;
5048
5049 # variable is used to display additional messages.
5050 $message = "";
5051
5052 print "\n";
5053 if ( $server eq "cyrus" ) {
5054 $imap_server_type = "cyrus";
5055 $default_folder_prefix = "";
5056 $trash_folder = "INBOX.Trash";
5057 $sent_folder = "INBOX.Sent";
5058 $draft_folder = "INBOX.Drafts";
5059 $show_prefix_option = false;
5060 $default_sub_of_inbox = true;
5061 $show_contain_subfolders_option = false;
5062 $optional_delimiter = ".";
5063 $disp_default_folder_prefix = "<none>";
5064 $force_username_lowercase = false;
5065
5066 # Delimiter might differ if unixhierarchysep is set to yes.
5067 $message = "\nIf you have enabled unixhierarchysep, you must change delimiter and special folder names.\n";
5068
5069 $continue = 1;
5070 } elsif ( $server eq "uw" ) {
5071 $imap_server_type = "uw";
5072 $default_folder_prefix = "mail/";
5073 $trash_folder = "Trash";
5074 $sent_folder = "Sent";
5075 $draft_folder = "Drafts";
5076 $show_prefix_option = true;
5077 $default_sub_of_inbox = false;
5078 $show_contain_subfolders_option = true;
5079 $optional_delimiter = "/";
5080 $disp_default_folder_prefix = $default_folder_prefix;
5081 $delete_folder = true;
5082 $force_username_lowercase = true;
5083
5084 $continue = 1;
5085 } elsif ( $server eq "exchange" ) {
5086 $imap_server_type = "exchange";
5087 $default_folder_prefix = "";
5088 $default_sub_of_inbox = true;
5089 $trash_folder = "INBOX/Deleted Items";
5090 $sent_folder = "INBOX/Sent Items";
5091 $drafts_folder = "INBOX/Drafts";
5092 $show_prefix_option = false;
5093 $show_contain_subfolders_option = false;
5094 $optional_delimiter = "detect";
5095 $disp_default_folder_prefix = "<none>";
5096 $force_username_lowercase = true;
5097
5098 $continue = 1;
5099 } elsif ( $server eq "courier" ) {
5100 $imap_server_type = "courier";
5101 $default_folder_prefix = "INBOX.";
5102 $trash_folder = "Trash";
5103 $sent_folder = "Sent";
5104 $draft_folder = "Drafts";
5105 $show_prefix_option = false;
5106 $default_sub_of_inbox = false;
5107 $show_contain_subfolders_option = false;
5108 $optional_delimiter = ".";
5109 $disp_default_folder_prefix = $default_folder_prefix;
5110 $delete_folder = true;
5111 $force_username_lowercase = false;
5112
5113 $continue = 1;
5114 } elsif ( $server eq "macosx" ) {
5115 $imap_server_type = "macosx";
5116 $default_folder_prefix = "INBOX/";
5117 $trash_folder = "Trash";
5118 $sent_folder = "Sent";
5119 $draft_folder = "Drafts";
5120 $show_prefix_option = false;
5121 $default_sub_of_inbox = true;
5122 $show_contain_subfolders_option = false;
5123 $optional_delimiter = "detect";
5124 $allow_charset_search = false;
5125 $disp_default_folder_prefix = $default_folder_prefix;
5126
5127 $continue = 1;
5128 } elsif ( $server eq "hmailserver" ) {
5129 $imap_server_type = "hmailserver";
5130 $default_folder_prefix = "";
5131 $trash_folder = "INBOX.Trash";
5132 $sent_folder = "INBOX.Sent";
5133 $draft_folder = "INBOX.Drafts";
5134 $show_prefix_option = false;
5135 $default_sub_of_inbox = true;
5136 $show_contain_subfolders_option = false;
5137 $optional_delimiter = "detect";
5138 $allow_charset_search = false;
5139 $disp_default_folder_prefix = $default_folder_prefix;
5140 $delete_folder = false;
5141 $force_username_lowercase = false;
5142
5143 $continue = 1;
5144 } elsif ( $server eq "mercury32" ) {
5145 $imap_server_type = "mercury32";
5146 $default_folder_prefix = "";
5147 $trash_folder = "Trash";
5148 $sent_folder = "Sent";
5149 $draft_folder = "Drafts";
5150 $show_prefix_option = false;
5151 $default_sub_of_inbox = true;
5152 $show_contain_subfolders_option = true;
5153 $optional_delimiter = "detect";
5154 $delete_folder = true;
5155 $force_username_lowercase = true;
5156
5157 $continue = 1;
5158 } elsif ( $server eq "dovecot" ) {
5159 $imap_server_type = "dovecot";
5160 $default_folder_prefix = "";
5161 $trash_folder = "Trash";
5162 $sent_folder = "Sent";
5163 $draft_folder = "Drafts";
5164 $show_prefix_option = false;
5165 $default_sub_of_inbox = false;
5166 $show_contain_subfolders_option = false;
5167 $delete_folder = false;
5168 $force_username_lowercase = true;
5169 $optional_delimiter = "detect";
5170 $disp_default_folder_prefix = "<none>";
5171
5172 $continue = 1;
5173 } elsif ( $server eq "bincimap" ) {
5174 $imap_server_type = "bincimap";
5175 $default_folder_prefix = "INBOX/";
5176 $trash_folder = "Trash";
5177 $sent_folder = "Sent";
5178 $draft_folder = "Drafts";
5179 $show_prefix_option = false;
5180 $default_sub_of_inbox = false;
5181 $show_contain_subfolders_option = false;
5182 $delete_folder = true;
5183 $force_username_lowercase = false;
5184 $optional_delimiter = "detect";
5185 $disp_default_folder_prefix = $default_folder_prefix;
5186
5187 # Default folder prefix depends on used depot.
5188 $message = "\nIf you use IMAPdir depot, you must set default folder prefix to empty string.\n";
5189
5190 $continue = 1;
5191 } elsif ( $server eq "quit" ) {
5192 $continue = 1;
5193 } else {
5194 $disp_default_folder_prefix = $default_folder_prefix;
5195 print "Unrecognized server: $server\n";
5196 print "\n";
5197 }
5198
5199 print " imap_server_type = $imap_server_type\n";
5200 print " default_folder_prefix = $disp_default_folder_prefix\n";
5201 print " trash_folder = $trash_folder\n";
5202 print " sent_folder = $sent_folder\n";
5203 print " draft_folder = $draft_folder\n";
5204 print " show_prefix_option = $show_prefix_option\n";
5205 print " default_sub_of_inbox = $default_sub_of_inbox\n";
5206 print "show_contain_subfolders_option = $show_contain_subfolders_option\n";
5207 print " optional_delimiter = $optional_delimiter\n";
5208 print " delete_folder = $delete_folder\n";
5209 print " force_username_lowercase = $force_username_lowercase\n";
5210
5211 print "$message";
5212 }
5213 print "\nPress enter to continue...";
5214 $tmp = <STDIN>;
5215 }
5216
5217 # This subroutine corrects relative paths to ensure they
5218 # will work within the SM space. If the path falls within
5219 # the SM directory tree, the SM_PATH variable will be
5220 # prepended to the path, if not, then the path will be
5221 # converted to an absolute path, e.g.
5222 # '../images/logo.gif' --> SM_PATH . 'images/logo.gif'
5223 # '../../someplace/data' --> '/absolute/path/someplace/data'
5224 # 'images/logo.gif' --> SM_PATH . 'config/images/logo.gif'
5225 # '/absolute/path/logo.gif' --> '/absolute/path/logo.gif'
5226 # 'http://whatever/' --> 'http://whatever'
5227 # $some_var/path --> "$some_var/path"
5228 sub change_to_SM_path() {
5229 my ($old_path) = @_;
5230 my $new_path = '';
5231 my @rel_path;
5232 my @abs_path;
5233 my $subdir;
5234
5235 # If the path is absolute, don't bother.
5236 return "\'" . $old_path . "\'" if ( $old_path eq '');
5237 return "\'" . $old_path . "\'" if ( $old_path =~ /^(\/|http)/ );
5238 return "\'" . $old_path . "\'" if ( $old_path =~ /^\w:\// );
5239 return $old_path if ( $old_path =~ /^\'(\/|http)/ );
5240 return $old_path if ( $old_path =~ /^\'\w:\// );
5241 return $old_path if ( $old_path =~ /^SM_PATH/);
5242
5243 if ( $old_path =~ /^\$/ ) {
5244 # check if it's a single var, or a $var/path combination
5245 # if it's $var/path, enclose in ""
5246 if ( $old_path =~ /\// ) {
5247 return '"'.$old_path.'"';
5248 }
5249 return $old_path;
5250 }
5251
5252 # Remove remaining '
5253 $old_path =~ s/\'//g;
5254
5255 # For relative paths, split on '../'
5256 @rel_path = split(/\.\.\//, $old_path);
5257
5258 if ( $#rel_path > 1 ) {
5259 # more than two levels away. Make it absolute.
5260 @abs_path = split(/\//, $dir);
5261
5262 # Lop off the relative pieces of the absolute path..
5263 for ( $i = 0; $i <= $#rel_path; $i++ ) {
5264 pop @abs_path;
5265 shift @rel_path;
5266 }
5267 push @abs_path, @rel_path;
5268 $new_path = "\'" . join('/', @abs_path) . "\'";
5269 } elsif ( $#rel_path > 0 ) {
5270 # it's within the SM tree, prepend SM_PATH
5271 $new_path = $old_path;
5272 $new_path =~ s/^\.\.\//SM_PATH . \'/;
5273 $new_path .= "\'";
5274 } else {
5275 # Last, it's a relative path without any leading '.'
5276 # Prepend SM_PATH and config, since the paths are
5277 # relative to the config directory
5278 $new_path = "SM_PATH . \'config/" . $old_path . "\'";
5279 }
5280 return $new_path;
5281 }
5282
5283
5284 # Change SM_PATH to admin-friendly version, e.g.:
5285 # SM_PATH . 'images/logo.gif' --> '../images/logo.gif'
5286 # SM_PATH . 'config/some.php' --> 'some.php'
5287 # '/absolute/path/logo.gif' --> '/absolute/path/logo.gif'
5288 # 'http://whatever/' --> 'http://whatever'
5289 sub change_to_rel_path() {
5290 my ($old_path) = @_;
5291 my $new_path = $old_path;
5292
5293 if ( $old_path =~ /^SM_PATH/ ) {
5294 # FIXME: the following replacement loses the opening quote mark!
5295 $new_path =~ s/^SM_PATH . \'/\.\.\//;
5296 $new_path =~ s/\.\.\/config\///;
5297 }
5298
5299 return $new_path;
5300 }
5301
5302 # Attempts to auto-detect if a specific auth mechanism is supported.
5303 # Called by 'command112a' and 'command112b'
5304 # ARGS: service-name (IMAP or SMTP), host:port, mech-name (ie. CRAM-MD5)
5305 sub detect_auth_support {
5306 # Try loading IO::Socket
5307 unless (eval("use IO::Socket; 1")) {
5308 print "Perl IO::Socket module is not available.";
5309 return undef;
5310 }
5311 # Misc setup
5312 my $service = shift;
5313 my $host = shift;
5314 my $mech = shift;
5315 # Sanity checks
5316 if ((!defined($service)) or (!defined($host)) or (!defined($mech))) {
5317 # Error - wrong # of args
5318 print "BAD ARGS!\n";
5319 return undef;
5320 }
5321
5322 if ($service eq 'SMTP') {
5323 $cmd = "AUTH $mech\r\n";
5324 $logout = "QUIT\r\n";
5325 } elsif ($service eq 'IMAP') {
5326 $cmd = "A01 AUTHENTICATE $mech\n";
5327 $logout = "C01 LOGOUT\n";
5328 } else {
5329 # unknown service - whoops.
5330 return undef;
5331 }
5332
5333 # Get this show on the road
5334 my $sock=IO::Socket::INET->new($host);
5335 if (!defined($sock)) {
5336 # Connect failed
5337 return undef;
5338 }
5339 my $discard = <$sock>; # Server greeting/banner - who cares..
5340
5341 if ($service eq 'SMTP') {
5342 # Say hello first..
5343 print $sock "HELO $domain\r\n";
5344 $discard = <$sock>; # Yeah yeah, you're happy to see me..
5345 }
5346 print $sock $cmd;
5347
5348 my $response = <$sock>;
5349 chomp($response);
5350 if (!defined($response)) {
5351 return undef;
5352 }
5353
5354 # So at this point, we have a response, and it is (hopefully) valid.
5355 if ($service eq 'SMTP') {
5356 if (!($response =~ /^334/)) {
5357 # Not supported
5358 print $sock $logout;
5359 close $sock;
5360 return 'NO';
5361 }
5362 } elsif ($service eq 'IMAP') {
5363 if ($response =~ /^A01/) {
5364 # Not supported
5365 print $sock $logout;
5366 close $sock;
5367 return 'NO';
5368 }
5369 } else {
5370 # Unknown service - this shouldn't be able to happen.
5371 close $sock;
5372 return undef;
5373 }
5374
5375 # If it gets here, the mech is supported
5376 print $sock "*\n"; # Attempt to cancel authentication
5377 print $sock $logout; # Try to log out, but we don't really care if this fails
5378 close $sock;
5379 return 'YES';
5380 }
5381
5382 # trims whitespace
5383 # Example code from O'Reilly Perl Cookbook
5384 sub trim {
5385 my @out = @_;
5386 for (@out) {
5387 s/^\s+//;
5388 s/\s+$//;
5389 }
5390 return wantarray ? @out : $out[0];
5391 }
5392
5393 sub clear_screen() {
5394 if ( $^O =~ /^mswin/i) {
5395 system "cls";
5396 } else {
5397 system "clear";
5398 }
5399 }
5400
5401 # checks IMAP mailbox name. Refuses to accept 8bit folders
5402 # returns 0 (folder name is not correct) or 1 (folder name is correct)
5403 sub check_imap_folder($) {
5404 my $folder_name = shift(@_);
5405
5406 if ($folder_name =~ /[\x80-\xFFFF]/) {
5407 print "Folder name contains 8bit characters. Configuration utility requires\n";
5408 print "UTF7-IMAP encoded folder names.\n";
5409 print "Press enter to continue...";
5410 my $tmp = <STDIN>;
5411 return 0;
5412 } elsif ($folder_name =~ /[&\*\%]/) {
5413 # check for ampersand and list-wildcards
5414 print "Folder name contains special UTF7-IMAP characters.\n";
5415 print "Are you sure that folder name is correct? (y/N): ";
5416 my $tmp = <STDIN>;
5417 $tmp = lc(trim($tmp));
5418 if ($tmp =~ /^y$/) {
5419 return 1;
5420 } else {
5421 return 0;
5422 }
5423 } else {
5424 return 1;
5425 }
5426 }
5427
5428 # quotes string written in single quotes
5429 sub quote_single($) {
5430 my $string = shift(@_);
5431 $string =~ s/\'/\\'/g;
5432 return $string;
5433 }
5434
5435 # determine a plugin's version number
5436 #
5437 # parses the setup.php file, looking for the
5438 # version string in the <plugin>_info() or the
5439 # <plugin>_version functions.
5440 #
5441 sub get_plugin_version() {
5442
5443 my $plugin_name = shift(@_);
5444
5445 $setup_file = '../plugins/' . $plugin_name . '/setup.php';
5446 if ( -e "$setup_file" ) {
5447 # Make sure that file is readable
5448 if (! -r "$setup_file") {
5449 print "\n";
5450 print "WARNING:\n";
5451 print "The file \"$setup_file\" was found, but you don't\n";
5452 print "have rights to read it. The plugin \"";
5453 print $plugin_name . "\" may not work correctly until you fix this.\n";
5454 print "\nPress enter to continue";
5455 $ctu = <STDIN>;
5456 print "\n";
5457 next;
5458 }
5459
5460 $version = ' ';
5461 # FIXME: grep the file instead of reading it into memory?
5462 $whole_file = '';
5463 open( FILE, "$setup_file" );
5464 while ( $line = <FILE> ) {
5465 $whole_file .= $line;
5466 }
5467 close(FILE);
5468
5469 # ideally, there is a version in the <plugin>_info function...
5470 #
5471 if ($whole_file =~ /('version'\s*=>\s*['"](.*?)['"])/) {
5472 $version .= $2;
5473
5474 # this assumes there is only one function that returns
5475 # a static string in the setup file
5476 #
5477 } elsif ($whole_file =~ /(return\s*['"](.*?)['"])/) {
5478 $version .= $2;
5479 }
5480
5481 return $version;
5482
5483 } else {
5484 print "\n";
5485 print "WARNING:\n";
5486 print "The file \"$setup_file\" was not found.\n";
5487 print "The plugin \"" . $plugin_name;
5488 print "\" may not work correctly until you fix this.\n";
5489 print "\nPress enter to continue";
5490 $ctu = <STDIN>;
5491 print "\n";
5492 next;
5493 }
5494
5495 }
5496
5497 # determine a plugin's English name
5498 #
5499 # parses the setup.php file, looking for the
5500 # English name in the <plugin>_info() function.
5501 #
5502 sub get_plugin_english_name() {
5503
5504 my $plugin_name = shift(@_);
5505
5506 $setup_file = '../plugins/' . $plugin_name . '/setup.php';
5507 if ( -e "$setup_file" ) {
5508 # Make sure that file is readable
5509 if (! -r "$setup_file") {
5510 print "\n";
5511 print "WARNING:\n";
5512 print "The file \"$setup_file\" was found, but you don't\n";
5513 print "have rights to read it. The plugin \"";
5514 print $plugin_name . "\" may not work correctly until you fix this.\n";
5515 print "\nPress enter to continue";
5516 $ctu = <STDIN>;
5517 print "\n";
5518 next;
5519 }
5520
5521 $english_name = '';
5522 # FIXME: grep the file instead of reading it into memory?
5523 $whole_file = '';
5524 open( FILE, "$setup_file" );
5525 while ( $line = <FILE> ) {
5526 $whole_file .= $line;
5527 }
5528 close(FILE);
5529
5530 # the English name is in the <plugin>_info function or nothing...
5531 #
5532 if ($whole_file =~ /('english_name'\s*=>\s*['"](.*?)['"])/) {
5533 $english_name .= $2;
5534 }
5535
5536 return $english_name;
5537
5538 } else {
5539 print "\n";
5540 print "WARNING:\n";
5541 print "The file \"$setup_file\" was not found.\n";
5542 print "The plugin \"" . $plugin_name;
5543 print "\" may not work correctly until you fix this.\n";
5544 print "\nPress enter to continue";
5545 $ctu = <STDIN>;
5546 print "\n";
5547 next;
5548 }
5549
5550 }
5551
5552 # parses the setup.php files for all activated plugins and
5553 # builds static plugin hooks array so we don't have to load
5554 # ALL plugins are runtime and build the hook array on every
5555 # page request
5556 #
5557 # hook array is saved in config/plugin_hooks.php
5558 #
5559 # Note the $verbose variable at the top of this routine
5560 # can be set to zero to quiet it down.
5561 #
5562 # NOTE/FIXME: we aren't necessarily interested in writing
5563 # a full-blown PHP parsing engine, so plenty
5564 # of assumptions are included herein about the
5565 # coding of the plugin setup files, and things
5566 # like commented out curly braces or other
5567 # such oddities can break this in a bad way.
5568 #
5569 sub build_plugin_hook_array() {
5570
5571 $verbose = 1;
5572
5573 if ($verbose) {
5574 print "\n\n";
5575 }
5576
5577 if ( open( HOOKFILE, ">plugin_hooks.php" ) ) {
5578 print HOOKFILE "<?php\n";
5579 print HOOKFILE "\n";
5580
5581 print HOOKFILE "/**\n";
5582 print HOOKFILE " * SquirrelMail Plugin Hook Registration File\n";
5583 print HOOKFILE " * Auto-generated using the configure script, conf.pl\n";
5584 print HOOKFILE " */\n";
5585 print HOOKFILE "\n";
5586 print HOOKFILE "global \$squirrelmail_plugin_hooks;\n";
5587 print HOOKFILE "\n";
5588
5589 PLUGIN: for ( $ct = 0 ; $ct <= $#plugins ; $ct++ ) {
5590
5591 if ($verbose) {
5592 print "Activating plugin \"" . $plugins[$ct] . "\"...\n";
5593 }
5594
5595 $setup_file = '../plugins/' . $plugins[$ct] . '/setup.php';
5596 if ( -e "$setup_file" ) {
5597 # Make sure that file is readable
5598 if (! -r "$setup_file") {
5599 print "\n";
5600 print "WARNING:\n";
5601 print "The file \"$setup_file\" was found, but you don't\n";
5602 print "have rights to read it. The plugin \"";
5603 print $plugins[$ct] . "\" will not be activated until you fix this.\n";
5604 print "\nPress enter to continue";
5605 $ctu = <STDIN>;
5606 print "\n";
5607 next;
5608 }
5609 open( FILE, "$setup_file" );
5610 $inside_init_fxn = 0;
5611 $brace_count = 0;
5612 while ( $line = <FILE> ) {
5613
5614 # throw away lines until we get to target function
5615 #
5616 if (!$inside_init_fxn
5617 && $line !~ /^\s*function\s*squirrelmail_plugin_init_/i) {
5618 next;
5619 }
5620 $inside_init_fxn = 1;
5621
5622
5623 # count open braces
5624 #
5625 if ($line =~ /{/) {
5626 $brace_count++;
5627 }
5628
5629
5630 # count close braces
5631 #
5632 if ($line =~ /}/) {
5633 $brace_count--;
5634
5635 # leaving <plugin>_init() function...
5636 if ($brace_count == 0) {
5637 close(FILE);
5638 next PLUGIN;
5639 }
5640
5641 }
5642
5643
5644 # throw away lines that are not exactly one "brace set" deep
5645 #
5646 if ($brace_count > 1) {
5647 next;
5648 }
5649
5650
5651 # also not interested in lines that are not
5652 # hook registration points
5653 #
5654 if ($line !~ /^\s*\$squirrelmail_plugin_hooks/i) {
5655 next;
5656 }
5657
5658
5659 # if $line does not have an ending semicolon,
5660 # we need to recursively read in subsequent
5661 # lines until we find one
5662 while ( $line !~ /;\s*$/ ) {
5663 $line =~ s/[\n\r]\s*$//;
5664 $line .= <FILE>;
5665 }
5666
5667
5668 $line =~ s/^\s+//;
5669 $line =~ s/^\$//;
5670 $var = $line;
5671
5672 $var =~ s/=/EQUALS/;
5673 if ( $var =~ /^([a-z])/i ) {
5674 @options = split ( /\s*EQUALS\s*/, $var );
5675 $options[1] =~ s/[\n\r]//g;
5676 $options[1] =~ s/[\'\"];\s*$//;
5677 $options[1] =~ s/;$//;
5678 $options[1] =~ s/^[\'\"]//;
5679 # de-escape escaped strings
5680 $options[1] =~ s/\\'/'/g;
5681 $options[1] =~ s/\\\\/\\/g;
5682
5683 if ( $options[0] =~ /^squirrelmail_plugin_hooks\s*\[\s*['"]([a-z0-9 \/._*-]+)['"]\s*\]\s*\[\s*['"]([0-9a-z._-]+)['"]\s*\]/i ) {
5684 $hook_name = $1;
5685 $hooked_plugin_name = $2;
5686 # Note: if we wanted to stop plugins from registering
5687 # a *different* plugin on a hook, we could catch
5688 # it here, however this has actually proven to be
5689 # a useful *feature*
5690 #if ($hooked_plugin_name ne $plugins[$ct]) {
5691 # print "...plugin is tring to hook in under different name...\n";
5692 #}
5693
5694 #FIXME: do we want to count the number of hook registrations for each plugin and warn if a plugin doesn't have any?
5695 # hook registration has been found!
5696 if ($verbose) {
5697 if ($hooked_plugin_name ne $plugins[$ct]) {
5698 print " registering on hook \"" . $hook_name . "\" (as \"$hooked_plugin_name\" plugin)\n";
5699 } else {
5700 print " registering on hook \"" . $hook_name . "\"\n";
5701 }
5702 }
5703 $line =~ s/ {2,}/ /g;
5704 $line =~ s/=/\n =/;
5705 print HOOKFILE "\$$line";
5706
5707 }
5708
5709 }
5710
5711 }
5712 close(FILE);
5713
5714 } else {
5715 print "\n";
5716 print "WARNING:\n";
5717 print "The file \"$setup_file\" was not found.\n";
5718 print "The plugin \"" . $plugins[$ct];
5719 print "\" will not be activated until you fix this.\n";
5720 print "\nPress enter to continue";
5721 $ctu = <STDIN>;
5722 print "\n";
5723 next;
5724 }
5725
5726 }
5727
5728 print HOOKFILE "\n\n";
5729 close(HOOKFILE);
5730 # if ($verbose) {
5731 print "\nDone activating plugins; registration data saved in plugin_hooks.php\n\n";
5732 # }
5733
5734 } else {
5735
5736 print "\n";
5737 print "WARNING:\n";
5738 print "The file \"plugin_hooks.php\" was not able to be written to.\n";
5739 print "No plugins will be activated until you fix this.\n";
5740 print "\nPress enter to continue";
5741 $ctu = <STDIN>;
5742 print "\n";
5743
5744 }
5745
5746 }
5747
5748 # converts (binary) integer values that correspond
5749 # to the SquirrelMail debug mode constants (see
5750 # include/constants.php) into those constant strings
5751 # (bitwise or'd if more than one is enabled)
5752 #
5753 # if the value passed in is not an integer, it is
5754 # returned unmolested
5755 #
5756 sub convert_debug_binary_integer_to_constants() {
5757
5758 my ($debug_mode) = @_;
5759 if ($debug_mode =~ /^[^0-9]/) {
5760 return $debug_mode;
5761 }
5762 $debug_mode = int($debug_mode);
5763 $new_debug_mode = '';
5764
5765 # per include/constants.php, here are their values:
5766 #
5767 # 0 SM_DEBUG_MODE_OFF
5768 # 1 SM_DEBUG_MODE_SIMPLE
5769 # 512 SM_DEBUG_MODE_MODERATE
5770 # 524288 SM_DEBUG_MODE_ADVANCED
5771 # 536870912 SM_DEBUG_MODE_STRICT
5772 #
5773 if ($debug_mode & 1) {
5774 $new_debug_mode .= ' | SM_DEBUG_MODE_SIMPLE';
5775 }
5776 if ($debug_mode & 512) {
5777 $new_debug_mode .= ' | SM_DEBUG_MODE_MODERATE';
5778 }
5779 if ($debug_mode & 524288) {
5780 $new_debug_mode .= ' | SM_DEBUG_MODE_ADVANCED';
5781 }
5782 if ($debug_mode & 536870912) {
5783 $new_debug_mode .= ' | SM_DEBUG_MODE_STRICT';
5784 }
5785
5786 $new_debug_mode =~ s/^ \| //;
5787 if (!$new_debug_mode) {
5788 $new_debug_mode = 'SM_DEBUG_MODE_OFF';
5789 }
5790
5791 return $new_debug_mode;
5792 }
5793
5794 # converts SquirrelMail debug mode constants (see
5795 # include/constants.php) into their corresponding
5796 # (binary) integer values
5797 #
5798 # if the value passed in is an integer already, it
5799 # is returned unmolested
5800 #
5801 sub convert_debug_constants_to_binary_integer() {
5802
5803 my ($debug_mode) = @_;
5804 if ($debug_mode =~ /^[0-9]/) {
5805 return $debug_mode;
5806 }
5807 $new_debug_mode = 0;
5808
5809 # per include/constants.php, here are their values:
5810 #
5811 # 0 SM_DEBUG_MODE_OFF
5812 # 1 SM_DEBUG_MODE_SIMPLE
5813 # 512 SM_DEBUG_MODE_MODERATE
5814 # 524288 SM_DEBUG_MODE_ADVANCED
5815 # 536870912 SM_DEBUG_MODE_STRICT
5816 #
5817 if ($debug_mode =~ /\bSM_DEBUG_MODE_OFF\b/) {
5818 $new_debug_mode = 0;
5819 }
5820 if ($debug_mode =~ /\bSM_DEBUG_MODE_SIMPLE\b/) {
5821 $new_debug_mode |= 1;
5822 }
5823 if ($debug_mode =~ /\bSM_DEBUG_MODE_MODERATE\b/) {
5824 $new_debug_mode |= 512;
5825 }
5826 if ($debug_mode =~ /\bSM_DEBUG_MODE_ADVANCED\b/) {
5827 $new_debug_mode |= 524288;
5828 }
5829 if ($debug_mode =~ /\bSM_DEBUG_MODE_STRICT\b/) {
5830 $new_debug_mode |= 536870912;
5831 }
5832
5833 return $new_debug_mode;
5834 }
5835
5836 # Function to print n column numbered lists
5837 #
5838 # WARNING: the names in the list will be truncated
5839 # to fit in their respective columns based on the
5840 # screen width and number of columns.
5841 #
5842 # Expected arguments (in this order):
5843 #
5844 # * The start number to use for the list
5845 # * The number of columns to use
5846 # * The screen width
5847 # * Boolean (zero/one), indicating
5848 # whether or not to show item numbers
5849 # * The list of strings to be shown
5850 #
5851 # Returns: The number printed on screen of the last item in the list
5852 #
5853 sub print_multi_col_list {
5854 my ($num, $cols, $screen_width, $show_numbering, @list) = @_;
5855 my $x;
5856 my $col_cnt = 0;
5857 my $row_cnt = 0;
5858 my $rows;
5859 my $col_width;
5860 my $total = 0;
5861 my @layout = ();
5862 my @numbers = ();
5863
5864 $rows = int(@list / $cols);
5865 if (@list % $cols) { $rows++; }
5866 if ($show_numbering) { $col_width = int(($screen_width - 2) / $cols) - 5; }
5867 else { $col_width = int(($screen_width - 2) / $cols) - 2; }
5868
5869 # build the layout array so numbers run down each column
5870 #
5871 for ( $x = 0; $x < @list; $x++ ) {
5872
5873 $layout[$row_cnt][$col_cnt] = $list[$x];
5874 $numbers[$row_cnt][$col_cnt] = $num++;
5875
5876 # move to next column
5877 #
5878 if ($row_cnt == $rows - 1) {
5879 $row_cnt = 0;
5880 $col_cnt++;
5881 }
5882 else { $row_cnt++; }
5883
5884 }
5885
5886 # if we filled up fewer rows than needed, recalc column width
5887 #
5888 if ($rows * $col_cnt == @list) { $col_cnt--; } # loop above ended right after increment
5889 if ($col_cnt + 1 < $cols) {
5890 if ($show_numbering) { $col_width = int(($screen_width - 2) / ($col_cnt + 1)) - 5; }
5891 else { $col_width = int(($screen_width - 2) / ($col_cnt + 1)) - 2; }
5892 }
5893
5894 # print it
5895 # iterate rows
5896 #
5897 for ( $row_cnt = 0; $row_cnt <= $rows; $row_cnt++ ) {
5898
5899 # indent the row
5900 #
5901 print " ";
5902
5903 # iterate columns for this row
5904 #
5905 for ( $col_cnt = 0; $col_cnt <= $cols; $col_cnt++ ) {
5906 if ($layout[$row_cnt][$col_cnt]) {
5907 print " ";
5908 if ($show_numbering) { printf "$WHT% 2u.$NRM", $numbers[$row_cnt][$col_cnt]; }
5909 printf " %-$col_width." . $col_width . "s", $layout[$row_cnt][$col_cnt];
5910 }
5911 }
5912 print "\n";
5913 }
5914
5915
5916 return $num - 1;
5917 }
5918
Unnamed repository; edit this file 'description' to name the repository.