streams/Zotlabs/Module/Zot_probe.php

<?php

namespace Zotlabs\Module;

use Zotlabs\Lib\ZotURL;
use Zotlabs\Lib\Zotfinger;

use Zotlabs\Web\HTTPSig;

class Zot_probe extends \Zotlabs\Web\Controller {

	function get() {

		$o = replace_macros(get_markup_template('zot_probe.tpl'), [
			'$page_title' => t('Zot6 Probe Diagnostic'),
			'$resource'   => [ 'resource', t('Object URL') , $_REQUEST['resource'], EMPTY_STR ],
			'$authf'      => [ 'authf', t('Authenticated fetch'), $_REQUEST['authf'], EMPTY_STR, [ t('No'), t('Yes') ] ],
			'$submit'     => t('Submit')
		]);


		if(x($_GET,'resource')) {
			$resource = $_GET['resource'];
			$channel = (($_GET['authf']) ? \App::get_channel() : null);

			if(strpos($resource,'x-zot:') === 0) {
				$x = ZotURL::fetch($resource,$channel);
			}
			else {
				$x = Zotfinger::exec($resource,$channel);

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

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

				$redirects = 0;
		    	$x = z_fetch_url($resource,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;
	}
	
}