From e0801e6bd6cc1241afafea33ba8ef701fec2e5c5 Mon Sep 17 00:00:00 2001 From: Daniel Baumann Date: Sun, 5 May 2024 17:45:37 +0200 Subject: Adding upstream version 5.5.17. Signed-off-by: Daniel Baumann --- make_tld_serv.pl | 25 +++++++++++++++++++++++++ 1 file changed, 25 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..66af45c --- /dev/null +++ b/make_tld_serv.pl @@ -0,0 +1,25 @@ +#!/usr/bin/perl + +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