1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
|
#!/usr/bin/env perl
#
# THE CHARSET OF THIS FILE is EUC-JP.
#
# $FML$
#
use strict;
use Carp;
use File::Basename;
use File::Spec;
my $base_dir = sprintf("%s/../../../", dirname($0));
my $changes = File::Spec->catfile($base_dir, "CHANGES.txt");
unless (-f $changes) {
croak("cannot find $changes\n");
}
my $fml_version = get_version($changes);
my $date = get_date();
my $fml_version_comment = sprintf("(������� %s-%s)", $fml_version, $date);
my $sgml_version_comment = quotemeta("<!-- __FML_CURRENT_VERSION__ -->");
while (<>) {
if (/^(.*)$sgml_version_comment/) {
my ($prefix) = ($1);
print $prefix, $fml_version_comment, "\n";
print "\t<!-- FML_CURRENT_VERSION=\"$fml_version_comment\" -->\n";
}
else {
print;
}
}
exit 0;
sub get_version
{
my ($file) = @_;
my $version = undef;
use FileHandle;
my $rh = new FileHandle $file;
if (defined $rh) {
my $buf;
LINE:
while ($buf = <$rh>) {
if ($buf =~ /FML_CURRENT_VERSION=(\S+)/) {
$version = $1;
$version =~ s/\s*$//;
last LINE;
}
}
$rh->close();
}
return $version;
}
sub get_date
{
my ($time) = @_;
$time ||= time();
my ($sec,$min,$hour,$mday,$mon,$year,$wday) = (localtime($time))[0..6];
return sprintf("%04d%02d%02d", 1900 + $year, $mon + 1, $mday);
}
|
