X-Git-Url: http://www.wagner.pp.ru/gitweb/?a=blobdiff_plain;f=Tex2fb2;fp=Tex2fb2;h=22d83434cdcc887bf7382299656a993c4ac007ee;hb=0387dbe081b6d275160f7109e992e7eca30ce74d;hp=12f50da94cbca1d0b11758a5f6f08b85455a621d;hpb=34aa8ee96c682061235ff8355841c2f0c59c123f;p=fiction%2FKate-the-Empress.git

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;