Manage user registrations in REGISTER_APPROVE mode.

2 files changed, 37 insertions, 2 deletions

diff --git a/mod/notifications.php b/mod/notifications.php
index 1c680794e..f11676ebf 100644
--- a/mod/notifications.php
+++ b/mod/notifications.php
@@ -126,5 +126,31 @@ function notifications_content(&$a) {
 	else
 		notice( t('No notifications.') . EOL);
 
+	if ($a->config['register_policy'] = REGISTER_APPROVE &&	
+		$a->config['admin_email'] = $a->user['email']){
+		$o .= load_view_file('view/registrations-top.tpl');
+		
+		$r = q("SELECT `register`.*, `contact`.`name`, `user`.`email`
+				 FROM `register`
+				 LEFT JOIN `contact` ON `register`.`uid` = `contact`.`uid`
+				 LEFT JOIN `user` ON `register`.`uid` = `user`.`uid`;");
+		if(($r !== false) && (count($r))) {
+			$tpl = load_view_file("view/registrations.tpl");
+			foreach($r as $rr) {
+				$o .= "<ul>";
+				$o .= replace_macros($tpl, array(
+					'$fullname' 	=> $rr['name'],
+					'$email'		=> $rr['email'],
+					'$approvelink' 	=> "regmod/allow/".$rr['hash'],
+					'$denylink' 	=> "regmod/deny/".$rr['hash'],
+				));
+				$o .= "</ul>";
+			}
+		}
+		else
+			notice( t('No registrations.') . EOL);
+
+	}
+
 	return $o;
-}
\ No newline at end of file
+}
diff --git a/mod/ping.php b/mod/ping.php
index 0831e57bf..00c4a3105 100644
--- a/mod/ping.php
+++ b/mod/ping.php
@@ -25,6 +25,15 @@ function ping_init(&$a) {
 	);
 	$intro = $r[0]['total'];
 
+	if ($a->config['register_policy'] = REGISTER_APPROVE &&	
+		$a->config['admin_email'] = $a->user['email']){
+			$r = q("SELECT COUNT(*) AS `total` FROM `register`");
+			$register = $r[0]['total'];
+	} else {
+		$register = "0";
+	}
+
+
 	$myurl = $a->get_baseurl() . '/profile/' . $a->user['nickname'] ;
 	$r = q("SELECT COUNT(*) AS `total` FROM `mail`
 		WHERE `uid` = %d AND `seen` = 0 AND `from-url` != '%s' ",
@@ -35,7 +44,7 @@ function ping_init(&$a) {
 	$mail = $r[0]['total'];
 	
 	header("Content-type: text/xml");
-	echo "<?xml version=\"1.0\" encoding=\"UTF-8\" ?>\r\n<result><intro>$intro</intro><mail>$mail</mail><net>$network</net><home>$home</home></result>\r\n";
+	echo "<?xml version=\"1.0\" encoding=\"UTF-8\" ?>\r\n<result><register>$register</register><intro>$intro</intro><mail>$mail</mail><net>$network</net><home>$home</home></result>\r\n";
 
 	killme();
 }