Merge branch 'dev' into toggle-context-help

1 files changed, 47 insertions, 0 deletions

diff --git a/Zotlabs/Module/Xchan.php b/Zotlabs/Module/Xchan.php
new file mode 100644
index 000000000..526580fad
--- /dev/null
+++ b/Zotlabs/Module/Xchan.php
@@ -0,0 +1,47 @@
+<?php
+namespace Zotlabs\Module;
+
+
+
+class Xchan extends \Zotlabs\Web\Controller {
+
+	function get() {
+	
+		$o = '<h3>' . t('Xchan Lookup') . '</h3>';
+	
+		$o .= '<form action="xchan" method="get">';
+		$o .= t('Lookup xchan beginning with (or webbie): ');
+		$o .= '<input type="text" style="width:250px;" name="addr" value="' . $_GET['addr'] .'">';
+		$o .= '<input type="submit" name="submit" value="' . t('Submit') .'"></form>';
+		$o .= '<br><br>';
+	
+		if(x($_GET, 'addr')) {
+			$addr = trim($_GET['addr']);
+	
+			$r = q("select * from xchan where xchan_hash like '%s%%' or xchan_addr = '%s' group by xchan_hash",
+				dbesc($addr),
+				dbesc($addr)
+			);
+	
+			if($r) {
+				foreach($r as $rr) {
+					$o .= str_replace(array("\n", " "), array("<br>", "&nbsp;"), print_r($rr, true)) . EOL;
+	
+					$s = q("select * from hubloc where hubloc_hash like '%s'",
+						dbesc($r[0]['xchan_hash'])
+					);
+	
+					if($s) {
+						foreach($s as $rrr)
+							$o .= str_replace(array("\n", " "), array("<br>", "&nbsp;"), print_r($rrr, true)) . EOL;
+					}
+				}
+			}
+			else
+				notice( t('Not found.') . EOL);
+	
+		}	
+		return $o;
+	}
+	
+}