From 78c5803fb83f8dc5f682bdd9cda1f9cc1d05021e Mon Sep 17 00:00:00 2001 From: Daouda Lo Date: Mon, 28 Jul 2003 16:00:44 +0000 Subject: - split Clean entity to CleanHome and CleanSpool --- USER/USER.xs | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) (limited to 'USER') diff --git a/USER/USER.xs b/USER/USER.xs index ceadda3..f5f78b2 100644 --- a/USER/USER.xs +++ b/USER/USER.xs @@ -849,7 +849,7 @@ Admin_GetUserShells(self) RETVAL void -Admin_Clean(self, ent) +Admin_CleanHome(self, ent) USER::ADMIN *self USER::ENT *ent PPCODE: @@ -867,7 +867,12 @@ Admin_Clean(self, ent) croak("Home Directory Could Not be deleted: %s.\n", error ? error->string : "Unknown error"); } } - /* Delete the mail spool for the user. */ + +void +Admin_CleanSpool(self, ent) + USER::ADMIN *self + USER::ENT *ent + PPCODE: if (lu_mailspool_create_remove(self, ent, 0) != 1) { warn(_("Error deleting mail spool.\n")); } -- cgit v1.2.1