2 files changed, 66 insertions, 0 deletions
diff --git a/mod/bulk_user_admin/actions/bulk_user_admin/delete.php b/mod/bulk_user_admin/actions/bulk_user_admin/delete.php
new file mode 100644
index 000000000..0d7a7e7df
--- /dev/null
+++ b/mod/bulk_user_admin/actions/bulk_user_admin/delete.php
@@ -0,0 +1,30 @@
+<?php
+/**
+ * Bulk delete users
+ */
+
+$guids = get_input('bulk_user_admin_guids');
+$errors = array();
+
+foreach ($guids as $guid) {
+	$user = get_entity($guid);
+
+	if (!$user instanceof ElggUser) {
+		$errors[] = "$guid is not a user.";
+		continue;
+	}
+
+	if (!$user->delete()) {
+		$errors[] = "Could not delete $user->name ($user->username).";
+	}
+}
+
+if ($errors) {
+	foreach ($errors as $error) {
+		register_error($error);
+	}
+} else {
+	system_message("Users deleted.");
+}
+
+forward(REFERER);
diff --git a/mod/bulk_user_admin/actions/bulk_user_admin/delete_by_domain.php b/mod/bulk_user_admin/actions/bulk_user_admin/delete_by_domain.php
new file mode 100644
index 000000000..c51076936
--- /dev/null
+++ b/mod/bulk_user_admin/actions/bulk_user_admin/delete_by_domain.php
@@ -0,0 +1,36 @@
+<?php
+/**
+ * Bulk delete users by email
+ */
+
+$domain = get_input('domain');
+
+$errors = array();
+
+$options = array(
+	'limit' => 50,
+	'offset' => 0,
+);
+
+$users = bulk_user_admin_get_users_by_email_domain($domain, $options);
+
+while ($users) {
+	foreach ($users as $user) {
+		if (!$user->delete()) {
+			$errors[] = "Could not delete $user->name ($user->username).";
+		}
+	}
+
+	$options['offset'] = $options['offset'] + $options['limit'];
+	$users = bulk_user_admin_get_users_by_email_domain($domain, $options);
+}
+
+if ($errors) {
+	foreach ($errors as $error) {
+		register_error($error);
+	}
+} else {
+	system_message("Users deleted.");
+}
+
+forward(REFERER);