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