blocked some dirs

CVS version numbers

make_links.pl: 1.1 -> 1.2

1 files changed, 5 insertions, 2 deletions

diff --git a/make_links.pl b/make_links.pl
index d94a41fe2dd..28aa4341d08 100755
--- a/make_links.pl
+++ b/make_links.pl
@@ -15,8 +15,11 @@ 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 $_ !~ /^..?$/ } readdir(DIR);
+	@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) {
@@ -30,7 +33,7 @@ sub check_directory() {
 		if (defined($html) and $lang =~ /^en$/ and $html eq "html") {
 			if ( ! -e "$curdir/$name.html") {
 				symlink("$file", "$curdir/$name.html");
-				print "  creating symlink to $file\n";
+				print "  creating symlink to $curdir/$file\n";
 			}
 		}
 	}