-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
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";
}
$menu = 0;
} else {
if ($menu == 0) {
- if (($command > 0) && ($command < 7)) {
+ if (($command > 0) && ($command < 8)) {
$menu = $command;
}
} elsif ($menu == 1) {
} elsif ($menu == 5) {
} elsif ($menu == 6) {
} elsif ($menu == 7) {
+ if ($command == 1) { $motd = command71 (); }
}
}
}
}
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/ /\ \ /g;
+ if ($line ne "@") {
+ $new_motd = $new_motd . $line;
+ }
+ } while ($line ne "@");
+ return $new_motd;
+}