]> git.mxchange.org Git - friendica.git/blob - mod/probe.php
Merge pull request #6977 from annando/fix-reshare
[friendica.git] / mod / probe.php
1 <?php
2 /**
3  * @file mod/probe.php
4  */
5 use Friendica\App;
6 use Friendica\Core\L10n;
7 use Friendica\Core\System;
8 use Friendica\Network\Probe;
9
10 function probe_content(App $a)
11 {
12         if (!local_user()) {
13                 System::httpExit(403, ["title" => L10n::t("Public access denied."),
14                         "description" => L10n::t("Only logged in users are permitted to perform a probing.")]);
15                 exit();
16         }
17
18         $o = '<div class="generic-page-wrapper">';
19         $o .= '<h3>Probe Diagnostic</h3>';
20
21         $o .= '<form action="probe" method="get">';
22         $o .= 'Lookup address: <input type="text" style="width: 250px;" name="addr" value="' . defaults($_GET, 'addr', '') . '" />';
23         $o .= '<input type="submit" name="submit" value="Submit" /></form>';
24
25         $o .= '<br /><br />';
26
27         if (!empty($_GET['addr'])) {
28                 $addr = trim($_GET['addr']);
29                 $res = Probe::uri($addr, "", 0, false);
30                 $o .= '<pre>';
31                 $o .= str_replace("\n", '<br />', print_r($res, true));
32                 $o .= '</pre>';
33         }
34         $o .= '</div>';
35
36         return $o;
37 }