blob: d5e8bb6605831810d519fa8a8761c20ffa811a51 (
plain) (
blame)
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
|
#!/usr/bin/perl -w
# Usage: make_all.pl <file1> <file2>...
# This will update every version of <file?>, each of which should be
# the path to a .wml file (without the language directory).
# Note: this script was previously known as new_translation.pl.
# That functionality is replaced by touch_old_files.pl.
require 5.001;
use strict;
# This module resides under webwml/Perl
use lib ($0 =~ m|(.*)/|, $1 or ".") ."/Perl";
use Webwml::Langs;
my $l = Webwml::Langs->new();
my %langs = $l->name_iso();
my @languages = $l->names();
if (!@ARGV) {
open SELF, "<$0" or die "Unable to display help: $!\n";
HELP: while (<SELF>)
{
last HELP if (/^require/);
s/^# ?//;
next if /^!/;
print;
}
exit;
}
my $relhtmlbase = "../debian.org/";
foreach my $file (@ARGV) {
$file =~ s,^english/,,;
my $level = 0;
my $destfile = "";
my @parts = split '/', $file;
my $dir = pop @parts;
my $path = join '/', @parts;
# system ("mkdir -p $relhtmlbase$path");
while ($dir) { $destfile .= "../"; $dir = pop @parts; }
$destfile .= $relhtmlbase . $file;
foreach my $lang (@languages) {
next if ($lang eq "CVS");
if ( -f "$lang/$file" ) {
my $pid = fork;
if ($pid) { # parent
# do nothing
}
else { # child
$destfile =~ s/.wml$/.$langs{$lang}.html/;
print "Making the " . ucfirst $lang . " copy:\n";
system("make -C $lang/$path $destfile"); # no need to handle make's errors
exit 0;
}
waitpid($pid,0);
}
else {
print "The file isn't translated into " . ucfirst $lang . ".\n";
}
}
}
|