diff options
| author | Eelco Dolstra <e.dolstra@tudelft.nl> | 2011-08-27T16·59+0000 |
|---|---|---|
| committer | Eelco Dolstra <e.dolstra@tudelft.nl> | 2011-08-27T16·59+0000 |
| commit | 5bcdc7e3517e6d679cad1aaba41e4deb76d5a6e7 (patch) | |
| tree | f572f2cb2cfc366dbaa957a70f96a63b7c8120ef /scripts/maintenance/readcache.pm | |
| parent | a95ba4cdd9aa9f9c98928732dd26fba2757ade26 (diff) | |
* Update the cleanup script.
Diffstat (limited to 'scripts/maintenance/readcache.pm')
| -rw-r--r-- | scripts/maintenance/readcache.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/scripts/maintenance/readcache.pm b/scripts/maintenance/readcache.pm index f6beeeeb46d0..9addf02aa900 100644 --- a/scripts/maintenance/readcache.pm +++ b/scripts/maintenance/readcache.pm @@ -9,13 +9,13 @@ sub readDir { opendir(DIR, "$dir") or die "cannot open `$dir': $!"; my @as = readdir DIR; foreach my $archive (@as) { + next unless $archive =~ /^sha256_/ || $archive =~ /\.nar-bsdiff$/ || $archive =~ /\.nar\.bz2$/; $archives{$archive} = "$dir/$archive"; } closedir DIR; } -readDir "/data/webserver/dist/nix-cache"; -readDir "/data/webserver/dist/test-cache"; -readDir "/data/webserver/dist/patches"; +readDir "/data/releases/nars"; +readDir "/data/releases/patches"; print STDERR scalar (keys %archives), "\n"; |