author | Heiko Schlittermann (CTQ) <hs@schlittermann.de> |
Tue, 02 Aug 2011 11:21:32 +0200 | |
changeset 124 | 6c90a6e8646c |
parent 123 | 0c6e454093df |
child 125 | 2e00ff442e15 |
bin/ftbackup | file | annotate | diff | comparison | revisions |
--- a/bin/ftbackup Mon Aug 01 15:52:37 2011 +0200 +++ b/bin/ftbackup Tue Aug 02 11:21:32 2011 +0200 @@ -208,10 +208,11 @@ foreach (reverse sort $ftp->ls) { next if /\.tmp-\d+$/; next if not /^(?<date>.*)\.(?<level>\d+)$/; - next if not $ftp->size(0) and str2time($+{date}) < $^T; + next if not $ftp->size($_) and str2time($+{date}) < $^T; $last[$+{level}] = str2time $+{date}; } } + ### @last # for safety we check if there is really a full dump not older than xxx days if ($dev->{level} > 0) {