From fcec32a2c56589da9224aa62daf94c6492250015 Mon Sep 17 00:00:00 2001
From: Eelco Dolstra <e.dolstra@tudelft.nl>
Date: Wed, 22 Feb 2006 14:10:02 +0000
Subject: [PATCH] * Use right directories for NAR files and patches. * Print
 errors to STDERR.

---
 scripts/gc-releases.pl | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/scripts/gc-releases.pl b/scripts/gc-releases.pl
index ed40aded5..9c81a68e8 100755
--- a/scripts/gc-releases.pl
+++ b/scripts/gc-releases.pl
@@ -1,4 +1,4 @@
-#! /usr/bin/perl -w
+#! /usr/bin/perl -w -I.
 
 use strict;
 use readmanifest;
@@ -19,8 +19,9 @@ sub readDir {
     closedir DIR;
 }
 
-readDir "/mnt/scratchy/eelco/public_html/nix-cache";
-readDir "/mnt/scratchy/eelco/public_html/patches";
+readDir "/data/webserver/dist/nix-cache";
+readDir "/data/webserver/dist/test";
+readDir "/data/webserver/dist/patches";
 
 print STDERR scalar @archives, "\n";
 
@@ -48,7 +49,7 @@ foreach my $narFile (keys %narFiles) {
         die unless defined $basename;
 #        print $basename, "\n";
         $usedFiles{$basename} = 1;
-        die "missing archive `$basename'"
+        print STDERR "missing archive `$basename'\n"
             unless defined $archives{$basename};
     }
 }