' . t('Xchan Lookup') . '';
$o .= '';
$o .= '
';
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("
", " "), 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("
", " "), print_r($rrr, true)) . EOL;
}
}
}
else
notice( t('Not found.') . EOL);
}
return $o;
}
}