epitaph: add header

diff --git a/epitaph/Makefile b/epitaph/Makefile
index 8d794b5..5fca254 100644 (file)
--- a/epitaph/Makefile
+++ b/epitaph/Makefile
@@ -1,2 +1,2 @@
 epitaph.txt: epitaph.base.txt
-       perl filter.pl epitaph.base.txt > epitaph.txt
+       perl filter.pl

diff --git a/epitaph/filter.pl b/epitaph/filter.pl
index 9cb539d..948439d 100644 (file)
--- a/epitaph/filter.pl
+++ b/epitaph/filter.pl
@@ -3,12 +3,29 @@ use strict;
 use warnings;
 
 my $f = 0;
-while(<>){
+
+open my $fr, '<', 'epitaph.base.txt';
+open my $fw, '>', 'epitaph.txt';
+
+print $fw <<'EOF'
+# NetHack 3.6  epitaph.txt       $NHDT-Date: 1524689580 2018/04/25 20:53:00 $  $NHDT-Branch: NetHack-3.6.0 $:$NHDT-Revision: 1.3 $
+# Copyright (c) 2015 by Pasi Kallinen
+# NetHack may be freely redistributed.  See license for details.
+# Epitaphs for random headstones
+#
+#
+EOF
+;
+
+while(<$fr>){
     if(substr($_, 0, 1) eq '#'){
         next;
     }
     $f = 1 - $f;
     if($f == 0){
-        print $_;
+        print $fw $_;
     }
 }
+
+close $fr;
+close $fw;