Adding upstream version 5.5.17.upstream/5.5.17upstream

Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>

1 files changed, 25 insertions, 0 deletions

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|;
+}
+