support "removed" TLDs

parent 4b560c29
Pipeline #28 failed with stages
......@@ -58,7 +58,10 @@ if (!-e $list || stat($list)->mtime <= time()-86400) {
my @tlds = map { chomp ; lc } grep { /^[A-Z0-9-]+$/ } read_file($list);
my $status = { 'active' => 1 };
my $status = {
'active' => 1,
'removed' => 1,
};
print STDERR "Generating files\n";
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment