blob: 72637e9b04ba603db0f115bcacfae3f9549803cb (
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
|
#!/usr/bin/perl -w
# This script creates any missing soft links in the Debian html directory
# on master. These links are necessary so that under content negotiation
# there is a default language. For every <file>.en.html there needs to be
# a <file>.html -> <file>.en.html
# Translators shouldn't have any need of this.
# Makefiles in webwml/english/ have already been set up to create these
# links while installing files, so there should be no need to run this.
$top_dir = "/debian2/web/debian.org";
check_directory($top_dir);
sub check_directory() {
my ($curdir) = @_;
my (@dir_list, @fil_list, @parts, $lang, $html, $name);
print "$curdir\n";
opendir(DIR, $curdir) or die "can't opendir $curdir: $!";
@dir_list = grep { -d "$curdir/$_" and $_ !~ /^..?$/ and ! -l "$curdir/$_" and
$_ ne "gnome" and $_ ne "OpenHardware" and $_ ne "OpenSource" and
$_ ne "berlin"} readdir(DIR);
rewinddir DIR;
@fil_list = grep { -f "$curdir/$_" } readdir(DIR);
foreach (@dir_list) {
check_directory("$curdir/$_");
}
foreach $file (@fil_list) {
@parts = split('\.', $file);
$html = pop @parts;
$lang = pop @parts;
$name = join('.', @parts);
if (defined($html) and $lang =~ /^en$/ and $html eq "html") {
if ( ! -e "$curdir/$name.html") {
print " creating symlink to $curdir/$file\n";
symlink("$file", "$curdir/$name.html");
}
}
}
}
|