mia
/
cyberman
forked from .cyb/cyberman
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

WHOIS server: display registrant name, if it has been entered

This commit is contained in:
Al Beano 2017-10-04 09:14:52 +01:00
parent 8e672a7a73
commit 34250dc8df
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
whoissrv/whoissrv.pl6
View File

@ -55,8 +55,8 @@ $listener.tap( -> $conn {
my $regdate = DateTime.new($data.{"since"}); my $regdate = DateTime.new($data.{"since"});
my $regurl = $config.{"whoissrv"}.{"registrar-urls"}; my $regurl = $config.{"whoissrv"}.{"registrar-urls"};
my $email_display = $user.{"email_pub"} == 1 ?? $user.{"email"} !! "< withheld >"; 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"); await $conn.write: qq:heredoc/end/.encode("UTF-8");
Domain: $q.$tld Domain: $q.$tld
Domain Registered: $regdate Domain Registered: $regdate
@ -65,6 +65,7 @@ $listener.tap( -> $conn {
Domain Status: ACTIVE Domain Status: ACTIVE
Registrar URL(s): $regurl Registrar URL(s): $regurl
Registrant Name: $name_display
Registrant Email: $email_display Registrant Email: $email_display
end end