update version and date in the document-info on each compile

[fiction/Kate-the-Empress.git] / Tex2fb2

diff --git a/Tex2fb2 b/Tex2fb2
index 12f50da94cbca1d0b11758a5f6f08b85455a621d..22d83434cdcc887bf7382299656a993c4ac007ee 100755 (executable)
--- a/Tex2fb2
+++ b/Tex2fb2
@@ -1,5 +1,6 @@
 #!/usr/bin/perl -CDS
 use utf8;
+use POSIX qw(strftime);
 # char-level modes
 my $poetry = 0;
 my $verbatim = 0;
@@ -19,6 +20,16 @@ xmlns:l=\"http://www.w3.org/1999/xlink\">\n";
 my $metadata = shift @ARGV;
 open F,"<",$metadata;
 while (<F>) {
+       # Replace empty date with current date
+       if (/<date\s+\/>/ || /<date>\s*<\/date>/) {
+               $_ = "<date value=\">".strftime("%Y-%m-%d",localtime())."\">".
+                       strftime("%d/%m/%Y",localtime())."</date>\n";
+       }
+       # Add current to date as fractional part to version
+       if (/<version>(\d*)(.\d*)?<\/version>/) {
+               my $ver = $1+time()/1E10;
+               $_=tag(sprintf("%g",$ver),"version")."\n";
+       }
        print $_;
 }
 close F;