streams/mod/xchan.php

<?php


function xchan_content(&$a) {

	$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;
}