remove unused script

$top_dir is set to a directory that is not used any more

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");
-			}
-		}
-	}
-}