aboutsummaryrefslogblamecommitdiffstats
path: root/mod/xchan.php
blob: 69fbdb77d1722873a7bc6c7aab5e497a1911a003 (plain) (tree)
1
2
3
4
5
6
7
8



                             
                                                  
                                                   


                                                                                                  
 
                              
                                            
 
                                                                                                                   
                                    
                  
 
                        
                                            
                                                                                                                       
 

                                                                                          
 
                                        
                                                                                                                                        
                                 
                 
                                                       
 

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