Author: eelco
Date: Wed May 9 23:13:05 2012
New Revision: 34040
URL: https://nixos.org/websvn/nix/?rev=34040&sc=1
Log:
* Update the /data/releases cleanup scripts.
Added:
release/trunk/channels/ReadCache.pm (props changed)
- copied unchanged from r34039, nix/trunk/scripts/maintenance/readcache.pm
release/trunk/channels/print-dead-files.pl (contents, props changed)
- copied, changed from r34039,
nix/trunk/scripts/maintenance/gc-releases.pl
release/trunk/channels/remove-dead-files.sh (contents, props changed)
- copied, changed from r34039, nix/trunk/scripts/maintenance/gc-commands
Copied: release/trunk/channels/ReadCache.pm (from r34039,
nix/trunk/scripts/maintenance/readcache.pm)
==============================================================================
--- /dev/null 00:00:00 1970 (empty, because file is newly added)
+++ release/trunk/channels/ReadCache.pm Wed May 9 23:13:05 2012
(r34040, copy of r34039, nix/trunk/scripts/maintenance/readcache.pm)
@@ -0,0 +1,21 @@
+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";
Copied and modified: release/trunk/channels/print-dead-files.pl (from r34039,
nix/trunk/scripts/maintenance/gc-releases.pl)
==============================================================================
--- nix/trunk/scripts/maintenance/gc-releases.pl Wed May 9 22:13:53
2012 (r34039, copy source)
+++ release/trunk/channels/print-dead-files.pl Wed May 9 23:13:05 2012
(r34040)
@@ -1,8 +1,8 @@
-#! /var/run/current-system/sw/bin/perl -w -I. -I..
+#! /var/run/current-system/sw/bin/perl -w -I .
use strict;
-use NixManifest;
-use readcache;
+use Nix::Manifest;
+use ReadCache;
use File::Basename;
@@ -26,7 +26,7 @@
$file->{url} =~ /\/([^\/]+)$/;
my $basename = $1;
die unless defined $basename;
-# print $basename, "\n";
+ #print STDERR "GOT $basename\n";
$usedFiles{$basename} = 1;
print STDERR "missing archive `$basename'\n"
unless defined $readcache::archives{$basename};
@@ -38,7 +38,7 @@
$file->{url} =~ /\/([^\/]+)$/;
my $basename = $1;
die unless defined $basename;
-# print $basename, "\n";
+ #print STDERR "GOT2 $basename\n";
$usedFiles{$basename} = 1;
die "missing archive `$basename'"
unless defined $readcache::archives{$basename};
Copied and modified: release/trunk/channels/remove-dead-files.sh (from r34039,
nix/trunk/scripts/maintenance/gc-commands)
==============================================================================
--- nix/trunk/scripts/maintenance/gc-commands Wed May 9 22:13:53 2012
(r34039, copy source)
+++ release/trunk/channels/remove-dead-files.sh Wed May 9 23:13:05 2012
(r34040)
@@ -1,2 +1,4 @@
-./gc-releases.pl /data/releases/patches/all-patches $(find /data/releases
-name MANIFEST) | sort > dead
-cat dead | xargs -d '\n' sh -c 'find "$@" -mtime +100 -print' | xargs -d '\n'
mv -v --target-directory=/data/releases/trash/
+#! /bin/sh
+./print-dead-files.pl /data/releases/patches/all-patches $(find /data/releases
-name MANIFEST | grep -v '\.trash' | grep -v '\.tmp') | sort > /tmp/dead
+mkdir -p /data/releases/.trash/
+xargs -d '\n' sh -c 'find "$@" -mtime +100 -print' < /tmp/dead | xargs -d '\n'
mv -v --target-directory=/data/releases/.trash/
_______________________________________________
nix-commits mailing list
nix-comm...@lists.science.uu.nl
http://lists.science.uu.nl/mailman/listinfo/nix-commits
