diff options
Diffstat (limited to 'bin/parse-contents')
| -rwxr-xr-x | bin/parse-contents | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/bin/parse-contents b/bin/parse-contents index 78ed7f5..0a7f0a7 100755 --- a/bin/parse-contents +++ b/bin/parse-contents @@ -77,6 +77,12 @@ for my $suite (@suites) { my $filename = "$TOPDIR/archive/$archive/$suite/$section/Contents-$arch.gz"; next unless -f $filename; + + if (-l $filename) { + print "Skipping link $archive/$suite/$section/Contents-$arch.gz\n"; + next ; # do not process symlinks, or we will have double data + } + # Note: ctime, because mtime is set back via rsync my $ftime = (stat $filename)[10]; next if defined $dbtime and $dbtime > $ftime; @@ -90,6 +96,12 @@ for my $suite (@suites) { my $filename = "$TOPDIR/archive/$archive/$suite/$section/Contents-$arch.gz"; next unless -f $filename; + + if (-l $filename) { + print "Skipping link $archive/$suite/$section/Contents-$arch.gz\n"; + next ; # do not process symlinks, or we will have double data + } + print "Reading $archive/$suite/$section/$arch...\n"; open CONT, "zcat $filename|$what" |