More LDAP fixes

diff --git a/ldap-useradmin/mass_delete_user.cgi b/ldap-useradmin/mass_delete_user.cgi
index 1223e9f..6e9b951 100755 (executable)
--- a/ldap-useradmin/mass_delete_user.cgi
+++ b/ldap-useradmin/mass_delete_user.cgi
@@ -225,7 +225,9 @@ else {
                                if ($config{'imap_host'}) {
                                        print "$text{'udel_imap'}<br>\n";
                                        $imap = &imap_connect();
-                                       $rv = $imap->delete("user.".$user->{'user'});
+                                       $rv = $imap->delete("user".
+                                               $config{'imap_foldersep'}.
+                                               $user->{'user'});
                                        $imap->logout();
                                        print "$text{'udel_done'}<p>\n";
                                        }

diff --git a/ldap-useradmin/save_user.cgi b/ldap-useradmin/save_user.cgi
index e383cc8..fba4a2c 100755 (executable)
--- a/ldap-useradmin/save_user.cgi
+++ b/ldap-useradmin/save_user.cgi
@@ -117,7 +117,8 @@ elsif ($in{'delete'}) {
                  if ($config{'imap_host'}) {
                        print "$text{'udel_imap'}<br>\n";
                        $imap = &imap_connect();
-                       $rv = $imap->delete("user.".$uinfo->get_value("uid"));
+                       $rv = $imap->delete("user".$config{'imap_foldersep'}.
+                                           $uinfo->get_value("uid"));
                        $imap->logout();
                        print "$text{'udel_done'}<p>\n";
                        }