+# invert_time
+sub command110 {
+ print "Sometimes the date of messages sent is messed up (off by a few hours\n";
+ print "on some machines). Typically this happens if the system doesn't support\n";
+ print "tm_gmtoff. It will happen only if your time zone is \"negative\".\n";
+ print "This most often occurs on Solaris 7 machines in the United States.\n";
+ print "By default, this is off. It should be kept off unless problems surface\n";
+ print "about the time that messages are sent.\n";
+ print " no = Do NOT fix time -- almost always correct\n";
+ print " yes = Fix the time for this system\n";
+
+ $YesNo = 'n';
+ $YesNo = 'y' if ($invert_time eq "true");
+
+ print "Fix the time for this system (y/n) [$WHT$YesNo$NRM]: $WHT";
+
+ $new_invert_time = <STDIN>;
+ $new_invert_time =~ tr/yn//cd;
+ return "true" if ($new_invert_time eq "y");
+ return "false" if ($new_invert_time eq "n");
+ return $invert_time;
+}
+
+sub command111 {
+ print "This is the delimiter that your IMAP server uses to distinguish between\n";
+ print "folders. For example, Cyrus uses '.' as the delimiter and a complete\n";
+ print "folder would look like 'INBOX.Friends.Bob', while UW uses '/' and would\n";
+ print "look like 'INBOX/Friends/Bob'. Normally this should be left at 'detect'\n";
+ print "but if you are sure you konw what delimiter your server uses, you can\n";
+ print "specify it here.\n";
+ print "\nTo have it autodetect the delimiter, set it to 'detect'.\n\n";
+ print "[$WHT$optional_delimiter$NRM]: $WHT";
+ $new_optional_delimiter = <STDIN>;
+ if ($new_optional_delimiter eq "\n") {
+ $new_optional_delimiter = $optional_delimiter;
+ } else {
+ $new_optional_delimiter =~ s/[\r|\n]//g;
+ }
+ return $new_optional_delimiter;
+}
+