From a00c072f02efb741629b4b3e5b0eac1b3d6a95d4 Mon Sep 17 00:00:00 2001
From: friendica <info@friendica.com>
Date: Thu, 26 Feb 2015 20:00:47 -0800
Subject: high level queue inspector - needs a lot more, like the ability to
 dump certain destinations and indicating known dead sites, but this is a
 start

---
 doc/to_do_code.bb        |  1 +
 mod/admin.php            | 26 +++++++++++++++++++++++++-
 view/tpl/admin_aside.tpl |  1 +
 3 files changed, 27 insertions(+), 1 deletion(-)

diff --git a/doc/to_do_code.bb b/doc/to_do_code.bb
index 1fa2b17d4..616b20cad 100644
--- a/doc/to_do_code.bb
+++ b/doc/to_do_code.bb
@@ -17,6 +17,7 @@ We need much more than this, but here are areas where developers can help. Pleas
 [li]implement openid server interface[/li]
 [li]Write more webpage layouts[/li]
 [li]Write more webpage widgets[/li]
+[li]restricted access OAuth clients[/li]
 [li](Advanced) create a UI for building Comanche pages[/li]
 [li]Extend WebDAV to provide desktop access to photo albums[/li]
 [li]External post connectors - create standard interface[/li]
diff --git a/mod/admin.php b/mod/admin.php
index ba52033ec..a54a4b0b8 100644
--- a/mod/admin.php
+++ b/mod/admin.php
@@ -99,7 +99,8 @@ function admin_content(&$a) {
 		'channels'	 =>	Array($a->get_baseurl(true)."/admin/channels/", t("Channels") , "channels"),
 		'plugins'    =>	Array($a->get_baseurl(true)."/admin/plugins/", t("Plugins") , "plugins"),
 		'themes'     =>	Array($a->get_baseurl(true)."/admin/themes/", t("Themes") , "themes"),
-		'hubloc'     =>	Array($a->get_baseurl(true)."/admin/hubloc/", t("Server") , "server"),
+		'queue'      => array(z_root() . '/admin/queue', t('Inspect queue'), 'queue'),
+//		'hubloc'     =>	Array($a->get_baseurl(true)."/admin/hubloc/", t("Server") , "server"),
 		'profs'      => array(z_root() . '/admin/profs', t('Profile Config'), 'profs'),
 		'dbsync'     => Array($a->get_baseurl(true)."/admin/dbsync/", t('DB updates'), "dbsync")
 	);
@@ -164,6 +165,9 @@ function admin_content(&$a) {
 			case 'profs':
 				$o = admin_page_profs($a);
 				break;
+			case 'queue':
+				$o = admin_page_queue($a);
+				break;
 			default:
 				notice( t("Item not found.") );
 		}
@@ -583,6 +587,26 @@ function admin_page_dbsync(&$a) {
 
 }
 
+function admin_page_queue($a) {
+	$o = '';
+
+	$r = q("select count(outq_posturl) as total, outq_posturl from outq 
+		where outq_delivered = 0 group by outq_posturl order by total desc");
+
+	$o .= '<h3>' . t('Queue Statistics') . '</h3>';
+
+	if($r) {
+		$o .= '<table><tr><td>' . t('Total Entries') . '&nbsp;&nbsp;</td><td>' . t('Destination URL') . '</td></tr>';
+		foreach($r as $rr) {
+			$o .= '<tr><td>' . $rr['total'] . '</td><td>' . $rr['outq_posturl'] . '</td></tr>';
+		}
+		$o .= '</table>';
+	}
+
+	return $o;
+
+}
+
 /**
  * Users admin page
  *
diff --git a/view/tpl/admin_aside.tpl b/view/tpl/admin_aside.tpl
index 013b72d50..58d645dbf 100755
--- a/view/tpl/admin_aside.tpl
+++ b/view/tpl/admin_aside.tpl
@@ -16,6 +16,7 @@
 	<li><a href='{{$admin.site.0}}'>{{$admin.site.1}}</a></li>
 	<li><a href='{{$admin.users.0}}'>{{$admin.users.1}}<span id='pending-update' title='{{$h_pending}}'></span></a></li>
 	<li><a href='{{$admin.channels.0}}'>{{$admin.channels.1}}</a></li>
+	<li><a href='{{$admin.queue.0}}'>{{$admin.queue.1}}</a></li>
 	<li><a href='{{$admin.plugins.0}}'>{{$admin.plugins.1}}</a></li>
 	<li><a href='{{$admin.themes.0}}'>{{$admin.themes.1}}</a></li>
 	<li><a href='{{$admin.dbsync.0}}'>{{$admin.dbsync.1}}</a></li>
-- 
cgit v1.2.3