# HG changeset patch # User Heiko Schlittermann (ZARAFA.ctq.de) hs@schlittermann.de # Date 1302535237 -7200 # Node ID ff06067298b51d34a07d9e97cfe7eeca1fcb67c7 # Parent 8a7d356223a3095949bed627affa26d19ac6fe1c compression is configurable, dumpdate file gets updated diff -r 8a7d356223a3 -r ff06067298b5 ftbackup --- a/ftbackup Mon Apr 11 15:38:22 2011 +0200 +++ b/ftbackup Mon Apr 11 17:20:37 2011 +0200 @@ -3,7 +3,6 @@ use warnings; use 5.10.0; -use IO::File; use File::Basename; use Net::FTP; use Perl6::Slurp; @@ -33,6 +32,7 @@ my $opt_force = 0; my $opt_label = "daily"; my $opt_config = ""; +my $opt_dumpdates = "/var/lib/dumpdates"; sub get_configs(@); sub get_candidates(); @@ -46,7 +46,8 @@ my %CONFIG = ( FTP_DIR => "backup/