$tmp =~ s/[\'\"]?,?\s*$//;
$tmp =~ s/[\'\"]?\);\s*$//;
$listing = $tmp;
+ } elsif ( $tmp =~ /^\s*[\'\"]writeable[\'\"]/i ) {
+ $tmp =~ s/^\s*[\'\"]writeable[\'\"]\s*=>\s*[\'\"]?//i;
+ $tmp =~ s/[\'\"]?,?\s*$//;
+ $tmp =~ s/[\'\"]?\);\s*$//;
+ $writeable = $tmp;
} elsif ( $tmp =~ /^\s*[\'\"]search_tree[\'\"]/i ) {
$tmp =~ s/^\s*[\'\"]search_tree[\'\"]\s*=>\s*[\'\"]?//i;
$tmp =~ s/[\'\"]?,?\s*$//;
$ldap_protocol[$sub] = $protocol;
$ldap_limit_scope[$sub] = $limit_scope;
$ldap_listing[$sub] = $listing;
+ $ldap_writeable[$sub] = $writeable;
$ldap_search_tree[$sub] = $search_tree;
$ldap_starttls[$sub] = $starttls;
- } elsif ( $options[0] =~ /^(data_dir|attachment_dir|theme_css|org_logo|signout_page)$/ ) {
+ } elsif ( $options[0] =~ /^(data_dir|attachment_dir|theme_css|org_logo|signout_page|icon_theme_def)$/ ) {
${ $options[0] } = &change_to_rel_path($options[1]);
} else {
${ $options[0] } = $options[1];
$prefs_key_size = 64 if ( !$prefs_key_size );
$prefs_val_size = 65536 if ( !$prefs_val_size );
+# since 1.5.2
+$icon_theme_def = '' if ( !$icon_theme_def );
+
# add qmail-inject test here for backwards compatibility
if ( !$sendmail_args && $sendmail_path =~ /qmail-inject/ ) {
$sendmail_args = '';
$disable_thread_sort = 'false' if ( !$disable_thread_sort );
$disable_server_sort = 'false' if ( !$disable_server_sort );
+# since 1.5.2
+$abook_file_line_length = 2048 if ( !$abook_file_line_length );
+$config_location_base = '' if ( !$config_location_base );
+$smtp_sitewide_user = '' if ( !$smtp_sitewide_user );
+$smtp_sitewide_pass = '' if ( !$smtp_sitewide_pass );
+
if ( $ARGV[0] eq '--install-plugin' ) {
print "Activating plugin " . $ARGV[1] . "\n";
push @plugins, $ARGV[1];
print "4. IMAP Server : $WHT$imapServerAddress$NRM\n";
print "5. IMAP Port : $WHT$imapPort$NRM\n";
print "6. Authentication type : $WHT$imap_auth_mech$NRM\n";
- print "7. Secure IMAP (TLS) : $WHT$use_imap_tls$NRM\n";
+ print "7. Secure IMAP (TLS) : $WHT" . display_use_tls($use_imap_tls) . "$NRM\n";
print "8. Server software : $WHT$imap_server_type$NRM\n";
print "9. Delimiter : $WHT$optional_delimiter$NRM\n";
print "\n";
print "4. SMTP Server : $WHT$smtpServerAddress$NRM\n";
print "5. SMTP Port : $WHT$smtpPort$NRM\n";
print "6. POP before SMTP : $WHT$pop_before_smtp$NRM\n";
- print "7. SMTP Authentication : $WHT$smtp_auth_mech$NRM\n";
- print "8. Secure SMTP (TLS) : $WHT$use_smtp_tls$NRM\n";
+ print "7. SMTP Authentication : $WHT$smtp_auth_mech" . display_smtp_sitewide_userpass() ."$NRM\n";
+ print "8. Secure SMTP (TLS) : $WHT" . display_use_tls($use_smtp_tls) . "$NRM\n";
print "9. Header encryption key : $WHT$encode_header_key$NRM\n";
print "\n";
}
print "13. Allow advanced search : $WHT$allow_advanced_search$NRM\n";
print "14. PHP session name : $WHT$session_name$NRM\n";
print "15. Time zone configuration : $WHT$time_zone_type$NRM\n";
+ print "16. Location base : $WHT$config_location_base$NRM\n";
print "\n";
print "R Return to Main Menu\n";
} elsif ( $menu == 5 ) {
print "3. Global address book file : $WHT$abook_global_file$NRM\n";
print "4. Allow writing into global file address book : $WHT$abook_global_file_writeable$NRM\n";
print "5. Allow listing of global file address book : $WHT$abook_global_file_listing$NRM\n";
+ print "6. Allowed address book line length : $WHT$abook_file_line_length$NRM\n";
print "\n";
print "R Return to Main Menu\n";
} elsif ( $menu == 7 ) {
print $WHT. "Interface tweaks\n" . $NRM;
print "1. Display html mails in iframe : $WHT$use_iframe$NRM\n";
print "2. Use Icons : $WHT$use_icons$NRM\n";
+ print "3. Default Icon Set : $WHT$icon_theme_def$NRM\n";
print "\n";
print $WHT. "PHP tweaks\n" . $NRM;
- print "3. Use php recode functions : $WHT$use_php_recode$NRM\n";
- print "4. Use php iconv functions : $WHT$use_php_iconv$NRM\n";
+ print "4. Use php recode functions : $WHT$use_php_recode$NRM\n";
+ print "5. Use php iconv functions : $WHT$use_php_iconv$NRM\n";
print "\n";
print $WHT. "Configuration tweaks\n" . $NRM;
- print "5. Allow remote configtest : $WHT$allow_remote_configtest$NRM\n";
+ print "6. Allow remote configtest : $WHT$allow_remote_configtest$NRM\n";
print "\n";
print "R Return to Main Menu\n";
}
elsif ( $command == 13 ) { $allow_advanced_search = command316(); }
elsif ( $command == 14 ) { $session_name = command317(); }
elsif ( $command == 15 ) { $time_zone_type = command318(); }
+ elsif ( $command == 16 ) { $config_location_base = command_config_location_base(); }
} elsif ( $menu == 5 ) {
if ( $command == 1 ) { $templateset_default = command_templates(); }
elsif ( $command == 2 ) { $theme_css = command42(); }
elsif ( $command == 3 ) { $abook_global_file=command63(); }
elsif ( $command == 4 ) { command64(); }
elsif ( $command == 5 ) { command65(); }
+ elsif ( $command == 6 ) { command_abook_file_line_length(); }
} elsif ( $menu == 7 ) {
if ( $command == 1 ) { $motd = command71(); }
} elsif ( $menu == 8 ) {
} elsif ( $menu == 11 ) {
if ( $command == 1 ) { $use_iframe = commandB2(); }
elsif ( $command == 2 ) { $use_icons = commandB3(); }
- elsif ( $command == 3 ) { $use_php_recode = commandB4(); }
- elsif ( $command == 4 ) { $use_php_iconv = commandB5(); }
- elsif ( $command == 5 ) { $allow_remote_configtest = commandB6(); }
+ elsif ( $command == 3 ) { $icon_theme_def = commandB7(); }
+ elsif ( $command == 4 ) { $use_php_recode = commandB4(); }
+ elsif ( $command == 5 ) { $use_php_iconv = commandB5(); }
+ elsif ( $command == 6 ) { $allow_remote_configtest = commandB6(); }
}
}
}
print "If your Organization Title includes a '\$', please precede it with a \\. \n";
print "Other '\$' will be considered the beginning of a variable that\n";
print "must be defined before the \$org_title is printed.\n";
- print "\$version, for example can be used, and will print the\n";
- print "string representing the current SquirrelMail version.\n";
print "\n";
print "[$WHT$org_title$NRM]: $WHT";
$new_org_title = <STDIN>;
return $new_smtpPort;
}
-# authenticated server
-sub command18 {
- return;
- # This sub disabled by tassium - it has been replaced with smtp_auth_mech
- print "Do you wish to use an authenticated SMTP server? Your server must\n";
- print "support this in order for SquirrelMail to work with it. We implemented\n";
- print "it according to RFC 2554.\n";
-
- $YesNo = 'n';
- $YesNo = 'y' if ( lc($use_authenticated_smtp) eq 'true' );
-
- print "Use authenticated SMTP server (y/n) [$WHT$YesNo$NRM]: $WHT";
-
- $new_use_authenticated_smtp = <STDIN>;
- $new_use_authenticated_smtp =~ tr/yn//cd;
- return 'true' if ( $new_use_authenticated_smtp eq "y" );
- return 'false' if ( $new_use_authenticated_smtp eq "n" );
- return $use_authenticated_smtp;
-}
-
# pop before SMTP
sub command18a {
print "Do you wish to use POP3 before SMTP? Your server must\n";
# Now offers to detect supported mechs, assuming server & port are set correctly
sub command112a {
- if ($use_imap_tls =~ /^true\b/i) {
- print "Auto-detection of login methods is unavailable when using TLS.\n";
+ if ($use_imap_tls ne "0") {
+ # 1. Script does not handle TLS.
+ # 2. Server does not have to declare all supported authentication mechs when
+ # STARTTLS is used. Supported mechs are declared only after STARTTLS.
+ print "Auto-detection of login methods is unavailable when using TLS or STARTTLS.\n";
} else {
print "If you have already set the hostname and port number, I can try to\n";
print "detect the mechanisms your IMAP server supports.\n";
# SMTP authentication type
# Possible choices: none, plain, cram-md5, digest-md5
sub command112b {
- if ($use_smtp_tls =~ /^true\b/i) {
- print "Auto-detection of login methods is unavailable when using TLS.\n";
- } else {
+ if ($use_smtp_tls ne "0") {
+ print "Auto-detection of login methods is unavailable when using TLS or STARTTLS.\n";
+ } elsif (eval ("use IO::Socket; 1")) {
+ # try loading IO::Socket module
print "If you have already set the hostname and port number, I can try to\n";
print "automatically detect some of the mechanisms your SMTP server supports.\n";
print "Auto-detection is *optional* - you can safely say \"n\" here.\n";
# Special case!
# Check none by trying to relay to junk@microsoft.com
$host = $smtpServerAddress . ':' . $smtpPort;
- use IO::Socket;
my $sock = IO::Socket::INET->new($host);
print "Testing none:\t\t$WHT";
if (!defined($sock)) {
$inval=<STDIN>;
chomp($inval);
if ($inval =~ /^none\b/i) {
- # SMTP doesn't necessarily require logins
- return "none";
+ # remove sitewide smtp authentication information
+ $smtp_sitewide_user = '';
+ $smtp_sitewide_pass = '';
+ # SMTP doesn't necessarily require logins
+ return "none";
+ } elsif ( ($inval =~ /^cram-md5\b/i) || ($inval =~ /^digest-md5\b/i) ||
+ ($inval =~ /^login\b/i) || ($inval =~/^plain\b/i)) {
+ command_smtp_sitewide_userpass($inval);
+ return lc($inval);
+ } elsif (trim($inval) eq '') {
+ # user selected default value
+ command_smtp_sitewide_userpass($smtp_auth_mech);
+ return $smtp_auth_mech;
+ } else {
+ # user entered garbage
+ return $smtp_auth_mech;
+ }
+}
+
+sub command_smtp_sitewide_userpass($) {
+ # get first function argument
+ my $auth_mech = shift(@_);
+ my $default, $tmp;
+ $auth_mech = lc(trim($auth_mech));
+ if ($auth_mech eq 'none') {
+ return;
}
- if ( ($inval =~ /^cram-md5\b/i) || ($inval =~ /^digest-md5\b/i) ||
- ($inval =~ /^login\b/i) || ($inval =~/^plain\b/i)) {
- return lc($inval);
+ print "SMTP authentication uses IMAP username and password by default.\n";
+ print "\n";
+ print "Would you like to use other login and password for all SquirrelMail \n";
+ print "SMTP connections?";
+ if ($smtp_sitewide_user ne '') {
+ $default = 'y';
+ print " [Yn]:";
+ } else {
+ $default = 'n';
+ print " [yN]:";
+ }
+ $tmp=<STDIN>;
+ $tmp = trim($tmp);
+
+ if ($tmp eq '') {
+ $tmp = $default;
} else {
- # user entered garbage, or default value so nothing needs to be set
- return $smtp_auth_mech;
+ $tmp = lc($tmp);
+ }
+
+ if ($tmp eq 'n') {
+ $smtp_sitewide_user = '';
+ $smtp_sitewide_pass = '';
+ } elsif ($tmp eq 'y') {
+ print "Enter username [$smtp_sitewide_user]:";
+ my $new_user = <STDIN>;
+ $new_user = trim($new_user);
+ if ($new_user ne '') {
+ $smtp_sitewide_user = $new_user;
+ }
+ if ($smtp_sitewide_user ne '') {
+ print "If you don't enter any password, current sitewide password will be used.\n";
+ print "If you enter space, password will be set to empty string.\n";
+ print "Enter password:";
+ my $new_pass = <STDIN>;
+ if ($new_pass ne "\n") {
+ $smtp_sitewide_pass = trim($new_pass);
+ }
+ } else {
+ print "Invalid input. You must set username used for SMTP authentication.\n";
+ print "Click any key to continue\n";
+ $tmp = <STDIN>;
+ }
+ } else {
+ print "Invalid input\n";
+ print "Click any key to continue\n";
+ $tmp = <STDIN>;
}
}
+# Sub adds information about SMTP authentication type to menu
+sub display_smtp_sitewide_userpass() {
+ my $ret = '';
+ if ($smtp_auth_mech ne 'none') {
+ if ($smtp_sitewide_user ne '') {
+ $ret = ' (with custom username and password)';
+ } else {
+ $ret = ' (with IMAP username and password)';
+ }
+ }
+ return $ret;
+}
+
# TLS
# This sub is reused for IMAP and SMTP
# Args: service name, default value
return $default_val;
}
+# This sub is used to display human readable text for
+# $use_imap_tls and $use_smtp_tls values in conf.pl menu
+sub display_use_tls($) {
+ my $val = shift(@_);
+ my $ret = 'disabled';
+ if ($val eq '2') {
+ $ret = 'STARTTLS';
+ } elsif ($val eq '1') {
+ $ret = 'TLS';
+ }
+ return $ret;
+}
+
# $encode_header_key
sub command114{
print "Encryption key allows to hide SquirrelMail Received: headers\n";
if ( $new_trash_folder eq "\n" ) {
$new_trash_folder = $trash_folder;
} else {
- $new_trash_folder =~ s/[\r\n]//g;
+ if (check_imap_folder($new_trash_folder)) {
+ $new_trash_folder =~ s/[\r\n]//g;
+ } else {
+ $new_trash_folder = $trash_folder;
+ }
}
return $new_trash_folder;
}
if ( $new_sent_folder eq "\n" ) {
$new_sent_folder = $sent_folder;
} else {
- $new_sent_folder =~ s/[\r\n]//g;
+ if (check_imap_folder($new_sent_folder)) {
+ $new_sent_folder =~ s/[\r\n]//g;
+ } else {
+ $new_sent_folder = $sent_folder;
+ }
}
return $new_sent_folder;
}
if ( $new_draft_folder eq "\n" ) {
$new_draft_folder = $draft_folder;
} else {
- $new_draft_folder =~ s/[\r\n]//g;
+ if (check_imap_folder($new_draft_folder)) {
+ $new_draft_folder =~ s/[\r\n]//g;
+ } else {
+ $new_draft_folder = $draft_folder;
+ }
}
return $new_draft_folder;
}
return $time_zone_type;
}
+# set the location base for redirects (since 1.5.2)
+sub command_config_location_base {
+ print "Here you can set the base part of the SquirrelMail URL.\n";
+ print "It is normally autodetected but if that fails, use this\n";
+ print "option to override.\n";
+ print "It should contain only the protocol and hostname/port parts\n";
+ print "of the URL; the full path will be appended automatically.\n\n";
+ print "Examples:\nhttp://webmail.example.org\nhttp://webmail.example.com:8080\nhttps://webmail.example.com:6691\n\n";
+ print "Do not add any path elements.\n";
+
+ print "URL base? [" .$WHT."autodetect$NRM]: $WHT";
+ $new_config_location_base = <STDIN>;
+ chomp($new_config_location_base);
+ $config_location_base = $new_config_location_base;
+
+ return $config_location_base;
+}
+
+
sub command41 {
print "\nDefine the themes that you wish to use. If you have added ";
sub command61 {
print "You can now define different LDAP servers.\n";
+ print "Please ensure proper permissions for config.php when including\n";
+ print "sensitive passwords.\n\n";
print "[ldap] command (?=help) > ";
$input = <STDIN>;
$input =~ s/[\r\n]//g;
if ( $ldap_listing[$count] ) {
print " listing: $ldap_listing[$count]\n";
}
+ if ( $ldap_writeable[$count] ) {
+ print " writeable: $ldap_writeable[$count]\n";
+ }
if ( $ldap_search_tree[$count] ) {
print " search_tree: $ldap_search_tree[$count]\n";
}
$sub = $#ldap_host + 1;
print "First, we need to have the hostname or the IP address where\n";
- print "this LDAP server resides. Example: ldap.bigfoot.com\n";
+ print "this LDAP server resides. Example: ldap.bigfoot.com\n";
+ print "\n";
+ print "You can use any URI compatible with your LDAP library. Please\n";
+ print "note that StartTLS option is not compatible with ldaps and\n";
+ print "ldapi URIs.\n";
print "hostname: ";
$name = <STDIN>;
$name =~ s/[\r\n]//g;
print "Number of displayed entries is limited by maxrows setting.\n";
print "\n";
print "Don't enable this option for public LDAP directories.\n";
- print "This feature is experimental.\n";
print "\n";
print "Allow listing of LDAP directory? (y/N):";
$name = <STDIN>;
print "\n";
+ print "You can control write access to LDAP address book here. This option can\n";
+ print "be useful if you run small LDAP server and want to provide writable\n";
+ print "shared address book stored in LDAP to users of webmail interface.\n";
+ print "\n";
+ print "Don't enable this option for public LDAP directories.\n";
+ print "\n";
+ print "Allow writing to LDAP directory? (y/N):";
+ $name = <STDIN>;
+ if ( $name =~ /^y\n/i ) {
+ $name = 'true';
+ } else {
+ $name = 'false';
+ }
+ $ldap_writeable[$sub] = $name;
+
+ print "\n";
+
print "You can specify an additional search filter.\n";
print "This could be something like \"(objectclass=posixAccount)\".\n";
print "No filtering is performed by default. Press ENTER for default.\n";
@new_ldap_protocol = ();
@new_ldap_limit_scope = ();
@new_ldap_listing = ();
+ @new_ldap_writeable = ();
@new_ldap_search_tree = ();
@new_ldap_starttls = ();
@new_ldap_protocol = ( @new_ldap_protocol, $ldap_protocol[$count] );
@new_ldap_limit_scope = ( @new_ldap_limit_scope, $ldap_limit_scope[$count] );
@new_ldap_listing = ( @new_ldap_listing, $ldap_listing[$count] );
+ @new_ldap_writeable = ( @new_ldap_writeable, $ldap_writeable[$count] );
@new_ldap_search_tree = ( @new_ldap_search_tree, $ldap_search_tree[$count] );
@new_ldap_starttls = ( @new_ldap_starttls, $ldap_starttls[$count] );
}
@ldap_protocol = @new_ldap_protocol;
@ldap_limit_scope = @new_ldap_limit_scope;
@ldap_listing = @new_ldap_listing;
+ @ldap_writeable = @new_ldap_writeable;
@ldap_search_tree = @new_ldap_search_tree;
@ldap_starttls = @new_ldap_starttls;
return $abook_global_file_listing;
}
+# controls $abook_file_line_length setting
+sub command_abook_file_line_length {
+ print "This setting controls space allocated to file based address book records.\n";
+ print "End users will be unable to save address book entry, if total entry size \n";
+ print "(quoted address book fields + 4 delimiters + linefeed) exceeds allowed \n";
+ print "address book length size.\n";
+ print "\n";
+ print "Same setting is applied to personal and global file based address books.\n";
+ print "\n";
+ print "It is strongly recommended to keep default setting value. Change it only\n";
+ print "if you really want to store address book entries that are bigger than two\n";
+ print "kilobytes (2048).\n";
+ print "\n";
+
+ print "Enter allowed address book line length [$abook_file_line_length]: ";
+ my $tmp = <STDIN>;
+ $tmp = trim($tmp);
+ # value is not modified, if user hits Enter or enters space
+ if ($tmp ne '') {
+ # make sure that input is numeric
+ if ($tmp =~ /^\d+$/) {
+ $abook_file_line_length = $tmp;
+ } else {
+ print "If you want to change this setting, you must enter number.\n";
+ print "If you want to keep original setting - enter space.\n\n";
+ print "Press Enter to continue...";
+ $tmp = <STDIN>;
+ }
+ }
+}
+
sub command91 {
print "If you want to store your users address book details in a database then\n";
print "you need to set this DSN to a valid value. The format for this is:\n";
print "mysql://user:pass\@hostname/dbname\n";
print "Where mysql can be one of the databases PHP supports, the most common\n";
- print "of these are mysql, msql and pgsql\n";
+ print "of these are mysql, msql and pgsql.\n";
+ print "Please ensure proper permissions for config.php when including\n";
+ print "sensitive passwords.\n\n";
print "If the DSN is left empty (hit space and then return) the database\n";
- print "related code for address books will not be used\n";
+ print "related code for address books will not be used.\n";
print "\n";
if ( $addrbook_dsn eq "" ) {
print "you need to set this DSN to a valid value. The format for this is:\n";
print "mysql://user:pass\@hostname/dbname\n";
print "Where mysql can be one of the databases PHP supports, the most common\n";
- print "of these are mysql, msql and pgsql\n";
+ print "of these are mysql, msql and pgsql.\n";
+ print "Please ensure proper permissions for config.php when including\n";
+ print "sensitive passwords.\n\n";
print "If the DSN is left empty (hit space and then return) the database\n";
- print "related code for address books will not be used\n";
+ print "related code for address books will not be used.\n";
print "\n";
if ( $prefs_dsn eq "" ) {
print "you need to set this DSN to a valid value. The format for this is:\n";
print "mysql://user:pass\@hostname/dbname\n";
print "Where mysql can be one of the databases PHP supports, the most common\n";
- print "of these are mysql, msql and pgsql\n";
+ print "of these are mysql, msql and pgsql.\n";
+ print "Please ensure proper permissions for config.php when including\n";
+ print "sensitive passwords.\n\n";
print "If the DSN is left empty (hit space and then return) the database\n";
- print "related code for global SQL address book will not be used\n";
+ print "related code for global SQL address book will not be used.\n";
print "\n";
if ( $addrbook_global_dsn eq "" ) {
print "This option controls what character set is used when sending\n";
print "mail and when sending HTML to the browser. Option works only\n";
print "with US English (en_US) translation. Other translations use\n";
- print "charsets that are set in functions/i18n.php.\n";
+ print "charsets that are set in translation settings.\n";
print "\n";
print "[$WHT$default_charset$NRM]: $WHT";
return $allow_remote_configtest;
}
-
+# Default Icon theme
+sub commandB7 {
+ print "You may change the path to the default icon theme to be used, if icons\n";
+ print "have been enabled. This theme will be used when an icon cannot be\n";
+ print "found in the current theme, or when no icon theme is specified. If\n";
+ print "left blank, and icons are enabled, the default theme will be used\n";
+ print "from images/themes/default/.\n";
+ print "\n";
+ print "To clear out an existing value, just type a space for the input.\n";
+ print "\n";
+ print "Please be aware of the following: \n";
+ print " - Relative URLs are relative to the config dir\n";
+ print " to use the icon themes directory, use ../images/themes/newtheme/\n";
+ print " - The icon theme may be outside the SquirrelMail directory, but\n";
+ print " it must be web accessible.\n";
+ print "[$WHT$icon_theme_def$NRM]: $WHT";
+ $new_icon_theme_def = <STDIN>;
+
+ if ( $new_icon_theme_def eq "\n" ) {
+ $new_icon_theme_def = $icon_theme_def;
+ } else {
+ $new_icon_theme_def =~ s/[\r\n]//g;
+ }
+ $new_icon_theme_def =~ s/^\s*//;
+ return $new_icon_theme_def;
+}
sub save_data {
$tab = " ";
# boolean
print CF "\$hide_auth_header = $hide_auth_header;\n";
# boolean
- print CF "\$disable_thread_sort = $disable_thread_sort;\n";
+ print CF "\$disable_thread_sort = $disable_thread_sort;\n";
# boolean
- print CF "\$disable_server_sort = $disable_server_sort;\n";
+ print CF "\$disable_server_sort = $disable_server_sort;\n";
# boolean
print CF "\$allow_charset_search = $allow_charset_search;\n";
# integer
# integer
print CF "\$time_zone_type = $time_zone_type;\n";
print CF "\n";
+ # string
+ print CF "\$config_location_base = '$config_location_base';\n";
+ print CF "\n";
# all plugins are strings
for ( $ct = 0 ; $ct <= $#plugins ; $ct++ ) {
# boolean
print CF " 'listing' => $ldap_listing[$count]";
}
+ if ( $ldap_writeable[$count] ) {
+ print CF ",\n";
+ # boolean
+ print CF " 'writeable' => $ldap_writeable[$count]";
+ }
if ( $ldap_search_tree[$count] ) {
print CF ",\n";
# integer
print CF "\$abook_global_file_writeable = $abook_global_file_writeable;\n\n";
# boolean
print CF "\$abook_global_file_listing = $abook_global_file_listing;\n\n";
+ # integer
+ print CF "\$abook_file_line_length = $abook_file_line_length;\n\n";
# boolean
print CF "\$no_list_for_subscribe = $no_list_for_subscribe;\n";
# string
print CF "\$smtp_auth_mech = '$smtp_auth_mech';\n";
+ print CF "\$smtp_sitewide_user = '". quote_single($smtp_sitewide_user) ."';\n";
+ print CF "\$smtp_sitewide_pass = '". quote_single($smtp_sitewide_pass) ."';\n";
# string
print CF "\$imap_auth_mech = '$imap_auth_mech';\n";
# boolean
# boolean
print CF "\$use_icons = $use_icons;\n";
print CF "\n";
+ # string
+ print CF "\$icon_theme_def = " . &change_to_SM_path($icon_theme_def) . ";\n";
# boolean
print CF "\$use_php_recode = $use_php_recode;\n";
print CF "\n";
print CF "\$allow_remote_configtest = $allow_remote_configtest;\n";
print CF "\n";
- print CF "\@include SM_PATH . 'config/config_local.php';\n";
-
- print CF "\n/**\n";
- print CF " * Make sure there are no characters after the PHP closing\n";
- print CF " * tag below (including newline characters and whitespace).\n";
- print CF " * Otherwise, that character will cause the headers to be\n";
- print CF " * sent and regular output to begin, which will majorly screw\n";
- print CF " * things up when we try to send more headers later.\n";
- print CF " */\n";
- print CF "?>";
-
close CF;
print "Data saved in config.php\n";
return $new_path;
}
-sub detect_auth_support {
# Attempts to auto-detect if a specific auth mechanism is supported.
# Called by 'command112a' and 'command112b'
# ARGS: service-name (IMAP or SMTP), host:port, mech-name (ie. CRAM-MD5)
-
+sub detect_auth_support {
+ # Try loading IO::Socket
+ unless (eval("use IO::Socket; 1")) {
+ print "Perl IO::Socket module is not available.";
+ return undef;
+ }
# Misc setup
- use IO::Socket;
my $service = shift;
my $host = shift;
my $mech = shift;
system "clear";
}
}
+
+# checks IMAP mailbox name. Refuses to accept 8bit folders
+# returns 0 (folder name is not correct) or 1 (folder name is correct)
+sub check_imap_folder($) {
+ my $folder_name = shift(@_);
+
+ if ($folder_name =~ /[\x80-\xFFFF]/) {
+ print "Folder name contains 8bit characters. Configuration utility requires\n";
+ print "UTF7-IMAP encoded folder names.\n";
+ print "Press any key to continue...";
+ my $tmp = <STDIN>;
+ return 0;
+ } elsif ($folder_name =~ /[&\*\%]/) {
+ # check for ampersand and list-wildcards
+ print "Folder name contains special UTF7-IMAP characters.\n";
+ print "Are you sure that folder name is correct? (yN): ";
+ my $tmp = <STDIN>;
+ $tmp = lc(trim($tmp));
+ if ($tmp =~ /^y$/) {
+ return 1;
+ } else {
+ return 0;
+ }
+ } else {
+ return 1;
+ }
+}
+
+# quotes string written in single quotes
+sub quote_single($) {
+ my $string = shift(@_);
+ $string =~ s/\'/\\'/g;
+ return $string;
+}