42 lines
1013 B
PHP
42 lines
1013 B
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>", " "), 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>", " "), print_r($rrr, true)) . EOL;
|
|
}
|
|
}
|
|
}
|
|
else
|
|
notice( t('Not found.') . EOL);
|
|
|
|
}
|
|
return $o;
|
|
}
|