diff options
author | Marco d'Itri <md@linux.it> | 2001-08-26 16:46:23 +0200 |
---|---|---|
committer | Marco d'Itri <md@linux.it> | 2013-03-30 02:31:27 +0100 |
commit | a8b3b04bf490c419c3be5d55fd26e092edccfb8f (patch) | |
tree | 851ae0e237f454b06d51a0700c82cfb5722725cd /make_tld_serv.pl | |
parent | bd5fd88c6bb2b9d56f9c359c351a30e52c0a4c18 (diff) | |
download | whois-a8b3b04bf490c419c3be5d55fd26e092edccfb8f.tar.gz |
Imported Debian version 4.5.8v4.5.8
Diffstat (limited to 'make_tld_serv.pl')
-rwxr-xr-x | make_tld_serv.pl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/make_tld_serv.pl b/make_tld_serv.pl index d2735d6..0224084 100755 --- a/make_tld_serv.pl +++ b/make_tld_serv.pl @@ -11,7 +11,8 @@ while (<>) { (my ($a, $b) = /^([\w\d\.-]+)\s+([\w\d\.:-]+|[A-Z]+\s+.*)$/); $b =~ s/^W(?:EB)?\s+/\\001/; $b =~ s/^M(?:SG)?\s+/\\002/; - $b = "\\003" if ($b eq 'NONE'); + $b = "\\004" if $b eq 'CRSNIC'; + $b = "\\003" if $b eq 'NONE'; print " \"$a\",\t\"$b\",\n"; } |