diff options
author | James A. Treacy <treacy> | 1998-10-21 09:00:53 +0000 |
---|---|---|
committer | James A. Treacy <treacy> | 1998-10-21 09:00:53 +0000 |
commit | 0c596036f220f1ab3fd888e6434109e6a6a5d749 (patch) | |
tree | 32795e42b1f697b8c581b081ab95fb6dc917943d /make_links.pl | |
parent | 7a53b12a5586397acf0e89b1ecb510577cbfe0de (diff) |
blocked some dirs
CVS version numbers
make_links.pl: 1.1 -> 1.2
Diffstat (limited to 'make_links.pl')
-rwxr-xr-x | make_links.pl | 7 |
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"; } } } |