added a configure script
authorlkehresman <lkehresman@7612ce4b-ef26-0410-bec9-ea0150e637f0>
Thu, 30 Mar 2000 02:05:07 +0000 (02:05 +0000)
committerlkehresman <lkehresman@7612ce4b-ef26-0410-bec9-ea0150e637f0>
Thu, 30 Mar 2000 02:05:07 +0000 (02:05 +0000)
git-svn-id: https://svn.code.sf.net/p/squirrelmail/code/trunk/squirrelmail@357 7612ce4b-ef26-0410-bec9-ea0150e637f0

ChangeLog
TODO
config/conf.pl [new file with mode: 0755]

index 435e031..5a4c8fe 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -3,6 +3,7 @@ Version 0.4pre1 -- Development
 - Addressbook with LDAP support
 - Big speed improvements with folder listing
 - Added Subscribe/Unsubscribe to folders
+- Fixed bug in UW that didn't mark unseen messages
 - Saving sent messages into $sent_folder
 - It doesn't bail out if PHP wasn't compiled with --with-gettext.  
     It only uses english in this case.
diff --git a/TODO b/TODO
index 3c6f2f1..88ae60c 100644 (file)
--- a/TODO
+++ b/TODO
@@ -15,6 +15,7 @@ initials = taken by that person
   -     Maybe a rewrite of mime.php (see Gustav before any work is done)
   -     Better handling emptying Trash folder.  Some servers don't allow deleting it (Courier)
   -     Make Location redirects absolute rather than relative (index.php)
+(lme)   Configure script
 
 
 Finished:
diff --git a/config/conf.pl b/config/conf.pl
new file mode 100755 (executable)
index 0000000..5b013bf
--- /dev/null
@@ -0,0 +1,696 @@
+#!/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/  /\&nbsp;\&nbsp;/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";
+}
+
+