From fcec32a2c56589da9224aa62daf94c6492250015 Mon Sep 17 00:00:00 2001 From: Eelco Dolstra 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}; } }