--- recepies/zfs/zfs-expire-snapshot.pl	2010/06/14 12:13:14	218
+++ recepies/zfs/zfs-expire-snapshot.pl	2010/06/27 21:55:33	219
@@ -12,7 +12,7 @@
 	'default' => {
 		21 => 5,
 		30 => 10,
-		60 => 30,
+		90 => 30,
 	},
 	'212052' => {	# koha-dev
 		7 => 10,
@@ -20,6 +20,7 @@
 	},
 	'212056' => {	# webpac2
 		7 => 5,
+		14 => 30,
 	}
 };
 
@@ -57,7 +58,7 @@
 
 	my $keep_every_days;
 	my $older_than_days;
-	foreach ( sort keys %$c ) {
+	foreach ( sort { $b <=> $a } keys %$c ) {
 		$older_than_days = $_;
 		$keep_every_days = $c->{$_};
 		warn "## $host $age > $older_than_days" if $debug;