summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorVincent Sanders <vince@kyllikki.org>2016-09-15 23:41:20 (GMT)
committer Vincent Sanders <vince@kyllikki.org>2016-09-15 23:41:20 (GMT)
commit955514e86565b95042c231f021c1d8b2af96e384 (patch)
tree90f2ab9c89510757f611676806fd327aadc42e7b
parent4502f5e3a1ca5bd5af72d827c4f9699a4d19efe6 (diff)
downloadlibnspsl-955514e86565b95042c231f021c1d8b2af96e384.tar.gz
libnspsl-955514e86565b95042c231f021c1d8b2af96e384.tar.bz2
improve teh generator tools comment header output
-rw-r--r--src/genpubsuffix.pl13
1 files changed, 7 insertions, 6 deletions
diff --git a/src/genpubsuffix.pl b/src/genpubsuffix.pl
index e95529b..7bc29a8 100644
--- a/src/genpubsuffix.pl
+++ b/src/genpubsuffix.pl
@@ -56,6 +56,7 @@
use strict;
use warnings;
use utf8;
+use File::Basename;
use Tie::IxHash;
use IDNA::Punycode;
@@ -272,13 +273,13 @@ while (my $line = <$fh>) {
}
}
-# C program header
-print <<EOF;
-/*
- * Generated with the genpubsuffix tool from effective_tld_names.dat
- */
-EOF
+# C program header
+print "/*\n";
+print " * Generated with the genpubsuffix tool.\n";
+print " * From file " . basename($filename) . "\n";
+print " * Converted on " . localtime() . "\n";
+print " */\n\n";
generate_string_table(\%tldtree, \$nodeidx, \%strtab, \$stridx);