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
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
|
#!/usr/bin/perl -w
# This script is used during build of English documents to check if
# translations are up-to date.
# This script takes full path to a original .wml file, and the language of
# the original.
# For every language defined in @langs, the script:
# - checks if a translated file exists for such language
# - checks if the translated file is at least N revisions old
# (N is any number defined in @stages)
# - if it is, and it hasn't been touched because of this particular
# "N", it is touched and a marker file is created
# This allows the file to be rebuilt _exactly_ the number of times it should
# (i.e. $#stages times)
# (C) 2000 by Marcin Owsiany <porridge@pandora.info.bielsko.pl>
# TODOs:
# - compare both major and minor revision number
# - think of a better way to check when the file has been rebuilt last
# This should contain all languages
%langs = (
"ar" => "arabic",
"zh" => "chinese",
"hr" => "croatian",
"da" => "danish",
"nl" => "dutch",
"en" => "english",
"eo" => "esperanto",
"fi" => "finnish",
"fr" => "french",
"de" => "german",
"hu" => "hungarian",
"it" => "italian",
"ja" => "japanese",
"ko" => "korean",
"no" => "norwegian",
"pl" => "polish",
"pt" => "portuguese",
"ro" => "romanian",
"ru" => "russian",
"es" => "spanish",
"sv" => "swedish",
"tr" => "turkish");
@langs = values(%langs);
# Set this to 1 for debugging
$debug = 1;
sub rebuild {
my $file = shift;
$now = time;
print "touching $file\n";
utime $now, $now, $file or die "$file: $!";
}
sub mark_forced {
my $file = shift;
my $val = shift;
my $foo = "$file".".forced";
open LOG, ">$foo" or die "$foo: $!";
print LOG "$val";
close LOG;
print "Created $file.forced with $val inside\n" if $debug;
}
sub was_forced {
my $file = shift;
if (open LOG, "<$file.forced") {
close LOG;
print "$file.forced exists\n" if $debug;
return 1;
} else {
print "$file.forced does not exists\n" if $debug;
return 0;
}
}
sub when_forced {
my $file = shift;
if (open LOG, "<$file.forced") {
$_ = <LOG>;
chomp($_);
print "$file.forced contains $_"."\n" if $debug;
close LOG;
return $_;
} else {
print "$file.forced : $!\n" if $debug;
return 0;
}
}
$argfile = $ARGV[0] or die "Invalid number of arguments";
die "Invalid number of arguments" unless $ARGV[1];
$arglang = $langs{$ARGV[1]} or die "Invalid lang argument";
$argfile =~ m+(.*)/(.*)\.wml+ or die "pattern does not match";
my ($path, $file) = ($1, $2);
# Get the revision of the original file
my $origrev;
open FILE, "${path}/CVS/Entries" or die "${path}/CVS/Entries: $!";
while (<FILE>) {
if (m,^/$file.wml/([^/]+)/,) {
$origrev = $1;
last;
}
}
foreach $lang (@langs) {
next if ($lang eq $arglang);
my $transfile = $argfile;
my ($maxdelta, $mindelta) = (5, 2);
my ($original, $langrev);
print "Now checking $lang\n";
$transfile =~ s+$arglang+$lang+ or die "wrong argument: pattern does not match file: $transfile";
# Parse the translated file
open FILE, "$transfile" or next;
while (<FILE>) {
if (/translation-check translation="([.0-9]*)"\s*(.*)/oi) {
$langrev = $1;
my $stuff = $2;
if ($stuff =~ /original="([^"]+)"/) {
$original = $1;
}
if ($stuff =~ /maxdelta="([^"]+)"/) {
$maxdelta = $1;
}
if ($stuff =~ /mindelta="([^"]+)"/) {
$mindelta = $1;
}
last;
}
}
close FILE;
next if not defined $langrev;
# TODO - would cause unspecified results if 1. changed to 2.
$origrev =~ s/1\.//;
$langrev =~ s/1\.//;
next unless not defined $original or $original eq $arglang;
# Compare the revisions
print "Orig: $origrev, lang: $langrev\n" if $debug;
$difference = $origrev-$langrev;
if ($difference < $mindelta) {
next unless was_forced($transfile);
print "unlinking $transfile.forced\n" if $debug;
unlink "$transfile.forced";
next;
}
my $forced_at = when_forced($transfile);
if ($difference < $maxdelta) {
if ($forced_at != $mindelta) {
print "difference matches $mindelta, but wasn't rebuilt at $mindelta\n" if $debug;
rebuild($transfile);
mark_forced($transfile, $mindelta);
last;
}
} elsif ($forced_at != $maxdelta) {
print "difference matches $maxdelta, but wasn't rebuilt at $maxdelta\n" if $debug;
rebuild($transfile);
mark_forced($transfile, $maxdelta);
last;
}
}
|
