Generalize the support for Afilias-style referrals

This commit is contained in:
Marco d'Itri 2019-12-31 02:57:51 +01:00
parent 393de449d3
commit 3a5bcdcc7e
2 changed files with 3 additions and 3 deletions

View File

@ -15,7 +15,7 @@ while (<>) {
$b =~ s/^W(?:EB)?\s+/\\x01/;
$b =~ s/^VERISIGN\s+/\\x04" "/;
$b = "\\x03" if $b eq 'NONE';
$b = "\\x08" if $b eq 'AFILIAS';
$b = "\\x08whois.afilias-grs.info" if $b eq 'AFILIAS';
$b = "\\x0C" if $b eq 'ARPA';
$b = "\\x0D" if $b eq 'IP6';
print qq| "$a",\t"$b",\n|;

View File

@ -344,8 +344,8 @@ int handle_query(const char *hserver, const char *hport,
break;
case 8:
if (verb)
printf(_("Using server %s.\n"), "whois.afilias-grs.info");
sockfd = openconn("whois.afilias-grs.info", NULL);
printf(_("Using server %s.\n"), server + 1);
sockfd = openconn(server + 1, NULL);
free(server);
server = query_afilias(sockfd, query);
break;