From b04f30ecf2347104131b8dccf7bb349b5ec72762 Mon Sep 17 00:00:00 2001
From: brettp <brettp@36083f99-b078-4883-b0ff-0f9b5a30f544>
Date: Fri, 1 Oct 2010 21:01:39 +0000
Subject: Added admin page to validate, resend validation requests, or delete
 unvalidated users.

git-svn-id: http://code.elgg.org/elgg/trunk@6997 36083f99-b078-4883-b0ff-0f9b5a30f544
---
 mod/uservalidationbyemail/lib/functions.php | 41 +++++++++++++++++++++++++++++
 1 file changed, 41 insertions(+)

(limited to 'mod/uservalidationbyemail/lib/functions.php')

diff --git a/mod/uservalidationbyemail/lib/functions.php b/mod/uservalidationbyemail/lib/functions.php
index ed66b40d4..0610c1809 100644
--- a/mod/uservalidationbyemail/lib/functions.php
+++ b/mod/uservalidationbyemail/lib/functions.php
@@ -104,4 +104,45 @@ function uservalidationbyemail_set_user_validation_status($user_guid, $status, $
 	}
 
 	return FALSE;
+}
+
+/**
+ * Returns the validation status of a user.
+ *
+ * @param unknown_type $user_guid
+ * @return int|null
+ */
+function uservalidationbyemail_get_user_validation_status($user_guid) {
+	return get_metadata_byname($user_guid, 'validated');
+}
+
+/**
+ * Returns all users who haven't been validated.
+ *
+ * "Unvalidated" means metadata of validated is not set or not truthy.
+ * We can't use the elgg_get_entities_from_metadata() because you can't say
+ * "where the entity has metadata set OR it's not equal to 1".
+ *
+ * This doesn't include any security, so should be called ONLY be admin users!
+ * @return array
+ */
+function uservalidationbyemail_get_unvalidated_users() {
+	global $CONFIG;
+
+	$validated_id = get_metastring_id('validated');
+	$one_id = get_metastring_id(1);
+
+	// thanks to daveb@freenode for the SQL tips!
+	$q = "SELECT e.* FROM {$CONFIG->dbprefix}entities e
+		WHERE e.type = 'user'
+		AND NOT EXISTS (
+			SELECT 1 FROM {$CONFIG->dbprefix}metadata md
+			WHERE md.entity_guid = e.guid
+				AND md.name_id = $validated_id
+				AND md.value_id = $one_id)
+
+		ORDER BY e.guid DESC";
+
+	$users = get_data($q, 'entity_row_to_elggstar');
+	return $users;
 }
\ No newline at end of file
-- 
cgit v1.2.3