aboutsummaryrefslogblamecommitdiffstats
path: root/Zotlabs/Module/Zot_probe.php
blob: 3eaabdd928812051db8dd2a0b2c1ca3cf81a98b7 (plain) (tree)
1
2
3
4
5
6
7
8
9
10




                          
                        



                                                 
 


                                                      
 
                                                               
                                                                                                                     

                                                                                    
                                     
 
                           

                                                    
 










                                                                                                            
                                                                                                                                            


                                                                                                                                                                 
                         



                          
 
 
<?php

namespace Zotlabs\Module;

use Zotlabs\Lib\Zotfinger;
use Zotlabs\Web\HTTPSig;

class Zot_probe extends \Zotlabs\Web\Controller {

	function get() {

		$addr = $_GET['addr'] ?? '';

		$o = '<h3>Zot6 Probe Diagnostic</h3>';

		$o .= '<form action="zot_probe" method="get">';
		$o .= 'Lookup URI: <input type="text" style="width: 250px;" name="addr" value="' . $addr .'" /><br>';
		$o .= '<input type="submit" name="submit" value="Submit" /></form>';

		$o .= '<br /><br />';

		if($addr) {

			$x = Zotfinger::exec($addr);

			$o .= '<pre>' . htmlspecialchars(print_array($x)) . '</pre>';

			$headers = 'Accept: application/x-zot+json, application/jrd+json, application/json';

			$redirects = 0;
		    $x = z_fetch_url($addr,true,$redirects, [ 'headers' => [ $headers ]]);

	    	if($x['success']) {

				$o .= '<pre>' . htmlspecialchars($x['header']) . '</pre>' . EOL;

				$o .= 'verify returns: ' . str_replace("\n",EOL,print_r(HTTPSig::verify($x, EMPTY_STR, 'zot6'),true)) . EOL;

				$o .= '<pre>' . htmlspecialchars(json_encode(json_decode($x['body']),JSON_PRETTY_PRINT|JSON_UNESCAPED_SLASHES)) . '</pre>' . EOL;

			}

		}
		return $o;
	}

}