2006-02-22 09:35:19 -05:00
|
|
|
package readcache;
|
|
|
|
|
use strict;
|
|
|
|
|
|
|
|
|
|
# Read the archive directories.
|
|
|
|
|
our %archives;
|
|
|
|
|
|
|
|
|
|
sub readDir {
|
|
|
|
|
my $dir = shift;
|
|
|
|
|
opendir(DIR, "$dir") or die "cannot open `$dir': $!";
|
|
|
|
|
my @as = readdir DIR;
|
|
|
|
|
foreach my $archive (@as) {
|
|
|
|
|
$archives{$archive} = "$dir/$archive";
|
|
|
|
|
}
|
|
|
|
|
closedir DIR;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
readDir "/data/webserver/dist/nix-cache";
|
2006-10-12 16:13:29 -04:00
|
|
|
readDir "/data/webserver/dist/test-cache";
|
2006-02-22 09:35:19 -05:00
|
|
|
readDir "/data/webserver/dist/patches";
|
|
|
|
|
|
|
|
|
|
print STDERR scalar (keys %archives), "\n";
|
