1 files changed, 21 insertions, 0 deletions
diff --git a/scripts/maintenance/readcache.pm b/scripts/maintenance/readcache.pm
new file mode 100644
index 000000000..c0657913e
--- /dev/null
+++ b/scripts/maintenance/readcache.pm
@@ -0,0 +1,21 @@
+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";
+readDir "/data/webserver/dist/test";
+readDir "/data/webserver/dist/patches";
+
+print STDERR scalar (keys %archives), "\n";