webwml/webwml/make_all.pl

#!/usr/bin/perl -w

# Usage: new_translation.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 old functionality is replaced by touch_old_files.pl

require 5.001;
use strict;

my (@languages, @parts, $file, $filename, $lang, $path, $pid);

# from english/template/debian/languages.wml
# TODO: Needs to be synced frequently or fixed so it's automatic
my %langs = ( english    => "en",
#             arabic     => "ar",
              catalan    => "ca",
              danish     => "da",
              german     => "de",
              greek      => "el",
              esperanto  => "eo",
              spanish    => "es",
              finnish    => "fi",
              french     => "fr",
              croatian   => "hr",
              hungarian  => "hu",
              italian    => "it",
              japanese   => "ja",
              korean     => "ko",
              dutch      => "nl",
              norwegian  => "no",
              polish     => "pl",
              portuguese => "pt",
              romanian   => "ro",
              russian    => "ru",
              swedish    => "sv",
              turkish    => "tr",
              chinese    => "zh",
);

if (!@ARGV) {
  open SELF, "<$0" or die "Unable to display help: $!\n";
  HELP: while (<SELF>)
  {
    last HELP if (/^require/);
    s/^# ?//;
    next if /^!/;
    print;
  }
  exit;
}

opendir(DIR, ".") || die "can't open directory $!";
@languages = grep { /^\w+$/ && -d $_ } readdir(DIR);
closedir DIR;
# print @languages;

my $relhtmlbase = "../debian.org/";

foreach $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 $lang (@languages) {
      next if ($lang eq "CVS");
      if ( -f "$lang/$file" ) {
         $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") == 0 or die "$!\n";
            exit 0;
         }
         waitpid($pid,0);
      }
      else {
         print "The file isn't translated into " . ucfirst $lang . ".\n";
      }
  }
}
1	#!/usr/bin/perl -w
2
3	# Usage: new_translation.pl <file1> <file2>...
4
5	# This will update every version of <file?>, each of which should be
6	# the path to a .wml file (without the language directory).
7
8	# Note: this script old functionality is replaced by touch_old_files.pl
9
10	require 5.001;
11	use strict;
12
13	my (@languages, @parts, $file, $filename, $lang, $path, $pid);
14
15	# from english/template/debian/languages.wml
16	# TODO: Needs to be synced frequently or fixed so it's automatic
17	my %langs = ( english => "en",
18	# arabic => "ar",
19	catalan => "ca",
20	danish => "da",
21	german => "de",
22	greek => "el",
23	esperanto => "eo",
24	spanish => "es",
25	finnish => "fi",
26	french => "fr",
27	croatian => "hr",
28	hungarian => "hu",
29	italian => "it",
30	japanese => "ja",
31	korean => "ko",
32	dutch => "nl",
33	norwegian => "no",
34	polish => "pl",
35	portuguese => "pt",
36	romanian => "ro",
37	russian => "ru",
38	swedish => "sv",
39	turkish => "tr",
40	chinese => "zh",
41	);
42
43	if (!@ARGV) {
44	open SELF, "<$0" or die "Unable to display help: $!\n";
45	HELP: while (<SELF>)
46	{
47	last HELP if (/^require/);
48	s/^# ?//;
49	next if /^!/;
50	print;
51	}
52	exit;
53	}
54
55	opendir(DIR, ".") \|\| die "can't open directory $!";
56	@languages = grep { /^\w+$/ && -d $_ } readdir(DIR);
57	closedir DIR;
58	# print @languages;
59
60	my $relhtmlbase = "../debian.org/";
61
62	foreach $file (@ARGV) {
63	$file =~ s,^english/,,;
64	my $level = 0;
65	my $destfile = "";
66	my @parts = split '/', $file;
67	my $dir = pop @parts;
68	my $path = join '/', @parts;
69	# system ("mkdir -p $relhtmlbase$path");
70	while ($dir) { $destfile .= "../"; $dir = pop @parts; }
71	$destfile .= $relhtmlbase . $file;
72	foreach $lang (@languages) {
73	next if ($lang eq "CVS");
74	if ( -f "$lang/$file" ) {
75	$pid = fork;
76	if ($pid) { # parent
77	# do nothing
78	}
79	else { # child
80	$destfile =~ s/.wml$/.$langs{$lang}.html/;
81	print "Making the " . ucfirst $lang . " copy:\n";
82	system("make -C $lang/$path $destfile") == 0 or die "$!\n";
83	exit 0;
84	}
85	waitpid($pid,0);
86	}
87	else {
88	print "The file isn't translated into " . ucfirst $lang . ".\n";
89	}
90	}
91	}