From 0c4c8f7a9d09c497d95771c894a5cc3d4276609b Mon Sep 17 00:00:00 2001
From: Eelco Dolstra <eelco.dolstra@logicblox.com>
Date: Tue, 8 May 2012 15:43:54 -0400
Subject: Remove obsolete files (moved to release tree)

---
 scripts/maintenance/readcache.pm | 21 ---------------------
 1 file changed, 21 deletions(-)
 delete mode 100644 scripts/maintenance/readcache.pm

(limited to 'scripts/maintenance/readcache.pm')

diff --git a/scripts/maintenance/readcache.pm b/scripts/maintenance/readcache.pm
deleted file mode 100644
index 9addf02aa..000000000
--- 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";
-- 
cgit v1.2.3