# HG changeset patch
# User Heiko Schlittermann (JUMPER) <hs@schlittermann.de>
# Date 1305876681 -7200
# Node ID 244a1c0dc6a54920defb825c34c61e117b8d5356
# Parent  c3d6997d3ade0f4875bfc6ddf52398cdd6aa856d
tracing the cleanup process

diff -r c3d6997d3ade -r 244a1c0dc6a5 bin/ftbackup
--- a/bin/ftbackup	Wed May 04 12:01:00 2011 +0200
+++ b/bin/ftbackup	Fri May 20 09:31:21 2011 +0200
@@ -646,6 +646,7 @@
     my @unlink;
 
     if ($dumps[0]) {
+	TRACE "level 0:", join "|" => @{$dumps[0]};
 	@{ $dumps[0] } = sort { $a->{stamp} <=> $b->{stamp} } @{ $dumps[0] };
 
 	if ($keep =~ /^\d+$/) {
@@ -679,7 +680,7 @@
     ### @unlink
 
     foreach (@unlink) {
-        say "DELETE: $_->{file}";
+        TRACE "DELETE: $_->{file}";
         next if $opt_dry;
         $ftp->delete($_->{file});
     }