From 0387dbe081b6d275160f7109e992e7eca30ce74d Mon Sep 17 00:00:00 2001
From: Victor Wagner <wagner@atlas-card.ru>
Date: Thu, 14 Nov 2013 16:39:43 +0400
Subject: [PATCH] update version and date in the document-info on each compile

---
 Tex2fb2     | 11 +++++++++++
 fb2meta.xml |  6 +++---
 2 files changed, 14 insertions(+), 3 deletions(-)

diff --git a/Tex2fb2 b/Tex2fb2
index 12f50da..22d8343 100755
--- 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;
diff --git a/fb2meta.xml b/fb2meta.xml
index 1caa516..f1d2f9d 100644
--- a/fb2meta.xml
+++ b/fb2meta.xml
@@ -26,10 +26,10 @@
 <document-info>
 <author><first-name>Виктор</first-name><last-name>Вагнер</last-name></author>
 <program-used>Perl</program-used>
-<date value="2013-11-12">12.11.2013</date>
+<date />
 <src-url>http://www.wagner.pp.ru/~vitus/fiction</src-url>
-<id>00000</id>
-<version>0.8</version>
+<id>5056261e-13f6-4386-83be-2a363304fab3</id>
+<version>0.0</version>
 </document-info>
 
 </description>
-- 
2.39.2