1#!/usr/bin/perl -i
2use POSIX;
3my $v = ` cat ../VERSION `; chomp $v;
4#$v="XXXXX";
5#print "$v\n";
6my $s = ctime( time );
7#print "$s\n";
8my @s = split ' ', $s;
9my $w = '<subtitle> ' ."$s[2] $s[1] $s[4] (For $v)" . '</subtitle>' . "\n";
10my $wd = '<date> ' ."$s[2] $s[1] $s[4] (For $v)" . '</date>' . "\n";
11#print $w;
12while ( <> ){
13	if( /h4: {/ ){
14		++$x;
15		s/{\d+}/{$x}/;
16		print;
17	}elsif( /^<subtitle>/ ){
18		print $w ;
19	}elsif( /^<date>/ ){
20		print $wd ;
21	} else {
22		print ;
23	}
24}
25