ignore "index.txt" file found in ftp directories

This commit is contained in:
pvalchev 2004-09-15 18:53:24 +00:00
parent e44839e34b
commit c862b93395

View File

@ -1,6 +1,6 @@
#!/usr/bin/perl -w
# $OpenBSD: gen-package-pages,v 1.2 2004/02/25 00:08:30 espie Exp $
# $OpenBSD: gen-package-pages,v 1.3 2004/09/15 18:53:24 pvalchev Exp $
# Copyright (c) 2004 Michael Coulter
#
@ -92,6 +92,7 @@ sub gen_arch_page
opendir(my $pkgs, "$pkgpath/$arch") || die "cannot get package listing for $arch: $!\n";
while (my $file = readdir($pkgs)) {
next if ($file =~ /^\./);
next if ($file =~ /^index.txt$/);
dprint "generating package for $arch/$file\n";
my $package = OpenBSD::PackageLocator->find("$pkgpath/$arch/$file");