diff options
author | Thomas Lange <lange@debian.org> | 2024-04-05 20:53:13 +0200 |
---|---|---|
committer | Thomas Lange <lange@debian.org> | 2024-04-05 20:53:13 +0200 |
commit | 99f140648cba20594bc883537142487cc003ca1d (patch) | |
tree | 15a3801bf3a49fb51815bf8f9b3321b16856d301 /make_links.pl | |
parent | aa4b91a4546bb73421d05cfe23c7a48d5198993f (diff) |
remove unused script
$top_dir is set to a directory that is not used any more
Diffstat (limited to 'make_links.pl')
-rwxr-xr-x | make_links.pl | 42 |
1 files changed, 0 insertions, 42 deletions
diff --git a/make_links.pl b/make_links.pl deleted file mode 100755 index 72637e9b04b..00000000000 --- a/make_links.pl +++ /dev/null @@ -1,42 +0,0 @@ -#!/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"); - } - } - } -} |