add webfinger diagnostic module

2 files changed, 25 insertions, 1 deletions

diff --git a/boot.php b/boot.php
index cac272be5..c567533c1 100644
--- a/boot.php
+++ b/boot.php
@@ -4,7 +4,7 @@ set_time_limit(0);
 ini_set('pcre.backtrack_limit', 250000);
 
 
-define ( 'FRIENDIKA_VERSION',      '2.2.991' );
+define ( 'FRIENDIKA_VERSION',      '2.2.992' );
 define ( 'DFRN_PROTOCOL_VERSION',  '2.21'    );
 define ( 'DB_UPDATE_VERSION',      1058      );
 
diff --git a/mod/webfinger.php b/mod/webfinger.php
new file mode 100644
index 000000000..dd6d72a13
--- /dev/null
+++ b/mod/webfinger.php
@@ -0,0 +1,24 @@
+<?php
+
+
+
+function webfinger_content(&$a) {
+
+	$o .= '<h3>Webfinger Diagnostic</h3>';
+
+	$o .= '<form action="webfinger" method="get">';
+	$o .= 'Lookup address: <input type="text" style="width: 250px;" name="addr" value="' . $_GET['addr'] .'" />';
+	$o .= '<input type="submit" name="submit" value="Submit" /></form>'; 
+
+	$o .= '<br /><br />';
+
+	if(x($_GET,'addr')) {
+		$addr = $_GET['addr'];
+		if(strpos($addr,'@' !== false))
+			$res = webfinger($addr);
+		else
+			$res = lrdd($addr);
+		$o .= str_replace("\n",'<br />',print_r($res,true));
+	}
+	return $o;
+}
\ No newline at end of file