diff options
Diffstat (limited to 'make_tld_serv.pl')
-rwxr-xr-x | make_tld_serv.pl | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/make_tld_serv.pl b/make_tld_serv.pl index 60d557c..0734702 100755 --- a/make_tld_serv.pl +++ b/make_tld_serv.pl @@ -9,14 +9,15 @@ while (<>) { s/^\s+//; s/\s+$//; next if /^$/; - die "format error: $_" unless - (my ($a, $b) = /^([\w\d\.-]+)\s+([\w\d\.:-]+|[A-Z]+\s+.*)$/); + 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 = "\\x08" if $b eq 'AFILIAS'; $b = "\\x0C" if $b eq 'ARPA'; - print qq( "$a",\t"$b",\n); + $b = "\\x0D" if $b eq 'IP6'; + print qq| "$a",\t"$b",\n|; } |