about summary refs log tree commit diff
path: root/scripts/maintenance/readcache.pm
diff options
context:
space:
mode:
Diffstat (limited to 'scripts/maintenance/readcache.pm')
-rw-r--r--scripts/maintenance/readcache.pm21
1 files changed, 0 insertions, 21 deletions
diff --git a/scripts/maintenance/readcache.pm b/scripts/maintenance/readcache.pm
deleted file mode 100644
index 9addf02aa900..000000000000
--- a/scripts/maintenance/readcache.pm
+++ /dev/null
@@ -1,21 +0,0 @@
-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) {
-        next unless $archive =~ /^sha256_/ || $archive =~ /\.nar-bsdiff$/ || $archive =~ /\.nar\.bz2$/;
-        $archives{$archive} = "$dir/$archive";
-    }
-    closedir DIR;
-}
-
-readDir "/data/releases/nars";
-readDir "/data/releases/patches";
-
-print STDERR scalar (keys %archives), "\n";