From 3f8fe68edfe36d3bbfb3133a73d4186d9de696a5 Mon Sep 17 00:00:00 2001
From: lkehresman <lkehresman@7612ce4b-ef26-0410-bec9-ea0150e637f0>
Date: Sat, 15 Apr 2000 15:34:37 +0000
Subject: [PATCH] added the BUG file, updated config script

git-svn-id: https://svn.code.sf.net/p/squirrelmail/code/trunk/squirrelmail@430 7612ce4b-ef26-0410-bec9-ea0150e637f0
---
 BUG            |  7 ++++++-
 config/conf.pl | 23 ++++++++++++++++++++++-
 2 files changed, 28 insertions(+), 2 deletions(-)

diff --git a/BUG b/BUG
index 04a03266..e9f28a09 100644
--- a/BUG
+++ b/BUG
@@ -1,2 +1,7 @@
-BUGS:
+Known BUGS to be fixed before 0.4pre1:
 
+  -    The icon for message sorting doesn't always stay.  It usually reverts back to the date.
+  -    If a new message comes in while still browsing cached message list, the space is allocated, but it is blank.
+(lme)  I'm not convinced that the cache gets deleted all the time.  I'll look into this one.  
+  -    Special folders don't get listed at the top of folder list
+  -    In UW, removing folders with a / at the end is broke
diff --git a/config/conf.pl b/config/conf.pl
index 0b2a2613..daf7b3d5 100755
--- a/config/conf.pl
+++ b/config/conf.pl
@@ -119,6 +119,9 @@ while (($command ne "q") && ($command ne "Q")) {
 		print "R   Return to Main Menu\n";
 	} elsif ($menu == 7) {
 		print $WHT."Message of the Day (MOTD)\n".$NRM;
+		print "\n$motd\n";
+		print "\n";
+		print "1   Edit the MOTD\n";
 		print "\n";
 		print "R   Return to Main Menu\n";
 	}
@@ -136,7 +139,7 @@ while (($command ne "q") && ($command ne "Q")) {
 		$menu = 0;
 	} else {
 		if ($menu == 0) {
-			if (($command > 0) && ($command < 7)) {
+			if (($command > 0) && ($command < 8)) {
 				$menu = $command;
 			}
 		} elsif ($menu == 1) {
@@ -156,6 +159,7 @@ while (($command ne "q") && ($command ne "Q")) {
 		} elsif ($menu == 5) {
 		} elsif ($menu == 6) {
 		} elsif ($menu == 7) {
+			if    ($command == 1) { $motd   = command71 (); }
 		}
 	}	
 }
@@ -318,3 +322,20 @@ sub command17 {
    }
 	return $new_smtpPort;
 }
+
+# MOTD
+sub command71 {
+	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 "@");
+	return $new_motd;
+}
-- 
2.25.1