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