[siesta-commit] siesta/bin nacho,1.2,1.3

[prev] [thread] [next] [lurker] [Date index for 2002/09/05]

Update of /cvsroot/siesta/siesta/bin
In directory usw-pr-cvs1:/tmp/cvs-serv4788/bin

Modified Files:
	nacho 
Log Message:
Add new methods


Index: nacho
===================================================================
RCS file: /cvsroot/siesta/siesta/bin/nacho,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- nacho	5 Sep 2002 16:13:58 -0000	1.2
+++ nacho	5 Sep 2002 16:21:23 -0000	1.3
@@ -151,11 +151,25 @@
 	print "User $forename $surname <$user_id> added\n";
 }
 
+sub delete_user
+{
+	my $user_id = shift || die "You must pass a user id\n";
+		
 
-# todo :
+	my $user = Siesta::User->new($user_id) || die "Not a valid user id\n";
+
+	foreach my $list (Siesta->storage->get_lists())
+	{
+		$list->remove_member($user_id);
+	}
+	
+	$user->delete();
 
+}
+
+# todo :
 # - new list
-# - add user to list
+# - add user to list : (create new user automagically)
 # - list plugins for a list
 # - list plugin config options
 # - list plugin config for a list

• [siesta-commit] siesta/bin nacho,1.2,1.3 muttley 17:21 on 05 Sep 2002

Generated at 13:57 on 01 Jul 2004 by mariachi 0.52