--- a/checker	Mon Jul 25 15:13:07 2011 +0200
+++ b/checker	Mon Jul 25 16:36:53 2011 +0200
@@ -81,7 +81,8 @@
     my ($dir, %block) = @_;
 
     my ($total, $done);
-    verbose("# pass 1 - purge unused blocks");
+    verbose("# pass 1 - checking for unused blocks");
+    verbose("# estimating file count");
 
     # calculate the number of files we expect
     find(sub {
@@ -105,29 +106,49 @@
     };
     $SIG{ALRM}->();
 
+    my @unused;
     find(sub {
 	$done++ if -f;
 	(-f _) and ((-M _) > 0) or return;
 
+	# we don't need uncompressed files if an compressed version
+	# exists
+	unlink $_ and return if -f "$_.gz";
+
 	# cut away the first part of the filename and
 	# some optional extension
 	(my $rn = $File::Find::name) =~ s/^$dir\/data\/(.*?)(?:\..+)?$/$1/;
 	exists $block{$rn} and return;
-
-
-	if ($o{yes}) {
-	   verbose("unlinking " . abs_path $File::Find::name);
-	   unlink abs_path $File::Find::name;
-	   return;
-	}
-
-	verbose("unused " . abs_path $File::Find::name);
+	push @unused, abs_path $File::Find::name;
 	return;
 
     }, "$dir/data");
     $SIG{ALRM}->();
     alarm 0;
 
+    return if not @unused;
+
+    say sprintf "found %d (%.1f%%) unused files",
+	0+@unused,
+	100 * (@unused/$total);
+
+    if ($o{yes}) {
+	verbose("# deleting ".@unused." files");
+	unlink @unused;
+	return;
+    }
+
+    if (-t) {
+	while(1) {
+	    print "delete? [y/N/v]: ";
+	    given (<STDIN>) {
+		when (/^y(?:es)?$/i) { unlink @unused; last }
+		when (/^v/) { say join "\n", @unused; next }
+		default { last }
+	    }
+	}
+    }
+
 }
 
 sub check_images {
@@ -159,16 +180,35 @@
 	
 	next if -f "$dir/data/$k"
 	    or -f "$dir/data/$k.gz";
-	say "missing $k";
-	@invalid{@{$block{""}}} = ();
+	say "missing $k @$i";
+	@invalid{@$i} = ();
     }
     $SIG{ALRM}->();
     alarm 0;
 
-    return if not %invalid;
+    # invalid now contains the numbers of the idx files beiing
+    # invalid
+    my @invalid = sort @{$block{""}}[keys %invalid];
+
+    return if not @invalid;
+
+    say sprintf "found %d (%.1f%%) invalid images:",
+	0+@invalid,
+	100 * (@invalid/$total);
 
-    say "invalid images:\n", join "\n", sort keys %invalid;
-    unlink keys %invalid if $o{yes};
+    if ($o{yes}) {
+	unlink @invalid;
+	return;
+    }
+
+    while (-t) {
+	print "delete? [y/N/v] ";
+	given (<STDIN>) {
+	    when (/^y(?:es)?$/i) { unlink @invalid; last }
+	    when (/^v/i)	 { say join "\n" => @invalid; next }
+	default		         { last }
+	}
+    }
 }
 __END__