' . 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;
}
}