# HG changeset patch # User Heiko Schlittermann (JUMPER) # 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}); }