about summary refs log tree commit diff
diff options
context:
space:
mode:
authorEelco Dolstra <e.dolstra@tudelft.nl>2006-02-22T14·10+0000
committerEelco Dolstra <e.dolstra@tudelft.nl>2006-02-22T14·10+0000
commitfcec32a2c56589da9224aa62daf94c6492250015 (patch)
tree8546c112d6a9ab82f23261223ea5d5b82cb12ab6
parentf0d6318dd1227dff81b84d62796371904e5c5b5f (diff)
* Use right directories for NAR files and patches.
* Print errors to STDERR.

-rwxr-xr-xscripts/gc-releases.pl9
1 files changed, 5 insertions, 4 deletions
diff --git a/scripts/gc-releases.pl b/scripts/gc-releases.pl
index ed40aded5ed4..9c81a68e835b 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};
     }
 }