mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* Use right directories for NAR files and patches.

Browse source 
* Print errors to STDERR.
This commit is contained in:
Eelco Dolstra 2006-02-22 14:10:02 +00:00
parent f0d6318dd1
commit fcec32a2c5
1 changed files with 5 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
scripts/gc-releases.pl
View file

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