+sub command110 {
+ 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;
+}
+