# Automatically delete folders
sub command215 {
- print "Should folders selected for deletion bypass the Trash folder?\n\n";
-
if ( $imap_server_type == "courier" ) {
print "Courier(or Courier-IMAP) IMAP servers do not support ";
print "subfolders of Trash. \n";
print "Deleting folders will bypass the trash folder and ";
print "be immediately deleted.\n\n";
+ print "If this is not the correct value for your server,\n";
+ print "please use option D on the Main Menu to configure your server correctly.\n\n";
print "Press any key to continue...\n";
$new_delete = <STDIN>;
$delete_folder = "true";
print "mail to also contain folders.\n";
print "Deleting folders will bypass the trash folder and";
print "be immediately deleted\n\n";
+ print "If this is not the correct value for your server,\n";
+ print "please use option D on the Main Menu to configure your server correctly.\n\n";
print "Press any key to continue...\n";
$new_delete = <STDIN>;
$delete_folder = "true";
} else {
+ print "Should folders selected for deletion bypass the Trash folder?\n\n";
if ( lc($delete_folder) eq "true" ) {
$default_value = "y";
} else {
# prepended to the path, if not, then the path will be
# converted to an absolute path, e.g.
# '../images/logo.gif' --> SM_PATH . 'images/logo.gif'
+# '../../someplace/data' --> '/absolute/path/someplace/data'
# 'images/logo.gif' --> SM_PATH . 'config/images/logo.gif'
# '/absolute/path/logo.gif' --> '/absolute/path/logo.gif'
# 'http://whatever/' --> 'http://whatever'
if ( $#rel_path > 1 ) {
# more than two levels away. Make it absolute.
+ @abs_path = split(/\//, $dir);
+
+ # Lop off the relative pieces of the absolute path..
+ for ( $i = 0; $i <= $#rel_path; $i++ ) {
+ pop @abs_path;
+ shift @rel_path;
+ }
+ push @abs_path, @rel_path;
$new_path = "\'" . join('/', @abs_path) . "\'";
} elsif ( $#rel_path > 0 ) {
# it's within the SM tree, prepend SM_PATH