From 0c596036f220f1ab3fd888e6434109e6a6a5d749 Mon Sep 17 00:00:00 2001
From: "James A. Treacy" <treacy>
Date: Wed, 21 Oct 1998 09:00:53 +0000
Subject: blocked some dirs

CVS version numbers

make_links.pl: 1.1 -> 1.2
---
 make_links.pl | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'make_links.pl')

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";
 			}
 		}
 	}
-- 
cgit v1.2.3