X-Git-Url: https://git.mxchange.org/?a=blobdiff_plain;f=include%2FContact.php;h=4ca77d065175c58bc0f02d3b2f7239cc20fadb73;hb=a27b7fb28d151c00eef8319cdf876896d36df8b0;hp=c59038e5d7528f281af2e8a96c2a035b586c2d09;hpb=22429cd432ae99c529040d013b9e25f0549bdf31;p=friendica.git

diff --git a/include/Contact.php b/include/Contact.php
index c59038e5d7..4ca77d0651 100644
--- a/include/Contact.php
+++ b/include/Contact.php
@@ -1,6 +1,33 @@
 <?php
 
 
+// Included here for completeness, but this is a very dangerous operation.
+// It is the caller's responsibility to confirm the requestor's intent and
+// authorisation to do this.
+
+function user_remove($uid) {
+	if(! $uid)
+		return;
+	$a = get_app();
+	logger('Removing user: ' . $uid);
+	q("DELETE FROM `contact` WHERE `uid` = %d", intval($uid));
+	q("DELETE FROM `group` WHERE `uid` = %d", intval($uid));
+	q("DELETE FROM `group_member` WHERE `uid` = %d", intval($uid));
+	q("DELETE FROM `intro` WHERE `uid` = %d", intval($uid));
+	q("DELETE FROM `event` WHERE `uid` = %d", intval($uid));
+	q("DELETE FROM `item` WHERE `uid` = %d", intval($uid));
+	q("DELETE FROM `mail` WHERE `uid` = %d", intval($uid));
+	q("DELETE FROM `photo` WHERE `uid` = %d", intval($uid));
+	q("DELETE FROM `profile` WHERE `uid` = %d", intval($uid));
+	q("DELETE FROM `profile_check` WHERE `uid` = %d", intval($uid));
+	q("DELETE FROM `pconfig` WHERE `uid` = %d", intval($uid));
+	q("DELETE FROM `user` WHERE `uid` = %d", intval($uid));
+	if($uid == local_user()) {
+		unset($_SESSION['authenticated']);
+		unset($_SESSION['uid']);
+		goaway($a->get_baseurl());
+	}
+}
 
 
 function contact_remove($id) {
@@ -13,6 +40,12 @@ function contact_remove($id) {
 	q("DELETE FROM `photo` WHERE `contact-id` = %d ",
 		intval($id)
 	);
+	q("DELETE FROM `mail` WHERE `contact-id` = %d ",
+		intval($id)
+	);
+	q("DELETE FROM `event` WHERE `cid` = %d ",
+		intval($id)
+	);
 }