From 1472f85b162ea6f1ab9e19e94b86fc4a8ef074be Mon Sep 17 00:00:00 2001
From: zotlabs <mike@macgirvin.com>
Date: Sun, 18 Jun 2017 22:25:41 -0700
Subject: allow moderated comments like wordpress if permissions are compatible

---
 include/channel.php | 67 +++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 67 insertions(+)

(limited to 'include/channel.php')

diff --git a/include/channel.php b/include/channel.php
index 2284b3004..50cc90178 100644
--- a/include/channel.php
+++ b/include/channel.php
@@ -2323,3 +2323,70 @@ function channel_codeallowed($channel_id) {
 
 	return false;
 }
+
+function anon_identity_init($reqvars) {
+
+	$x = [ 'request_vars' => $reqvars, 'xchan' => null, 'success' => 'unset' ];
+	call_hooks('anon_identity_init',$x);
+	if($x['success'] !== 'unset' && intval($x['success']) && $x['xchan'])
+		return $x['xchan'];
+
+	// allow a captcha handler to over-ride 
+	if($x['success'] !== 'unset' && (intval($x['success']) === 0))
+		return false;	
+	
+
+	$anon_name  = strip_tags(trim($reqvars['anonname']));
+	$anon_email = strip_tags(trim($reqvars['anonmail']));
+	$anon_url   = strip_tags(trim($reqvars['anonurl']));
+
+	if(! ($anon_name && $anon_email)) {
+		logger('anonymous commenter did not complete form');
+		return false;
+	}
+
+	if(! validate_email($anon_email)) {
+		logger('enonymous email not valid');
+		return false;
+	}
+
+	if(! $anon_url)
+		$anon_url = z_root();
+
+	$x = q("select * from xchan where xchan_guid = '%s' and xchan_hash = '%s' and xchan_network = 'unknown' limit 1",
+		dbesc($anon_email),
+		dbesc($anon_email)
+	);
+
+	if(! $x) {
+		xchan_store_lowlevel([ 
+			'xchan_guid'    => $anon_email,
+			'xchan_hash'    => $anon_email,
+			'xchan_name'    => $anon_name,
+			'xchan_url'     => $anon_url,
+			'xchan_network' => 'unknown',
+			'xchan_name_date' => datetime_convert()
+		]);
+			
+		$x = q("select * from xchan where xchan_guid = '%s' and xchan_hash = '%s' and xchan_network = 'unknown' limit 1",
+			dbesc($anon_email),
+			dbesc($anon_email)
+		);
+
+		$photo = z_root() . '/' . get_default_profile_photo(300);
+		$photos = import_xchan_photo($photo,$anon_email);
+		$r = q("update xchan set xchan_photo_date = '%s', xchan_photo_l = '%s', xchan_photo_m = '%s', xchan_photo_s = '%s', xchan_photo_mimetype = '%s' where xchan_guid = '%s' and xchan_hash = '%s' and xchan_network = 'unknown' ",
+			dbesc(datetime_convert()),
+			dbesc($photos[0]),
+			dbesc($photos[1]),
+			dbesc($photos[2]),
+			dbesc($photos[3]),
+			dbesc($anon_email),
+			dbesc($anon_email)
+		);
+
+	}
+
+	return $x[0];
+
+}
-- 
cgit v1.2.3


From 3b5e1c05b78f72a31eda76b0ff90d08b58ee452d Mon Sep 17 00:00:00 2001
From: zotlabs <mike@macgirvin.com>
Date: Sun, 18 Jun 2017 22:51:52 -0700
Subject: minor cleanup of moderated comment feature

---
 include/channel.php | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

(limited to 'include/channel.php')

diff --git a/include/channel.php b/include/channel.php
index 50cc90178..e283ed940 100644
--- a/include/channel.php
+++ b/include/channel.php
@@ -2353,28 +2353,31 @@ function anon_identity_init($reqvars) {
 	if(! $anon_url)
 		$anon_url = z_root();
 
+	$hash = hash('md5',$anon_email);
+
 	$x = q("select * from xchan where xchan_guid = '%s' and xchan_hash = '%s' and xchan_network = 'unknown' limit 1",
 		dbesc($anon_email),
-		dbesc($anon_email)
+		dbesc($hash)
 	);
 
 	if(! $x) {
 		xchan_store_lowlevel([ 
 			'xchan_guid'    => $anon_email,
-			'xchan_hash'    => $anon_email,
+			'xchan_hash'    => $hash,
 			'xchan_name'    => $anon_name,
 			'xchan_url'     => $anon_url,
 			'xchan_network' => 'unknown',
 			'xchan_name_date' => datetime_convert()
 		]);
 			
+
 		$x = q("select * from xchan where xchan_guid = '%s' and xchan_hash = '%s' and xchan_network = 'unknown' limit 1",
 			dbesc($anon_email),
-			dbesc($anon_email)
+			dbesc($hash)
 		);
 
 		$photo = z_root() . '/' . get_default_profile_photo(300);
-		$photos = import_xchan_photo($photo,$anon_email);
+		$photos = import_xchan_photo($photo,$hash);
 		$r = q("update xchan set xchan_photo_date = '%s', xchan_photo_l = '%s', xchan_photo_m = '%s', xchan_photo_s = '%s', xchan_photo_mimetype = '%s' where xchan_guid = '%s' and xchan_hash = '%s' and xchan_network = 'unknown' ",
 			dbesc(datetime_convert()),
 			dbesc($photos[0]),
@@ -2382,7 +2385,7 @@ function anon_identity_init($reqvars) {
 			dbesc($photos[2]),
 			dbesc($photos[3]),
 			dbesc($anon_email),
-			dbesc($anon_email)
+			dbesc($hash)
 		);
 
 	}
-- 
cgit v1.2.3