From 655cb1b8222b0a587bbdd5c1357d55682332c665 Mon Sep 17 00:00:00 2001 From: Daniel Baumann Date: Tue, 9 Apr 2024 15:11:53 +0200 Subject: Adding upstream version 5.5.21. Signed-off-by: Daniel Baumann --- make_tld_serv.pl | 26 ++++++++++++++++++++++++++ 1 file changed, 26 insertions(+) create mode 100755 make_tld_serv.pl (limited to 'make_tld_serv.pl') diff --git a/make_tld_serv.pl b/make_tld_serv.pl new file mode 100755 index 0000000..e538c53 --- /dev/null +++ b/make_tld_serv.pl @@ -0,0 +1,26 @@ +#!/usr/bin/perl +# SPDX-License-Identifier: GPL-2.0-or-later + +use warnings; +use strict; + +while (<>) { + chomp; + s/#.*$//; + s/^\s+//; s/\s+$//; + next if /^$/; + + die "format error: $_" if not + (my ($a, $b) = /^\.(\w[\w\d\.-]+)\s+([\w\d\.:-]+|[A-Z]+\s+.*)$/); + + $b =~ s/^W(?:EB)?\s+/\\x01/; + $b =~ s/^VERISIGN\s+/\\x04" "/; + $b = "\\x03" if $b eq 'NONE'; + $b =~ s/^RECURSIVE\s+/\\x08" "/; + $b = "\\x08$b" if $b eq 'whois.flexireg.net'; + $b = "\\x08$b" if $b eq 'whois.registry.in'; + $b = "\\x0C" if $b eq 'ARPA'; + $b = "\\x0D" if $b eq 'IP6'; + print qq| "$a",\t"$b",\n|; +} + -- cgit v1.2.3