From 99f140648cba20594bc883537142487cc003ca1d Mon Sep 17 00:00:00 2001 From: Thomas Lange Date: Fri, 5 Apr 2024 20:53:13 +0200 Subject: remove unused script $top_dir is set to a directory that is not used any more --- make_links.pl | 42 ------------------------------------------ 1 file changed, 42 deletions(-) delete mode 100755 make_links.pl (limited to 'make_links.pl') 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 .en.html there needs to be -# a .html -> .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"); - } - } - } -} -- cgit v1.2.3