diff options
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 0224084..dfe51c8 100755 --- a/make_tld_serv.pl +++ b/make_tld_serv.pl @@ -11,8 +11,9 @@ 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 = "\\004" if $b eq 'CRSNIC'; $b = "\\003" if $b eq 'NONE'; + $b = "\\004" if $b eq 'CRSNIC'; + $b = "\\007" if $b eq 'PIR'; print " \"$a\",\t\"$b\",\n"; } |