From 34250dc8df073bf6fd24505cd2d44496cdd52d0d Mon Sep 17 00:00:00 2001
From: Al Beano <albino@autistici.org>
Date: Wed, 4 Oct 2017 09:14:52 +0100
Subject: [PATCH] WHOIS server: display registrant name, if it has been entered

---
 whoissrv/whoissrv.pl6 | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/whoissrv/whoissrv.pl6 b/whoissrv/whoissrv.pl6
index 018f0f5..2a2241d 100755
--- a/whoissrv/whoissrv.pl6
+++ b/whoissrv/whoissrv.pl6
@@ -55,8 +55,8 @@ $listener.tap( -> $conn {
 		my $regdate = DateTime.new($data.{"since"});
 		my $regurl = $config.{"whoissrv"}.{"registrar-urls"};
 		my $email_display = $user.{"email_pub"} == 1 ?? $user.{"email"} !! "< withheld >";
+		my $name_display = $user.{"whois_name"} ?? $user.{"whois_name"} !! "< withheld >";
 
-		# TODO: registrant name?
 		await $conn.write: qq:heredoc/end/.encode("UTF-8");
 		Domain:                 $q.$tld
 		Domain Registered:      $regdate
@@ -65,6 +65,7 @@ $listener.tap( -> $conn {
 		Domain Status:          ACTIVE
 		Registrar URL(s):       $regurl
 
+		Registrant Name:        $name_display
 		Registrant Email:       $email_display
 		end