--- /dev/null
+#!/usr/bin/perl
+# conf.pl
+# Written March 26, 2000
+# Luke Ehresman (lehresma@css.tayloru.edu)
+#
+# A simple configure script to configure squirrelmail
+############################################################
+$WHT = "\x1B[37;1m";
+$NRM = "\x1B[0m";
+
+print "\n\n--------------------------------------------------------\n";
+print "SquirrelMail version 0.4 -- Configure script\n";
+print "by SquirrelMail Development Team\n";
+print "http://squirrelmail.sourceforge.net\n";
+print "--------------------------------------------------------\n";
+print "\n";
+
+############################################################
+# First, lets read in the data already in there...
+############################################################
+if ( -e "config.php") {
+ print "The file \"config.php\" exists. Using it for defaults.\n\n";
+ open (FILE, "config.php");
+} else {
+ print "No config file found. Reading from config_defaults.php.\n\n";
+ open (FILE, "config_default.php");
+}
+
+# Reads and parses the current configuration file (either
+# config.php or config_default.php).
+
+while ($line = <FILE>) {
+ if ($line =~ /^\s+\$/) {
+ $line =~ s/^\s+\$//;
+ $var = $line;
+
+ if ($var =~ /^([a-z]|[A-Z])/) {
+ @options = split(/\s=\s/, $var);
+ $options[1] =~ s/[\n|\r]//g;
+ $options[1] =~ s/^"//g;
+ $options[1] =~ s/;.*$//g;
+ $options[1] =~ s/"$//g;
+
+ if ($options[0] =~ /^special_folders/) {
+ if ($options[0] =~ /\[.*\]$/) {
+ $sub = $options[0];
+ $sub =~ s/\]$//;
+ $sub = substr ($sub, @sub-1, 1);
+
+ $special_folders[$sub] = $options[1];
+ }
+ } elsif ($options[0] =~ /^theme\[[0-9]+\]\["PATH"\]/) {
+ $sub = $options[0];
+ $sub =~ s/\]\["PATH"\]//;
+ $sub = substr ($sub, @sub-1, 1);
+ $theme_path[$sub] = $options[1];
+ } elsif ($options[0] =~ /^theme\[[0-9]+\]\["NAME"\]/) {
+ $sub = $options[0];
+ $sub =~ s/\]\["NAME"\]//;
+ $sub = substr ($sub, @sub-1, 1);
+ $theme_name[$sub] = $options[1];
+ } else {
+ ${$options[0]} = $options[1];
+ }
+ }
+ }
+}
+
+open (FILE, ">cf.php");
+print FILE "<?\n\t/** SquirrelMail configure script\n";
+print FILE " ** Created using the configure script, config.pl.\n\t **/\n\n";
+
+print "\n-------------------------------------------------.\n";
+print " General Information )\n";
+print "-------------------------------------------------'\n";
+############################################################
+# Organization Name
+############################################################
+print $WHT."What is the name of your organization [$org_name]: $NRM";
+$new_org_name = <STDIN>;
+if ($new_org_name eq "\n") {
+ $new_org_name = $org_name;
+} else {
+ $new_org_name =~ s/[\r|\n]//g;
+}
+print FILE " ".'$org_name = "' . $new_org_name . "\";\n";
+
+
+
+############################################################
+# Organization Logo
+############################################################
+print $WHT."Where is the logo for your organization [$org_logo]: $NRM";
+$new_org_logo = <STDIN>;
+if ($new_org_logo eq "\n") {
+ $new_org_logo = $org_logo;
+} else {
+ $new_org_logo =~ s/[\r|\n]//g;
+}
+print FILE " ".'$org_logo = "' . $new_org_logo . "\";\n";
+
+
+
+
+############################################################
+# Organization Title
+############################################################
+print "The title of the web page [$org_title]: ";
+$new_org_title = <STDIN>;
+if ($new_org_title eq "\n") {
+ $new_org_title = $org_title;
+} else {
+ $new_org_title =~ s/[\r|\n]//g;
+}
+print FILE " ".'$org_title = "' . $new_org_title . "\";\n";
+
+
+
+print "\n-------------------------------------------------.\n";
+print " Server Information )\n";
+print "-------------------------------------------------'\n";
+############################################################
+# IMAP Server
+############################################################
+print "Where is the IMAP server [$imapServerAddress]: ";
+$new_imapServerAddress = <STDIN>;
+if ($new_imapServerAddress eq "\n") {
+ $new_imapServerAddress = $imapServerAddress;
+} else {
+ $new_imapServerAddress =~ s/[\r|\n]//g;
+}
+print FILE " ".'$imapServerAddress = "' . $new_imapServerAddress . "\";\n";
+
+
+
+############################################################
+# IMAP Port
+############################################################
+print "The port for your IMAP server [$imapPort]: ";
+$new_imapPort = <STDIN>;
+if ($new_imapPort eq "\n") {
+ $new_imapPort = $imapPort;
+} else {
+ $new_imapPort =~ s/[\r|\n]//g;
+}
+print FILE " ".'$imapPort = ' . $new_imapPort . ";\n";
+
+
+
+############################################################
+# DOMAIN
+############################################################
+print "What is your domain name (ex: usa.om.org) [$domain]: ";
+$new_domain = <STDIN>;
+if ($new_domain eq "\n") {
+ $new_domain = $domain;
+} else {
+ $new_domain =~ s/[\r|\n]//g;
+}
+print FILE " ".'$domain = "' . $new_domain . "\";\n";
+
+
+############################################################
+# USE SMTP OR SENDMAIL?
+############################################################
+print "\nYou now need to choose the method that you will use for sending\n";
+print "messages in SquirrelMail. You can either connect to an SMTP server\n";
+print "or use sendmail directly.\n";
+if ($useSendmail eq "true") {
+ $default_value = "n";
+} else {
+ $default_value = "y";
+}
+print "Use SMTP (y/n) [$default_value]: ";
+$use_smtp = <STDIN>;
+if (($use_smtp =~ /^y\n/i) || (($use_smtp =~ /^\n/) && ($default_value eq "y"))) {
+ ############################################################
+ # SMTP Server
+ ############################################################
+ print " What is the SMTP server [$smtpServerAddress]: ";
+ $new_smtpServerAddress = <STDIN>;
+ if ($new_smtpServerAddress eq "\n") {
+ $new_smtpServerAddress = $smtpServerAddress;
+ } else {
+ $new_smtpServerAddress =~ s/[\r|\n]//g;
+ }
+ print FILE " ".'$smtpServerAddress = "' . $new_smtpServerAddress . "\";\n";
+
+
+
+ ############################################################
+ # SMTP Port
+ ############################################################
+ print " The port for your SMTP server [$smtpPort]: ";
+ $new_smtpPort = <STDIN>;
+ if ($new_smtpPort eq "\n") {
+ $new_smtpPort = $smtpPort;
+ } else {
+ $new_smtpPort =~ s/[\r|\n]//g;
+ }
+ print FILE " ".'$smtpPort = ' . $new_smtpPort . ";\n";
+} else {
+ ############################################################
+ # Sendmail Path
+ ############################################################
+ if ($sendmail_path[0] !~ /./) {
+ $sendmail_path = "/usr/sbin/sendmail";
+ }
+ print " Where is sendmail located [$sendmail_path]: ";
+ $new_sendmail_path = <STDIN>;
+ if ($new_sendmail_path eq "\n") {
+ $new_sendmail_path = $sendmail_path;
+ } else {
+ $new_sendmail_path =~ s/[\r|\n]//g;
+ }
+ print FILE " ".'$useSendmail'." = true;\n";
+ print FILE " ".'$sendmail_path = "' . $new_sendmail_path . "\";\n";
+}
+
+
+
+print "\n-------------------------------------------------.\n";
+print " General Options )\n";
+print "-------------------------------------------------'\n";
+###############################################################
+# MOTD
+###############################################################
+print "\nYou can now create the welcome message that is displayed\n";
+print "every time a user logs on. You can use HTML or just plain\n";
+print "text.\n\n(Type @ on a blank line to exit)\n";
+do {
+ print "] ";
+ $line = <STDIN>;
+ $line =~ s/[\r|\n]//g;
+ $line =~ s/ /\ \ /g;
+ if ($line ne "@") {
+ $new_motd = $new_motd . $line;
+ }
+} while ($line ne "@");
+print FILE " ".'$motd = "'.$new_motd."\";\n";
+
+
+############################################################
+# AUTO EXPUNGE
+############################################################
+if ($auto_expunge eq "false") {
+ $default_value = "n";
+} else {
+ $default_value = "y";
+}
+print "Should we automatically expunge deleted messages (y/n) [$default_value]: ";
+$autoe = <STDIN>;
+if (($autoe =~ /^y\n/i) || (($autoe =~ /^\n/) && ($default_value eq "y"))) {
+ print FILE " \$auto_expunge = true;\n";
+} else {
+ print FILE " \$auto_expunge = false;\n";
+}
+
+
+############################################################
+# default_sub_of_inbox
+############################################################
+if ($default_sub_of_inbox eq "false") {
+ $default_value = "n";
+} else {
+ $default_value = "y";
+}
+print "By default, are new folders subfolders of INBOX (y/n) [$default_value]: ";
+$autoe = <STDIN>;
+if (($autoe =~ /^y\n/i) || (($autoe =~ /^\n/) && ($default_value eq "y"))) {
+ print FILE " \$default_sub_of_inbox = true;\n";
+} else {
+ print FILE " \$default_sub_of_inbox = false;\n";
+}
+
+
+
+
+############################################################
+# show_contain_subfolders_option
+############################################################
+print "\nSome IMAP daemons (UW) handle folders weird. They only allow a\n";
+print "folder to contain either messages or subfolders. Not both at the\n";
+print "same time. This option controls whether or not to display an \n";
+print "option during folder creation letting them choose if this folder\n";
+print "contains messages or folders.\n";
+if ($show_contain_subfolders_option eq "false") {
+ $default_value = "n";
+} else {
+ $default_value = "y";
+}
+print "Show the option to contain subfolders (y/n) [$default_value]: ";
+$autoe = <STDIN>;
+if (($autoe =~ /^y\n/i) || (($autoe =~ /^\n/) && ($default_value eq "y"))) {
+ print FILE " \$show_contain_subfolders_option = true;\n";
+} else {
+ print FILE " \$show_contain_subfolders_option = false;\n";
+}
+
+
+
+
+
+############################################################
+# auto_forward
+############################################################
+print "\nThis option decides whether or not to use META tags to forward\n";
+print "users past some of the notification screens\n";
+if ($auto_forward eq "false") {
+ $default_value = "n";
+} else {
+ $default_value = "y";
+}
+print "Automatically forward where possible (y/n) [$default_value]: ";
+$autoe = <STDIN>;
+if (($autoe =~ /^y\n/i) || (($autoe =~ /^\n/) && ($default_value eq "y"))) {
+ print FILE " \$auto_forward = true;\n";
+} else {
+ print FILE " \$auto_forward = false;\n";
+}
+
+
+
+
+############################################################
+# DEFAULT CHARSET
+############################################################
+print "\nThis option controls what character set is used when sending mail\n";
+print "and when sending HTMl to the browser. Do not set this to US-ASCII,\n";
+print "use ISO-8859-1 instead. For cyrillic it is best to use KOI8-R,\n";
+print "since this implementation is faster than the alternatives.\n";
+print "Default charset [$default_charset]: ";
+$new_default_charset = <STDIN>;
+if ($new_default_charset eq "\n") {
+ $new_default_charset = $default_charset;
+} else {
+ $new_default_charset =~ s/[\r|\n]//g;
+}
+print FILE " ".'$default_charset = "' . $new_default_charset . "\";\n";
+
+
+
+
+############################################################
+# DATA DIRECTORY
+############################################################
+print "\nIt is a possible security hole to have a writable directory\n";
+print "under the web server's root directory (ex: /home/httpd/html).\n";
+print "For this reason, it is possible to put the data directory\n";
+print "anywhere you would like. The path name can be absolute or\n";
+print "relative (to the config directory). It doesn't matter. Here are\n";
+print "two examples:\n";
+print " Absolute:\n";
+print " /usr/local/squirrelmail/data/;\n";
+print " Relative (to the config directory):\n";
+print " ../data/;\n";
+print "Where is the data directory [$data_dir]: ";
+$new_data_dir = <STDIN>;
+if ($new_data_dir eq "\n") {
+ $new_data_dir = $data_dir;
+} else {
+ $new_data_dir =~ s/[\r|\n]//g;
+}
+print FILE " ".'$data_dir = "' . $new_data_dir . "\";\n";
+
+
+
+
+############################################################
+# ATTACHMENT DIRECTORY
+############################################################
+print "\nPath to directory used for storing attachments while a mail is\n";
+print "being sent. There are a few security considerations regarding this\n";
+print "directory:\n";
+print " - It should have the permission 733 (rwx-wx-wx) to make it\n";
+print " impossible for a random person with access to the webserver to\n";
+print " list files in this directory. Confidential data might be laying\n";
+print " around there\n";
+print " - Since the webserver is not able to list the files in the content\n";
+print " is also impossible for the webserver to delete files lying around\n";
+print " there for too long.\n";
+print " - It should probably be another directory than data_dir.\n";
+print "Where is the attachment directory [$attachment_dir]: ";
+$new_attachment_dir = <STDIN>;
+if ($new_attachment_dir eq "\n") {
+ $new_attachment_dir = $attachment_dir;
+} else {
+ $new_attachment_dir =~ s/[\r|\n]//g;
+}
+print FILE " ".'$attachment_dir = "' . $new_attachment_dir . "\";\n";
+
+
+
+
+############################################################
+# DEFAULT LEFT SIZE
+############################################################
+print "What is the default left folder list size (pixels) [$default_left_size]: ";
+$new_default_left_size = <STDIN>;
+if ($new_default_left_size eq "\n") {
+ $new_default_left_size = $default_left_size;
+} else {
+ $new_default_left_size =~ s/[\r|\n]//g;
+}
+print FILE " ".'$default_left_size = "' . $new_default_left_size . "\";\n";
+
+
+
+
+
+
+
+print "\n-------------------------------------------------.\n";
+print " Special Folders )\n";
+print "-------------------------------------------------'\n";
+
+############################################################
+# Trash folder
+############################################################
+print "What is the default trash folder [$trash_folder]: ";
+$new_trash_folder = <STDIN>;
+if ($new_trash_folder eq "\n") {
+ $new_trash_folder = $trash_folder;
+} else {
+ $new_trash_folder =~ s/[\r|\n]//g;
+}
+print FILE " ".'$trash_folder = "' . $new_trash_folder . "\";\n";
+
+
+
+############################################################
+# Default move to trash
+############################################################
+if ($default_move_to_trash eq "true") {
+ $default_value = "y";
+} else {
+ $default_value = "n";
+}
+print "By default, should deleted messages be moved to $new_trash_folder (y/n) [$default_value]: ";
+$move_trash = <STDIN>;
+if (($move_trash =~ /^y\n/i) || (($move_trash =~ /^\n/) && ($default_value eq "y"))) {
+ print FILE " \$default_move_to_trash = true;\n";
+} else {
+ print FILE " \$default_move_to_trash = false;\n";
+}
+
+
+
+############################################################
+# Sent folder
+############################################################
+print "What is the default sent folder [$sent_folder]: ";
+$new_sent_folder = <STDIN>;
+if ($new_sent_folder eq "\n") {
+ $new_sent_folder = $sent_folder;
+} else {
+ $new_sent_folder =~ s/[\r|\n]//g;
+}
+print FILE " ".'$sent_folder = "' . $new_sent_folder . "\";\n";
+
+
+
+
+############################################################
+# Special Folders
+############################################################
+print "\nSpecial folders are folders that can't be manipulated like normal\n";
+print "user-created folders. A couple of examples of these would be the\n";
+print "trash folder, the sent folder, etc.\n";
+print "Special Folders:\n";
+$count = 0;
+print "\n";
+while ($count < @special_folders) {
+ print " $count) " . $special_folders[$count] . "\n";
+ $count++;
+}
+print "[folders] command (?=help) > ";
+$input = <STDIN>;
+$input =~ s/[\r|\n]//g;
+while ($input ne "d") {
+ ## ADD
+ if ($input =~ /^\s*\+\s*.*/) {
+ $input =~ s/^\s*\+\s*//;
+ $special_folders[$#special_folders+1] = $input;
+ }
+
+ elsif ($input =~ /^\s*-\s*[0-9]?/) {
+ if ($input =~ /[0-9]+\s*$/) {
+ $rem_num = $input;
+ $rem_num =~ s/^\s*-\s*//g;
+ $rem_num =~ s/\s*$//;
+ } else {
+ $rem_num = $#special_folders;
+ }
+
+ if ($rem_num == 0) {
+ print "You cannot remove INBOX. It is a very special folder.\n";
+ } else {
+ $count = 0;
+ @new_special_folders = ();
+ while ($count <= $#special_folders) {
+ if ($count != $rem_num) {
+ @new_special_folders = (@new_special_folders, $special_folders[$count]);
+ }
+ $count++;
+ }
+ @special_folders = @new_special_folders;
+ }
+ }
+
+ elsif ($input =~ /^\s*l\s*/) {
+ $count = 0;
+ print "\n";
+ while ($count < @special_folders) {
+ print " $count) " . $special_folders[$count] . "\n";
+ $count++;
+ }
+ } elsif ($input =~ /^\s*\?\s*/) {
+ print ".-------------------------.\n";
+ print "| + Folder (add folder) |\n";
+ print "| - N (remove folder) |\n";
+ print "| l (list folders) |\n";
+ print "| d (done) |\n";
+ print "`-------------------------'\n";
+ }
+
+ else {
+ print "Unrecognized command.\n";
+ }
+
+ print "[folders] command (?=help) > ";
+ $input = <STDIN>;
+ $input =~ s/[\r|\n]//g;
+}
+
+$count = 0;
+while ($count <= $#special_folders) {
+ print FILE " \$special_folders[$count] = \"$special_folders[$count]\";\n";
+ $count++;
+}
+
+
+############################################################
+# Use special folder color
+############################################################
+if ($use_special_folder_color eq "true") {
+ $default_value = "y";
+} else {
+ $default_value = "n";
+}
+print "\nHighlight special folders in a different color (y/n) [$default_value]: ";
+$use_spec_folder = <STDIN>;
+if (($use_spec_folder =~ /^y\n/i) || (($use_spec_folder =~ /^\n/) && ($default_value eq "y"))) {
+ print FILE " \$use_special_folder_color = true;\n";
+} else {
+ print FILE " \$use_special_folder_color = false;\n";
+}
+
+
+
+
+############################################################
+# list_special_folders_first
+############################################################
+if ($list_special_folders_first eq "false") {
+ $default_value = "n";
+} else {
+ $default_value = "y";
+}
+print "Should special folders be listed first (y/n) [$default_value]: ";
+$autoe = <STDIN>;
+if (($autoe =~ /^y\n/i) || (($autoe =~ /^\n/) && ($default_value eq "y"))) {
+ print FILE " \$list_special_folders_first = true;\n";
+} else {
+ print FILE " \$list_special_folders_first = false;\n";
+}
+
+
+
+
+############################################################
+# Themes
+############################################################
+print "\nNow we will define the themes that you wish to use. If you have added\n";
+print "a theme of your own, just follow the instructions (?) about how to add\n";
+print "them. You can also change the default theme.\n";
+print "[theme] command (?=help) > ";
+$input = <STDIN>;
+$input =~ s/[\r|\n]//g;
+$theme_default = 0;
+while ($input ne "d") {
+ if ($input =~ /^\s*l\s*/i) {
+ $count = 0;
+ while ($count <= $#theme_name) {
+ if ($count == $theme_default) {
+ print " *";
+ } else {
+ print " ";
+ }
+ $name = $theme_name[$count];
+ $num_spaces = 25 - length($name);
+ for ($i = 0; $i < $num_spaces;$i++) {
+ $name = $name . " ";
+ }
+
+ print " $count. $name";
+ print "($theme_path[$count])\n";
+
+ $count++;
+ }
+ } elsif ($input =~ /^\s*m\s*[0-9]+/i) {
+ $old_def = $theme_default;
+ $theme_default = $input;
+ $theme_default =~ s/^\s*m\s*//;
+ if (($theme_default > $#theme_name) || ($theme_default < 0)) {
+ print "Cannot set default theme to $theme_default. That theme does not exist.\n";
+ $theme_default = $old_def;
+ }
+ } elsif ($input =~ /^\s*\+/) {
+ print "What is the name of this theme: ";
+ $name = <STDIN>;
+ $name =~ s/[\r|\n]//g;
+ $theme_name[$#theme_name+1] = $name;
+ print "Be sure to put ../config/ before the filename.\n";
+ print "What file is this stored in (ex: ../config/default_theme.php): ";
+ $name = <STDIN>;
+ $name =~ s/[\r|\n]//g;
+ $theme_path[$#theme_path+1] = $name;
+ } elsif ($input =~ /^\s*-\s*[0-9]?/) {
+ if ($input =~ /[0-9]+\s*$/) {
+ $rem_num = $input;
+ $rem_num =~ s/^\s*-\s*//g;
+ $rem_num =~ s/\s*$//;
+ } else {
+ $rem_num = $#theme_name;
+ }
+ if ($rem_num == $theme_default) {
+ print "You cannot remove the default theme!\n";
+ } else {
+ $count = 0;
+ @new_theme_name = ();
+ @new_theme_path = ();
+ while ($count <= $#theme_name) {
+ if ($count != $rem_num) {
+ @new_theme_name = (@new_theme_name, $theme_name[$count]);
+ @new_theme_path = (@new_theme_path, $theme_path[$count]);
+ }
+ $count++;
+ }
+ @theme_name = @new_theme_name;
+ @theme_path = @new_theme_path;
+ if ($theme_default > $rem_num) {
+ $theme_default--;
+ }
+ }
+ } elsif ($input =~ /^\s*\?\s*/) {
+ print ".-------------------------.\n";
+ print "| + (add theme) |\n";
+ print "| - N (remove theme) |\n";
+ print "| m N (mark default) |\n";
+ print "| l (list themes) |\n";
+ print "| d (done) |\n";
+ print "`-------------------------'\n";
+ }
+ print "[theme] command (?=help) > ";
+ $input = <STDIN>;
+ $input =~ s/[\r|\n]//g;
+}
+
+$count = 0;
+print FILE " \$theme[0][\"NAME\"] = \"$theme_name[$theme_default]\";\n";
+print FILE " \$theme[0][\"PATH\"] = \"$theme_path[$theme_default]\";\n";
+$index = 1;
+while ($count < $#theme_name) {
+ if ($count != $theme_default) {
+ print FILE " \$theme[$index][\"NAME\"] = \"$theme_name[$count]\";\n";
+ print FILE " \$theme[$index][\"PATH\"] = \"$theme_path[$count]\";\n";
+ $index++;
+ }
+ $count++;
+}
+
+print FILE "\n?>\n";
+close FILE;
+
+
+print "\n\nFINISHED!\n";
+print "All changes have been written to cf.php. If you would like, I can write\n";
+print "the changes to config.php.\n";
+print "Overwrite config.php (y/n) [y]: ";
+$autoe = <STDIN>;
+if (($autoe =~ /^y\n/i) || ($autoe =~ /^\n/)) {
+ system "mv -f cf.php config.php";
+}
+
+
projects / squirrelmail.git / commitdiff