initial commit of file from CVS for e-smith-base on Thu 26 Oct 11:24:52 BST 2023

root/etc/e-smith/events/actions/user-delete-groups-and-pseudonyms

@@ -0,0 +1,13 @@
+#!/usr/bin/perl -w
+
+use strict;
+use esmith::AccountsDB;
+
+my $accountdb = esmith::AccountsDB->open() or
+    die "Unable to open accounts db";
+
+my ($event, $acctName) = @ARGV;
+$accountdb->remove_user_from_groups($acctName, 
+    $accountdb->user_group_list($acctName));
+$accountdb->remove_all_user_pseudonyms($acctName);
+